- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
[µo°Ý] vba¤¤¤Þ¥Îie®Éªº ¼u¸õµøµ¡¦p¦óÃö³¬©O¡H
¥»©«³Ì«á¥Ñ joey0415 ©ó 2013-8-14 13:23 ½s¿è
¶°«Oºô¶
http://www.tdcc.com.tw/smWeb/QryStock.jsp
¥H«e¤U¸ü¶°«Oºô¶®É¡A¦pªG¦³¥X²{¼u¥Xµøµ¡®É¡A¥un¼g¤U¦C»y¥y´N¥i¥HÃö³¬µøµ¡- Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
- '¨ú±o³Ìªñ¤@Ó¼u¸õµøµ¡ªº¥N½X
- Public Declare Function GetLastActivePopup Lib "user32" (ByVal hwndOwnder As Long) As Long
- 'Åýµøµ¡°±¯d
-
- While ie.readystate <> 4 Or ie.busy
- ' ¦pªG¥X²{¼u¸õµøµ¡®É½Ð½T»{¬O§_©Mieªº¬Û¦P¡A¦pªG¤£¦P®É½ÐÃö±¼¥¦
- alerthwnd = GetLastActivePopup(ie.hwnd)
- If alerthwnd <> ie.hwnd Then
- ' ½Õ¥Î¤W±ªº¤½¥Î³]©w
- PostMessage alerthwnd, 16, 1, 0
- End If
- Wend
½Æ»s¥N½X Å¥°ª¤â»¡¡A¥H¥Î¦bxp¤¤¥i¥H¥Î¤W±ªº»y¥y¡AÀ³¸Ó¨S¿ù¡A¥i¬O²{¦b¬Owin7´N¤£¦æ¤F¡A¤£ª¾¹D¦³°ª¤â¡AÁÙ¦³¨ä¥¦¼gªk¡A¥i¥H±N§ä¤£¨ì¸ê®Æªº¼u¥Xµøµ¡Ãö³¬©O¡H¤~¯àÅýµ{¦¡©¹¤U°õ¦æ©O¡H
ªþ¤W¥X²{°ÝÃDªºµøµ¡¹Ï¤ù
¥HªÑ²¼1256¬°¨Ò¡A¿ï¾Ü¤ë¥÷¬°20120801
|
|