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

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

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

¥»©«³Ì«á¥Ñ eric7765 ©ó 2019-10-9 10:57 ½s¿è

½Ð°Ý«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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD