Что нового

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

Пост номер 2 был отмечен как лучший ответ.

Feirman

Новичок
Сообщения
1
Репутация
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

Меценат
Меценат
Сообщения
171
Репутация
55
Код:
; ...
        Case $Button1
            ShellExecute('C:\soft\Test1.vbs' '1')
         Case $Button2
            ShellExecute('C:\soft\Test1.vbs', '2')
; ...
 
Верх