VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立你自己的浏览器-发送到Visual Interdev
发表评论(0)作者:Soma Sundaram, 平台:VB6.0+Win98, 阅读:8842, 日期:2001-04-28
Edit With Visual Interdev

Insert Inet Control (Name - Inet1)
Insert This line into your Module Declaration Section

Insert these coding into your click Event:

On Error Resume Next
Dim rpo As String
Dim lrs As String
Dim b() As Byte
lrs = “C:\Windows\temp.htm”
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = cboaddress.Text
rpo = Dir$(“C:\Program Files\Microsoft Visual Studio\Common\IDE\IDE98\DEVENV.EXE”)
If rpo <> “” Then
If Inet1.URL <> “” Then
b() = Inet1.OpenURL(, icByteArray)
Open lrs For Binary Access Write As #1
Put #1, , b()
Close #1
Dim retval As Long
retval = ShellExecute(Me.hWnd, “open”, “C:\Program Files\Microsoft Visual Studio\Common\IDE\IDE98\DEVENV.EXE”, lrs, “C:\MyProg\”, SW_MAXIMIZE)
Else
MsgBox “There is no source code for this. It may be a System File.”
End If
Else
MsgBox “Microsoft Visual Interdev Software Not Found”
End If