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

[µo°Ý] ¥N½XÀ³¸Ó¦p¦ó¼¶¼g¤~¯à©¿µø ¦]¬d¸ß¤£¨ì¦Ó²£¥Íªººô­¶°T®§©O¡H

[µo°Ý] ¥N½XÀ³¸Ó¦p¦ó¼¶¼g¤~¯à©¿µø ¦]¬d¸ß¤£¨ì¦Ó²£¥Íªººô­¶°T®§©O¡H

¦U¦ì«e½ú¤j®a¦n¡A

¥Ø«e¹J¨ìªº°ÝÃD¬O¡G¡y¦³¤°»ò¤èªk¥i¥H©¿µøºô­¶°T®§¡H¨Ò¦p¡G¦bºô­¶http://www.tdcc.com.tw/smWeb/QryStock.jsp¡A¸ê®Æ¤é´Á¬°20150529 ÃÒ¨é¥N¸¹¬°6456¡A·|¥X²{¬dµL°T®§ªºµøµ¡¡z
¦p¤U¹Ï¡G
¥¼©R¦W_°Æ¥».jpg

§Ú¦³¸Õ¹L Application.DisplayAlerts = False ¡A¤£¹L³o¥u¹ïexcel¥»¨­²£¥Í°ÝÃD¥i¥H©¿²¤¡A¹ïºô­¶²£¥Íªº°ÝÃD´N¦æ¤£³q¤F¡C
½Ð¦U¦ì«e½ú­Ì¥X¤â¬Û±Ï¡A·PÁ¡I
  1. my_url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
½Æ»s¥N½X

¦^´_ 1# justintoolbox
  1. .Document.getElementsByName("sub")(0).Click                    '«ö¤U¬d¸ßÁä
  2.         Do While .Busy Or .ReadyState <> 4                             'µ¥­Ôºô­¶¤U¸ü§¹²¦
  3.             DoEvents
  4.             Application.SendKeys "~", True                '«ö ENTER «öÁä ,¹w¨¾ "ÃÒ¨é¥N¸¹"¦³¿ù»~
  5.          Loop
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  justintoolbox
GBKEE µoªí©ó 2015-7-17 07:46


¯uªº¤Ó´Î¤F!¡I¡I
«D±`·PÁÂGBKEE¥X¤â¬Û±Ï¡I
Åý§Ú¾Ç¨ì¸Ó¦p¦ó§JªA³o¤è­±ªº°ÝÃD¡A·PÁ¡I

TOP

¦^´_ 2# GBKEE

¦³§ï¤F¡I¦ý«ö¤U¥h®É¡Avba³B·|¤@ª½¥X²{°é°é¡A¦³°ÝÃD¡A½ÐG¤jÀ°¦£
  1. Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
  2. Sub ex()

  3. Set iea = CreateObject("internetexplorer.application")
  4.         With iea
  5.             .Visible = True
  6.             .Navigate "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
  7.             Do Until .ReadyState = 4
  8.                 DoEvents
  9.             Loop
  10.             
  11.              Set x = iea.document.all.tags("option") '¬d¤U©Ô¿ï³æ
  12.                  x(6).Selected = True '¿ï¨ú¸Ó¤l¶µ¥Ø
  13.                        
  14.               iea.document.getElementsByName("StockNo")(0).Value = "6456"
  15.              iea.document.getElementsByName("sub")(0).Click                    '«ö¤U¬d¸ßÁä
  16.             
  17.              Sleep 2000
  18.             
  19.                 Do While .Busy Or .ReadyState <> 4                             'µ¥­Ôºô­¶¤U¸ü§¹²¦
  20.                     DoEvents
  21.                     Application.SendKeys "~", True                '«ö ENTER «öÁä ,¹w¨¾ "ÃÒ¨é¥N¸¹"¦³¿ù»~
  22.                     Sleep 1000
  23.                  Loop
  24.            .Quit
  25.     End With
  26.    

  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# joey0415
ie8 °õ¦æ¨S³o°ÝÃD.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

§Ú¬Owin7  ie11 ´NµLªk§ì¨ì

¥¢µJ§ì¤£¨ì

TOP

§Ú­è­èie10´ú¸Õ¡A¤]¨S¦³°ÝÃD¡Aalert°T®§®Ø·|¸õ¨ì³Ì¤W¼h¡A©Ò¥H¨S°ÝÃD
¦pªG°õ¦æ®É¦³¶ÃÂI¡A¦n¹³´N¨S¿ìªk¤F¡C

TOP

¦^´_  joey0415
ie8 °õ¦æ¨S³o°ÝÃD.
GBKEE µoªí©ó 2015-7-18 05:13


½Ð°Ýª©¤j¦pªG¬O¥Î§Ú¦Û¤v¼gªº½d¨Òºô­¶¡A§Ú¦Û¤v¬O§ì¤£¨ìªº¡A¯à«üÂI¤@¤U¶Ü¡H
https://dl.dropboxusercontent.com/u/40393708/test1.htm



TOP

  1. Option Explicit

  2. #If Win64 = 1 Then
  3. Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal HWND As Long, ByVal wCmd As Long) As Long
  4. Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long
  5. #Else
  6. Private Declare Function GetWindow Lib "user32" (ByVal HWND As Long, ByVal wCmd As Long) As Long
  7. Private Declare Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long
  8. #End If

  9. Private Const GW_HWNDNEXT = 2
  10. Private Const GW_CHILD = 5

  11. Sub ex()
  12.     Dim lHwndChild&
  13.    
  14.     With CreateObject("InternetExplorer.Application")
  15.         .Visible = True
  16.         .Navigate "https://dl.dropboxusercontent.com/u/40393708/test1.htm"
  17.         Do While .Busy Or .ReadyState <> 4
  18.             DoEvents
  19.             If 3 = .ReadyState Then
  20.                 lHwndChild = GetWindow(.HWND, GW_CHILD)
  21.                 Do While lHwndChild
  22.                     SetForegroundWindow .HWND 'HWND is the HWND of the myIEWindow
  23.                     Application.SendKeys "~", True
  24.                     lHwndChild = GetWindow(lHwndChild, GW_HWNDNEXT)
  25.                 Loop
  26.             End If
  27.         Loop
  28.     End With
  29.    
  30. End Sub
½Æ»s¥N½X
¦^´_ 8# joey0415

TOP

¦^´_ 9# azrael19

¶W¯Å·PÁ¯uªº¥i¥H°Ê¤F¡I§ì¨ì§Ú­nªº¸ê®Æ

±q§A¤Þ¥Îªº¨ç¦¡¨Ó¬Ý¦n¹³¬O§ä¨ìµøµ¡¨Ã½T»{¬O­þ­Óµ¡«á¡A°e¥Xenter¨ÃÃö³¬¥¦

½Ð°Ý¤@¤U
Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
¬O¤°»ò³]©w­È©O¡H

ÁÂÁÂ

«á¨Ó§Ú­×§ï¤F¡A°e¥X«á­nsleep¤@¤U¡A®ÄªG·|¤ñ¸û¦n

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD