mousemovements.bas

一个同学用VB编写的局域网通讯程序

Attribute VB_Name = "MouseMovements"
Option Explicit



Public Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
    x As Long
    Y As Long
    End Type




Public Function GetCurrentX() As Long
Dim Position As POINTAPI
    GetCursorPos Position
    GetCurrentX = Position.x
End Function

Public Function GetCurrentY() As Long
Dim Position As POINTAPI
    GetCursorPos Position
    GetCurrentY = Position.Y
End Function