- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# chiangtien.lin
¸Õ¸Õ¬Ý- Sub Ex_¥Î¤áµn¿ý()
- Dim i As Integer, vDoc As Object
- With CreateObject("InternetExplorer.Application")
- .Visible = True
- .Navigate "http://forum.twbts.com/logging.php?action=login"
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- Set vDoc = .Document.getElementsByTAGName("INPUT")
- For i = 0 To vDoc.Length - 1
- If vDoc(i).Name = "username" Then vDoc(i).Value = "¥Î¤á¦WºÙ" '**¥Î¤á¦WºÙ
- If vDoc(i).Name = "password" Then vDoc(i).Value = "'¥Î¤á±K½X" '**¥Î¤á±K½X
- Next
- Set vDoc = .Document.getElementsByTAGName("input") '.Click
- For i = 0 To vDoc.Length - 1
- If vDoc(i).Type = "checkbox" Then vDoc(i).Click
- Next
- Set vDoc = .Document.getElementsByTAGName("button") '.Click
- For i = 0 To vDoc.Length - 1
- If vDoc(i).Name = "loginsubmit" Then vDoc(i).Click
- Next
- Do
- DoEvents
- Loop Until InStr(.Document.body.innertext, "¥Î¤á¦WºÙ")
- ' .Quit
- End With
- End Sub
½Æ»s¥N½X |
|