Module1.bas
上传用户:zqw1688hh
上传日期:2020-04-16
资源大小:6k
文件大小:1k
源码类别:

破解

开发平台:

Visual Basic

  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. 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
  4. Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
  5. Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
  6. Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  7. Declare Function GetLastError Lib "kernel32" () As Long
  8. 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
  9. Declare Function ReleaseCapture Lib "user32" () As Long
  10. Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  11. Public Const WM_GETTEXT = &HD
  12. Type POINTAPI
  13.     x As Long
  14.     y As Long
  15. End Type