ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ³z¹L Sendkeys »yªk¶}±Ò¦³±b¸¹±K½Xªººô­¶°ÝÃD

[µo°Ý] ³z¹L Sendkeys »yªk¶}±Ò¦³±b¸¹±K½Xªººô­¶°ÝÃD

½Ð±Ð¥ý¶i¡G
    Sendkeys ¥\¯à¥i¥H¼ÒÀÀ Áä½L¿é¤Jªº°Ê§@¡A±N¸ê°T¿é¤J....
    ¦ý¬O­n¥Î¦b ¶}±Ò¦³ ±b¸¹±K½X ªººô­¶¡A¸g±`¸I¨ì§xÃø¡A¥H¤U´£¥X2ÂI§xÃøÂI¡A
    ¬Ý¬Ý¦³µL ¥ý¶i¥i¥H«üÂI°g¬z....
    1. ¤£¦Pªººô­¶ ±b¸¹±K½X ©Ò¨Ï¥Îªº¥N¸¹³£¤£¤@¼Ë¡A¸g±`¤£±o¨äªù¦Ó¤J¡A¤£ª¾¹D¦³µL ©T©wªº¼Ò¦¡ ¥i¥H¨ú±o¸Ó¸ê°T¡A
        §_«h³£¤£ª¾¹D­n±N ±b¸¹/±K½X ªº­È Sendkeys µ¹¬Æ»ò°Ñ¼Æ......
    2. Sendkeys ªº°Ê§@®É¶¡ÂI°ÝÃD¡A¦³®É¦]¬°¶}±Òºô­¶³t«×°ÝÃD¡A·|µo¥Í¤Ó¦­ Sendkeys¡A¾É­P ±b¸¹±K½X ¦ì¸m¿ù¶Ã....
        ³o¤@ÂI¦³µL ¸û¦w¥þªº¸Ñ¨M¤è¦¡¡H
    ÁÂÁÂ

JS

³£¨S¦³¤H¦^À³¡H
§Æ±æ¦³¤H¥i¥H¤À¨É Sendkeys ¶}±Ò¦³±b¸¹±K½X ªººô­¶ªº ¨Ò¤l....
¨Ã¤À¨É³Z¬....
ÁÂÁÂ

TOP

ÁÙ¬O ³o­Ó¥\¯à ¦³¨ä¥Lªº´À¥N¤è¦¡ ©Î§ó¦nªº¤èªk¡H

TOP

½Ð±Ð¥ý¶i¡G
    1. ¤£¦Pªººô­¶ ±b¸¹±K½X ©Ò¨Ï¥Îªº¥N¸¹³£¤£¤@¼Ë¡A¸g±`¤£±o¨äªù¦Ó¤J¡A¤£ª¾¹D¦³µL ©T©wªº¼Ò¦¡ ¥i¥H¨ú±o¸Ó¸ê°T¡A
        §_«h³£¤£ª¾¹D­n±N ±b¸¹/±K½X ªº­È Sendkeys µ¹¬Æ»ò°Ñ¼Æ......
jsleee µoªí©ó 2011-9-21 22:15

³oÂIµL¸Ñ,
ºô­¶­n«ç»ò³]­p»P°Ñ¼Æ¦WºÙ­n«ç»ò©w¬OÀH¤H³ß¦nªº,
©Ò¥H¥u¦³¾E´Nºô­¶ªº¤º®e¨Ó©w¤F.

¦Ü©ó²Ä2ÂI§Ú¤£·|.

TOP

¬O³o¼Ë¶Ü?
google·j´M¬°¨Ò :

Sub test()
Dim objIE As Object
Dim url As String
Set objIE = CreateObject("InternetExplorer.Application")
url = "http://www.google.com.tw/webhp?hl=zh-TW"   'ºô§}
objIE.Visible = True
objIE.Navigate url
  
Do While objIE.Busy = True   '«Ýºô­¶¸ü¤J§¹¦¨
    DoEvents
Loop

objIE.Document.all("q").Value = "test"   '±ý¿é¤J¤å¦r¤è¶ôªº­È¡C
objIE.Document.all("btnG").Click   '½T»{Áä
End Sub

TOP

¦^´_ 4# luhpro

ÁÂÁ±z¡A¤F¸Ñ±zªº·N«ä
¨º¦³¤ñ¸û§Öªº¤è¦¡¥i¥H±oª¾ ¥Lªº±b¸¹ & ±K½X ­Ó¨Ï¥Î¬Æ»ò¥N¸¹¶Ü¡H

TOP

¦^´_ 5# gstone

ÁÂÁ±z....
«Ü±µªñ§Ú·Q­nªºªF¦è....
½Ð±Ð±zµ{¦¡½X¤¤ªº·N«ä¡G
1. ½Ð°Ý DoEvents ¬O¬Æ»ò·N«ä¡H
2. Document.all("q") ¬O¥Nªí¬Æ»ò¡H
3. Document.all("btnG") ¬O¥Nªí «ö¶s¶Ü¡H¦p¦ó±oª¾¥Lªº¥N¸¹¡H
½Ð¨ó§U©âªÅ¦^ÂСAÁÂÁ±z.....


Do While objIE.Busy = True   '«Ýºô­¶¸ü¤J§¹¦¨
     DoEvents
Loop

objIE.Document.all("q").Value = "test"   '±ý¿é¤J¤å¦r¤è¶ôªº­È¡C
objIE.Document.all("btnG").Click   '½T»{Áä

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-10-4 21:45 ½s¿è
¦^´_  luhpro
ÁÂÁ±z¡A¤F¸Ñ±zªº·N«ä
¨º¦³¤ñ¸û§Öªº¤è¦¡¥i¥H±oª¾ ¥Lªº±b¸¹ & ±K½X ­Ó¨Ï¥Î¬Æ»ò¥N¸¹¶Ü¡H
jsleee µoªí©ó 2011-10-4 21:30

¦pªG§AªºÂsÄý¾¹¬O IE ªº¸Ü,
¥i¥HÂI¿ï¥\¯àªí(­Y¬Ý¤£¨ì½Ð«ö¤@¤U Alt Áä) ªºÀ˵ø-> ­ì©l½X,
·íµM, Áٻݭn¤@ÂIÂIªººô­¶»y¨¥¸Ñ´·. (¨Ò¦p¤W­±ºô­¶ªº btnG ´N¥i¥H§ä¨ì)

TOP

¦^´_ 8# luhpro


ÁÂÁ±z¡A§Ú¦A¹Á¸Õ¬Ý¬Ý

TOP

¬O³o¼Ë¶Ü?
google·j´M¬°¨Ò :

Sub test()
Dim objIE As Object
Dim url As String
Set objIE = Creat ...
gstone µoªí©ó 2011-10-4 02:25


¦³¤@ÂI°ÝÃD,
§Ú²{¦b¬Ý¨ì¨ä¤¤¤@­Óºô¯¸ªº­ì½X¦p¤U:
  1.   <INPUT TYPE="submit" VALUE="Login">
  2.   <INPUT TYPE="button" NAME="p_request" VALUE="Cancel"
½Æ»s¥N½X
Cancel ¬O¦³ name ªº, ³o­Ó§Ú¥i¥H¨Ï¥Î.
¦ý Login ¨S¦³ name, §ÚÀ³¦p¦ó¼g?

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD