¶}±Òºô­¶µn¤J±b±K

eric7765

½Ð°Ý«e½ú­Ì ¦³¦n´X²Õ±b±K »Ý­nµn¤Jºô­¶  "  http://hk799.net/  "
¤£ª¾¹D­n«ç»ò¼g ¤~¯àµn¤Jºô­¶«á ¦Û°Ê¿é¤J±b±K «ô°U«e½ú«üÂI
¥Ø«e¬O¥Îgoogle ÂsÄý¾¹  ­n§ï¦¨ ieÂsÄý¾¹¤]¦æ
ÁÂÁ¤F

¤U¸ü (22.8 KB)

2019-10-9 10:56

GBKEE

¦^´_ 1# eric7765

1. Option Explicit
   
2. Sub Ex_ºô¸ô¶l§½()
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.         '.Navigate "http://hk799.net/"                                                '***³oºô§}©Úµ´Åª¨ú
   
6.         .Navigate "https://hk799.net/tpl/login_webmail.php"   '***§ï¥Î³oºô§}¸Õ¸Õ¬Ý***
   
7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
8.          '<input name="inpN" tabindex="1" class="save_01" id="inpN" type="text">
   
9.          .Document.getElementById("inpN").Value = "±b¸¹"
   
10.          '<input name="inpP" tabindex="2" class="save_01" id="inpP" type="password">
    
11.         .Document.getElementById("inpP").Value = "±K½X"
    
12.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
13.          '<input name="loginbutton" tabindex="3" onclick="proLogin(document.kk.inpN.value,document.kk.inpP.value);" type="button" value="µn¤J">
    
14.          .Document.querySelector("input[name='loginbutton'][tabindex='3'][type='button']").FireEvent ("onclick")
    
15.      '   .Quit        'Ãö³¬ºô­¶
    
16.     End With
    
17. End Sub

½Æ»s¥N½X