- ©«¤l
- 66
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 99
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-12
- ³Ì«áµn¿ý
- 2023-10-26
|
¥»©«³Ì«á¥Ñ reangame ©ó 2017-6-17 00:08 ½s¿è
¥ÑcheckID³oÓ¦WºÙ²q´ú¡A³oÓ¥N½X¶È¶ÈÀË´ú¤F¿é¤JªºID¬O§_¥¿½T¡A²q´ú¼Ó¥D·Qnªº®ÄªG¬O¦Û°Ê´£¥æªí³æ¡H¦pªG¬O¡A ...
Joforn µoªí©ó 2017-6-11 17:48 
¨ä¹ê§Ú¥u¬On°µ¤@ӫܲ³æªºµn¤J°Ê§@¦Ó¤w¡A¤§«e¨S°ÝÃD¡A¥i¬O³Ìªñ§ïª©«á´NµLªkµn¤J¤F¡A
µ{¦¡½X¼gªk¸ò¤U±ªº¤@¼Ë¡G- 1: Sub login()
- 2: Dim loginID As String
- 3: Dim loginPW As String
- 4: loginID = "myid"
- 5: loginPW = "mypw"
- 6:
- 7: Dim ie As InternetExplorer
- 8: Dim doc As HTMLDocument
- 9: Dim element As IHTMLElementCollection
- 10: Set ie = CreateObject("InternetExplorer.Application")
- 11: ie.navigate ("http://www.saveonbook.com/post/post.jsp?active=0")
- 12: ie.Visible = True
- 13: Do Until ie.readyState = READYSTATE_COMPLETE
- 14: DoEvents
- 15: Loop
- 16: Set doc = ie.document
- 17: Set element = doc.getElementsByName("LoginPA")
- 18: element.Item(0).Value = loginID
- 19: Set element = doc.getElementsByName("PasswordPA")
- 20: element.Item(0).Value = loginPW
- 21: Set element = doc.getElementsByName("img23")
- 22: element.Item(0).Click
- 23: End Sub
½Æ»s¥N½X ¿ù»~ÂI´N¬O¦bµ{¦¡½XÂIÀ»µn¤Jªº¦a¤è²Ä22¦æ¡A¦]¬°§ä¤£¨ì«öÁäID¤F¡A¬d¬Ý«öÁäºô¶ì©l½X¤~µo²{Åܦ¨javascript checkID()
½Ð°Ý¦³¬Æ»ò¸Ñ¨M¤è¦¡¶Ü? |
|