Solved

opening internet explorer without toolbar

Posted on 2002-04-08
14
400 Views
Last Modified: 2012-08-14
Hello,
Is there a way to open internet explorer with
shellexecute command (from vb)  without the toolbar

thank you
0
Comment
Question by:Lokresia
14 Comments
 
LVL 1

Expert Comment

by:COAtheGREAT
ID: 6925138
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
0
 
LVL 43

Expert Comment

by:TimCottee
ID: 6925139
Use this:

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



0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 6925391
Tim, for a strange reason you code doesn't works in my w2k...
0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 43

Expert Comment

by:TimCottee
ID: 6925438
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.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 6925582
Yeah, i think so too but maybe ie is not installed in that path so hard code it is not a good idea.
0
 
LVL 5

Expert Comment

by:kcm76
ID: 6925830
i guess -k will open in fullscreen mode.

kcm
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 6926343
Lokresia, any progress, feedback on this?
0
 

Author Comment

by:Lokresia
ID: 6927657
thank you for your help but I need the command
for shellexecute and not for shell
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 6928230
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


0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 6928244
nor:
Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "iexplore", "-k http://www.geocities.com/TimCottee", vbNullString, vbNormal
End Sub
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 6928250
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
0
 
LVL 16

Accepted Solution

by:
Richie_Simonetti earned 40 total points
ID: 6928267
So rry for so many post:
Use this find path to iexplore and pass it to shellexecute:

http://www.mvps.org/vbnet/code/system/findexecutable.htm
0
 
LVL 49

Expert Comment

by:DanRollins
ID: 7643028
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
0
 
LVL 1

Expert Comment

by:kodiakbear
ID: 7673251
Moving to the PAQ

kb
Experts Exchange Moderator
0

Featured Post

ScreenConnect 6.0 Free Trial

Want empowering updates? You're in the right place! Discover new features in ScreenConnect 6.0, based on partner feedback, to keep you business operating smoothly and optimally (the way it should be). Explore all of the extras and enhancements for yourself!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question