die78325

http://www.slc.com.tw/custom/gas/custom/index.php
¤j¤j ¨º³o­Óºô¯¸À°§Ú¸Õ¸Õ¬Ý ¥u­n¯à«ö¤U¥hÅã¥Ü±b¸¹±K½X¿ù»~´N¹ï¤F @@"
¦]¬°§Ú²{¦b¬O³s«ö³£«ö¤£¤U¥h!@@
¤Þ¥Î³Â»¶®a±Ú¨Ó­×¥¿

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://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.         Next
    
17.         Set vDoc = .Document.getElementsByTagName("button") '.Click
    
18.         For i = 0 To vDoc.Length - 1
    
19.             If vDoc(i).Name = "c_psd" Then vDoc(i).Click
    
20.         Next
    
21.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
22.     End With
    
23. End Sub

½Æ»s¥N½X

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

die78325

¦^´_ 2# GBKEE


    ¤j¤j  §Ú¤W­±¥´¿ù  §Ú¥Îªº¸ò§A¥Îªº¤@¼Ë= ="!!   ¦ý¬O·|¿ù»~ !     "c_psd()"      ¤£ª¾¬°¦ó¥L·|¦³()
   ¨ÌµM°±¯d¦bµn¤J­¶­±«o¨S«ö½T©w¶i¥h@@" ©Ç©Çªº= ="¤â°Ê«ö´NOK
   ÁÙ¬O¦]¬°§Ú¬O¥ÎUserForm1.WebBrowser1¨Ó¶}±Òºô­¶ªºÃö«Y= =?   
  §Ú¤ñ¸û§Æ±æ¥i¥H¥ÎIE¨Ó¾Þ§@ ¦ý §ï¦¨IEªº¸Ü ¦³¨Ç»yªk§Ú¤£·|§ï Åܦ¨¥L¤£·|¥h°»´úÄæ¦ì
    Dim IE As New InternetExplorer
    sURL = "XXX"
    Set IE = CreateObject("InternetExplorer.Application")
   Set vDoc = IE.Document   ((§Ú·|§ï¦¨IE¶}±Ò  ¦ý¨ì³o¤@¨B´N±¾¤F   ­ì¥»¥Î  Set vDoc = myWeb.Document  ¥i¥H))   <¬õ¦â¬°¿ù»~>

§Ú¥t¤@­Óºô¯¸   ¥´¤J±b¸¹±K½X µn¤JÁ䳡·|«G((·|¦Ç¦â«ö¶s))
¦ý¬O¥ÎÁä½LÀH«K¿é¤J¤@­Ó­^¤å ´N·|«G¤F ©Ò¥H¥L»Ý­n°»´úÁä½L¿é¤J¤~¥i¥H  ¨º«ç»ò¸Ñ¨M??  

¤j¤j ¤£¬O§Ú¤£POÀÉ®×µ¹§A´ú¸Õ ¬O¦]¬°³o¬O§ñÃö¤½¥q°t¦Xªº±b¸¹±K½X  ¤£¤è«K¦b¦¹PO»yªk©ÎÀÉ®×

GBKEE

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