Программа автозапуска для флешки
Собственно CMD скрипт мне надоел набросал за пару минут скрипт, а потом полчаса разбирался почемк он не работает :grin:
Код:
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $RunOpera = 0
Global $RunQip = 0
Global $RunAGRcon = 0
Global $Run_VTalk = 0
Global $RunAVZ = 0
$GUI = GUICreate("Автозапуск", 200, 210)
$CheckBox1 = GUICtrlCreateCheckbox("Запустить Opera", 20, 30)
$CheckBox2 = GUICtrlCreateCheckbox("Запустить QIP", 20, 60)
$CheckBox3 = GUICtrlCreateCheckbox("Запустить AGRcon", 20, 90)
$CheckBox4 = GUICtrlCreateCheckbox("Запустить V-Talking", 20, 120)
$CheckBox5 = GUICtrlCreateCheckbox("Запустить AVZ", 20, 150)
$OK_Button = GUICtrlCreateButton("OK", 20, 180, 60, 20)
$Cancel_Button = GUICtrlCreateButton("Отмена", 100, 180, 60, 20)
GUISetState(@SW_SHOW, $GUI)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK_Button
$RunOpera = Number(GUICtrlRead($CheckBox1) = $GUI_CHECKED)
$RunQip = Number(GUICtrlRead($CheckBox2) = $GUI_CHECKED)
$RunAGRcon = Number(GUICtrlRead($CheckBox3) = $GUI_CHECKED)
$Run_VTalk = Number(GUICtrlRead($CheckBox4) = $GUI_CHECKED)
$RunAVZ = Number(GUICtrlRead($CheckBox5) = $GUI_CHECKED)
_CaseProc()
Case $Cancel_Button
Exit
EndSwitch
WEnd
Func _CaseProc()
If $RunOpera = 1 Then
RunWait("Opera10Portable.exe",@WorkingDir & "\Portable\Opera10Portable")
EndIf
If $RunQip = 1 Then
RunWait("qip.exe", @WorkingDir & "\Portable\QIP")
EndIf
If $RunAGRcon = 1 Then
RunWait("AGrcon_v1.0.exe", @WorkingDir & "\Программы\AGrcon")
EndIf
If $Run_VTalk = 1 Then
RunWait("VTalking.exe", @WorkingDir & "\Программы\V-Talk")
EndIf
If $RunAVZ = 1 Then
RunWait("avz.exe", @WorkingDir & "\Программы\avz4")
EndIf
EndFunc
Можно спросить что в нем не так? |
