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

vba±±¨îºô­¶ browser¸I¤Walert°±¦í¤F

vba±±¨îºô­¶ browser¸I¤Walert°±¦í¤F

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2017-1-9 07:30 ½s¿è

https://login.104.com.tw/login.cfm
(¤W­±¬°104 ¬Y¬Y»È¦æªºµn¤Jºô¯¸)
­è¦n¦bºô¸ô¤W§ä¨ì¤@­Ó¤j®a³£¯à´ú¸Õªººô¯¸(¥D­n§Ú¸I¨ìªºalert¬O¤½¥q¤º³¡ºô¯¸)
©Ò¥H¥Î³o­Ó¨Ó´ú¸Õ
±b¸¹ÀH«K¥´­Ó¿ù»~ªº,Åý¥L¸õĵ§i¨Ó´ú¸Õ(code¤º¤w¦³¶¶«Kkey¤Waaa)

¥H¤Ucode´ú¸Õ¤è¦¡
1.¥ý¥´¶}ie ¨Ã ¶}±Ò³sµ²
2.¥´¶}excel³]©w¤Þ¥Î¶µ¥Ø,©I¥s microsoft internet controls ©M microsoft HTML Object library
3.´ú¸Õcode

ª¬ªp
¥Ø«e³q±`³£·|¦bclick®É.excel´N¾ã­Ó¥d¦í°±¤î¤F,«á­±ªºÂIÀ»µ{§Ç³£¨S¶}©l,alertµøµ¡¥²¶·­nÂI±¼µ{¦¡¤~¦³¿ìªkÄ~Äò¶],(¤£¯àclose,§Ú¤½¥q¤º³¡ªº¤@©w­nÂI¬O)

¥Ø«e¸I¾Àªº«ä¦Ò¤è¦V
1.·Q»¡¬O§_­n¦bclick¥H«e¥ý©I¥svbaÂù¶},¹L­Ó´X¬í¦Û°Êsendkey "enter"  [¤£¹L§Ú´ú¸Õªº®É­Ô,·íie¤@¸õ¥Xalert,¾ã­Óexcel³£°±¦í,¥]§t²Ä¤G­Ósettimerªºsub
2.¦P1,¦ý¬O©I¥sªº¬OÃþ¦ü"¦Û°Ê³sÂIµ{¦¡"ªº¥~±¾(Å¥»¡¦³¤H¦¨¥\,¦ý§Ú¤£À´ªù¹D)
3.·Q»¡¬O¤£¬O¥i¥H¥Î  .document.writeln ª½±µ§â¥Ø«eªº¼È¦sºô­¶ªº"·|­ûµn¤J"µ¹§ï±¼,Åý¥L¤£·|¸õ¥Xalertĵ§iµøµ¡,¦ý¥²¶·¦Aµo¥X·sªº«ü¥O°eµ¹¦øªA¾¹,¬Oªº,¬Ý¯à¤£¯à¶¹L³o­Óĵ§iµøµ¡,³o­Óµøµ¡§Ú§¹¥þ¥Î¤£¨ì
  1. 'Private Declare Function SetFocus Lib "user32" Alias "SetFocus2" (ByVal hwnd As Long) As Long
  2. 'Private Declare PtrSafe Function WinAPISetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As LongPtr) As Long

  3. Sub getALLBrowsersaaa()
  4. On Error GoTo Err_Clear
  5.     Dim mainWorkBook As Workbook
  6.    

  7.    
  8.     Set objShell = CreateObject("Shell.Application")
  9.     Set objAllWindows = objShell.Windows
  10.     Set mainWorkBook = ActiveWorkbook

  11. For Each ow In objAllWindows
  12.     If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then
  13.         If (InStr(1, ow.LocationURL, "https://login.104.com.tw/login.cfm", vbTextCompare)) Then
  14.                

  15.     Set HTMLDoc = ow.document
  16.      HTMLDoc.all.id_name.Value = "aaa"    '< -±b¸¹ÀH«K¥´Åý¥L¸õĵ§i
  17. For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
  18.     If MyHTML_Element.Type = "submit" And MyHTML_Element.Value = "·|­ûµn¤J" Then
  19.      
  20.      
  21. '     Call Âù¶}vba  <¥ý¤£¥Î,·Q¶Ç¥hµ¹Sub StartAsub()  SetTimer Application.hWnd, 1, 15000, AddressOf getALLBrowsersaaa>
  22.      MyHTML_Element.Click   <--¶i¤Jie´N¥d¤F
  23. Do While ow.readyState <> 4 Or ow.Busy:
  24.                 DoEvents
  25.                 If ow.Busy Then
  26.                 ow.Visible = False     ''´N¬O±q·sÁôÂèϥεøµ¡
  27.                 ow.Visible = True      ''±µµÛ¤S­«·sÅã¥Üactive¨Ï¥Îµøµ¡
  28.                     ow.document.Focus
  29.                     DoEvents

  30.                     Application.SendKeys "{ENTER}", True   '**«ö¤UÁä
  31.                 End If
  32.             Loop
  33. : Exit For
  34.      End If
  35.     Next



  36.     End If
  37. End If
  38.         
  39.     Next
  40. Err_Clear:
  41. If Err <> 0 Then
  42. Err.Clear
  43.     Resume Next
  44. End If

  45. '    Call StopAsub  <¥ý¤£¥Î,·Q¶Ç¦^¥hStopAsub()   killtimer>
  46. End Sub
½Æ»s¥N½X

https://www.youtube.com/watch?v=G-2khNFYQl8

³á­C  ¤Ó¯«©Ô

²×©ó§ä¨ì¤F

¯uªº¦¨¥\¤F

¥u­n¾a¯Â¤å¦rÀÉ®×  Àx¦s¦¨vbs  ·d©w


"message from webpage"

§ï¦¨Äµ§iµøµ¡ªº¦WºÙ



®³¯Â¤å¦rÀɨӧ令¤U­±,°O±oÀx¦s¦¨.vbs
  1. set wshshell = createobject("wscript.shell")

  2. do
  3.     ret = wshshell.AppActivate("ºô­¶°T®§")
  4. loop until ret = true

  5.     wscript.sleep 1000
  6.     ret = wshshell.appactivate("ºô­¶°T®§")
  7.         if ret = true then
  8.                    ret = wshshell.appactivate("ºô­¶°T®§")
  9.                 wscript.sleep 1000
  10.                 wshshell.sendkeys "{enter}"
  11.         end if
  12.         wscript.sleep 1000
½Æ»s¥N½X

TOP

§Ú«á¨Ó¦³µo²{¨ì¤@­Ó²{¶H

§Ú»{¬°wscript ³Ì«á»Ý­n¼g¥X¤@­ÓÃö³¬ªº¥¨¶°

¤£¾å±o¬O¤£¬O¬O=nothing

§Ú¦b¹q¸£µ{¦¡ºÞ²z­û¤¤µo²{

«á¥x³£¨SÃö°_¨Ó ¶V¶}¶V¦h

¹q¸£ÅܺC

¬O§_¦³¬Û¦Pªºª¬ªp

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD