超级难题VB6.0中DLL的调用

Question

谢谢各位高手,谁解决了给500分现只有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) 
以前有用户发贴说是用需要用数组传地址取值，但是我不知道怎么调用
详情请见：http://topic.csdn.net/u/20080611/10/2d45b168-80d9-4f24-bfa8-29b1061d1a69.html1) 函数体
SendRequestPack(string sendbuf, long sendlen, ref string recvbuf, ref long recvlen, long waitsecs)
该函数是向远程服务器发送一个数据请求包，当远程服务器的IP地址和端口设置完成后，方能被正常调用。
2) 参数说明
sendbuf：要发送的数据包，字符串型, 长度必须在65535以内
sendlen：要发送的数据包长度，取sendbuf的长度，长整型
recvbuf：要接收的数据包，字符串长度必须在65535以内，必须分配地址空间。（返回参数）
recvlen：要接收的数据包长度，取recvbuf的长度。（返回参数）
waitsecs：超时限制（秒），请设置为≥120秒

Answer 1

private declare function SendRequestPack lib "JFNetLib.dll" 
 (byval sendbuf as string, byval sendlen as long , byval recvbuf as string, recvlen as long , byval waitsecs as long )  as long 
dim ll_recvlen as long ,ls_recvbuf as string,ll_result as long ,ls_sendmsg as string
ls_sendmsg="my msg"
ll_recvlen = 65535 
ls_recvbuf = string(ll_recvlen," ") 
ll_result = SendRequestPack(ls_sendmsg, len(ls_sendmsg), ls_recvbuf, ll_recvlen, 120)