¸ß°Ý .WebBrowser1ªº´XÓ°ÝÃD
- ©«¤l
- 109
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7 Win10
- ³nÅ骩¥»
- Office 2019 WPS
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ²`¦`
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2024-4-9
|
³t«×¤Ó§Ö¡AWebBrowser¨S¤ÏÀ³¹L¨Ó¡C
WebBrowser¬O²§¨Bªº¥[¸üªº¡A³Ì¦n¬O¦b¨C¤@Ó©R¥O¤§¦Zµ¥«ÝWebBrowser§¹¥þ¥[¸ü§¹¦¨¦AÄ~Äò¤U¤@Ó©R¥O¡C |
|
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥hþ¡H
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7 Win10
- ³nÅ骩¥»
- Office 2019 WPS
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ²`¦`
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2024-4-9
|
¦^´_ 3# mark15jill
§Aªº¥N½X¤¤¦³¤@¥y¡G²Ä¤@¦¸°õ¦æ¦Zµ{¦¡±N¶i¤J¥Ã¤[¦º´`Àô¡A«Øij¥h±¼¡C |
|
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥hþ¡H
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7 Win10
- ³nÅ骩¥»
- Office 2019 WPS
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ²`¦`
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2024-4-9
|
¥»©«³Ì«á¥Ñ Joforn ©ó 2020-11-27 11:47 ½s¿è
¦^´_ 5# mark15jill
«Ü¤[³£¤£¥ÎWebBrowser±±¥ó¤F¡C¥u¯à¸ò§A¤jP»¡¤U³B²z¬yµ{¡C
¦bµo°e©R¥O¦Z¡A¤@¯ë¥Î- IsBusy=True '³oÓ¬O¥þ§½Åܶq¡A¥ÑWebBrowserªº¥[¸ü§¹¦¨¨Æ¥ó¥h±N¨äȧïÅÜ¡C
- Times=0
- Do While IsBusy And (Times<100) 'ÀË´úTimes¬O§_¤p¤_100¡A¤j¤_100§PÂ_¬°µ{§Ç¥X°ÝÃD¤F¡A¥[¸ü®É¶¡¹Lªø¡A±j¦æ¤¤¤îµ{¦¡¹B¦æ¡C100¦¸´`Àô»P¦Z±ªºSleep 200²Õ¦X¡Aªí¥Ü³Ìªøµ¥«Ý20¬í(Sleep°Ñ¼Æ¥H²@¬í¬°³æ¦ì)¡C
- Sleep 200 '³oÓ¬OAPI¨ç¼Æ¡A¨Ï¥Î«en¥ýÁn©ú¡C¥[¤J³o±ø»y¥y¬O¬°¤FÄÀ©ñCPU±±¨îÅv¡A¨S¦³³o±ø¡AVBAªºCPU¨Ï¥Î²v¤@ª½¥e99%
- DoEvents 'ÄÀ©ñµ{§Ç±±¨îÅv¡A¨¾¤îWebBrower¥X°ÝÃD¦ZµLªk°h¥X¡A¤]¬O¬°¤FÅýWebBrower¦³¬ÛÀ³ªºCPU¹B¦æÅv¥hÄ~Äò¥[¸ü¶±¡C
- Times=Times + 1
- Loop
½Æ»s¥N½X µM¦ZÁÙn¦A¤Þ¥ÎWebBrower±±¥óªºDocumentComplete- Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
- IsBusy = False
- End Sub
½Æ»s¥N½X ¤W±¨â²Õ¥N½X¬Ûµ²¦X¡A¨º¤\´N¥i¥H§¹¦¨¤@Óµ¥«Ý¶±¥[¸ü§¹¦¨¦Z¡Aµ{¦¡¤~Ä~Äò°õ¦æ¦ZÄò¥N½X¹Lµ{¡C
¦ý¬O¡Anª`·N¡G¦bWebBrower¥[¸ü¶±¶}©l¦Z¡A¦}¤£¤@©w¥u¿E¬¡¤@¦¸DocumentComplete¡A©Ò¥HÁÙn¦bWebBrowser1ªºDocumentComplete¨Æ¥ó³B²z¹Lµ{¤¤¶i¦æ¤@©wªº§PÂ_¨Ó¬O§_¬O¯u¥¿ªº³Ì¦Z¤@¦¸¶±¥[¸ü§¹¦¨¨Æ¥ó¡C¥i¥H¹ï¤ñURL¬O§_¬O·í«e¶±ªºURL¨Ó§PÂ_¡G- Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
- If IsBusy Then IsBusy = URL<>DocumentURL 'ª`·N¡A³o¨½ªºDocumentURL»Ýn§A¦Û¤v®Ú¾Ú§A·í«eªº¶±¥hÀò¨ú©Î¬O³]¸m¡C
- End Sub
½Æ»s¥N½X ³Ì¦Z¬O§A¥i¯à»Ýn¥Î¨ìªº¨ç¼Æ©MÅܶqÁn©ú¡G- #If VBA7 Then
- Private Declare PtrSafe Sub Sleep Lib "Kernel32.dll" (ByVal dwMilliseconds As Long)
- #Else
- Private Declare Sub Sleep Lib "Kernel32.dll" (ByVal dwMilliseconds As Long)
- #End If
- Private IsBusy As Boolean
½Æ»s¥N½X |
|
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥hþ¡H
|
|
|
|
|