PDA

Показать полную графическую версию : [решено] Программа автозапуска для флешки


Medic84
09-06-2009, 20:48
Собственно 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

Можно спросить что в нем не так?

beve
09-06-2009, 21:59
RunWait(@WorkingDir & "\Portable\QIP\qip.exe")

Medic84
09-06-2009, 22:21
Хм, так работает спаисбо)

Значит надо переписывать разработчикам Help




© OSzone.net 2001-2012