使⽤vb获取⽹页源⽂件并保存的简单代码使⽤vb获取⽹页源⽂件并保存的简单代码
Private Sub Command1_Click()
西江月夜行黄沙道中的写作背景Inet1.URL = ""
送小孩什么礼物好
傅艺伟老公qq = Inet1.OpenURL(Text2.Text)
Text1.Text = qq
回收站图标没了
Open "" For Output As #1
元宵节作文400字作文2021Print #1, qq
Close #1
中国娱乐answer = MsgBox("已经保存⽹页源代码到中", 0, "友情提⽰")
Print answer
End Sub
Private Sub Command2_Click()
End
End Sub
本⽂转⾃分⽠博客51CTO博客，原⽂链接blog.51cto/aiqing/1714如需转载请⾃⾏联系原作者aiqing