神马品牌网dnf韩服第13套天空:vb的webbrowser浏览器问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 18:45:17
请问我用vb的webbrowser控件作了一个web浏览器，编写代码用于下载html源代码，但是当运行时只能下载一次，也就是点击按钮下载了html源代码之后，我要再次点击就会报错，说“错误的文件名或号码”，这该怎么解决啊？我很着急，谢谢高手啦！qq:173635235
附：下载html的代码
Private Sub Command1_Click()
Command1.Enabled = False
txFileName.Text = App.Path & "\" & txFileName.Text
Do While (txURL.Text <> "")
Inet1.Cancel
Text1.Text = Inet1.OpenURL(txURL.Text)
Open txFileName.Text For Output As #1
Do While Not EOF(1)
Print #1, Text1.Text
Loop
Close #1
Command1.Enabled = True
End Sub
附：下载html的代码
Private Sub Command1_Click()
Command1.Enabled = False
txFileName.Text = App.Path & "\" & txFileName.Text
Do While (txURL.Text <> "")
Inet1.Cancel
Text1.Text = Inet1.OpenURL(txURL.Text)
Open txFileName.Text For Output As #1
Do While Not EOF(1)
Print #1, Text1.Text
Loop
Close #1
Command1.Enabled = True
End Sub