求VB访问网站源代码

2024-12-02 20:23:34

推荐回答（2个）

回答1：

在窗体上画一个文本框、一个按钮
工程部件选中 Microsoft Internet Controls，在窗体中添加一个webbrowser
代码如下：
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.text '打开文本一里面输入的网站
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com" '打开程序时，打开的默认网站，可修改
End Sub

回答2：

Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", "http://www.baidu.com", True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
Text1.Text = xmlHTTP1.responseText
Set xmlHTTP1 = Nothing