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

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

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

½Ð¦U¦ì¤j¤jÀ°§Ú¸Ñ¨M....
¥H¤U¬O§Ú­nµn¤Jªº­ì©l½X
¥H´ú¸Õ±b¸¹±K½X³£¿é¤JOK
°ÝÃD¤@¡B ­þ­Ó¬O½T©wªº«ö¶s  ¨Ã¥Bµ¹§Ú«ö¤U«ö¶sªº»yªk
¥Ø«e¬O³]©w   myWeb.Document.all("name='c_psd").Click
«o°±¦bµn¤Jµe­± ¨S¦³«ö¤U½T©wªºµe­± ((±b¸¹±K½X¤w¿é¤J§¹²¦))
  1. <!-- IGNORE -->

  2. <form action="" method="POST" name="">
  3. <p>&nbsp;</P>
  4. <table align=center id="default">
  5.     <tr>
  6.       <th colspan=2 class="center">½Ð¿é¤Jµn¤J¸ê°T</th>
  7.     </tr>
  8.     <tr>
  9.       <td class="right">±b¸¹¡G</td>
  10.       <td>
  11.       <input name="f_account" type="text" size="15" maxlength="10" value="" id="f_account">
  12.       </td>
  13.     </tr>
  14.     <tr>
  15.       <td class="right">±K½X¡G</td>
  16.       <td>
  17.       <input name="f_psd" type="password" size="15" maxlength="10" value="" id="f_psd">
  18.       </td>
  19.     </tr>
  20.     <tr>
  21.       <td >&nbsp;</td>
  22.       <td>
  23.         <input type="submit" class="buttonsubmit" value=½T©w>
  24.           <input type="submit" class="buttonsubmit" value="­×§ï±K½X" onclick="c_psd()">
  25.       </td>
  26.     </tr>
  27.   </table>
  28.   <input type="hidden" name="f_step" id="f_step" value="from_default" />
  29.   <input type="hidden" name="f_c_psd" id="f_c_psd" value="false" />
  30. </form>
½Æ»s¥N½X
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

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

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

¦^´_ 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

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

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

¦^´_ 5# die78325
¨C¤@ºô­¶·|¦³®t²§ªº.¥i±qÀ˵ø­ì©lÀɮפ¤¬Ý¥XºÝ­Ù.
  1. Option Explicit
  2. Sub ¥Î¤áµ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.             If vDoc(i).Value = "½T©w" Then vDoc(i).Click           '¥Î¤áClick
  17.         Next
  18.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  19.     End With
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE

      <input type="submit" class="buttonsubmit" value=½T©w>
      <input type="submit" class="buttonsubmit" value="­×§ï±K½X" onclick="c_psd()">
    ¤j¤j §A«ç»òª¾¹D­n¥Îvalue??
If vDoc(i).Name = "f_psd" Then vDoc(i).Value = "8888"  '¥Î¤á±K½X ½Ð­×§ï
If vDoc(i).Value = "½T©w" Then vDoc(i).Click           '¥Î¤áClick


©Ò¥H¨S¦³ NAME´N§ä¨ä¥Lªº­È¶Ü¡H¡H¡@¡@

§Ú¤S¥d¨ì¤F= =" ¶i¨ì¤U¤@­¶­±  ­n§ä¨ìÄæ¦ì
¿é¤J¤é´Á 20121201 ¨ì 20121202   ((ºô­¶»Ý¨Dyyyymmdd))
¦ý ¥L­ì©l½X¤S¨S¦³name
<!-- IGNORE -->
<input value="¦^¬d¸ß­º­¶" onclick="location.href='index.php'" type="button">
<form id="form1" name="form1" method="post" action="" onsubmit="return checkform()">
  <table id="default2" align="center">
    <tr>
      <th class="center">½Ð¿é¤J¬d¸ß±ø¥ó</th>
    </tr>
    <tr class="need">
      <td>
        ®É¶¡®æ¦¡:<input type="radio" name="date_format" id="date_format_td03" value="td03" ><label for="date_format_td03">¥æ©ö¤é´Á</label>
                 <input type="radio" name="date_format" id="date_format_td16" value="td16" ><label for="date_format_td16">¥æ¯Z¤é´Á</label>
        (<font color="blue">¤ë-¤é/¯Z®q</font>)
      </td>
    </tr>
    <tr class="need">
      <td class=""><span id="red">*[¥²¶ñ]</span>®É¶¡¡G
          <input name="f_dates" type="text" id="f_dates" size="10" maxlength="8" value="" />
          ~
          <input name="f_datee" type="text" id="f_datee" size="10" maxlength="8" value="" />
         ¡]20090814¡ã20090814¡^
    <input type="submit" name="button" id="button" value="°e¥X" class="buttonsubmit" class="center"/>
        ¦³»Ý­n¤U¸üCSVÀɮ׽Х´¤Ä!<input type="checkbox" name="f_csv" >

