3L的ACN_String.au3是哪里的啊?
#include <ACN_String.au3>
Run("notepad")
winwaitactive("无标题 - 记事本")
SendX("AU3里面自带的,支持中文!",0) 我再修改下,刚才有二个按钮冲突了!难怪不滚动
[ 本帖最后由 jycel 于 2009-3-15 10:14 编辑 ] 打开程序后显示了一下公告就不见了~,那冲突了么?
全代码如下
#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,$lr,$CD,$an,$name,$pwd,$Button1
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= GUICtrlCreateGroup("快速通道",0,5,67,255)
$Button= GUICtrlCreateButton("专线影院", 3, 20, 60, 32);显示子窗口 4 3, 122, 60, 32
$Button= GUICtrlCreateButton("网吧影院", 3, 54, 60, 32);显示子窗口 1 3, 20, 60, 32
$Button= GUICtrlCreateButton("留言中心", 3, 88, 60, 32);显示子窗口 3 3, 88, 60, 32
$Button= GUICtrlCreateButton("下载中心", 3, 122, 60, 32);显示子窗口 2 3, 54, 60, 32
$Button= GUICtrlCreateButton("网络测试", 3, 156, 60, 32);显示子窗口 5
$Button = GUICtrlCreateButton("QQ留言", 3, 190, 60, 32);3, 224, 60, 32
$Button= GUICtrlCreateButton("退出程序", 3, 224, 60, 32);显示子窗口 8
$Button = GUICtrlCreateButton("全部", 83, 50, 45, 20)
$Button = GUICtrlCreateButton("网页", 143, 50, 45, 20)
$Button = GUICtrlCreateButton("影视", 203, 50, 45, 20)
$Button = GUICtrlCreateButton("在线", 263, 50, 45, 20)
$Button = GUICtrlCreateButton("音乐", 323, 50, 45, 20)
$Button = GUICtrlCreateButton("歌词", 383, 50, 45, 20)
$Button = GUICtrlCreateButton("图片", 83, 72, 45, 20)
$Button = GUICtrlCreateButton("书籍", 143, 72, 45, 20)
$Button = GUICtrlCreateButton("软件", 203, 72, 45, 20)
$Button = GUICtrlCreateButton("游戏", 263, 72, 45, 20)
$Button = GUICtrlCreateButton("全集", 323, 72, 45, 20)
$Button = GUICtrlCreateButton("知道", 383, 72, 45, 20)
$Button = GUICtrlCreateButton("新闻", 323, 23, 45, 20)
$Button = GUICtrlCreateButton("贴吧", 383, 23, 45, 20)
;===============================电视直播=======================================
$Button = GUICtrlCreateButton("BTV北京 ", 73, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV1套", 125, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV3套", 177, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV5套", 229, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV6套", 281, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV10套", 333, 115, 50, 25)
$Button = GUICtrlCreateButton("CCTV12套", 385, 115, 50, 25)
$Button = GUICtrlCreateButton("成都1套", 73, 143, 50, 25)
$Button = GUICtrlCreateButton("成都3套", 125, 143, 50, 25)
$Button = GUICtrlCreateButton("成都4套", 177, 143, 50, 25)
$Button = GUICtrlCreateButton("四川3套", 229, 143, 50, 25)
$Button = GUICtrlCreateButton("四川4套", 281, 143, 50, 25)
$Button = GUICtrlCreateButton("四川5套", 333, 143, 50, 25)
$Button = GUICtrlCreateButton("四川6套", 385, 143, 50, 25)
$Button = GUICtrlCreateButton("科教频道", 73,171, 50, 25)
$Button = GUICtrlCreateButton("重庆卫视", 125, 171, 50, 25)
$Button = GUICtrlCreateButton("陕西卫视", 177, 171, 50, 25)
$Button = GUICtrlCreateButton("峨嵋电影", 229, 171, 50, 25)
$Button = GUICtrlCreateButton("湖南卫视", 281, 171, 50, 25)
$Button = GUICtrlCreateButton("中国教育", 333, 171, 50, 25)
$Button = GUICtrlCreateButton("上海卫视", 385, 171, 50, 25)
$Button = GUICtrlCreateButton("江西电视", 73, 199, 50, 25)
$Button = GUICtrlCreateButton("江苏卫视", 125, 199, 50, 25)
$Button = GUICtrlCreateButton("深圳电视", 177, 199, 50, 25)
$Button = GUICtrlCreateButton("浙江电视 ", 229, 199, 50, 25)
$Button = GUICtrlCreateButton("山东卫视", 281, 199, 50, 25)
$Button = GUICtrlCreateButton("安徽电视", 333, 199, 50, 25)
$Button = GUICtrlCreateButton("广东卫视", 385, 199, 50, 25)
$Button1 = GUICtrlCreateButton ("在线更新",385, 235, 50, 25)
$an= 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 = 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 = GUICtrlCreateButton("关于", 333, 235, 50, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($WinMain)
Dim $StatusBar1_PartsWidth =
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 = GUICtrlCreateButton("电信专线影院", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1 = GUICtrlCreateButton("电信专线主页", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
$WinSub2= GUICreate("下载中心", 220, 60) ;创建子窗口2
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg") ;注册窗口关闭事件到函数GUICtrlMsg
$Button1= GUICtrlCreateButton("FTP地址1", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1= GUICtrlCreateButton("FTP地址2", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
$WinSub3= GUICreate("网络测试", 220, 60) ;创建子窗口2
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg") ;注册窗口关闭事件到函数GUICtrlMsg
$Button1 = GUICtrlCreateButton("内网测试", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1 = GUICtrlCreateButton("外网测试", 110, 5, 100, 50,$BS_DEFPUSHBUTTON);创建子窗口中按钮二
$WinSub4= GUICreate("关于程序", 220, 200)
$Button1=GUICtrlCreateLabel(" 程序说明"&@crlf&@crlf&" 本程序包含在线电影、电视直播、网络检测、狗狗搜索等!"&@crlf&@crlf&" 如果你对本程序有任何见意请点击程序上面的QQ留言!"&@crlf&@crlf&"程序作者:飞翔浪子"&@crlf&@crlf&"联系QQ:472891322"&@crlf&@crlf&"E-mail:jycel@qq.com", 0, 0, 220, 180);
$Button1 = GUICtrlCreateButton("返回", 70, 175, 65, 25);创建子窗口中按钮二
$WinSub5= GUICreate("网吧影院", 220, 60) ;创建子窗口1
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg") ;注册窗口关闭事件到函数GUICtrlMsg
$Button1 = GUICtrlCreateButton("网吧影院[绵阳]", 5, 5, 100, 50,$BS_DEFPUSHBUTTON)
$Button1= 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
GUISetState(@SW_SHOW,$WinSub1);隐藏 子窗口 1
Case $Button
GUISetState(@SW_SHOW,$WinSub5);隐藏 子窗口 1
;=========================留言中心=====================
Case $Button
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://192.168.0.136/ly/")
;=========================专网电影=====================
Case $Button
GUISetState(@SW_SHOW,$WinSub2);隐藏 子窗口 1
Case $Button
GUISetState(@SW_SHOW,$WinSub3);隐藏 子窗口 1
;=================QQ留言==============================
Case $Button
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe tencent://Message/?Uin=472891322")
;=========================退出程序=====================
Case $Button
_Exit()
;=========================在线影院=====================
Case $Button1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://20.20.2.102/webmedia/html/index.shtml")
GUISetState(@SW_HIDE,$WinSub1);隐藏 子窗口 1
Case $Button1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.fxwlc2624067.51hdwm.com")
GUISetState(@SW_HIDE,$WinSub1);隐藏 子窗口 1
;=========================网络检测=====================
Case $Button1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe ftp://192.168.0.136")
GUISetState(@SW_HIDE,$WinSub2);隐藏 子窗口 2
Case $Button1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe ftp://192.168.0.254")
GUISetState(@SW_HIDE,$WinSub2);隐藏 子窗口 2
;=========================网络检测=====================
Case $Button1
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
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
GUISetState(@SW_SHOW,$WinSub4);隐藏 子窗口 1
Case $Button1
GUISetState(@SW_HIDE,$WinSub4);隐藏 子窗口 2
Case $Button1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://hack793.host.vhost100.cn")
GUISetState(@SW_HIDE,$WinSub5);隐藏 子窗口 2
Case $Button1
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://192.168.0.136")
GUISetState(@SW_HIDE,$WinSub5);隐藏 子窗口 2
case $Button1
MsgBox(0,"在线更新程序","更新程序需退出本程序"&@CRLF&@CRLF&" 确定开始更新")
Run("update.exe")
Exit
;========================================gougou===================================
Case $Button
$CD= GUICtrlRead($Input_1)
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe http://www.gougou.com/search?search=" & $CD)
Case $Button
$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
$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
$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
$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
$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
$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
$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
$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
$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
$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
$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
$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
$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
ShellExecute("mms://20.20.2.100/111", "", "", "", 1)
Case $Button
_Rundos("start mms://20.20.2.100/114")
Case $Button
_Rundos("start mms://20.20.2.100/105")
Case $Button
_Rundos("start mms://20.20.2.100/125")
Case $Button
_Rundos("start mms://20.20.2.100/108")
Case $Button
_Rundos("start mms://20.20.2.100/123")
Case $Button
_Rundos("start mms://20.20.2.100/110")
Case $Button
_Rundos("start mms://20.20.2.100/103")
Case $Button
_Rundos("start mms://20.20.2.100/131")
Case $Button
_Rundos("start mms://20.20.2.100/115")
Case $Button
_Rundos("start mms://20.20.2.100/106")
Case $Button
_Rundos("start mms://20.20.2.100/109")
Case $Button
_Rundos("start mms://20.20.2.100/107")
Case $Button
_Rundos("start mms://20.20.2.100/102")
Case $Button
_Rundos("start mms://20.20.2.100/122")
Case $Button
_Rundos("start mms://20.20.2.100/121")
Case $Button
_Rundos("start mms://20.20.2.100/101")
Case $Button
_Rundos("start mms://20.20.2.100/124")
Case $Button
_Rundos("start mms://20.20.2.100/128")
Case $Button
_Rundos("start mms://20.20.2.100/104")
Case $Button
_Rundos("start mms://20.20.2.100/113")
Case $Button
_Rundos("start mms://20.20.2.100/117")
Case $Button
_Rundos("start mms://20.20.2.100/118")
Case $Button
_Rundos("start mms://20.20.2.100/119")
Case $Button
_Rundos("start mms://20.20.2.100/112")
Case $Button
_Rundos("start mms://20.20.2.100/126")
Case $Button
_Rundos("start mms://20.20.2.100/116")
Case $Button
_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 原帖由 jycel 于 2009-3-15 10:19 发表 http://www.autoitx.com/images/common/back.gif
打开程序后显示了一下公告就不见了~,那冲突了么?
全代码如下
#NoTrayIcon
#include
#include
#include
#include
#include
#Include
#include
#include
#include
$g_szVersion = "fxw ...
注意ControlMove($WinMain, "", $Label3, 450 - $b, 262),然后去掉sleep(1000)试试
[ 本帖最后由 menfan 于 2009-3-15 10:33 编辑 ] 可以了,谢谢指定哈,我看下去掉这个延迟对其它有影响不 为什么要sleep(1000)?完全没有必要的 已全部修改好了!再次感谢各位帮忙! 哇..........这样的学习环境,我相信,我能学到想学的 留名支持,谢谢
页:
1
[2]