160.htm

来自「一些简单的编程例子 都是网页的形式」· HTM 代码 · 共 48 行

<p>建立你自己的浏览器－查看源文件</p>
<p></p>
<p>Insert Inet Control (Name - Inet1)</p>
<p>Insert This line into your Module Declaration Section</p>
<p></p>
<p>Public 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</p>
<p></p>
<p>Public Const SW_SHOW = 5</p>
<p></p>
<p>Type SHELLEXECUTEINFO</p>
<p>  cbSize As Long</p>
<p>  fMask As Long</p>
<p>  hWnd As Long</p>
<p>  lpVerb As String</p>
<p>  lpFile As String</p>
<p>  lpParameters As String</p>
<p>  lpDirectory As String</p>
<p>  nShow As Long</p>
<p>  hInstApp As Long</p>
<p>  lpIDList As Long</p>
<p>  lpClass As String</p>
<p>  hkeyClass As Long</p>
<p>  dwHotKey As Long</p>
<p>  hIcon As Long</p>
<p>  hProcess As Long</p>
<p>End Type</p>
<p></p>
<p>Insert these coding into your click Event:</p>
<p></p>
<p>On Error Resume Next</p>
<p>Dim lrs As String</p>
<p>lrs = “C:\windows\temp.htm”</p>
<p>Dim b() As Byte</p>
<p>Inet1.Cancel</p>
<p>Inet1.Protocol = icHTTP</p>
<p>Inet1.URL = WebBrowser1.LocationName</p>
<p>If Inet1.URL <> “” Then</p>
<p>b() = Inet1.OpenURL(, icByteArray)</p>
<p>Open lrs For Binary Access Write As #1</p>
<p>Put #1, , b()</p>
<p>Close #1</p>
<p>Dim retval As Long</p>
<p>retval = ShellExecute(Me.hWnd, “open”, “C:\windows\notepad.exe”, lrs, “C:\windows\”, SW_SHOW)</p>
<p>Else</p>
<p>MsgBox “There is no source code for this. It may be a System File”</p>
<p>End If</p>
<p> </p>