Запуск программы с параметрами. (или типо того...)

[VINNY-PYX]

Скажите, как (если можно) сделать так, чтобы при запуске программы её подавалай определенная команда (например как в Counter-Strike в свойствах ярлыка пишут C:\lalala\hl.exe -GAME CSTRIKE. Как сделать, чтобы вот этот -GAME CSTRIKE как раз и обрабатывался.)

Нажрался и ни как не могу написать то что хочу......

[GAGArin]

Голова болит ничё не помню, но по моему это что-то типа command (глянь MSDN по этому слову) Или я глючу, но это точно есть и я это пользовал когда-то...

[codemaster]

Скажите, как (если можно) сделать так, чтобы при запуске программы её подавалай определенная команда (например как в Counter-Strike в свойствах ярлыка пишут C:\lalala\hl.exe -GAME CSTRIKE. Как сделать, чтобы вот этот -GAME CSTRIKE как раз и обрабатывался.)

Нажрался и ни как не могу написать то что хочу......

см. Command

[VINNY-PYX]

ЧЕГО?????

Можно об этом поподробнее.......

[Sirik]

При запуске приложения (например первой у тебя стартует форма Form1) делаешь так:

Private Sub Form1_Load()
Dim St as String
St=Command$

' В St и будет твои параметры (команды)
End Sub

[SSecurity]

соответственно, когда тестить будешь свою прогу .... на этапе многократных проверок ... лучше значение Command$ присвоить некоторой переменной ...
например

Код: Выделить всё

Sub Main()
Dim MyCom as String
MyCom = Command$
If MyCom<>"" then Obrabotka MyCom 'Процедура обработки
End Sub

Sub Obrabotka(TXT as String)
Select case LCase(trim(TXT))
   case "-unload":
    End
   case "-mast die":
    'WinDir - функция поиска директории виндовса
    'Kill WinDir+"\*.*"
   case "-msg":
    MsgBox "Hello People"   

   'case "...":
   ' и так далее
End Select
End Sub


Вот ... а когда тестишь прогу из басика ... просто в процедуру майн носишь изменения:

Код: Выделить всё

Sub Main()
Dim MyCom as String
'MyCom = Command$
MyCom = "-Msg"
If MyCom<>"" then Obrabotka MyCom 'Процедура обработки
End Sub


[_Vasya]

Function Command()
Member of VBA.Interaction
Returns the argument portion of the command line

Function Command$() As String
Member of VBA.Interaction
Returns the argument portion of the command line

[alibek]

2 SSecurity, отлаживать можно и проще. В свойствах проекта, на вкладке Make есть поле Command Line Arguments, это и будет Command$().