Module1.bas
资源名称:11.ZIP [点击查看]
上传用户:zqw1688hh
上传日期:2020-04-16
资源大小:6k
文件大小:1k
源码类别:
破解
开发平台:
Visual Basic
- Attribute VB_Name = "Module1"
- Option Explicit
- 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) As Long
- Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
- Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
- Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
- Declare Function GetLastError Lib "kernel32" () As Long
- Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
- Declare Function ReleaseCapture Lib "user32" () As Long
- Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
- Public Const WM_GETTEXT = &HD
- Type POINTAPI
- x As Long
- y As Long
- End Type