GBKEE

¦^´_ 1# av8d

1. With .Document
   
2.             Set A = .getElementsByTagName("input")
   
3.             '<input name="account" id="account" type="text" size="18"/>
   
4.             'name="account" <=³q±`³£·|¤@¼Ë=> id="account"
   
5.             A("account").Value = "AAA"
   
6.             '<input name="passwd" id="passwd" onkeypress="dologin(event)" type="password"/>
   
7.             'name="passwd" <=³q±`³£·|¤@¼Ë=> id="passwd"
   
8.             A("passwd").Value = "AAA"
   
9.             '<input onclick="checkInput('submit');" type="button" value="µn¤J"/>
   
10.             '¨S¦³ name ,¤]¨S¦³id ¦ý¦³type="button",value="µn¤J"
    
11.             Debug.Print A.Length - 1
    
12.             For i = 0 To A.Length - 1
    
13.                Debug.Print A(i).Type, A(i).Value
    
14.                 If A(i).Type = "button" And A(i).Value = "µn¤J" Then
    
15.                     A(i).Click
    
16.                     Exit For
    
17.                 End If
    
18.             Next            
    
19.         End With

½Æ»s¥N½X

GBKEE

¦^´_ 3# av8d
http://forum.twbts.com/thread-12601-1-1.html

GBKEE

¦^´_ 5# av8d

1. Option Explicit
   
2. Sub Ex_ºô­¶¤¸¯À()
   
3.     Dim i As Integer, E As Object
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True
   
6.         .Navigate "HTTp://www.otc.org.tw/web/stock/aftertrading/peratio_analysis/pera.php"
   
7.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
8.          
   
9.         With .Document
   
10.           '*** ³o¬qµ{¦¡½X¥i¬d¬Ý³oºô­¶ªº¤¸¯À¤º®e
    
11.           '  On Error Resume Next
    
12.           '  For Each E In .all
    
13.           '      i = i + 1
    
14.           '      Cells(i, "a") = E.tagname
    
15.           '      Cells(i, "b") = E.ID
    
16.           '      Cells(i, "c") = E.Name
    
17.           '      Cells(i, "d") = E.Value
    
18.           '      Cells(i, "e") = E.innertext
    
19.           '      Cells(i, "f") = E.Type
    
20.           '      Cells(i, "g") = E.href
    
21.           '  Next
    
22.           '****************************************
    
23.             '*** ¥þ¯¸·j´M
    
24.             .all("rdo_search_site").Click    '¥þ¯¸·j´M¿ï¶µ.Click,«á¬Û¹ïÀ³ªºtext®Ø·|Åã¥Ü
    
25.             .all("input_search_site").Value = "3126"
    
26.             Stop
    
27.             '*** ­ÓªÑ¬d¸ß
    
28.             .all("rdo_search_stk").Click
    
29.             .all("input_search_stk").Value = "1256"
    
30.             
    
31.             '«ö¤U ·j´MÁä
    
32.             .all("header_search_btn").Click
    
33.         End With
    
34.     '    .Quit        'Ãö³¬ºô­¶
    
35.     End With
    
36. End Sub

½Æ»s¥N½X