冒险岛神之子怎么输出:vb乱码问题

来源:百度文库 编辑:中科新闻网 时间:2024/05/07 17:10:40
请问以下程序是下载一张html的源文件,但是如果这张html是中文的话,下载显示时是乱码,这该怎么解决呢?我很着急,最好能告诉我具体些,谢谢啦! Private Sub Command1_Click()
Command1.Enabled = False
txFileName.Text = App.Path & "\" & txFileName.Text
Inet1.Cancel
txHTML.Text = Inet1.OpenURL(txURL.Text)
txHTML.Text = "<base href=" & txURL.Text & ">" & vbCrLf & txHTML.Text
Open txFileName.Text For Output As #1
Print #1, "<base href=" & txURL.Text & ">" & vbCrLf
Print #1, txHTML.Text
Close #1
Command1.Enabled = True
End Sub