VBA ¦Û°Ê¨ú±oemome ¥¼¥X±b±b³æªººô¸ô¬y¶q

littlesafe

http://www.emome.net/

¥H¤U¬O§Ú¥Ø«e¦³¼g¥X¨Óªº³¡¥÷¡A·|¦Û°Êµn¤J¡A¦ý±µ¤U¨Óªº³¡¥÷´N¤£ª¾¹D­n«ç»ò¼g¤F Q_Q ½Ð°Ý°ª¤â³o¸Ó¦p¦ó³B²z ÁÂÁ Orz

Sub login()
     Dim loginID As String
     Dim loginPW As String
     loginID = "ID"
     loginPW = "Passwd"

     Dim IE As InternetExplorer
     Dim doc As HTMLDocument
     Dim element As IHTMLElementCollection
     
     Set IE = CreateObject("InternetExplorer.Application")
     IE.navigate ("http://www.emome.net/channel?chid=48")
     IE.Visible = True
     
     Do Until IE.readyState = READYSTATE_COMPLETE
         DoEvents
     Loop
     Set doc = IE.document
     Set element = doc.getElementsByName("uid")
     element.Item(0).Value = loginID
     Set element = doc.getElementsByName("pw")
     element.Item(0).Value = loginPW
     IE.navigate ("javascript:goRegist()")
     

End Sub

littlesafe

¦^´_ 1# littlesafe


    ­è­è·Q»¡­n¥Î±qweb¶×¤J¸ê®Æ ¤]¬O¤£¦æ Q_Q