ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §ìºô­¶¸ê®Æ°ÝÃD

[µo°Ý] §ìºô­¶¸ê®Æ°ÝÃD

¥»©«³Ì«á¥Ñ ck00 ©ó 2012-7-5 12:55 ½s¿è

§Ú·Q°Ý¤@¤U,¦p¦ó¦b¨Ï¥Îie.navigate ³s½u¨Ãµn¤Jºô­¶«á,
³z¹L³s½u¦Üºô§},¸õ¦Ü¦P¤@ºô­¶ªº¨ä¥L­¶­±,
¨Ã½Æ»sid="abc"ªºtable¦Üworksheet?

Sub portalLog()
    Dim User As String, Pwd As String

        Set ie = CreateObject("InternetExplorer.application")
        ie.Visible = True
        ie.navigate "https://login.yahoo.com/config/mail?.intl=tw"
        With ie
            Do While .busy: DoEvents: Loop
            Do While .ReadyState <> 4: DoEvents: Loop
        End With
        
        Application.EnableCancelKey = False
        With ie
            .Document.getElementsByTagName("input")(1).Value = "username"
            .Document.getelementbyID("password").Value = "password"
            .Document.getElementsByTagName("input")(3).Click
        End With
        Application.EnableCancelKey = True
        
        With ie
            Do While .busy: DoEvents: Loop
            Do While .ReadyState <> 4: DoEvents: Loop
        End With
        
¦p¦ó¦b¦¹³s½u¦Ü¤vµn¤Jºô­¶ªº¨ä¥L­¶­±,µM«á¦A®Ú¾ÚTABLEªºID§â¥L½Æ»s
        Set ie = Nothing
End Sub

»´»´±À¤@±À

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD