• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-网吧桌面显示天气

AutoIT3 奇跡の海 1年前 (2017-11-03) 414次浏览 已收录 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,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址