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

[µo°Ý] VBA¶}±Ò¬Ý½Lµ{¦¡

[µo°Ý] VBA¶}±Ò¬Ý½Lµ{¦¡

¥»©«³Ì«á¥Ñ Scott090 ©ó 2019-1-21 16:34 ½s¿è

VBA ªº¥~³¡µ{¦¡¸ô®|»P°õ¦æµ{¦¡¡G"C:\TWEWinner\EWinnerStart.exe"
¨t²Îµn¤J.JPG
2019-1-21 16:26


°²³]ÃÒ¸¹»P±K½X¦p¤U¡G
      ¨­¤ÀÃÒ¸¹¡G "E12345678"
       ±K½X        ¡G"y56789x"

  ¦p¦ó§âÃÒ¸¹¤Î±K½X¶ñ¤J"¨t²Îµn¤J" µøµ¡¤¤¨Ã"½T©w" ±Ò°Ê?
½Ð¤j®v­Ì«ü¾É¡A ·P®¦

¦^´_ 5# fei6999


    ¹êÅç¡A10# ªºµ{¦¡½X ¦b¤£¦Pªº ¹q¸£¨t²Î¨Ã¤£¯à¹B§@!!
    ¥D­n²{¶H°ÝÃD¦³¤T¡G 1. Åã¥Ü¾¹ªºÂI¦ì¸mªí²{¤£¤@¼Ë (pixel ÂI¼Æ¤£¤@¼Ë)
                                         2. ¿é¤JªkªºÁä½L±±¨îªí²{¤£¤@¼Ë
                                          3. µøµ¡©ñ¨ì³Ì¤jªº«ü¥O(Alt+ space  X) ¤£¤@©w¸m©ñ¦bÅã¥Ü¾¹ªº¥ª¤W (TopLeft 0,0)¨¤
     »Ý­n§ó¦hªº§ïµ½¡C

      ·L³n«Øij ¥Î sendinput ´À¥N  API mouse_event()¡Bkeybd_event()¡F
      sendinput() API ¦n¹³¨Ã¤£¿Ë¥Á!!!!!

TOP

¦^´_ 3# lukychien


    ¤U¸ü¤F AutoIt ¨Ã·Q¤F¸Ñ¥¦¡Aµo²{¦³«Üªøªº¸ô­n¨«!
      «ô¤F Google ¤j¯«¡A¨S¦³§ä¨ìÃþ¦üªºªF¦è¥i¨Ñ¼Ò¥é¾Ç²ß¡C
    °²¦p ¤j¤j Ä@·N §â 10# ¤ºªºªF¦è À°¦£¼g AutoIt ªº¥N½X¡A¥H¨Ñ¾Ç²ß

    ·P®¦

TOP

¦^´_ 8# fei6999


    ©Ó±µ 5# ¤Î 7#
   
     Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
     Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
     Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Sub §Þ³N½u¹Ï_­ÓªÑÅã¥Ü()
      Dim stockNo$
      stockNo = "3552"
      Sleep (100)
      AppActivate "[6000] §Þ³N½u¹Ï"          'Focus on this window
      Sleep (1000)

        ''½T«OÁä½L¬°­^¼Æ¿é¤Jªk
      If IMEStatus = 1 Then
            SendKeys "+", True          'Åܧó¿é¤Jªk«öÁä
      End If
      
      SendKeys "2"         'AppAtivate "ªÑ²¼¥N¸¹¡B¦WºÙ©Î¥\¯à¥N½X" µøµ¡
      SendKeys "{BS}" ':      Sleep (100)
      SendKeys stockNo:      Sleep (1000)
      SendKeys "{ENTER}"
      SendKeys "{NUMLOCK}": Sleep (500)
      
End Sub

'¦bÂIª÷ÆF¬Ý¹Ï³nÅé ªº "[6000]§Þ³N½u¹Ï" ÂI«ö Excel¹Ï¥Ü
'¶×¥X ½u¹Ï¸ê®Æ
'===========================================
Sub §Þ³N½u¹Ï¶×¥X_Click()
     
      AppActivate "[6000] §Þ³N½u¹Ï"
      Sleep 1000
      
      µøµ¡³Ì¤j¤Æ
     
      SetCursorPos 1845, 41  'Excel¹Ï¥Ü ªºÂI«ö¦ì¸m®y¼Ð¡A AutoIt ªº¶q´úÂI (1476,33) * Åã¥Ü­¿¼Æ 125%
      Sleep 1000

      MouseLeft_Click
      Sleep 2500
      
      SendKeys "% R"                'µøµ¡ÁÙ­ì
      Sleep (500)
      SendKeys "{NUMLOCK}"
      
End Sub

Sub µøµ¡³Ì¤j¤Æ()
      AppActivate "[6000] §Þ³N½u¹Ï"
      SendKeys "% X", True
      SendKeys "{NUMLOCK}"

End Sub

Sub MouseLeft_Click()
      mouse_event 2, 0, 0, 0, 0     'Key down
      Sleep (50)
      mouse_event 4, 0, 0, 0, 0     'Key up
      Sleep (50)
End Sub

     ¥H¤W¡A¥i¥HÅܧóªÑ²¼¥N¸¹ ¨Ã ±N½u¹Ï¸ê®Æ¶×¥X¨ì EXCEL ÀÉ
     ¤£¹L¡A¦b¦hÅã¥Ü¾¹®É´N¤£ª¾­n¦p¦ó³B³B²z¤F!!!! (°²³] [6000] §Þ³N½u¹Ï" ¬OÅã¥Ü¦b²Ä2­ÓÅã¥Ü¾¹)

TOP

¥»©«³Ì«á¥Ñ Scott090 ©ó 2019-2-12 14:54 ½s¿è

¦^´_ 8# fei6999


    ¥¦¶×¥Xªº¬O ©Ò¦³ [6000] µøµ¡¬Ý¨ìªº©Ò¦³½u¹Ïªº¼Æ­È¸ê®Æ
     ¤é½u¹Ï¬°¨Ò¡G
     (¤é´Á        ¶}½L        ³Ì°ª        ³Ì§C        ¦¬½L        º¦¶^        º¦¶^%         
       §¡»ù5         §¡»ù10         §¡»ù60         §¡»ù240         ¦¨¥æ¶q         §¡¶q5       
        OSC         DIF         MACD         3-6¨ÄÂ÷         3-6¨ÄÂ÷§¡1         
        RSV         K9         D9  .............  )
        ¾ú¥vªº¡B²{¦b¥æ©ö¶i¦æ¤¤ªº

     ÁÂÁÂ

TOP

¦^´_ 7# Scott090

¬Ý°_¨Ó¹³¬O­n±qÂIª÷ÆF¶×¥X¶}°ª§C¦¬ªº­È¶Ü¡H

TOP

¦^´_ 5# fei6999

    ¦A½Ð°Ý ¤j¤j
     ¦p¤U¹Ï¡G
  
Â^¨ú.JPG
2019-2-11 21:30

   
      ¶i¤J"ÂIºëÆF" «á¡A AppActivate "[6000] §Þ³N½u¹Ï" ¡A
       ¬õ½u½bÀY³B¡AVBA ¦p¦ó§â
        1. ªÑ²¼¥N¸¹ ©ñ¤J
        2.  «öEXCEL¹Ï¥Ü¡A¨Ï½u¹Ï¸ê®Æ¯àÂà¶Ç¤J Excel ÀÉ
        ¤S¡A 3. ½u¹Ï¶g´Á¿ï¾Ü ¦p¦ó°µ?

      ÁÂÁ«ü¾É

TOP

¦^´_ 5# fei6999

     ÁÂÁ¤j¤jªº¸Ñ´b¡A¥¦¥i¥H¦Û°Êµn¤J¹B§@¤F

TOP

¥»©«³Ì«á¥Ñ fei6999 ©ó 2019-2-10 00:48 ½s¿è

µn¤JÂIºëÆF³q±`id¿ï¤F°O¦í±b¸¹«á¤£¥Î¦A¿é¤J,©Ò¥H¼g¤F¤@­Ó½d¨Ò¬O¥u­n¿é¤J±K½X§Y¥i:) ¤º§t¶}±ÒÂIª÷ÆF.rar (12.83 KB)
¿é¤J±K½Xªº¦a¤è¦Û¤v§ï§ï¥H«á´N¶}Àɵn¤J¤@®ð¨þ¦¨

TOP

¦^´_ 3# lukychien

    ÁÂÁÂ
    ±N¤F¸Ñ¤@¤U AUTOIT ³o­ÓªF¦è

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD