수다닷컴

Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer
Private Sub Command1_Click()
Shell C:\Program Files\StarCraft\\StarCraft.exe
End Sub

Private Sub Form_Load()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Timer1_Timer()
SendKeys {Enter}
SendKeys show me the money
SendKeys {Enter}
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
SendKeys {Enter}
SendKeys power overwhelming
SendKeys {Enter}
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
SendKeys {Enter}
SendKeys something for nothing
SendKeys {Enter}
Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer()
SendKeys {Enter}
SendKeys the gathering
SendKeys {Enter}
Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer()
SendKeys {Enter}
SendKeys operation cwal
SendKeys {Enter}
Timer5.Enabled = False
End Sub

Private Sub Timer6_Timer()
SendKeys {Enter}
SendKeys black sheep wall
SendKeys {Enter}
Timer6.Enabled = False
End Sub

Private Sub Timer7_Timer()
If GetAsyncKeyState(vbKeyNumpad0) Then
Timer1.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad1) Then
Timer2.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad2) Then
Timer3.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad3) Then
Timer4.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad4) Then
Timer5.Enabled = True
End If
If GetAsyncKeyState(vbKeyNumpad4) Then
Timer6.Enabled = True
End If
End Sub

Private Sub Timer8_Timer()
Call ToggleTopmost(Form1.hwnd)
End Sub
이렇게 하고
모듈도
Public Const HWND_TOPMOST& = -1
Public Const SWP_NOMOVE& = &H2
Public Const SWP_NOSIZE& = &H1
Public Declare Function SetWindowPos& Lib user32 _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long)
Public Sub ToggleTopmost(ByVal hWindow As Long)
SetWindowPos hWindow, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
추가 했는데;;; 작동이 안되네요;; 왜그런지 보고 말씀좀요 ㅠㅠ

신청하기