Private Sub Form_Load()
'Form1.Height = 0
'Form1.Width = 0
'Form1.Visible = False
Dim href
'href = "bbs.whnet.edu.cn"
href = Mid(Command, 2, Len(Command) - 2)
WebBrowser1.Silent = True
WebBrowser1.Navigate href
Do While WebBrowser1.Busy '等待加载完成.
DoEvents
Loop
Do While WebBrowser1.ReadyState <> 4
DoEvents
Loop
'提取_Click
Dim YDM
YDM = WebBrowser1.Document.body.createtextrange().htmltext
SaveUTF8 YDM, "output.html"
Dim flag
flag = "123"
SaveUTF8 flag, "flag.txt"
End
End Sub
Sub SaveUTF8(ByVal Text As String, ByVal FileName As String)
Dim oStream As ADODB.Stream
Set oStream = New ADODB.Stream
oStream.Open
oStream.Charset = "UTF-8"
oStream.Type = adTypeText
oStream.WriteText Text
oStream.SaveToFile FileName, adSaveCreateOverWrite
oStream.Close
End Sub
Function LoadUTF8(ByVal FileName As String) As String
Dim oStream As ADODB.Stream
Set oStream = New ADODB.Stream
oStream.Open
oStream.Charset = "UTF-8"
oStream.LoadFromFile FileName
LoadUTF8 = oStream.ReadText()
oStream.Close
End Function
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'禁止WebBrowser控件中网页弹窗
Cancel = True
End Sub