VB替代webdriver

 

 

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