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

¦^´_ 1# av8d
ºô­¶¦b®ç¶é¿¤¬F©²¥Á¬F§½¤º³¡¶Ü?µLªk³s¤W½u,
§A¥i¬d¬Ý³oµn¤Jºô­¶ªº­ì©l½X,¥i°Ñ¦Ò³o¸Ì
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

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

TOP

¦^´_ 3# av8d
  1. Option Explicit
  2. Dim FormDLL As String
  3. Sub Ie_document()
  4.     Dim URL As String, Ie As Object, A As Object, i
  5.    ' URL = "D:\­ì©lÀÉ.htm"
  6.     URL = "https://cas.tycg.gov.tw/casserver/login?service=http%3A%2F%2Fe.tycg.gov.tw%2Fapp%2Fportal%2Flogin"
  7.     Set Ie = CreateObject("InternetExplorer.Application")
  8.     With Ie
  9.         .Navigate URL
  10.         .Visible = True
  11.         Do While .Busy Or .readyState <> 4:         Loop
  12.         Stop   'ºô­¶¤W¿é¤J ±b¸¹,±K½X «áÄ~Äòµ{¦¡
  13.         On Error Resume Next
  14.         Set A = .document.ALL
  15.         For i = 0 To A.Length - 1
  16.             Cells(i + 1, "A") = A(i).TAGNAME
  17.             Cells(i + 1, "B") = A(i).ID
  18.             Cells(i + 1, "C") = A(i).Name
  19.             Cells(i + 1, "D") = A(i).Value
  20.             Cells(i + 1, "E") = A(i).INNERTEXT
  21.             Cells(i + 1, "F") = A(i).Type
  22.         Next
  23.         '¨ì¤u§@ªí¤W¬Ý [±b¸¹,±K½X]¦b­þ¤@­Ó¤¸¯À¤W
  24.     End With
  25. End Sub
  26. Sub Ie()
  27.     Dim URL As String, Ie As Object, i
  28.     'URL = "D:\­ì©lÀÉ.htm"
  29.     URL = "https://cas.tycg.gov.tw/casserver/login?service=http%3A%2F%2Fe.tycg.gov.tw%2Fapp%2Fportal%2Flogin"
  30.    
  31.     Set Ie = CreateObject("InternetExplorer.Application")
  32.     With Ie
  33.         .Navigate URL
  34.         .Visible = True
  35.         Do While .Busy Or .readyState <> 4:         Loop
  36.         With .document.getElementsByTagName("input")
  37.             .Item("pincode").Value = "pincode"
  38.             .Item("pinpassword").Value = "pinpassword"
  39.             
  40.             '****************
  41.             .Item("username").Value = "±bAAA¸¹"
  42.             For i = 0 To .Length - 1
  43.                 If .Item(i).ID = "password" And .Item(i).Name = "password" Then
  44.                                  '¤j¤p¼g¦³¤À§O
  45.                    .Item(i).Value = "TEST"
  46.                 End If
  47.             Next
  48.             '********************
  49.             .Item("pinbutton").Click  '³o¸Ì§ÚµLªk´ú¸Õ
  50.         End With
  51.     End With
  52.    
  53. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-19 08:12 ½s¿è

¦^´_ 5# av8d
±b¸¹¬O¶ñ¦b  ±bAAA¸¹
±K½X¬O¶ñ¦b  TEST ¤W  ³o¼Ë?
¬O¤£¬O¦]¬°¥L¬O¥ÎASP¼gªº~©Ò¥H·|¤ñ¸û½ÆÂø?
Sub Ie_document()
Sub Ie()
¬O¿ï¾Ü¤@­Ó§Y¥i?

¬O±b¸¹¶ñ¤W   "±bAAA¸¹"
¬O±K½X¶ñ¤W   'TEST"
¬O¤£¬O¦]¬°¥L¬O¥ÎASP¼gªº~©Ò¥H·|¤ñ¸û½ÆÂø? ,À³¸Ó¤£¬O
Sub Ie_document() µ{¦¡Åý§A©ú¾éºô­¶¤W­n¿é¤J¤¸¯À,ªºTAGNAME, ID, NAME, VALUE ,INNERTEXT,¦n¹ï¸¹¤J®y
Sub Ie() °õ¦æ§A­nªº°Ê§@
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

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

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

¦^´_ 7# av8d
  1. .Document.all("username").innerText = "***"
½Æ»s¥N½X
³o»yªk¬O¿ù»~ªºÀ³¦p¤U
  1. .Document.all("username").VALUE ="***"
½Æ»s¥N½X
¥²¶·¬O¤wµn¥X,¤~¦³µn¤Jªººô­¶¥i¥Î,¦ó¿×­«½Æµn¤J??
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

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

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD