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

[µo°Ý] ºô­¶µn¤J-«ö¶s°ÝÃD!

http://www.slc.com.tw/custom/gas/custom/index.php
¤j¤j ¨º³o­Óºô¯¸À°§Ú¸Õ¸Õ¬Ý ¥u­n¯à«ö¤U¥hÅã¥Ü±b¸¹±K½X¿ù»~´N¹ï¤F @@"
¦]¬°§Ú²{¦b¬O³s«ö³£«ö¤£¤U¥h!@@
¤Þ¥Î³Â»¶®a±Ú¨Ó­×¥¿
  1. Option Explicit
  2. Sub ³Â»¶®a±Ú°Q½×ª©¥Î¤áµn¿ý()
  3.    Dim IE As New InternetExplorer, i As Integer, vDoc As Object
  4.     '«Å§i Dim ie As New InternetExplorer
  5.     '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Internet Controls
  6.     'Dim i As Integer, vDoc As Object
  7.     'With CreateObject("InternetExplorer.Application") '¤£»Ý·s¼W¤Þ¥Î Microsoft Internet Controls
  8.     With IE
  9.         .Visible = True
  10.         .Navigate "http://www.slc.com.tw/custom/gas/custom/index.php"
  11.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  12.         Set vDoc = .Document.getElementsByTagName("INPUT")
  13.         For i = 0 To vDoc.Length - 1
  14.             If vDoc(i).Name = "f_account" Then vDoc(i).Value = "8888"    '¥Î¤á¦WºÙ ½Ð­×§ï
  15.             If vDoc(i).Name = "f_psd" Then vDoc(i).Value = "8888"  '¥Î¤á±K½X ½Ð­×§ï
  16.         Next
  17.         Set vDoc = .Document.getElementsByTagName("button") '.Click
  18.         For i = 0 To vDoc.Length - 1
  19.             If vDoc(i).Name = "c_psd" Then vDoc(i).Click
  20.         Next
  21.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  22.     End With
  23. End Sub
½Æ»s¥N½X
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 3# die78325
¬O§ñÃö¤½¥q°t¦Xªº±b¸¹±K½X  ¤£¤è«K¦b¦¹PO»yªk©ÎÀÉ®×
¥i°Ñ¦Ò¬Ý¬Ý
  1. Option Explicit
  2. Sub ³Â»¶®a±Ú°Q½×ª©¥Î¤áµn¿ý()
  3.    Dim IE As New InternetExplorer, i As Integer, vDoc As Object
  4.     '«Å§i Dim ie As New InternetExplorer
  5.     '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Internet Controls
  6.     'Dim i As Integer, vDoc As Object
  7.     'With CreateObject("InternetExplorer.Application") '¤£»Ý·s¼W¤Þ¥Î Microsoft Internet Controls
  8.     With IE
  9.         .Visible = True
  10.         .Navigate "http://forum.twbts.com/logging.php?action=login"
  11.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  12.         Set vDoc = .Document.getElementsByTagName("INPUT")
  13.         For i = 0 To vDoc.Length - 1
  14.             If vDoc(i).Name = "username" Then vDoc(i).Value = "?????"    '¥Î¤á¦WºÙ ½Ð­×§ï
  15.             If vDoc(i).Name = "password" Then vDoc(i).Value = "*******"  '¥Î¤á±K½X ½Ð­×§ï
  16.         Next
  17.         Set vDoc = .Document.getElementsByTagName("button") '.Click
  18.         For i = 0 To vDoc.Length - 1
  19.             If vDoc(i).Name = "loginsubmit" Then vDoc(i).Click
  20.         Next
  21.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  22.     End With
  23. End Sub
  24. Sub ³Â»¶®a±Ú°Q½×ª©¥Î¤á°h¥X()
  25. Dim i As Integer, vDoc As Object
  26.      With CreateObject("InternetExplorer.Application") '¤£»Ý·s¼W¤Þ¥Î Microsoft Internet Controls
  27.         .Visible = True
  28.         .Navigate "http://forum.twbts.com/logging.php?action=logout&formhash=053f893b"
  29.         .Quit           'Ãö³¬ºô­¶
  30.     End With
  31. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ die78325 ©ó 2012-12-3 10:10 ½s¿è

¦^´_ 2# GBKEE


    ¤j¤j  §Ú¤W­±¥´¿ù  §Ú¥Îªº¸ò§A¥Îªº¤@¼Ë= ="!!   ¦ý¬O·|¿ù»~ !     "c_psd()"      ¤£ª¾¬°¦ó¥L·|¦³()
   ¨ÌµM°±¯d¦bµn¤J­¶­±«o¨S«ö½T©w¶i¥h@@" ©Ç©Çªº= ="¤â°Ê«ö´NOK
   ÁÙ¬O¦]¬°§Ú¬O¥ÎUserForm1.WebBrowser1¨Ó¶}±Òºô­¶ªºÃö«Y= =?   
  §Ú¤ñ¸û§Æ±æ¥i¥H¥ÎIE¨Ó¾Þ§@ ¦ý §ï¦¨IEªº¸Ü ¦³¨Ç»yªk§Ú¤£·|§ï Åܦ¨¥L¤£·|¥h°»´úÄæ¦ì
    Dim IE As New InternetExplorer
    sURL = "XXX"
    Set IE = CreateObject("InternetExplorer.Application")
   Set vDoc = IE.Document   ((§Ú·|§ï¦¨IE¶}±Ò  ¦ý¨ì³o¤@¨B´N±¾¤F   ­ì¥»¥Î  Set vDoc = myWeb.Document  ¥i¥H))   <¬õ¦â¬°¿ù»~>

§Ú¥t¤@­Óºô¯¸   ¥´¤J±b¸¹±K½X µn¤JÁ䳡·|«G((·|¦Ç¦â«ö¶s))
¦ý¬O¥ÎÁä½LÀH«K¿é¤J¤@­Ó­^¤å ´N·|«G¤F ©Ò¥H¥L»Ý­n°»´úÁä½L¿é¤J¤~¥i¥H  ¨º«ç»ò¸Ñ¨M??  

¤j¤j ¤£¬O§Ú¤£POÀÉ®×µ¹§A´ú¸Õ ¬O¦]¬°³o¬O§ñÃö¤½¥q°t¦Xªº±b¸¹±K½X  ¤£¤è«K¦b¦¹PO»yªk©ÎÀÉ®×
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 1# die78325
¸Õ¸Õ¬Ý
myWeb.Document.all("c_psd").Click

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD