vb6.0 api 获取和设置计算机名 获取 鼠标位置坐标

模块中的声明：

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long

Type pointapi

x As Long

y As Long

End Type

窗体中的代码：

Private Sub Command1_Click() '获取computer name

Dim name As String * 255, length As Long

length = 255

name = String(length, 0)

GetComputerName name, length

name = Left(name, InStr(name, Chr(0)) - 1)

Label1.Caption = name

End Sub

Private Sub Command2_Click() '设置computer name

Dim name As String

name = Text1.Text

SetComputerName name

End Sub

Private Sub Timer1_Timer() '随时获得鼠标坐标
Dim point As pointapi

GetCursorPos point

Label1.Caption = "x=" & point.x & "y=" & point.y

End Sub

 

 

Timer1.Interval=10