수다닷컴

Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)
Private 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)
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1
Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib user32 (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib gdi32 (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer
Private Declare Function ScreenToClient Lib user32 (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function WindowFromPoint Lib user32 (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function ReleaseDC Lib user32 (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) 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)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Private Type POINTAPI
x As Long
y As Long
End Type이렇게 소스들을 사용했는데요,타이머 종료시에 F10누르면 타이머가 false가되게 설정했습니다.다른 인터넷창띄우기만으로 실험해봤을때 사용한 소스가 문제가있는것같은데어떤 불필요한소스라도 들어가서 이런건가요?

신청하기