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
Is there a way to open internet explorer with
shellexecute command (from vb) without the toolbar
thank you
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.
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
kcm
Lokresia, any progress, feedback on this?
ASKER
thank you for your help but I need the command
for shellexecute and not for shell
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.Inte rnetExplor er")
ie.ToolBar = False
ie.Visible = True
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.Inte
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
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
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
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
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
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
kb
Experts Exchange Moderator
include reference on Microsoft Internet Controls
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.ToolBar = False
ie.Visible = True