TC官方合作论坛

标题: dllcall调用求助 [打印本页]

作者: mxxgmxxg 时间: 2018-4-27 09:27
标题: dllcall调用求助
GetPointXY.dll,vb中调用正常，用dllCall调用就不对，

VB代码：
Private Declare Function GetPoint Lib "D:\GetPointXY.dll" (ByVal sName As String, ByRef x As Long, ByRef y As Long) As Long
Sub t()
GetPoint "张某人", x, y
End Sub

TC代码：（运行没反应）

var x,y,sDllFile ,sName
sName="请设置点位置"
sDllFile= "d:\\GetPointXY.dll"
sleep(500)
dllcall(sDllFile,"pchar *",sName,"long","GetPoint","plong",x,"plong",y)

TC代码：（运行还是没反应）

var x,y,sDllFile
sDllFile= "d:\\GetPointXY.dll"
sleep(500)
dllcall(sDllFile,"char *",="请设置点位置","long","GetPoint","plong",x,"plong",y)

我应该怎么调用？

作者: mxxgmxxg 时间: 2018-4-27 13:16
靠，自己写错了，搞定
var x,y,sDllFile ,sName
   sName="请设置点位置"
   sDllFile= "d:\\GetPointXY.dll"
   sleep(500)
   dllcall(sDllFile,"pchar *",sName,"long","GetPoint","plong",x,"plong",y)

作者: mxxgmxxg 时间: 2018-4-27 13:16
var x,y,sDllFile ,sName
   sName="请设置点位置"
   sDllFile= "D:\\GetPointXY.dll"
   sleep(500)
   dllcall(sDllFile,"long","GetPoint","pchar *",sName,"plong",x,"plong",y)

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)