VB6.0中DLL的调用问题,请帮一下忙.

Question

现只有PB的例子，麻烦帮派翻译成VB6.0的代码。
private function long SendRequestPack(string sendbuf, long sendlen, ref string recvbuf, ref long recvlen, long waitsecs) library "JFNetLib.dll"ll_recvlen = 65535
ls_recvbuf = FILL(" ", ll_recvlen)
ll_result = SendRequestPack(ls_sendmsg, len(ls_sendmsg), ls_recvbuf, ll_recvlen, 120)

Answer 1

private Declare function SendRequestPack lib "JFNetLib.dll" ( sendbuf as string,  sendlen as long, byref  recvbuf as string, byref  recvlen as long,  waitsecs as long) as long ll_recvlen = 65535 
ls_recvbuf = (stringll_recvlen , " ") 
ll_result = SendRequestPack(ls_sendmsg, len(ls_sendmsg), ls_recvbuf, ll_recvlen, 120) PS :  byval   按值传送   
       byref   变参传送  

Answer 2

lan563
如果按你的方法，调用时整个VB被关闭了

Answer 3

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function SendRequestPack Lib "JFNetLib.dll" (ByVal sendbuf As String, ByVal sendlen As Long, recvbuf As String, recvlen As Long, ByVal waitsecs As Long) As LongDim ll_recvlen As Long
Dim ls_recvbuf As String
Dim ll_result As Longll_recvlen = 65535
ls_recvbuf = String(ll_recvlen, Chr$(0))
'ls_recvbuf = Space(ll_recvlen)
ll_result = SendRequestPack(ls_sendmsg, len(ls_sendmsg), ls_recvbuf, ll_recvlen, 120)
'调用：
'第一个参数为传值，类型为字符串类型
'第二个参数为传值，类型为长整型（值为第一个参数的字符串长度）
'第三个参数为传址，类型为字符串类型，函数调用后有字符返回，可使用Left函数截取
'第四个参数为传址，类型为长整型（值为第三个参数的字符串长度）
'第四个参数为传值，类型为长整型为了你的100分，写那么多应该值得吧~~~~~
但是我唯一想不通的就是，你都5裤衩了，为什么这么简单的语言转换都不会呢~
明眼人一看就明白了~

Answer 4

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
这句无关紧要，我只是复制在那里参考语法而已~

Answer 5

这个是比较简单，关键是一调用就关闭VB的IDE。没有明白呀

Answer 6

Sandrer
按你的方法还是要关闭IDE