📄 7888.html
字号:
<html>
<head>
<title>Re: vb呼叫IE </title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: vb呼叫IE </h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:huy@mail.com">Roger</a> on December 01, 1998 at 17:58:46:<p>
In Reply to: <a href="7423.html">vb呼叫IE </a> posted by yeong huann on November 17, 1998 at 20:51:05:<p>
: 1.请问如何利用VB写出一个程式,呼叫IE或NETSAPE,并开启特定的网址?<br>: 2.如果系统上有两个以上的浏览器如何判定那一个浏览器为内定浏览器?<p>很简单,<br>就直接立一个xxxx.html,然后利用档案总管去开,<br>Windows就会去呼叫内定的browser了.<p>Declare Function FindExecutable Lib "shell32.dll" Alias _<br> "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As _<br> String, ByVal lpResult As String) As Long<p>Sub OpenURL(ByVal sURL As String)<br>Dim FileName, dummy As String<br>Dim BrowserExec As String * 255<br>Dim RetVal As Long<br>Dim FileNumber As Integer<br> <br>' First, create a known, temporary HTML file<br>BrowserExec = Space(255)<br>FileName = "C:\temphtm.HTM"<br>FileNumber = FreeFile ' Get unused file number<br>Open FileName For Output As #FileNumber ' Create temp HTML file<br> Write #FileNumber, "<HTML> <\HTML>" ' Output text<br>Close #FileNumber ' Close file<br>' Then find the application associated with it<br>RetVal = FindExecutable(FileName, dummy, BrowserExec)<br>BrowserExec = Trim(BrowserExec)<br>' If an application is found, launch it!<br>If RetVal <= 32 Or IsEmpty(BrowserExec) Then ' Error<br> MsgBox "无法启动网路浏览", vbExclamation, _<br> "无网路浏览"<br>Else<br> If sURL = "http://" Then<br> sURL = "http://www.hinet.net"<br> End If<br> RetVal = ShellExecute(MDIForm1.hwnd, "open", BrowserExec, _<br> sURL, dummy, SW_SHOWNORMAL)<br> If RetVal <= 32 Then ' Error<br> MsgBox "网页无法开启", vbExclamation, "URL 连接失败"<br> End If<br>End If<br>Kill FileName ' delete temp HTML file<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7888-->
</ul><!--end: 7888-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -