现只有PB的例子，麻烦帮派翻译成VB6.0的代码。 private function long SendRequestPack(string sendbuf, long sendlen, ref string recvbuf, ref long recvlen, long waitsecs) library "JFNetLib.dll"
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
