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

[µo°Ý] °õ¦æ¶¥¬q¿ù»~ '438': ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk

[µo°Ý] °õ¦æ¶¥¬q¿ù»~ '438': ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-18 13:54 ½s¿è

µn¤J¥Î.rar (21.05 KB)
  1. Private Sub CommandButton3_Click()
  2. '±b±KÅçÃÒ
  3.     With CreateObject("InternetExplorer.Application")
  4.         .Navigate "https://cas.tycg.gov.tw/casserver/login?service=http%3A%2F%2Fe.tycg.gov.tw%2Fapp%2Fportal%2Flogin"
  5.    
  6.         Do While .Busy Or .ReadyState <> 4
  7.             DoEvents
  8.         Loop
  9.         
  10.         '±b¸¹Äæ¦ì
  11.         .Document.all("username").innerText = "A"
  12.         '±K½XÄæ¦ì
  13.         .Document.all("password").innerText = "B"
  14.         .Document.all("usernamebutton").Click
  15.         .Visible = True
  16.         '.Navigate "http://odis.tycg.gov.tw/HOME/Home_Splitter.aspx"
  17.     End With
  18. End Sub
½Æ»s¥N½X
±b¸¹¦¨¥\¦Û°Ê¥á¤W¥h¡A¨ì¤F±K½X´N¥d¦í¤F¡AÀµ½Ð¤j¤j­ÌÀ°¦£¡AÁÂÁÂ
§Ú·|Ä~Äò¦bºô¸ô¤W´M§ä¸Ñµª¡I

¦^´_ 2# GBKEE

­ì©lÀÉ.rar (2.73 KB)

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-18 21:42 ½s¿è

¦^´_ 4# GBKEE


½Ð°Ý
±b¸¹¬O¶ñ¦b  ±bAAA¸¹
±K½X¬O¶ñ¦b  TEST ¤W  ³o¼Ë?
¬O¤£¬O¦]¬°¥L¬O¥ÎASP¼gªº~©Ò¥H·|¤ñ¸û½ÆÂø?
¦A¦¸·PÁª©¥D¥Î¤ß¨}­WªºÀ°§U.

Sub Ie_document()
Sub Ie()
¬O¿ï¾Ü¤@­Ó§Y¥i?

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-19 10:56 ½s¿è

¦^´_ 6# GBKEE


    «D±`·PÁªO¤j¸Ñ¶}ÃøÃD~§Úµy°µ­×§ï¤F¤@¤U~ÁÙ¬O·Pı¤£¬O«Ü³q¶¶~¦]¬°½Æ»s¶K¤WªºÃö«Y¥X²{¤F¨â­ÓWith~
  1. Private Sub CommandButton1_Click()
  2. '±b±KÅçÃÒ
  3.     With CreateObject("InternetExplorer.Application")
  4.         .Navigate "https://cas.tycg.gov.tw/casserver/login?service=http%3A%2F%2Fe.tycg.gov.tw%2Fapp%2Fportal%2Flogin"
  5.    
  6.         Do While .Busy Or .ReadyState <> 4
  7.             DoEvents
  8.         Loop
  9.         
  10.         .Visible = True
  11.         '±b¸¹Äæ¦ì
  12.         .Document.all("username").innerText = "***"
  13.         '±K½XÄæ¦ì
  14.         '.Document.all("password").innerText = "***"
  15.     With .Document.getElementsByTagName("input")
  16.         For i = 0 To .Length - 1
  17.             If .Item(i).ID = "password" And .Item(i).Name = "password" Then
  18.                              '¤j¤p¼g¦³¤À§O
  19.                .Item(i).Value = "***"
  20.             End If
  21.         Next
  22.     End With
  23.         .Document.all("usernamebutton").Click
  24.     End With
  25. End Sub
½Æ»s¥N½X
·s´£°Ý
¦pªG­«½Æ°õ¦æ¡A·|¥X²{
°õ¦æ¶¥¬q¿ù»~'91'
¨S¦³³]©wª«¥óÅܼƩΠWith °Ï¶ôÅܼÆ
¿ù»~¬q¸¨¦p¤U
.Document.all("username").innerText = "***"
§Ú¦b·QÀ³¸Ó¬O­«½Æµn¤J¡A¦]¦¹§ä¤£¨ì±b¸¹Äæ¦ì
©Ò¥H§Ú¨Ï¥Î¤FOn Error Resume Next¡A½Ð°Ýª©¥D¬O§_¥i¦æ

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-19 14:25 ½s¿è

¦^´_ 8# GBKEE


    ¥i¯à¬O¤w¸gµn¤J¤F~¦ý¬O¦b«ö¤@¦¸~¥L·|§ä¤£¨ì¿é¤J±b¸¹©M±K½Xªº¦a¤è¡A
¥L·|ª½±µ«e©¹±b¸¹±K½X¥¿½Tªº­¶­±¡A©Ò¥H¥L·|¥X²{§ä¤£¨ì±b¸¹Äæ¦ìªº¿ù»~¡A
¦]¦¹§Ú¨Ï¥Î©¿²¤On Error Resume Next¸Ñ¨M¥i§_¡HÁÂÁª©¥D¡I

TOP

¦^´_ 8# GBKEE


    ½Ð°Ýª©¥D¦pªG·|¸õ¥Xºô­¶°T®§¡A§Ú¸Ó¦p¦ó¦Û°ÊÃö³¬©O¡H

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-19 16:30 ½s¿è

¦^´_ 11# GBKEE


    ¨S¦³§@¥Î~

§Ú¦b·Q·|¤£·|¬O¦]¬°
Private Sub CommandButton1_Click()
ªºÃö«Y~

½Ð±Ðª©¥D~³o¬qªº·N«ä  .Document.Focus

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-20 09:11 ½s¿è

¦^´_ 13# GBKEE

%
    ÁÂÁª©¥D¦Ê¦£¤§¤¤©âªÅªº¸Ô²Óªºjsp¸Ñµª¡A§¹¦¨¤F90%¡A§Ú·|§V¤Oªº¡I

³Ìªñµo²{¤@­ÓºÃ°Ý
¶i¤J«á¡AÅý¥L¦Û°Ê¾É¤J¤@­Ó¶W³sµ²¡A¦ý¬O¥Lªº¶W³sµ²¤£¬Oºô§}
«o¬O javascript:;

ªþ¤W­ì©lÀÉ
jspºô­¶.rar (600 Bytes)

TOP

¦^´_ 13# GBKEE


    §Ú·QÀ³¸Ó©Mch4 ¨Æ¥ó³B²z¾¹¦³Ãö~§V¤O¾Ç²ß¤¤¡I

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2014-8-20 11:40 ½s¿è

¦^´_ 13# GBKEE


    §ä¨ì¤F~±b¸¹±K½X¬O±q³o¸Ìµn¤J
¥i¬O±b¸¹±K½X©M½T©w«ö¶sªº¦WºÙ¦³ÂI©Ç©Çªº
ªþ¤W­ì©lÀÉ
jspºô­¶2.rar (2.34 KB)

±b¸¹±K½X³£¥á¤£¤W¥h¡A½T»{«ö¶s§ä¤£¨ìname
--------------------
±b¸¹¦n¹³¬OuserNameTD
±K½X¦n¹³¬OpasswordTD
¦ý¬O§ä¤£¨ì½T©w«ö¶s

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD