打开程序后显示了一下公告就不见了～，那冲突了么？
全代码如下
#NoTrayIcon
#include <GUIConstants.au3>
#include <process.au3>
#include <ButtonConstants.au3>
#include <GuiStatusBar.au3>
#include <IE.au3>
#Include <Date.au3>
#include <EditConstants.au3>
#include <GuiConstants.au3>
#include <StaticConstants.au3>
$g_szVersion = "fxwlc"
If WinExists($g_szVersion) Then
MsgBox(32, "温馨提示", "注意已经运行了",1)
Exit ; 此脚本已经运行了
EndIf
AutoItWinSetTitle($g_szVersion)
Opt("GUIOneventMode",1);应用OnEvent函数于系统托盘图标
Opt("guicloseonesc", 0) ;此处为程序运行时按下ESC不发送消息，否则按下ESC键后，退出程序
Opt("onexitfunc", "quit") ;设置脚本退出时调用的函数
Dim $Button[66],$lr[3],$CD,$an[10],$name[5],$pwd[5],$Button1[13]
FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
FileInstall("vista.skf", @TempDir & "\vista.skf", 1)
FileInstall("update.exe", @ScriptDir & "\update.exe", 1)
$Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll")
$WinMain = GUICreate("【飛翔網絡】欢迎您！", 440, 300) ;创建主窗口
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinMain, "int", 500, "long", 0x00040010);explode
_SkinGUI(@TempDir & "\SkinCrafterDll.dll", @TempDir & "\vista.skf", $WinMain)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
;============================加滚动公告==================
$neirong1 = "系统公告：";定义neirong1为公告内容1
$neirong2 = "欢迎来到本网吧";定义neirong2为公告内容2
$Label3 = GUICtrlCreateLabel($neirong1 & $neirong2, 1, 265, 300, 15, $SS_CENTERIMAGE);定义需要移动的标签
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);使标签背景透明
;注册窗口关闭事件到函数_Exit
;GUICtrlCreateButton ( "文本", 左侧, 上方 [, 宽度 [, 高度 [, 样式 [, 扩展样式]]]] )
;GUISetBkColor(0xf66ccc)
$an[0] = GUICtrlCreateGroup("快速通道",0,5,67,255)
$Button[0] = GUICtrlCreateButton("专线影院", 3, 20, 60, 32);显示子窗口 4 3, 122, 60, 32
$Button[1] = GUICtrlCreateButton("网吧影院", 3, 54, 60, 32);显示子窗口 1 3, 20, 60, 32
$Button[2] = GUICtrlCreateButton("留言中心", 3, 88, 60, 32);显示子窗口 3 3, 88, 60, 32
$Button[3] = GUICtrlCreateButton("下载中心", 3, 122, 60, 32);显示子窗口 2 3, 54, 60, 32
$Button[4] = GUICtrlCreateButton("网络测试", 3, 156, 60, 32);显示子窗口 5
$Button[6] = GUICtrlCreateButton("QQ留言", 3, 190, 60, 32);3, 224, 60, 32
$Button[7] = GUICtrlCreateButton("退出程序", 3, 224, 60, 32);显示子窗口 8
$Button[8] = GUICtrlCreateButton("全部", 83, 50, 45, 20)
$Button[9] = GUICtrlCreateButton("网页", 143, 50, 45, 20)
$Button[10] = GUICtrlCreateButton("影视", 203, 50, 45, 20)
$Button[11] = GUICtrlCreateButton("在线", 263, 50, 45, 20)
$Button[12] = GUICtrlCreateButton("音乐", 323, 50, 45, 20)
$Button[13] = GUICtrlCreateButton("歌词", 383, 50, 45, 20)
$Button[14] = GUICtrlCreateButton("图片", 83, 72, 45, 20)
$Button[15] = GUICtrlCreateButton("书籍", 143, 72, 45, 20)
$Button[16] = GUICtrlCreateButton("软件", 203, 72, 45, 20)
$Button[17] = GUICtrlCreateButton("游戏", 263, 72, 45, 20)
$Button[18] = GUICtrlCreateButton("全集", 323, 72, 45, 20)
$Button[19] = GUICtrlCreateButton("知道", 383, 72, 45, 20)
$Button[20] = GUICtrlCreateButton("新闻", 323, 23, 45, 20)
$Button[21] = GUICtrlCreateButton("贴吧", 383, 23, 45, 20)
;===============================电视直播=======================================
$Button[22] = GUICtrlCreateButton("BTV北京 ", 73, 115, 50, 25)
$Button[23] = GUICtrlCreateButton("CCTV1套", 125, 115, 50, 25)
$Button[24] = GUICtrlCreateButton("CCTV3套", 177, 115, 50, 25)
$Button[25] = GUICtrlCreateButton("CCTV5套", 229, 115, 50, 25)
$Button[26] = GUICtrlCreateButton("CCTV6套", 281, 115, 50, 25)
$Button[27] = GUICtrlCreateButton("CCTV10套", 333, 115, 50, 25)
$Button[28] = GUICtrlCreateButton("CCTV12套", 385, 115, 50, 25)
$Button[29] = GUICtrlCreateButton("成都1套", 73, 143, 50, 25)
$Button[30] = GUICtrlCreateButton("成都3套", 125, 143, 50, 25)
$Button[31] = GUICtrlCreateButton("成都4套", 177, 143, 50, 25)
$Button[32] = GUICtrlCreateButton("四川3套", 229, 143, 50, 25)
$Button[33] = GUICtrlCreateButton("四川4套", 281, 143, 50, 25)
$Button[34] = GUICtrlCreateButton("四川5套", 333, 143, 50, 25)
$Button[35] = GUICtrlCreateButton("四川6套", 385, 143, 50, 25)
$Button[36] = GUICtrlCreateButton("科教频道", 73,171, 50, 25)
$Button[37] = GUICtrlCreateButton("重庆卫视", 125, 171, 50, 25)
$Button[38] = GUICtrlCreateButton("陕西卫视", 177, 171, 50, 25)
$Button[39] = GUICtrlCreateButton("峨嵋电影", 229, 171, 50, 25)
$Button[40] = GUICtrlCreateButton("湖南卫视", 281, 171, 50, 25)
$Button[41] = GUICtrlCreateButton("中国教育", 333, 171, 50, 25)
$Button[42] = GUICtrlCreateButton("上海卫视", 385, 171, 50, 25)
$Button[43] = GUICtrlCreateButton("江西电视", 73, 199, 50, 25)
$Button[44] = GUICtrlCreateButton("江苏卫视", 125, 199, 50, 25)
$Button[45] = GUICtrlCreateButton("深圳电视", 177, 199, 50, 25)
$Button[46] = GUICtrlCreateButton("浙江电视 ", 229, 199, 50, 25)
$Button[47] = GUICtrlCreateButton("山东卫视", 281, 199, 50, 25)
$Button[48] = GUICtrlCreateButton("安徽电视", 333, 199, 50, 25)
$Button[49] = GUICtrlCreateButton("广东卫视", 385, 199, 50, 25)
$Button1[11] = GUICtrlCreateButton ("在线更新",385, 235, 50, 25)
$an[1]= GUICtrlCreateGroup("搜索工具",70,5,370,95)
Global $MARk_1 = 0
Global $DEFAULTINPUTDATA_1 = "点击这里输入查找内容"
Global $NONEAACTIVECOLOR = 0x989898
$Input_1 = GUICtrlCreateInput($DEFAULTINPUTDATA_1 , 80, 20, 230, 25)
GUICtrlSetColor(-1, $NONEAACTIVECOLOR)
$an[3] = GUICtrlCreateGroup("在线电视", 68,100, 370,133)
;=================添加时间=============================
GuiCtrlCreateDate("", 113, 238, 110, 20)
$Label1= GUICtrlCreateLabel("Label1", 68, 242, 45, 18)
$Label2= GUICtrlCreateLabel("Label2", 225, 242, 105, 20)
$Button1[6] = GUICtrlCreateButton("关于", 333, 235, 50, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($WinMain)
Dim $StatusBar1_PartsWidth[3] = [100, 220, 400]
Dim $S0 = " 欢迎光临 ", $S1 = "飛翔網絡 By Jycel", $S2=" QQ:472891322 E-mail:jycel@qq.com"
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, $S2, 2)
_GUICtrlStatusBar_SetText($StatusBar1, $S1, 1)
_GUICtrlStatusBar_SetText($StatusBar1, $S0, 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 15)
;===========================创建子窗口=============================
$WinSub1 = GUICreate("在线影院", 220, 60) ;创建子窗口1
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg") ;注册窗口关闭事件到函数GUICtrlMsg
$Button1[0] = GUICtrlCreateButton("电信专线影院", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1[1] = GUICtrlCreateButton("电信专线主页", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
$WinSub2 = GUICreate("下载中心", 220, 60) ;创建子窗口2
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg") ;注册窗口关闭事件到函数GUICtrlMsg
$Button1[2]= GUICtrlCreateButton("FTP地址1", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1[3]= GUICtrlCreateButton("FTP地址2", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
$WinSub3 = GUICreate("网络测试", 220, 60) ;创建子窗口2
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg") ;注册窗口关闭事件到函数GUICtrlMsg
$Button1[4] = GUICtrlCreateButton("内网测试", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1[5] = GUICtrlCreateButton("外网测试", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
$WinSub4 = GUICreate("关于程序", 220, 200)
$Button1[7]=GUICtrlCreateLabel(" 程序说明"&@crlf&@crlf&" 本程序包含在线电影、电视直播、网络检测、狗狗搜索等!"&@crlf&@crlf&" 如果你对本程序有任何见意请点击程序上面的QQ留言!"&@crlf&@crlf&"程序作者:飞翔浪子"&@crlf&@crlf&"联系QQ:472891322"&@crlf&@crlf&"E-mail:jycel@qq.com", 0, 0, 220, 180);
$Button1[8] = GUICtrlCreateButton("返回", 70, 175, 65, 25);创建子窗口中按钮二
$WinSub5 = GUICreate("网吧影院", 220, 60) ;创建子窗口1
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg") ;注册窗口关闭事件到函数GUICtrlMsg
$Button1[9] = GUICtrlCreateButton("网吧影院[绵阳]", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1[10]= GUICtrlCreateButton("网吧影院[本地]", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
For $I = 65 to 0 Step -1
GUICtrlSetOnEvent($Button[$I],"GUICtrlMsg") ;注册总共的六个按钮点击事件到函数 GUICtrlMsg
;请区分 GUISetOnEvent 和 GUICtrlSetOnEvent的区别
Next
For $j = 12 to 0 Step -1
GUICtrlSetOnEvent($Button1[$j],"GUICtrlMsg") ;注册总共的六个按钮点击事件到函数 GUICtrlMsg
;请区分 GUISetOnEvent 和 GUICtrlSetOnEvent的区别
Next
GUISwitch($WinMain) ;切换当前窗口到主窗口
GUISetState(@SW_SHOW) ;显示当前窗口
$b = 1
While 1
If $b = 630 Then $b = 1
Sleep(20)
ControlMove($WinMain, "", $Label3, 450 - $b, 280)
$b += 1
GUICtrlSetData($Label1,"今天是:")
GUICtrlSetData($Label2,"当前时间:"&@HOUR&':'&@MIN&':'&@SEC)
_CheckInput($WinMain, $Input_1, "点击这里输入查找内容", $DEFAULTINPUTDATA_1, $MARK_1)
Sleep(1000)
WEnd
Func GUICtrlMsg()
Switch @GUI_CtrlId;选择事件 ID 或 控件 ID
Case $GUI_EVENT_CLOSE;如果点下的是$GUI_EVENT_CLOSE(关闭)
GUISetState(@SW_HIDE,@GUI_WinHandle); 隐藏产生事件的窗口
Case $Button[0]
GUISetState(@SW_SHOW,$WinSub1); 隐藏 子窗口 1
Case $Button[1]
GUISetState(@SW_SHOW,$WinSub5); 隐藏 子窗口 1
;=========================留言中心=====================
Case $Button[2]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://192.168.0.136/ly/")
;=========================专网电影=====================
Case $Button[3]
GUISetState(@SW_SHOW,$WinSub2); 隐藏 子窗口 1
Case $Button[4]
GUISetState(@SW_SHOW,$WinSub3); 隐藏 子窗口 1
;=================QQ留言==============================
Case $Button[6]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe tencent://Message/?Uin=472891322")
;=========================退出程序=====================
Case $Button[7]
_Exit()
;=========================在线影院=====================
Case $Button1[0]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://20.20.2.102/webmedia/html/index.shtml")
GUISetState(@SW_HIDE,$WinSub1); 隐藏 子窗口 1
Case $Button1[1]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.fxwlc2624067.51hdwm.com")
GUISetState(@SW_HIDE,$WinSub1); 隐藏 子窗口 1
;=========================网络检测=====================
Case $Button1[2]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe ftp://192.168.0.136")
GUISetState(@SW_HIDE,$WinSub2); 隐藏 子窗口 2
Case $Button1[3]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe ftp://192.168.0.254")
GUISetState(@SW_HIDE,$WinSub2); 隐藏 子窗口 2
;=========================网络检测=====================
Case $Button1[4]
MsgBox(0,"测试说明","请暂时不要动鼠标"&@CRLF&@CRLF&"等待程序自动运行")
_Rundos("start cmd")
Sleep(100)
send("ping 192.168.0.1 -t -n 5")
sleep(200)
send("{ENTER}")
Sleep(6000)
Send("exit")
Run("notepad.exe")
WinWaitActive("无标题 - ")
$Text = "请不要点击鼠标！程序正在自动输入" & @CRLF
$Text &= " 测试说明" & @CRLF
$Text &= "请注意观看测试命令在 (Pinging 192.168.0.1 with 32 bytes of data:)下面的返回值" & @CRLF
$Text &= "如果出现：Request timed out.≥说明网络未连接或完全掉线" & @CRLF
$Text &= "如果出现：Reply from 192.168.0.1: bytes=32 time<1ms TTL=63 ≥说明网络连接正常 " & @CRLF
$Text &= "如果以上二种都有出现说明网络有掉包现像，有可能您正在使用P2P软件下载东西，time<的值越大，说明网络越卡 " & @CRLF
$Text &= "请仔细对照左边的程序和本说明做出判断！"& @CRLF
$Text &= "谢谢你的使用，请手动关闭本记事本,CMD程序已输入退出命令，按回车即可！"& @CRLF& @CRLF& @CRLF& @CRLF
$Text &= "程序1秒后退出"& @CRLF& @CRLF& @CRLF& @CRLF
$Text &= "现在可以动鼠标操作了！^v^ ^v^"& @CRLF
SendC($Text)
Sleep(1000)
exit
GUISetState(@SW_HIDE,$WinSub3); 隐藏 子窗口 2
Case $Button1[5]
MsgBox(0,"测试说明","请暂时不要动鼠标"&@CRLF&@CRLF&"等待程序自动运行")
_Rundos("start cmd")
Sleep(100)
send("ping 202.98.96.68 -t -n 5")
sleep(200)
send("{ENTER}")
Sleep(6000)
Send("exit")
Run("notepad.exe")
WinWaitActive("无标题 - ")
$Text = "请不要点击鼠标！程序正在自动输入" & @CRLF
$Text &= " 测试说明" & @CRLF
$Text &= "请注意观看测试命令在 (Pinging 202.98.96.68 with 32 bytes of data:)下面的返回值" & @CRLF
$Text &= "如果出现：Request timed out.≥说明网络未连接或完全掉线" & @CRLF
$Text &= "如果出现：Reply from 202.98.96.68: bytes=32 time<1ms TTL=63 ≥说明网络连接正常 " & @CRLF
$Text &= "如果以上二种都有出现说明网络有掉包现像，有可能您正在使用P2P软件下载东西，time<的值越大，说明网络越卡 " & @CRLF
$Text &= "请仔细对照左边的程序和本说明做出判断！"& @CRLF
$Text &= "谢谢你的使用，请手动关闭本记事本,CMD程序已输入退出命令，按回车即可！"& @CRLF& @CRLF& @CRLF& @CRLF
$Text &= "程序1秒后退出"& @CRLF& @CRLF& @CRLF& @CRLF
$Text &= "现在可以动鼠标操作了！^v^ ^v^"& @CRLF
SendC($Text)
Sleep(1000)
exit
GUISetState(@SW_HIDE,$WinSub3); 隐藏 子窗口 2
Case $Button1[6]
GUISetState(@SW_SHOW,$WinSub4); 隐藏 子窗口 1
Case $Button1[8]
GUISetState(@SW_HIDE,$WinSub4); 隐藏 子窗口 2
Case $Button1[9]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://hack793.host.vhost100.cn")
GUISetState(@SW_HIDE,$WinSub5); 隐藏 子窗口 2
Case $Button1[10]
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://192.168.0.136")
GUISetState(@SW_HIDE,$WinSub5); 隐藏 子窗口 2
case $Button1[11]
MsgBox(0,"在线更新程序","更新程序需退出本程序"&@CRLF&@CRLF&" 确定开始更新")
Run("update.exe")
Exit
;========================================gougou===================================
Case $Button[8]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.gougou.com/search?search=" & $CD)
Case $Button[9]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://web.gougou.com/search?search=" & $CD)
;ShellExecute("http://web.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[10]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://movie.gougou.com/search?search=" & $CD)
;ShellExecute("http://movie.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[11]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://video.gougou.com/search?s=" & $CD)
;ShellExecute("http://video.gougou.com/search?s=" & $CD, "", "", "", 1)
Case $Button[12]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://mp3.gougou.com/search?search=" & $CD)
;ShellExecute("http://mp3.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[13]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://mp3.gougou.com/lrc?search=" & $CD)
;ShellExecute("http://mp3.gougou.com/lrc?search=" & $CD, "", "", "", 1)
Case $Button[14]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://pic.gougou.com/search?search=" & $CD)
;ShellExecute("http://pic.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[15]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://book.gougou.com/search?search=" & $CD)
;ShellExecute("http://book.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[16]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://soft.gougou.com/search?search=" & $CD)
;ShellExecute("http://soft.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[17]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://game.gougou.com/search?search=" & $CD)
;ShellExecute("http://game.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[18]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://blog.gougou.com/search?search=" & $CD)
;ShellExecute("http://blog.gougou.com/search?search=" & $CD, "", "", "", 1)
Case $Button[19]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://zhidao.baidu.com/?t=50&q=" & $CD)
;ShellExecute("http://zhidao.baidu.com/?t=50&q=" & $CD, "", "", "", 1)
Case $Button[20]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://news.baidu.com/ns?word=" & $CD)
;ShellExecute("http://news.baidu.com/ns?word=" & $CD, "", "", "", 1)
Case $Button[21]
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://tieba.baidu.com/f?kw="& $CD)
;ShellExecute("http://tieba.baidu.com/f?kw=" & $CD, "", "", "", 1)
;==========================电视直播==================================
Case $Button[22]
ShellExecute("mms://20.20.2.100/111", "", "", "", 1)
Case $Button[23]
_Rundos("start mms://20.20.2.100/114")
Case $Button[24]
_Rundos("start mms://20.20.2.100/105")
Case $Button[25]
_Rundos("start mms://20.20.2.100/125")
Case $Button[26]
_Rundos("start mms://20.20.2.100/108")
Case $Button[27]
_Rundos("start mms://20.20.2.100/123")
Case $Button[28]
_Rundos("start mms://20.20.2.100/110")
Case $Button[29]
_Rundos("start mms://20.20.2.100/103")
Case $Button[30]
_Rundos("start mms://20.20.2.100/131")
Case $Button[31]
_Rundos("start mms://20.20.2.100/115")
Case $Button[32]
_Rundos("start mms://20.20.2.100/106")
Case $Button[33]
_Rundos("start mms://20.20.2.100/109")
Case $Button[34]
_Rundos("start mms://20.20.2.100/107")
Case $Button[35]
_Rundos("start mms://20.20.2.100/102")
Case $Button[36]
_Rundos("start mms://20.20.2.100/122")
Case $Button[37]
_Rundos("start mms://20.20.2.100/121")
Case $Button[38]
_Rundos("start mms://20.20.2.100/101")
Case $Button[39]
_Rundos("start mms://20.20.2.100/124")
Case $Button[40]
_Rundos("start mms://20.20.2.100/128")
Case $Button[41]
_Rundos("start mms://20.20.2.100/104")
Case $Button[42]
_Rundos("start mms://20.20.2.100/113")
Case $Button[43]
_Rundos("start mms://20.20.2.100/117")
Case $Button[44]
_Rundos("start mms://20.20.2.100/118")
Case $Button[45]
_Rundos("start mms://20.20.2.100/119")
Case $Button[46]
_Rundos("start mms://20.20.2.100/112")
Case $Button[47]
_Rundos("start mms://20.20.2.100/126")
Case $Button[48]
_Rundos("start mms://20.20.2.100/116")
Case $Button[49]
_Rundos("start mms://20.20.2.100/120")
EndSwitch
EndFunc
;定义皮肤函数
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
$Dll = DllOpen($SkincrafterDll)
DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc ;==>_SkinGUI
Func Quit()
GUISetState(@SW_HIDE)
DllCall($Dll, "int:cdecl", "DeInitDecoration")
DllCall($Dll, "int:cdecl", "RemoveSkin")
DllClose($Dll)
FileDelete(@TempDir & "\SkinCrafterDll.dll")
FileDelete(@TempDir & "\vista.skf")
FileDelete(@ScriptDir & "\update.exe")
Exit
EndFunc ;==>Quit
Func SendC($Str, $Flag = 0)
If $Flag Then
Local $Clip = ClipGet()
ClipPut($Str)
Send('+{ins}')
ClipPut($Clip)
Else
Local $Nul = Chr(0)
For $i = 1 To StringLen($Str)
Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & $Nul) & '}')
Next
EndIf
EndFunc ;==>SendC
Func _CheckInput($hWnd, $ID, $InputDefText, ByRef $DefaultInputData, ByRef $Mark)
If $Mark = 0 And _IsFocused($hWnd, $ID) And $DefaultInputData = $InputDefText Then
$Mark = 1
GUICtrlSetData($ID, "")
GUICtrlSetColor($ID, 0x000000)
$DefaultInputData = ""
ElseIf $Mark = 1 And Not _IsFocused($hWnd, $ID) And $DefaultInputData = "" And GUICtrlRead($ID) = "" Then
$Mark = 0
$DefaultInputData = $InputDefText
GUICtrlSetData($ID, $DefaultInputData)
GUICtrlSetColor($ID, $NONEAACTIVECOLOR)
EndIf
EndFunc
Func _IsFocused($hWnd, $nCID)
Return ControlGetHandle($hWnd, '', $nCID) = ControlGetHandle($hWnd, '', ControlGetFocus($hWnd))
EndFunc
Func _Exit()
dllCall("user32.dll", "int", "AnimateWindow", "hwnd", $WinMain, "int", 1000, "long", 0x00050010);向中间隐小
Exit
EndFunc
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-3-15 07:49:55
