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所在项目的命令窗口输入