Help.. skal have en fil til at eksekvere et dos program

shell or shellexe

Place th efolllowing in a module:

Public Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Then this is how you use it.

        result = ShellExecute(0, \"Open\", \"PathAndName\", \"\", \"Path\", SW_SHOW)

tester det lige :o)..he

And we are talking VB and NOT vbs

yep.., but where do the option 4 come in??

When I run tlntadmn.exe I get this:

0) Quit this application
1) List the current users
2) Terminate a user session ...
3) Display / change registry settings ...
4) Start the service
5) Stop the service

Type an option number [0 - 5] to select that option:

Then i have to select option number 4.. how do I do this?

its empty!
Have you declared the function?
Public Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

http://www.eksperten.dk/spm/114354

I have no ideer of what you do mean.. how do I select the option 4 so that the service start

forget it

Option 4 CAN BE EMPTY!

This code MUST be placed in a module.


Public Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Const SW_HIDE = 0
Public Const SW_SHOW = 5


and then you call the function like this:

result = ShellExecute(0, \"Open\", \"PathAndName\", \"\", \"Path\", SW_SHOW)

YOU have to replace PathAndName with the FULL path and file name for example: \"C:\\temp\\runme.exe\"
and you also have to replace path with \"C:\\TEMP\"