http://blog.csdn.net/online/archive/2004/09/04/94105.aspx Private Sub Command2_Click()Inet1.CancelIf Len(Inet1.OpenURL("http://localhost/xml\tt.htm")) <> 0 Then MsgBox "已经连接" Text2.Text = Inet1.OpenURL("http://localhost/xml\tt.htm") If Inet1.StillExecuting Then DoEvents End If '保存到文件 Open App.Path & "\index.htm" For Output As #1 Print #1, Text2.Text Close #1Else MsgBox "没有连接"End IfEnd Sub.
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=39056
Private Sub Command2_Click()Inet1.CancelIf Len(Inet1.OpenURL("http://localhost/xml\tt.htm")) <> 0 Then MsgBox "已经连接" Text2.Text = Inet1.OpenURL("http://localhost/xml\tt.htm") If Inet1.StillExecuting Then DoEvents End If '保存到文件 Open App.Path & "\index.htm" For Output As #1 Print #1, Text2.Text Close #1Else MsgBox "没有连接"End IfEnd Sub.