Что нового

Передача аргумента в Vbs скрипт

Feirman

Новичок
Сообщения
5
Репутация
0
Добрый день.
Есть рабочий 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
 

xXx

╚{■_■}╗
Меценат
Сообщения
248
Репутация
95
Код:
; ...
        Case $Button1
            ShellExecute('C:\soft\Test1.vbs' '1')
         Case $Button2
            ShellExecute('C:\soft\Test1.vbs', '2')
; ...
 
Верх