|
|
本帖最后由 lenglaoda 于 2009-9-28 22:15 编辑
求各位帮忙编译一下，下面源码需要加入什么命令，才能让延时功能自动运行！
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\autoit3\Aut2Exe\Icons\apple.ico
#AutoIt3Wrapper_outfile=D:\延时启动器.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=编写于：2009年9月28日
#AutoIt3Wrapper_Res_Description=强强网城★延时启动器
#AutoIt3Wrapper_Res_Fileversion=0.3.0.0
#AutoIt3Wrapper_Res_Field=作者|lenglaoda QQ:183496456
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
Dim $Dll
$hwnd = GUICreate("强强网城★延时启动器", 425, 430, 200, 80)
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", @TempDir & "\vista_style.skf")
DllCall($Dll, "int:cdecl", "DecorateAs", "int", $hwnd, "int", 25)
DllCall($Dll, "int:cdecl", "ApplySkin")
GUISetIcon("C:\ZGPY.ico")
$a1 = IniRead("config.ini", "config1", "启动程序", "")
$a2 = IniRead("config.ini", "config2", "启动程序", "")
$a3 = IniRead("config.ini", "config3", "启动程序", "")
$a4 = IniRead("config.ini", "config4", "启动程序", "")
$a5 = IniRead("config.ini", "config5", "启动程序", "")
$a6 = IniRead("config.ini", "config6", "启动程序", "")
$a7 = IniRead("config.ini", "config7", "启动程序", "")
$a8 = IniRead("config.ini", "config8", "启动程序", "")
$a9 = IniRead("config.ini", "config9", "启动程序", "")
$a10 = IniRead("config.ini", "config10", "启动程序", "")
$a11 = IniRead("config.ini", "config11", "启动程序", "")
$a12 = IniRead("config.ini", "config12", "启动程序", "")
$t1 = IniRead("config.ini", "config1", "延时时间", "")
$t2 = IniRead("config.ini", "config2", "延时时间", "")
$t3 = IniRead("config.ini", "config3", "延时时间", "")
$t4 = IniRead("config.ini", "config4", "延时时间", "")
$t5 = IniRead("config.ini", "config5", "延时时间", "")
$t6 = IniRead("config.ini", "config6", "延时时间", "")
$t7 = IniRead("config.ini", "config7", "延时时间", "")
$t8 = IniRead("config.ini", "config8", "延时时间", "")
$t9 = IniRead("config.ini", "config9", "延时时间", "")
$t10 = IniRead("config.ini", "config10", "延时时间", "")
$t11 = IniRead("config.ini", "config11", "延时时间", "")
$t12 = IniRead("config.ini", "config12", "延时时间", "")
If $a1 = "" Then
$a1 = ""
EndIf
If $t1 = "" Then
$t1 = ""
EndIf
If $a2 = "" Then
$a2 = ""
EndIf
If $t2 = "" Then
$t2 = ""
EndIf
If $a3 = "" Then
$a3 = ""
EndIf
If $t3 = "" Then
$t3 = ""
EndIf
If $a4 = "" Then
$a4 = ""
EndIf
If $t4 = "" Then
$t4 = ""
EndIf
If $a5 = "" Then
$a5 = ""
EndIf
If $t5 = "" Then
$t5 = ""
EndIf
If $a6 = "" Then
$a6 = ""
EndIf
If $t6 = "" Then
$t6 = ""
EndIf
If $a7 = "" Then
$a7 = ""
EndIf
If $t7 = "" Then
$t7 = ""
EndIf
If $a8 = "" Then
$a8 = ""
EndIf
If $t8 = "" Then
$t8 = ""
EndIf
If $a9 = "" Then
$a9 = ""
EndIf
If $t9 = "" Then
$t9 = ""
EndIf
If $a10 = "" Then
$a10 = ""
EndIf
If $t10 = "" Then
$t10 = ""
EndIf
If $a11 = "" Then
$a11 = ""
EndIf
If $t11 = "" Then
$t11 = ""
EndIf
If $a12 = "" Then
$a12 = ""
EndIf
If $t12 = "" Then
$t12 = ""
EndIf
$Group1 = GUICtrlCreateGroup("请在下面设置延时程序路径(支持网络路径)及延时时间(单位为:秒)", 5, 1, 415, 400)
$ButtonA_1 = GUICtrlCreateButton("浏览", 348, 18, 65, 25)
$ButtonA_2 = GUICtrlCreateButton("浏览", 348, 48, 65, 25)
$ButtonA_3 = GUICtrlCreateButton("浏览", 348, 78, 65, 25)
$ButtonA_4 = GUICtrlCreateButton("浏览", 348, 108, 65, 25)
$ButtonA_5 = GUICtrlCreateButton("浏览", 348, 138, 65, 25)
$ButtonA_6 = GUICtrlCreateButton("浏览", 348, 168, 65, 25)
$ButtonA_7 = GUICtrlCreateButton("浏览", 348, 198, 65, 25)
$ButtonA_8 = GUICtrlCreateButton("浏览", 348, 228, 65, 25)
$ButtonA_9 = GUICtrlCreateButton("浏览", 348, 258, 65, 25)
$ButtonA_10 = GUICtrlCreateButton("浏览", 348, 288, 65, 25)
$ButtonA_11 = GUICtrlCreateButton("浏览", 348, 318, 65, 25)
$ButtonA_12 = GUICtrlCreateButton("浏览", 348, 348, 65, 25)
$Button1 = GUICtrlCreateButton("说明", 350, 385, 65, 25)
$Button2 = GUICtrlCreateButton("应用所有", 10, 385, 65, 25)
$Button3 = GUICtrlCreateButton("清除配置", 125, 385, 65, 25)
$Button4 = GUICtrlCreateButton("运行配制", 235, 385, 65, 25)
$InpuA_1 = GUICtrlCreateInput($t1, 265, 20, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_2 = GUICtrlCreateInput($t2, 265, 50, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_3 = GUICtrlCreateInput($t3, 265, 80, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_4 = GUICtrlCreateInput($t4, 265, 110, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_5 = GUICtrlCreateInput($t5, 265, 140, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_6 = GUICtrlCreateInput($t6, 265, 170, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_7 = GUICtrlCreateInput($t7, 265, 200, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_8 = GUICtrlCreateInput($t8, 265, 230, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_9 = GUICtrlCreateInput($t9, 265, 260, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_10 = GUICtrlCreateInput($t10, 265, 290, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_11 = GUICtrlCreateInput($t11, 265, 320, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$InpuA_12 = GUICtrlCreateInput($t12, 265, 350, 55, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$Label1 = GUICtrlCreateLabel("秒", 330, 25, 16, 20)
$Label2 = GUICtrlCreateLabel("秒", 330, 55, 16, 20)
$Label3 = GUICtrlCreateLabel("秒", 330, 85, 16, 20)
$Label4 = GUICtrlCreateLabel("秒", 330, 115, 16, 20)
$Label5 = GUICtrlCreateLabel("秒", 330, 145, 16, 20)
$Label6 = GUICtrlCreateLabel("秒", 330, 175, 16, 20)
$Label7 = GUICtrlCreateLabel("秒", 330, 205, 16, 20)
$Label8 = GUICtrlCreateLabel("秒", 330, 235, 16, 20)
$Label9 = GUICtrlCreateLabel("秒", 330, 265, 16, 20)
$Label10 = GUICtrlCreateLabel("秒", 330, 295, 16, 20)
$Label11 = GUICtrlCreateLabel("秒", 330, 325, 16, 20)
$Label12 = GUICtrlCreateLabel("秒", 330, 355, 16, 20)
$Input1 = GUICtrlCreateInput($a1, 10, 20, 240, 20)
$Input2 = GUICtrlCreateInput($a2, 10, 50, 240, 20)
$Input3 = GUICtrlCreateInput($a3, 10, 80, 240, 20)
$Input4 = GUICtrlCreateInput($a4, 10, 110, 240, 20)
$Input5 = GUICtrlCreateInput($a5, 10, 140, 240, 20)
$Input6 = GUICtrlCreateInput($a6, 10, 170, 240, 20)
$Input7 = GUICtrlCreateInput($a7, 10, 200, 240, 20)
$Input8 = GUICtrlCreateInput($a8, 10, 230, 240, 20)
$Input9 = GUICtrlCreateInput($a9, 10, 260, 240, 20)
$Input10 = GUICtrlCreateInput($a10, 10, 290, 240, 20)
$Input11 = GUICtrlCreateInput($a11, 10, 320, 240, 20)
$Input12 = GUICtrlCreateInput($a12, 10, 350, 240, 20)
$Label13 = GUICtrlCreateLabel("~~~~~~~~~~~~~~~~~~~~", 1, 420, 120, 20)
$Label14 = GUICtrlCreateLabel("~~~~~~~~~~~~~~~~~~~~~~~~~~~", 295, 420, 135, 20)
$btn1 = GUICtrlCreateLabel("當前時間:", 125, 415, 170, 15)
GUICtrlSetData($btn1, "當前時間:" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & "")
GUISetState(@SW_SHOW)
$t3 = ""
$t4 = ""
a()
Func a()
While 1
$t3 = @HOUR & ":" & @MIN & ":" & @SEC ;时间循环
If $t3 <> $t4 Then
$t4 = $t3
GUICtrlSetData($btn1, "當前時間:" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & "")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
msgbox("0", "关于使用说明", "请预先设置好延时程序启动路径：( 支持网络路径 )" & @CRLF & "" & @CRLF & "及延时时间(单位秒).然后启动完后对比一下这个目录" & @CRLF & "" & @CRLF & "___________制作:lenglaoda QQ:183496456__________", "10")
Case $ButtonA_1
bo1()
Case $ButtonA_2
bo2()
Case $ButtonA_3
bo3()
Case $ButtonA_4
bo4()
Case $ButtonA_5
bo5()
Case $ButtonA_6
bo6()
Case $ButtonA_7
bo7()
Case $ButtonA_8
bo8()
Case $ButtonA_9
bo9()
Case $ButtonA_10
bo10()
Case $ButtonA_11
bo11()
Case $ButtonA_12
bo12()
Case $Button2
jiaru1()
Case $Button3
shanchu()
GUICtrlSetData($InpuA_1, "")
GUICtrlSetData($InpuA_2, "")
GUICtrlSetData($InpuA_3, "")
GUICtrlSetData($InpuA_4, "")
GUICtrlSetData($InpuA_5, "")
GUICtrlSetData($InpuA_6, "")
GUICtrlSetData($InpuA_7, "")
GUICtrlSetData($InpuA_8, "")
GUICtrlSetData($InpuA_9, "")
GUICtrlSetData($InpuA_10, "")
GUICtrlSetData($InpuA_11, "")
GUICtrlSetData($InpuA_12, "")
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
GUICtrlSetData($Input6, "")
GUICtrlSetData($Input7, "")
GUICtrlSetData($Input8, "")
GUICtrlSetData($Input9, "")
GUICtrlSetData($Input10, "")
GUICtrlSetData($Input11, "")
GUICtrlSetData($Input12, "")
Case $Button4
ceshi()
EndSwitch
WEnd
EndFunc ;==>a
Func bo1()
GUICtrlSetState($ButtonA_1, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input1))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input1, $var)
EndIf
GUICtrlSetData($InpuA_1, "")
GUICtrlSetState($ButtonA_1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo1
Func bo2()
GUICtrlSetState($ButtonA_2, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input2))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input2, $var)
EndIf
GUICtrlSetData($InpuA_2, "")
GUICtrlSetState($ButtonA_2, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo2
Func bo3()
GUICtrlSetState($ButtonA_3, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input3))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input3, $var)
EndIf
GUICtrlSetData($InpuA_3, "")
GUICtrlSetState($ButtonA_3, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo3
Func bo4()
GUICtrlSetState($ButtonA_4, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input4))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input4, $var)
EndIf
GUICtrlSetData($InpuA_4, "")
GUICtrlSetState($ButtonA_4, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo4
Func bo5()
GUICtrlSetState($ButtonA_5, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input5))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input5, $var)
EndIf
GUICtrlSetData($InpuA_5, "")
GUICtrlSetState($ButtonA_5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo5
Func bo6()
GUICtrlSetState($ButtonA_6, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input6))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input6, $var)
EndIf
GUICtrlSetData($InpuA_6, "")
GUICtrlSetState($ButtonA_6, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo6
Func bo7()
GUICtrlSetState($ButtonA_7, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input7))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input7, $var)
EndIf
GUICtrlSetData($InpuA_7, "")
GUICtrlSetState($ButtonA_7, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo7
Func bo8()
GUICtrlSetState($ButtonA_8, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input8))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input8, $var)
EndIf
GUICtrlSetData($InpuA_8, "")
GUICtrlSetState($ButtonA_8, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo8
Func bo9()
GUICtrlSetState($ButtonA_9, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input9))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input9, $var)
EndIf
GUICtrlSetData($InpuA_9, "")
GUICtrlSetState($ButtonA_9, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo9
Func bo10()
GUICtrlSetState($ButtonA_10, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input10))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input10, $var)
EndIf
GUICtrlSetData($InpuA_10, "")
GUICtrlSetState($ButtonA_10, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo10
Func bo11()
GUICtrlSetState($ButtonA_11, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input11))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input11, $var)
EndIf
GUICtrlSetData($InpuA_11, "")
GUICtrlSetState($ButtonA_11, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo11
Func bo12()
GUICtrlSetState($ButtonA_12, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$var = FileOpenDialog("选择启动的程序", "", "所有文件(*.*)", GUICtrlRead($Input12))
If FileExists($var) = 0 Then
Else
GUICtrlSetData($Input12, $var)
EndIf
GUICtrlSetData($InpuA_12, "")
GUICtrlSetState($ButtonA_12, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>bo12
Func jiaru1()
$ff1 = GUICtrlRead($Input1)
$ff2 = GUICtrlRead($Input2)
$ff3 = GUICtrlRead($Input3)
$ff4 = GUICtrlRead($Input4)
$ff5 = GUICtrlRead($Input5)
$ff6 = GUICtrlRead($Input6)
$ff7 = GUICtrlRead($Input7)
$ff8 = GUICtrlRead($Input8)
$ff9 = GUICtrlRead($Input9)
$ff10 = GUICtrlRead($Input10)
$ff11 = GUICtrlRead($Input11)
$ff12 = GUICtrlRead($Input12)
$f1 = GUICtrlRead($InpuA_1)
$f2 = GUICtrlRead($InpuA_2)
$f3 = GUICtrlRead($InpuA_3)
$f4 = GUICtrlRead($InpuA_4)
$f5 = GUICtrlRead($InpuA_5)
$f6 = GUICtrlRead($InpuA_6)
$f7 = GUICtrlRead($InpuA_7)
$f8 = GUICtrlRead($InpuA_8)
$f9 = GUICtrlRead($InpuA_9)
$f10 = GUICtrlRead($InpuA_10)
$f11 = GUICtrlRead($InpuA_11)
$f12 = GUICtrlRead($InpuA_12)
If StringIsDigit($f1) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f2) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f3) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f4) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f5) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f6) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f7) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f8) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f9) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f10) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f11) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
If StringIsDigit($f12) = 1 Then
FileChangeDir(@ScriptDir)
EndIf
if $f1 = "" Then
MsgBox(0, "提示", "请输入延时时间!", 0)
Elseif StringIsDigit($f1) <> 1 Then
MsgBox(0, "提示", "请输入纯数字!", 0)
a()
EndIf
Dim $qe1 = 1
Dim $qe2 = 2
Dim $qe3 = 3
Dim $qe4 = 4
Dim $qe5 = 5
Dim $qe6 = 6
Dim $qe7 = 7
Dim $qe8 = 8
Dim $qe9 = 9
Dim $qe10 = 10
Dim $qe11 = 11
Dim $qe12 = 12
While 1
GUICtrlSetState($ButtonA_1, $GUI_DISABLE)
GUICtrlSetState($ButtonA_2, $GUI_DISABLE)
GUICtrlSetState($ButtonA_3, $GUI_DISABLE)
GUICtrlSetState($ButtonA_4, $GUI_DISABLE)
GUICtrlSetState($ButtonA_5, $GUI_DISABLE)
GUICtrlSetState($ButtonA_6, $GUI_DISABLE)
GUICtrlSetState($ButtonA_7, $GUI_DISABLE)
GUICtrlSetState($ButtonA_8, $GUI_DISABLE)
GUICtrlSetState($ButtonA_9, $GUI_DISABLE)
GUICtrlSetState($ButtonA_10, $GUI_DISABLE)
GUICtrlSetState($ButtonA_11, $GUI_DISABLE)
GUICtrlSetState($ButtonA_12, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
IniWrite("config.ini", "config" & $qe1, "启动程序", $ff1)
IniWrite("config.ini", "config" & $qe1, "延时时间", $f1)
IniWrite("config.ini", "config" & $qe2, "启动程序", $ff2)
IniWrite("config.ini", "config" & $qe2, "延时时间", $f2)
IniWrite("config.ini", "config" & $qe3, "启动程序", $ff3)
IniWrite("config.ini", "config" & $qe3, "延时时间", $f3)
IniWrite("config.ini", "config" & $qe4, "启动程序", $ff4)
IniWrite("config.ini", "config" & $qe4, "延时时间", $f4)
IniWrite("config.ini", "config" & $qe5, "启动程序", $ff5)
IniWrite("config.ini", "config" & $qe5, "延时时间", $f5)
IniWrite("config.ini", "config" & $qe6, "启动程序", $ff6)
IniWrite("config.ini", "config" & $qe6, "延时时间", $f6)
IniWrite("config.ini", "config" & $qe7, "启动程序", $ff7)
IniWrite("config.ini", "config" & $qe7, "延时时间", $f7)
IniWrite("config.ini", "config" & $qe8, "启动程序", $ff8)
IniWrite("config.ini", "config" & $qe8, "延时时间", $f8)
IniWrite("config.ini", "config" & $qe9, "启动程序", $ff9)
IniWrite("config.ini", "config" & $qe9, "延时时间", $f9)
IniWrite("config.ini", "config" & $qe10, "启动程序", $ff10)
IniWrite("config.ini", "config" & $qe10, "延时时间", $f10)
IniWrite("config.ini", "config" & $qe11, "启动程序", $ff11)
IniWrite("config.ini", "config" & $qe11, "延时时间", $f11)
IniWrite("config.ini", "config" & $qe12, "启动程序", $ff12)
IniWrite("config.ini", "config" & $qe12, "延时时间", $f12)
MsgBox(0, "提示", "已成功加入启动程序", 0)
ExitLoop
$qe1 = $qe1 + 1
WEnd
GUICtrlSetState($ButtonA_1, $GUI_ENABLE)
GUICtrlSetState($ButtonA_2, $GUI_ENABLE)
GUICtrlSetState($ButtonA_3, $GUI_ENABLE)
GUICtrlSetState($ButtonA_4, $GUI_ENABLE)
GUICtrlSetState($ButtonA_5, $GUI_ENABLE)
GUICtrlSetState($ButtonA_6, $GUI_ENABLE)
GUICtrlSetState($ButtonA_7, $GUI_ENABLE)
GUICtrlSetState($ButtonA_8, $GUI_ENABLE)
GUICtrlSetState($ButtonA_9, $GUI_ENABLE)
GUICtrlSetState($ButtonA_10, $GUI_ENABLE)
GUICtrlSetState($ButtonA_12, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>jiaru1
Func shanchu()
FileChangeDir(@ScriptDir)
GUICtrlSetState($ButtonA_1, $GUI_DISABLE)
GUICtrlSetState($ButtonA_2, $GUI_DISABLE)
GUICtrlSetState($ButtonA_3, $GUI_DISABLE)
GUICtrlSetState($ButtonA_5, $GUI_DISABLE)
GUICtrlSetState($ButtonA_6, $GUI_DISABLE)
GUICtrlSetState($ButtonA_8, $GUI_DISABLE)
GUICtrlSetState($ButtonA_9, $GUI_DISABLE)
GUICtrlSetState($ButtonA_10, $GUI_DISABLE)
GUICtrlSetState($ButtonA_11, $GUI_DISABLE)
GUICtrlSetState($ButtonA_12, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
if MsgBox(64, "提示", "你确定要全部删除原来的配置文件吗?", 0) = 1 Then
FileDelete("config.ini")
MsgBox(0, "提示", "删除完毕,请重新配置文件.", 0)
EndIf
GUICtrlSetState($ButtonA_1, $GUI_ENABLE)
GUICtrlSetState($ButtonA_2, $GUI_ENABLE)
GUICtrlSetState($ButtonA_3, $GUI_ENABLE)
GUICtrlSetState($ButtonA_4, $GUI_ENABLE)
GUICtrlSetState($ButtonA_5, $GUI_ENABLE)
GUICtrlSetState($ButtonA_6, $GUI_ENABLE)
GUICtrlSetState($ButtonA_7, $GUI_ENABLE)
GUICtrlSetState($ButtonA_8, $GUI_ENABLE)
GUICtrlSetState($ButtonA_9, $GUI_ENABLE)
GUICtrlSetState($ButtonA_10, $GUI_ENABLE)
GUICtrlSetState($ButtonA_11, $GUI_ENABLE)
GUICtrlSetState($ButtonA_12, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>shanchu
Func ceshi()
Dim $qecs = 1
While 1
GUICtrlSetState($ButtonA_1, $GUI_DISABLE)
GUICtrlSetState($ButtonA_2, $GUI_DISABLE)
GUICtrlSetState($ButtonA_3, $GUI_DISABLE)
GUICtrlSetState($ButtonA_5, $GUI_DISABLE)
GUICtrlSetState($ButtonA_6, $GUI_DISABLE)
GUICtrlSetState($ButtonA_8, $GUI_DISABLE)
GUICtrlSetState($ButtonA_9, $GUI_DISABLE)
GUICtrlSetState($ButtonA_10, $GUI_DISABLE)
GUICtrlSetState($ButtonA_11, $GUI_DISABLE)
GUICtrlSetState($ButtonA_12, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Button4, $GUI_DISABLE)
$jj1cs = IniRead("config.ini", "config" & $qecs, "启动程序", "aa")
$jj1cssj = IniRead("config.ini", "config" & $qecs, "延时时间", "bb")
If $jj1cssj <> 0 Then
$jj1cssj1 = $jj1cssj & "000"
ToolTip("正在启动所有配制程序，请稍候！ ", @DesktopWidth - 600, @DesktopHeight - 90, "尊敬提示", 1, 0)
Sleep($jj1cssj1)
Run($jj1cs)
ElseIf $jj1cssj = "0" Then
ToolTip("正在以等待网络方式启动 启动程序为: " & $jj1cs, @DesktopWidth - 600, @DesktopHeight - 90, "尊敬提示", 1, 0)
$pin = Ping("http://www.baidu.com", 999999)
If $pin > 0 Then
Run($jj1cs)
EndIf
EndIf
If $jj1cs = "aa" Then
ToolTip("所有程序启动完毕!", @DesktopWidth - 600, @DesktopHeight - 90, "尊敬提示", 1, 0)
ExitLoop
EndIf
$qecs = $qecs + 1
WEnd
GUICtrlSetState($ButtonA_1, $GUI_ENABLE)
GUICtrlSetState($ButtonA_2, $GUI_DISABLE)
GUICtrlSetState($ButtonA_3, $GUI_DISABLE)
GUICtrlSetState($ButtonA_5, $GUI_DISABLE)
GUICtrlSetState($ButtonA_6, $GUI_DISABLE)
GUICtrlSetState($ButtonA_8, $GUI_DISABLE)
GUICtrlSetState($ButtonA_9, $GUI_DISABLE)
GUICtrlSetState($ButtonA_10, $GUI_DISABLE)
GUICtrlSetState($ButtonA_11, $GUI_DISABLE)
GUICtrlSetState($ButtonA_12, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
GUICtrlSetState($Button4, $GUI_ENABLE)
EndFunc ;==>ceshi |
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-9-28 19:33:54