[µo°Ý] ¶}±Òhtmlºô­¶©Maspºô­¶ªº¶}±Ò¤è¦¡¬O§_¬Û¦P?

av8d

ie = CreateObject("InternetExplorer.Application")
                ie.Visible = True
                ie.Navigate "https://abc.asp"
¶}±Òhtmlªº®É­Ô¨S°ÝÃD¡A¶}©laspªº®É­Ô¡Aºô­¶¥X¤£¨Ó¡A¥Ø«e¥¿¦b¤Wºô«ùÄò´M§ä¤¤¡C

av8d

¦^´_ 2# GBKEE

htmlºô­¶¦Û°Ê¿é¤J¤F±b¸¹±K½X
ie.document.all("username").innerText = "abc123"
ie.document.all("password").innerText = "123123"
ie.Document.all("submit").Click
htmlºô­¶¤º¦³asp¶W³sµ²ÂI¤J«á¡A·|ÅçÃÒ±b¸¹±K½X(±b¸¹±K½X©M¤W­z¬Û¦P)¡A
¦ý¬O¦n¹³¼gªk©M¤W­z¤£¦P¡A§ì¨úTextªº­È¤À§O¬O±b¸¹SID¡B±K½XAPID¡B«ö¤U½T»{¶s¤£½T©w¡A¦n¹³¬Ologin¡C
¥Ñ©óºô­¶¬°¤½¥q¤º³¡ºô¯¸¡A¥~³¡µLªk³sµ²¡A§Ú¦^¨ì®a·Q´ú¸Õ³£¨S¿ìªk¡C

av8d

¦^´_ 4# ginbow


     ¬Oªº¡A¥i¬Oaspªº¦n¹³´M§ä¤èªk´N¤£¦P¤F¡A³s«öF12³£µLªk§¹¥þ½T©w³o­ÓTextbox©M«ö¶s¬O³o­Ó¡A¥L³sÅã¥Ü³£¨S¦³Åã¥Ü¡C

av8d

¦]¬°¬O¤º³¡ºô¯¸©Ò¥H¤£ª¾¹D±zµn¤£µn±o¶i¥h
            With CreateObject("InternetExplorer.Application")
                .Navigate "http://vitals.tycg.gov.tw/SC21/TOP1.asp"
                .getElementsByName("strSID")(0).Value = "aaa"               
                . getElementsByName("strAPID")(0).Value = "bbb"
                .forms("date_form").submit
                '.Document.all("submit2").Click
                .Visible = True
            End With
·|¥X²{"ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk"
-----------------------------------------------
§Ú¬d¤F¤@¤Uºô¯¸¡A¥L­Ì³£¦³¥[¤J³o¤T¦æ               
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop

av8d

§Úµo²{¦³¨Ç¬Oinput name
¦³¨Ç¬Otextarea name
§Ú¥uª¾¹Die.document.all("username").innerText = "aaa" ¹ïÀ³ªº¬Oinput name
textarea name´N¤£±o¦Óª¾¤F¡A§Ú«ùÄòºô¸ô¤W¬d¸ß¤¤¡C