vba±±¨îºô¶ browser¸I¤Walert°±¦í¤F
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# singo1232001
´£¨Ñ¥t¤@ºØ¶¹L alert µøµ¡ªº¤èªk
Sub test()
Dim x
Dim oie As Object: Set oie = CreateObject("internetexplorer.application")
With oie
.Visible = True
.Navigate "https://login.104.com.tw/login.cfm"
Do While .readystate <> 4 Or .busy: DoEvents: Loop
.Document.getelementByid("id_name").Value = "aaa"
For Each x In .Document.getElementsByTagName("input")
If x.Type = "submit" And x.Value = "·|ûµn¤J" Then
With .Document.parentWindow
.execScript "window.nativeAlert = window.alert" 'Àx¦sì©lªºalert
.execScript "window.alert = function() {}" 'Âмgalert function
x.Click
.execScript "window.alert = window.nativeAlert" 'ÁÙìì©lªºalert
End With
Exit For
End If
Next
Do While .readystate <> 4 Or .busy: DoEvents: Loop
.Quit
End With
End Sub |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 7# PKKO
·Q½Ð±Ð¤@:³oÓ»yªk¾A¥Î©ó©Ò¦³ºô¯¸ªº³æ¤@½T»{µøµ¡¶Ü?
¥¼¥²¡A¬Ýºô¯¸¬O¥ÎþºØ¤èªk¼u¥Xµøµ¡¡A·íµM§A¤]¥i¯à¬Ý¤£¥X¨Ó¥L¬O¥ÎþºØ¤èªk
¥Dn¬O alert µøµ¡·|ªý¾×§Aªºµ{¦¡¤U¤@¨B°õ¦æ¡A¤SÆZ±`¨£ªº¡A
³oÃä¥u¬O²q´ú¥¦¥Î alert ¤èªk¼u¥Xµøµ¡¡AµM«á
¹ï§A¦Û¤v«Øªº ie ¤¸¥ó¡A¼È®É©Ê¦a»\¹L쥻ªºalert°Ê§@¦Ó¤w
·Q½Ð°¤G:Y¬O¦³¬O©Î§_ªºµøµ¡©O?¥H¤Î¿ï¾ÜÀɮתºµøµ¡©O?¦³¿ìªk³B²z¶Ü
¦³¬O©Î§_ªºµøµ¡ ±À´ú¬O¥Î confirm ¨Ó²£¥Íªº
http://www.w3schools.com/js/js_popup.asp
¥i¥H¥ÎÃþ¦ü¤èªkªw»s¡A¦ýn¦^¶Ç true ©Î false
¿ï¾ÜÀɮתºµøµ¡¡A³q±`¬On¤W¶ÇÀɮקa
³o§Ú¤£¼ô¡Aºô¶Â^¨ú«Ü¤Ö°µ¨ì¤W¶ÇÀɮתº |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|