桌面天气

dunphy

;判断调用程序的合法性 
;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

jkq920

感谢分享，学习一下...

ak47gglllk

感谢分享，学习一下。顺便蹭蹭经验

yinbinly

感谢分享，顺便吐槽 一看就附件不全 怎么破？

baduxiyang

这个真心不错，，，

likeping

感谢分享，学习一下...

秀才110

路过 学习一下