?
Solved

opening internet explorer without toolbar

Posted on 2002-04-08
14
Medium Priority
?
439 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
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
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:Chandramouli k
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 160 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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…
Suggested Courses
Course of the Month7 days, 23 hours left to enroll

616 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