GBKEE

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

GBKEE

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

GBKEE

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

GBKEE

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

GBKEE

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

GBKEE

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