Link to home
Start Free TrialLog in
Avatar of Lokresia
Lokresia

asked on

opening internet explorer without toolbar

Hello,
Is there a way to open internet explorer with
shellexecute command (from vb)  without the toolbar

thank you
Avatar of COAtheGREAT
COAtheGREAT
Flag of Serbia image

This is without using shallexecute if it helps

include reference on Microsoft Internet Controls

  Dim ie As InternetExplorer
 
  Set ie = New InternetExplorer
 
  ie.ToolBar = False
  ie.Visible = True
Use this:

Shell "iexplore -k http://www.geocities.com/TimCottee



Avatar of Richie_Simonetti
Tim, for a strange reason you code doesn't works in my w2k...
I guess you got a 53 error, so did I when I actually tried it, I guess VB doesn't search the system's path for the file so you need to full path to ie's executable:

Shell "\program files\internet explorer\iexplore -k http://www.geocities.com/TimCottee"

This basically launches IE in kiosk mode with none of the toolbars etc.
Yeah, i think so too but maybe ie is not installed in that path so hard code it is not a good idea.
i guess -k will open in fullscreen mode.

kcm
Lokresia, any progress, feedback on this?
Avatar of Lokresia
Lokresia

ASKER

thank you for your help but I need the command
for shellexecute and not for shell
Hummmm...
You can't use in that way. I mean:

Private 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

Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "http://www.geocities.com/TimCottee", "-k", vbNullString, vbNormal
End Sub

doesn't works nor

Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "-k http://www.geocities.com/TimCottee", vbnullstring, vbNullString, vbNormal
End Sub

I think COAtheGREAT has the simplest way. If you don't want to use references, try with:
dim ie as object
Set ie = createobject("shdocvw.InternetExplorer")
 
 ie.ToolBar = False
 ie.Visible = True


nor:
Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "iexplore", "-k http://www.geocities.com/TimCottee", vbNullString, vbNormal
End Sub
maybe....with full path (which i don't like it)
Private Sub Form_Load()
Dim ret As Long
ret = ShellExecute(0, "open", "C:\Archivos de programa\Internet Explorer\iexplore.exe", "-k http://www.geocities.com/TimCottee", vbNullString, vbNormalFocus)
End Sub
ASKER CERTIFIED SOLUTION
Avatar of Richie_Simonetti
Richie_Simonetti
Flag of Argentina image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Hi Lokresia,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Accept Richie_Simonetti's comment(s) as an answer.

Lokresia, if you think your question was not answered at all or if you need help, just post a new comment here; Community Support will help you.  DO NOT accept this comment as an answer.

EXPERTS: If you disagree with that recommendation, please post an explanatory comment.
==========
DanRollins -- EE database cleanup volunteer
Moving to the PAQ

kb
Experts Exchange Moderator