ªð¦^¦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"


°²³]ÃÒ¸¹»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®¦

¦^´_ 1# Scott090


    µ¥«Ý«e½ú­Ì±Ï´©¤¤

TOP

¦^´_ 2# Scott090

§Ú¤£ª¾¹D«ç»ò¥ÎVBA¿é¤J±b¸¹¡B±K½X¨Ã«ö½T©w¡A
¦ý§A¥i¥H¸Õ¸Õ¹q¸£¦Û°Ê¤Æ¾Þ§@³nÅé¡A¨Ò AutoIt

TOP

¦^´_ 3# lukychien

    ÁÂÁÂ
    ±N¤F¸Ñ¤@¤U AUTOIT ³o­Óª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

¦^´_ 5# fei6999

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

TOP

¦^´_ 5# fei6999

    ¦A½Ð°Ý ¤j¤j
     ¦p¤U¹Ï¡G
  
   
      ¶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

¦^´_ 7# Scott090

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

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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD