使用vb获取网页源文件并保存的简单代码
Private Sub Command1_Click()
Inet1.URL = "HTTP://www.wangjianran.com/"
qq = Inet1.OpenURL(Text2.Text)
Text1.Text = qq
Open "d:mm.txt" For Output As #1
Print #1, qq
Close #1
answer = MsgBox("已经保存网页源代码到d:mm.txt中", 0, "友情提示")
Print answer
End Sub
Private Sub Command2_Click()
End
End Sub
本文转自分瓜博客51CTO博客，原文链接http://blog.51cto.com/aiqing/1714如需转载请自行联系原作者
aiqing
