[µo°Ý] ½Ð±Ð¦p¦ó¦Û°Êµn¿ý

chiangtien.lin

¥Ø¼Ð¬O¤@Áä¦Û°Êµn¤J¤½¥q¤ººô§ì¨ú¦U¶µ¸ê®Æ¡C§Ú¥ý±q¥»½×¾ÂµÛ¤â¡A¦A³Â·Ð¦U¦ì¤j¤j¨ó§UÀ°¬Ý¤@¤U§Úªºµ{¦¡½X¦³¦ó¿ù»~¡C                                                                                      Sub login()



With CreateObject("InternetExplorer.Application")

.Visible = True
.Navigate "http://forum.twbts.com/logging.php?action=login"


Do While .Busy Or .ReadyState <> 4: DoEvents: Loop


With .document
.all("username") = "*****"
.all("password") = "*****"

.all("loginsubmit").Click

End With
End With

End Sub