¤ñ¸û·|¥Î¨ìªºÂÂ¥H¤W³o´X­Ó
§Ú¥u­n¿é¤J¤T¼Ë
¨â­Ó¤é´ÁÄæ¦ì»P°e¥X  ¥L¦³´£¨Ñ¤U¸ücsv   ¦pªG¥i¥H  ½ÐÀ°§ÚÅý¦oÂIÀ»¥´¤Ä
¨Ã°e¥X
¦]¬°§Úª½±µ¦b½Æ»s¤@¦¸sub·Q»¡¨Ó§ï¤U¤@­¶ªº¸ê°T ÁÙ¬O¤£¤Ó¦æ =="
·PÁ¤j¤j¨ó§U....
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 7# die78325
§ñÃö³oºô­¶¦w¥þ,§Ú¤]µLªk¬Ý¨ìºô­¶´À§A­×¥¿
¥i°Ñ¦Ò³oºô­¶ªº¼gªk
  1. Sub °ê»Ú³f¬d¸ß()
  2.     Dim i As Integer, s As Integer, k As Integer, n, kn, j, xi
  3.     Dim Element, ²Î½s As String, ie As Object, sh As Worksheet
  4.         ²Î½s = 16834268
  5.     Set ie = CreateObject("InternetExplorer.Application")
  6.     With ie
  7.         .Visible = True
  8.         .Navigate "http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp"
  9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  10.         With .Document
  11.             Set Element = .getElementsByName("sel")  '¬d¸ßÃþ§O
  12.             '0: ú¯Ç³æ¸¹
  13.             '1: ³ø³æ¸¹½X
  14.             '2: ¤½¥q²Î½s(¨­¤ÀÃÒ¦r¸¹):  "id"[¤½¥q²Î½s] ,"sel01" [¿ï¶µ] , "portcode"[´ä§O]
  15.             Element(2).Click  '2: ¤½¥q²Î½s(¨­¤ÀÃÒ¦r¸¹)
  16.             Set Element = .getElementsByName("id") '[¿ï¶µ]
  17.             Element(0).Value = ²Î½s
  18.             .getElementsByName("sel01")(0).Value = 2
  19.             '[¿ï¶µ]:<select name="sel01">
  20.              'value='1'>¤í¶O²M³æ ' value='2' ©Ò¦³Ãº¯Ç³æ
  21.             .getElementsByName("portcode")(0).Value = "TWKEL"
  22.             '[´ä§O]: <select name="portcode">
  23.              'value='-'>©Ò¦³´ä
  24.              'value='TWKEL' ->°ò¶©´ä
  25.              'value='TWKHH' ->°ª¶¯´ä
  26.              'value='TWTXG' ->¥x¤¤´ä
  27.              'value='TWHUN' ->ªá½¬´ä
  28.              'value='TWTPE' ->¥x¥_´ä
  29.              'value='TWSUO' ->Ĭ¿D´ä
  30.              'value='TWANP' ->¦w¥­´ä
  31.              'value='TWBDA' ->¥¬³U´ä
  32.             For i = 0 To .getelementsbytagname("INPUT").Length - 1              '´M§ä[¶}©l¬d¸ß]«öÁä
  33.                 If .getelementsbytagname("INPUT")(i).Value = "¶}©l¬d¸ß" Then
  34.                     .getelementsbytagname("INPUT")(i).Click                     '«ö¤U [¶}©l¬d¸ß] «öÁä
  35.                     Exit For
  36.                 End If
  37.             Next
  38.             Do While ie.Busy Or ie.ReadyState <> 4: DoEvents: Loop
  39.             Set sh = ActiveSheet                                                '«ü©w¤u§@ªí: ¼g¤J¸ê®Æ
  40.             ActiveSheet.UsedRange.Offset(1).Clear
  41.             For i = 1 To .getelementsbytagname("table")(0).Rows.Length - 1      '¼g¤J¸ê®Æ
  42.                 k = k + 1
  43.                 For j = 0 To 13
  44.                     sh.Cells(k, j + 1) = .getelementsbytagname("table")(0).Rows(i).Cells(j).innertext
  45.                     If i = .getelementsbytagname("table")(0).Rows.Length - 1 Then Exit For   '³Ì«á¤@¦CÅã¥Ü¸ê®Æ¼Æ
  46.                 Next
  47.             Next
  48.             sh.Columns.AutoFit
  49.         End With
  50.                .Quit
  51.     End With
  52.     Set ie = Nothing        
  53. End Sub
½Æ»s¥N½X
***********
©Î¥i°Ñ¦Ò³o°µªk
***********

TOP

·PÁ¤j¤j­Ì¤À¨É

TOP

¦^´_ 8# GBKEE


    ¦Ç¦â«ö¶sµn¤J°ÝÃD.rar (14.76 KB)

·s°ÝÃD ³oºô­¶ ¥L¤@©w­n°»´ú¨ìÁä½L¥´¦r¤~¦³¿ìªk¶}¿O¸¹  ¦p¦ó¸Ñ¨M...  ¤@¼Ë´ú¨ì±b¸¹±K½X¿ù»~§Y¥i!! ·PÁ¤j¤j!
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

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