shellexecute or run inputbox accept parameters.

[Klexen]

Basically what I'm trying to do is have my own run box because our work restricts the run box.

I want to be able to type in:

iexplore google.com in the input box

and have it launch google.com

Thanks!

Func RunCommand()
    $RunCommand = InputBox("Run","Type the name of a program, folder, document, or Internet resource, and Windows will open it for you.","","",300,150)
    $RunCommand = "start " & $RunCommand 
    if @error Then
    Else
    run($RunCommand)
    if @error Then
    MsgBox(0,"Error","Could not open.")
    EndIf
EndIf

EndFuncoÝ÷ Øׯz¹¢Ý÷"
-Ý÷jëh×6Func RunCommand()
    $RunCommand = InputBox("Run","Type the name of a program, folder, document, or Internet resource, and Windows will open it for you.","","",300,150)
    if @error Then
    Else
    Run(@ComSpec & ' /c start ' & $RunCommand, "", @SW_HIDE)
    if @error Then
    MsgBox(0,"Error","Could not open.")
    EndIf
EndIf

EndFunc

Edited August 11, 2007 by Klexen