ªð¦^¦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

https://docs.google.com/document/pub?id=169oRI5TV0HWm0PySIzIIl9ngqS5oKVRxcdI6MqKdoBQ

TOP

¦^´_ 12# die78325
°Ú!ºô­¶ªº³]­p.§Ú¯AÂy¤£¦h,§Aªº°ÝÃDµLªk¦A¶i¤@¨B¦a´À§A¸Ñ´b.

TOP

¦^´_ 11# GBKEE

°ÝÃD1.¦pªG¤£Åã¥Üºô¯¸´N¨S¿ìªk¦¨¥\¹ï¶Ü? ¦]¬°³o¤èªk§Ú¦³·Q¹L ¦ý §Ú·Q»¡·|¤£·|¦³§OºØ¤èªk¥i¥H¹F¦¨¤£¶}ºô­¶ªº³¡¤À
              ¼È®É¥ý³o¼Ë¨Ó¸Ñ¨M! ·PÁ¤j¤j  
°ÝÃD2.¦pªG§Ú­nµn¤J¶i¥h«á ¦A´«ºô§}¥i¥H¶Ü? ¦]¬°¶i¥h¤§«á­n¦A«ö¥t¤@­Ó«ö¶s ¦ý«ö¶s«ö¶i¥h¬O¤£¦Pºô§} ¨º§Ú´N·Q»¡¬O§_¥i¥Hª½±µÂà§} ´N§K¥h§ä«ö§á¤F
¦]¬°¥Lªº«ö¶s¤£¾Ainput
¥H¤U¬O­ì©l½X
       <body>
        <div id="container">
            <div id="header"> </div>
            <div id="navcontainer">
                <ul>
                    <li><a href="corpdata.jsp">¹G¹G</a></li>
                    <li><a href="carsdata.jsp">¹G¹G¹G</a></li>
                    <li><a href="refueldata.jsp">¹G¹G¹G¹G</a></li>
                    <li><a href="logout.jsp"> &nbsp;µn &nbsp;&nbsp;&nbsp;&nbsp; ¥X&nbsp;</a></li>
                </ul>
©ÎªÌ¤j¤j¥i¥H´£¨Ñ§Ú³o¼Ë«ç»ò¥h«öjspªº»yªk...
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 10# die78325
¨C¤@ºô­¶ªº³]­p³£¤£¤@¼Ë
  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  'IEÅã¥Ü¶}Ãö
  10.         Application.StatusBar = "¥¿¦bµn¤J¨t²Î¡A½Ðµy«á......"
  11.         .Navigate "http://car.plusgroup.com.tw:8080/corpdata_new/"
  12.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  13.         Set vDoc = .document.getelementsbytagname("INPUT")
  14.         For i = 0 To vDoc.Length - 1
  15.             If vDoc(i).Name = "rcptid" Then
  16.                 vDoc(i).Value = "88888888"      '²Î½s¿é¤J
  17.                 Application.SendKeys ("~")      '«ö¤UEnter ²¾¨ì±K½X®Ø
  18.             ElseIf vDoc(i).Name = "password" Then
  19.                 vDoc(i).Value = "66666666"      '±K½X¿é¤J
  20.                 Application.SendKeys ("~")
  21.                 '²Î½s,±K½X ³£¦³¿é¤J,«ö¤UEnter«á,¦¹ºô­¶¦Û°ÊÀˬd²Î½s,±K½X¬O§_¥¿½T
  22.                 '¤£¥Î«ö[µn ¤J]Áä
  23.             End If
  24.         Next
  25.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  26.     End With
  27.     Application.StatusBar = False
  28. End Sub
½Æ»s¥N½X

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

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

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

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

¥»©«³Ì«á¥Ñ 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

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD