dllcall调用求助

mxxgmxxg

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

靠，自己写错了，搞定
var x,y,sDllFile ,sName
     sName="请设置点位置"
     sDllFile= "d:\\GetPointXY.dll"            
     sleep(500)
     dllcall(sDllFile,"pchar *",sName,"long","GetPoint","plong",x,"plong",y)

mxxgmxxg

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