Visual Basic 6.0 Question

[larva]

Hi Guys,

I am using the below code to execute external program (ABC.exe) from MS VC++:

ShellExecute (NULL,"open","ABC.exe",NULL,NULL,SW_HIDE);

How do I execute thisprogram from VB6.0 ? Any code can do this in VB6.0 ? Thanks !

regards,
Larva

 

[BuckleDownBen]

There is a Shell command in VB that takes as arguments the path to the executable and the window-state it will open in. If you need more, you can declare your ShellExecute as an API function and use it from within VB

 

[UnseenRocker]

Here is a great site for finding code: VBCode.com

I bookmarked it myself.

example:

Dim Scr_hDC as long
Scr_hDC = GetDesktopWindow ()
'change "Open" to "Explore" to bring up file explorer
StartDoc = ShellExecute (Scr_hDC, "Open", DocName, "", "C:\", 1)
'end function

'Place the following code in under a command button or in a menu, etc...

dim r as long
r = startdoc ("C:\windows\arcade.bmp")

 

[larva]

Hi Guys,

Thanks a lot ! Actually I need to execute IE6.0 and get the report (PDF format) generated by Oracle Report Server and display on IE6.0 as follow :
========================================
sprintf(&temp[0],"http://%s/dev60cgi/rwcgi60.exe?cpcs&destype=cache&desformat=pdf&status=post&report=cpcs.rdf&P_OPERATORID=%s&P_START_SHIFT=%s",ReportIP,operatorID,*shiftDateTime);

ShellExecute(NULL,"open","IEXPLORE.EXE",temp,NULL,SW_SHOW);
========================================

How can I do this in VB6.0 ? May be like following:
Dim s As String
s = "http://%s/dev60cgi/rwcgi60.exe?cpcs&destype=cache&desformat=pdf&status=post&report=cpcs.rdf&P_OPERATORID=TEST&P_START_SHIFT=07052002"

How do I pass into the ShellExecute with above parameter ? Thanks


Larva

 

[BuckleDownBen]

Google and Google Groups are your friend when it comes to vb questions. Everything you could possibly want to know has been asked and answered a hundred times. But to answer your question, if you know the path to IE on your machine, then you can do this:

shell "C:\Program Files\Internet Explorer\iexplore.exe www.yahoo.com"

If you don't know the path, then you'll most likely have to resort to the Windows API. If you still need help, post back here.

 

[Descartes]

Put this in a standard 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_SHOWDEFAULT = 10

then your code would look like...

Dim s As String
s = "http://%s/dev60cgi/rwcgi60.exe?cpcs&destype=cache&desformat=pdf&status=post&report=cpcs.rdf&P_OPERATORID=TEST&P_START_SHIFT=07052002"
ShellExecute vbNullString, "open", s, vbNullString, vbNullString, SW_SHOWDEFAULT

The whole point of ShellExecute is to encapsulate the concept of executing an application using the default application associated with a given file, or operation (when using the "open" verb, that is), so take advantage of it. Never hardcode fully-qualified paths in your application, even if it's just for you

 

[Descartes]

Sorry, I just noticed you used SW_SHOW instead of SW_SHOWDEFAULT. Add this constant to your standard module as well, and use that instead....

Public Const SW_SHOW = 5