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

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

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

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

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD