VFP 免注册多线程技术，无需注册，使用方便

假传万卷书，真传一句话，跟随猫猫一起来学VFP免注册多线程技术，让你的程序从此不卡顿，快如闪电。

１．建立需要运行的DLL项目

如我建立了一个stucom的项目，作用是访问webapi，返回值。

Define Class stucom As Session OlePublic msg="" Procedure getjson Lparameters toCallback cUrl=toCallback.url Qiyu_HttpClient =Newobject("Qiyu_HttpClient","Qiyu_HttpClient.prg") Qiyu_HttpClient.setHeader("content-type","application/json") && content-type 默认为 application/json cReturn= Qiyu_HttpClient.Send(cUrl) If Isnull(cReturn) this.msg=Qiyu_HttpClient.msg Endif Return cReturn Endproc Enddefine

连编成多线程DLL

2. 找到DLL的身份证CLSID,ProgID,tlbid

要找到DLL文件的CLSID和ProgID，在DLL所在项目的命令窗口输入