수다닷컴

Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer
Private Sub Timer10_Timer()If GetAsyncKeyState(vbKeyNumpad0) ThenTimer1 = TrueEnd IfIf GetAsyncKeyState(vbKeyNumpad1) ThenTimer2 = TrueEnd IfIf GetAsyncKeyState(vbKeyNumpad2) ThenTimer3 = TrueEnd IfIf GetAsyncKeyState(vbKeyNumpad3) ThenTimer4 = TrueEnd IfIf GetAsyncKeyState(vbKeyNumpad4) ThenTimer5 = TrueEnd IfIf GetAsyncKeyState(vbKeyNumpad5) ThenTimer6 = TrueEnd IfIf GetAsyncKeyState(vbKeyNumpad6) ThenTimer7 = TrueEnd IfIf GetAsyncKeyState(vbKeyNumpad7) ThenTimer8 = TrueEnd IfEnd Sub
Private Sub Timer1_Timer()SendKeys {Enter}SendKeys power overwhelmingSendKeys {Enter}Timer1 = FalseEnd Sub
Private Sub Timer2_Timer()SendKeys {Enter}SendKeys operation cwalSendKeys {Enter}Timer2 = FalseEnd Sub
Private Sub Timer3_Timer()SendKeys {Enter}SendKeys black sheep wallSendKeys {Enter}Timer3 = FalseEnd Sub
Private Sub Timer4_Timer()SendKeys {Enter}SendKeys show me the moneySendKeys {Enter}Timer4 = FalseEnd Sub
Private Sub Timer5_Timer()SendKeys {Enter}SendKeys something for nothingSendKeys {Enter}Timer5 = FalseEnd Sub
Private Sub Timer6_Timer()SendKeys {Enter}SendKeys food for thoughtSendKeys {Enter}Timer6 = FalseEnd Sub
Private Sub Timer7_Timer()SendKeys {Enter}SendKeys the gatheringSendKeys {Enter}Timer7 = FalseEnd Sub
Private Sub Timer8_Timer()SendKeys {Enter}SendKeys modify the phase varianceSendKeys {Enter}Timer8 = FalseEnd Sub
Private Sub Timer9_Timer()Call ToggleTopmost(Form1.hwnd)End Sub

====================================
테스트 해보는데, 안되네요;어떤 부분이 문제고, 어떻게 교정을 해야될지ㅇ-ㅇ;

신청하기