Добрый день.
Есть рабочий vbs скрипт который в зависимости от параметра устанавливает определенную программу.
На Autoit У меня только GUI.
Есть способ правильного вызова с аргументом из Autoit VBS Скрипта?
Если я вызываю просто из командной стролки "C:\soft\Test1.vbs 1" то работает
PS Внизу упрошенная копия скрипта
PSS Разные способы пробовал. даже вызов cmd.exe и печать туда (SENT) (работало ))))
Заранее прошу прощение если не правильно оформил.
Есть рабочий vbs скрипт который в зависимости от параметра устанавливает определенную программу.
На Autoit У меня только GUI.
Есть способ правильного вызова с аргументом из Autoit VBS Скрипта?
Если я вызываю просто из командной стролки "C:\soft\Test1.vbs 1" то работает
PS Внизу упрошенная копия скрипта
PSS Разные способы пробовал. даже вызов cmd.exe и печать туда (SENT) (работало ))))
Заранее прошу прощение если не правильно оформил.
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 464, 211, 192, 124)
$Button1 = GUICtrlCreateButton("1", 56, 48, 97, 81, $WS_GROUP)
$Button2 = GUICtrlCreateButton("2", 192, 48, 169, 81, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ShellExecute("Explorer.exe", "C:\soft\Test1.vbs", [1])
Case $Button2
ShellExecute("Explorer.exe", "C:\soft\Test1.vbs", [2])
EndSwitch
WEnd
vbs:
Dim Arg
Arg = WScript.Arguments.item(0)
Select Case Arg
Case "1"
test1
Case "2"
test2
End Select
Sub test1()
msgbox("call 1")
End Sub
Sub test2()
msgbox("Call 2")
End Sub