vbscript merrin文献查重

Posted 2021-05-21

Sub merrin_ref_dump()
    On Error Resume Next
    Dim ie As Object
    Dim aimT As String
    Call kr_deck.aselect_whole_reference
    aimT = Selection.Text
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://merrin5.mdpi.lab/user/pmc/duplicate_reference_checker"
    Do Until ie.ReadyState = 4
    Loop
    
    Set doc = ie.Document
    Set element = doc.getElementsByName("_username")
    element.Item(0).value = "[e-mail]"
    Set element = doc.getElementsByName("_password")
    element.Item(0).value = "kR786032"
    Set element = doc.getElementsByName("login")   '填写用户名密码 并单击提交 登录
    element.Item(0).Click
    
    delay (300)
    Set element = doc.getElementsByName("form[refs_text]")
    element.Item(0).value = aimT
    doc.forms("form").Submit


    Set ie = Nothing

End Sub