Ãö©óCreateObject("InternetExplorer.Application")ªº¨Ï¥Î

av8d

·í§Ú©ñ¦bUserForm1¤º°õ¦æ®É¡A·|°õ¦æ«D±`¤[³£¨S¤ÏÀ³¡C

1. Private Sub CommandButton1_Click()
   
2. '±b±KÅçÃÒ
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Navigate "https://tw.yahoo.com"
   
5.    
   
6.         Do While .Busy Or .ReadyState <> 4
   
7.             DoEvents
   
8.         Loop
   
9.         .Document.all("username").innerText = "A"
   
10.         .Document.all("password").innerText = "B"
    
11.         .Document.all("submit2").Click
    
12.         .Visible = True
    
13.     End With
    
14.                
    
15.     With CreateObject("InternetExplorer.Application")
    
16.         .Navigate "https://tw.yahoo.com"
    
17.    
    
18.         Do While .Busy Or .ReadyState <> 4
    
19.             DoEvents
    
20.         Loop
    
21.         .Document.all("username").innerText = "A"
    
22.         .Document.all("password").innerText = "B"
    
23.         .Visible = True
    
24.     End With
    
25. End Sub

½Æ»s¥N½X

av8d

¦^´_ 1# av8d


    °ÝÃD¤w¸Ñ¨M~­«¶}¾÷§Y¥i= =