帮我看下API调用

yangff · 发表于 2008-2-19 01:01:49

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

总是说:运行是错误,GetProcAddress:Get_Pos_X or Get_Pos_XA
( $Get_Pos_X = Win32API.new(DLL, 'Get_Pos_X', nil, 'l') 的错误)
$Get_Pos_X = Win32API.new(DLL, 'Get_Pos_X', nil, 'l')
$Get_Pos_Y = Win32API.new(DLL, 'Get_Pos_Y', nil, 'l')
$Left = Win32API.new(DLL, 'Get_Left', nil, 'l')
$Right = Win32API.new(DLL, 'Get_Right', nil, 'l')
$Mouse_Close = Win32API.new(DLL, 'Mouse_Close', nil, nil)
$Mouse_Start = Win32API.new(DLL, 'Mouse_Start', 'l', 'l')

DLL内容(VB)

Private Type POINTAPI
x As Long
Y As Long
End Type
Dim p As POINTAPI
Dim l As Long
Dim hd
Dim KeyTepy As Integer
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Function Get_Pos_X() As Long
If p.x < 0 Then
p.x = 0
End If
If p.x > 544 Then
p.x = 544
End If
Get_Pos_X = p.x
End Function
Function Get_Pos_Y() As Long
If p.Y < 0 Then
p.Y = 0
End If
If p.Y > 416 Then
p.Y = 416
End If
Get_Pos_Y = p.Y
End Function
Function Get_Left() As Integer
Get_Left = 0
If KeyTepy = 1 Then
Get_Left = 1
End If
End Function
Function Get_Right() As Integer
Get_Right = 0
If KeyTepy = 2 Then
Get_Right = 1
End If
End Function
Function Updata_Mouse() As Long
If Mouse_Open = True Then
Call GetCursorPos(p)
l = ScreenToClient(hd, p)
Dim x As Long
x = GetAsyncKeyState(1) '左键
KeyTepy = 0
If x = -32767 Then
KeyTepy = 1
End If
x = GetAsyncKeyState(2) '右键
If x = -32767 Then
KeyTepy = 2
End If
Updata_Mouse = 0
Else
Updata_Mouse = 1
End If
End Function
Sub Mouse_Close()
ShowCursor (1)
l = ""
hd = ""
KeyTepy = ""
End Sub
Function Mouse_Start(hWnd As Long) As Long
If Mouse_Open = False Then
ShowCursor (0)
hd = hWnd
Mouse_Open = True
Mouse_Start = 0
Else
Mouse_Start = 1
End If
End Function

复制代码

小真·爱舞 · 发表于 2008-2-19 01:16:06

为什么要发短信问我|||
我又不玩API- -

版主对此帖的评论：『原来你也收到了OTL……API我也不会= =』，积分『-0』。这些被扣积分的一半会用于对本帖正确答案的悬赏。

yangff · 发表于 2008-2-19 01:19:46

5555555555555555555555
泪奔去....
PS
How玩API

水迭澜 · 发表于 2008-2-19 03:02:47

{/hx}正在学习正在学习-v-+
为什么第一个x是小写而y是大写捏？

yangff · 发表于 2008-2-19 05:27:19

是vb的问题

帐号		自动登录	找回密码
密码			注册会员

帮我看下API调用

加入我们，或者，欢迎回来。

烫烫烫

开拓者

第2届TG大赛亚军