注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

临颍中远电脑科技

专业装机,网吧维护,电脑维修,网络监控,数据恢复,

 
 
 

日志

 
 

延时启动  

2010-08-24 09:55:39|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Dim $Dll

FileInstall("SkinCrafterDll.dll", @TempDir& "\SkinCrafterDll.dll",1)
FileInstall("vista_style.skf", @TempDir& "\vista_style.skf",1)
$Dll = DllOpen(@TempDir&"\SkinCrafterDll.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 &"___________制作:xiao ye QQ:251451316__________","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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 ( "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

  评论这张
 
阅读(466)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017