• 歡迎訪問奇跡の海網站,本站不上傳任何資源,所有資源均來自于網絡,歡迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下載資源為網絡上收集整理而來,并且以計算機技術研究交流為目的,版權歸原作者所有,僅供大家參考,學習,不存在任何商業目的與商業用途.
  • 本站系統鏡像均來自于官方原版,ed2k可視為P2P下載鏈接。所有操作系統默認均為試用版,如有正版密鑰可以有效激活,本站不提供任何激活和相關服務。

AutoIt3(au3)源碼-網吧桌面顯示天氣

AutoIT3 奇跡の海 2年前 (2017-11-03) 604次瀏覽 已收錄 0個評論 掃描二維碼

AutoIt3(au3)源碼-網吧桌面顯示天氣

簡介

AU3桌面天氣的源代碼注意:有些路徑修改成你自己的即可!

源代碼

;判斷調用程序的合法性 
;if $cmdline[0]<>1 Then    exit(1) 
;if $cmdline[1]<>abs(BitXOR(DriveGetSerial("c:"),29627317)) then exit(2) 
;只允許一個程序運行 
;#include "..\..\..\..\include\myrunone.au3" 
;dim Const $ver="Myself公告組件1.2.0.0" 
;if MyRunOne($ver)=-1 then Exit
MyShowWallpaper() 
Func MyShowWallpaper() 
local $FileHandle,$Mytype,$MyPay1,$MyPay2,$MyPay3,$MyPay4 
local $r_wallpaper="\updateserver\tools$\桌面系統"" 
local Const $r_Note     ="\updateserver\tools$\桌面系統\網吧公告.txt" 
Local Const $r_Price    ="\updateserver\tools$\桌面系統\價格表.ini" 
Local Const $r_Info    ="\updateserver\tools$\桌面系統\天氣預報.ini" 
local Const " 
local Const $l_Note     網吧公告.txt" 
Local Const $l_Price    價格表.ini" 
Local Const $InfoFile   "

;同步壁紙 
If not FileExists($r_wallpaper) Then $r_wallpaper="\updateserver\tools$\公告系統\back.jpg" 
If FileExists($r_wallpaper) And (FileGetTime($r_wallpaper,0,1)<>FileGetTime($l_wallpaper,0,1)) Then    FileCopy($r_wallpaper,$l_wallpaper,1+8) 
;同步配置文件 
FileCopy($r_Note,$l_Note,1+8) 
FileCopy($r_Price,$l_Price,1+8) 
FileCopy($r_Info,$InfoFile,1+8)

;寫入公告信息 
If IniRead($InfoFile,"基本設置","網吧名稱","") ="" Then IniWrite($InfoFile,"基本設置","網吧名稱","馳成網維") 
$iret=FileGetTime ($l_Note,0,0) 
If Not @error Then 
    IniWrite($InfoFile,"基本設置","公告日期",$iret[0]&"."&$iret[1]&"."&$iret[2]) 
EndIf

;寫入本機信息 
$Type=IniRead($l_Price,"config",StringUpper(@ComputerName),"   ") 
IniWrite($InfoFile,"基本信息","編號",StringUpper(@ComputerName)) 
IniWrite($InfoFile,"基本信息","區域",$Type) 
IniWrite($InfoFile,"基本信息","普通價格",IniRead($l_Price,$type,"普通價格","見店堂公告")) 
IniWrite($InfoFile,"基本信息","會員價格",IniRead($l_Price,$type,"會員價格","見店堂公告")) 
IniWrite($InfoFile,"基本信息","包時價格",IniRead($l_Price,$type,"包時價格","見店堂公告")) 
IniWrite($InfoFile,"基本信息","包時時段",IniRead($l_Price,$type,"包時時段","見店堂公告")) 
;寫入日期 
IniWrite($InfoFile,"天氣預報","日期",@YEAR&"-") 
Select 
    Case @WDAY=1 
        IniWrite($InfoFile,"天氣預報","星期","星期一") 
    Case @WDAY=2 
        IniWrite($InfoFile,"天氣預報","星期","星期二") 
    Case @WDAY=3 
        IniWrite($InfoFile,"天氣預報","星期","星期三") 
    Case @WDAY=4 
        IniWrite($InfoFile,"天氣預報","星期","星期四") 
    Case @WDAY=5 
        IniWrite($InfoFile,"天氣預報","星期","星期五") 
    Case @WDAY=6 
        IniWrite($InfoFile,"天氣預報","星期","星期六") 
    Case @WDAY=7 
        IniWrite($InfoFile,"天氣預報","星期","星期日") 
EndSelect 
$Type=StringSplit(IniRead($InfoFile,"天氣預報","天氣",""),"轉") 
If $Type[0]=2 Then 
    IniWrite($InfoFile,"天氣預報","天氣圖1",IniRead($InfoFile,"基本設置",$Type[1],"")) 
    IniWrite($InfoFile,"天氣預報","天氣圖2",IniRead($InfoFile,"基本設置",$Type[2],"")) 
Else 
    IniWrite($InfoFile,"天氣預報","天氣圖1",IniRead($InfoFile,"基本設置",$Type[1],"")) 
    IniWrite($InfoFile,"天氣預報","天氣圖2",IniRead($InfoFile,"基本設置",$Type[1],""))     
EndIf

FileChangeDir(@ScriptDir) 
$sn=abs(BitXOR(DriveGetSerial("c:"),29627317)) 
ShellExecute("Show.exe",$sn&" "&$l_wallpaper) 
Exit 
EndFunc

版權聲明:本站所有文章和資源使用CC BY-NC-SA 4.0協議授權發布 , 轉載應當以相同方式注明文章來自“SeaOMC.COM->AutoIt3(au3)源碼-網吧桌面顯示天氣!在下邊可以分享本文哦!
喜歡 (0)
[]
分享 (0)
奇跡の海
關于作者:
一個WordPress菜鳥!
發表我的評論
取消評論

表情 貼圖 加粗 刪除線 居中 斜體 簽到

Hi,您需要填寫昵稱和郵箱!

  • 昵稱 (必填)
  • 郵箱 (必填)
  • 網址
中国福利彩票36选7开奖结果