Sub TestReadHTML(ByVal Url As String)
Dim Doc As New System.Net.WebClient
Dim TempText As String
TempText = System.Text.Encoding.Default.GetChars(Doc.DownloadData(Url))
End Sub
在线对比
盘古飞天梦，机身号，次数，时间，姓名
pangufeitianmeng,BFEBFBFF000306A9WD-WXE1E,12,2022-12-20 17:21:16,liuliguo
pangufeitianmeng,BFEBFBFF000806ECNA9TV5JV,13,2022-12-20 17:21:16,wangzhanli
pangufeitianmeng,BFEBFBFF00040651W621LVLV,13,2022-12-20 17:21:16,weibo
pangufeitianmeng,BFEBFBFF000806C1E823_8FA,13,2022-12-20 17:21:16,web
pangufeitianmeng,BFEBFBFF000306A9WD-WX91A,13,2022-12-20 17:21:16,wangxiaochao
pangufeitianmeng,BFEBFBFF000806C26479_A74,13,2022-12-20 17:21:16,weibo
pangufeitianmeng,BFEBFBFF000306C3WD-WCC2E,13,2022-5-20 17:21:16,wujianhua
