declare integer FindPort in Syunew3D.DLL integer, string @
declare integer FindPort_2 in Syunew3D.DLL integer, long , long , string @
declare integer GetID in Syunew3D.DLL long @, long @, string
declare integer NT_GetIDVersion in Syunew3D.DLL integer @, string
declare integer sWrite in Syunew3D.DLL integer, string
declare integer sRead in Syunew3D.DLL integer @, string
declare integer YWrite in Syunew3D.DLL integer, integer, string, string, string
declare integer YRead in Syunew3D.DLL integer @, integer, string, string, string
declare integer YWriteString in Syunew3D.DLL string, integer, string, string, string
declare integer YReadString in Syunew3D.DLL string @, integer, integer, string, string, string

getvalue = SPACE(255)
lo = LEN(GETVALUE)
setvalue = SPACE(1)
= REGCREATEKEY(HKEY_LOCAL_MACHINE,KEYVALUE,@KEYHAND)
= REGQUERYVALUEEX(KEYHAND,"Time",0,0,@GETVALUE,@LO)
public devicepath, ret
devicepath = SPACE(260)
ret = FINDPORT(0,@DEVICEPATH)
if RET <> 0
= MESSAGEBOX("您正在使用试用版，请及时购买正版软件支持，进入系统后请参阅“如何购买...”！！！",48,"系统提示")
if VAL(GETVALUE) >= 199
MESSAGEBOX("试用次数已过！请购买正式版或进行注册！进入系统后请参阅“如何购买...",48,"系统提示")
quit
else
getvalue = ALLTRIM(STR(VAL(GETVALUE)+1))
setvalue = GETVALUE
= regsetvalueex(KEYHAND,"Time",0,1,@SETVALUE,LEN(SETVALUE))
a = REGCLOSEKEY(KEYHAND)
if VAL(GETVALUE) >= 99
qx = 0
MESSAGEBOX("您还可以试用"+ALLTRIM(STR(200-VAL(SETVALUE)))+"次！打印功能已受限制！！",48,"系统提示")
else
qx = 1
MESSAGEBOX("您还可以试用"+ALLTRIM(STR(200-VAL(SETVALUE)))+"次！",48,"系统提示")
endif
czjb = 1
bt = "计划生育台帐信息管理系统V2.0乡镇版-----（未注册）　　　　　　　版权所有"
do form forms\系统登录
thisform.visible = .f.
endif
else
local outstring,mm
outstring = SPACE(512)
mylen = 10
ret = YREADSTRING(@OUTSTRING,100,MYLEN,"ffffffff","ffffffff",DEVICEPATH)
mm = SUBSTR(ALLTRIM(OUTSTRING),1,10)
if MM <> "jsjmwy0778" .and. MM <> "jsjmwy0000"
= MESSAGEBOX("您正在使用未经认证的加密狗，请尊重作者！！进入系统后请参阅“如何购买...”！！！",48,"系统提示")
if VAL(GETVALUE) >= 199
MESSAGEBOX("试用次数已过！请购买正式版或进行注册！进入系统后请参阅“如何购买...",48,"系统提示")
quit
else
getvalue = ALLTRIM(STR(VAL(GETVALUE)+1))
setvalue = GETVALUE
= regsetvalueex(KEYHAND,"Time",0,1,@SETVALUE,LEN(SETVALUE))
a = REGCLOSEKEY(KEYHAND)
if VAL(GETVALUE) >= 99
qx = 0
MESSAGEBOX("您还可以试用"+ALLTRIM(STR(200-VAL(SETVALUE)))+"次！打印功能已受限制！！",48,"系统提示")
else
qx = 1
MESSAGEBOX("您还可以试用"+ALLTRIM(STR(200-VAL(SETVALUE)))+"次！",48,"系统提示")
endif
czjb = 1
bt = "计划生育台帐信息管理系统V2.0乡镇版-----（未注册）　　　　　　　版权所有"
do form forms\系统登录
thisform.visible = .f.
endif
else
do case
case MM = "jsjmwy0778"
bt = "计划生育台帐信息管理系统V2.0乡镇版-----（已注册）　　　　　　　版权所有"
qx = 1
czjb = 1
do form forms\系统登录
return .f.
case MM = "jsjmwy0000"
bt = "计划生育台帐信息管理系统V2.0村级版-----（已注册）　　　　　　　版权所有"
qx = 1
czjb = 0
do form forms\系统登录
return .f.
endcase
endif
endif

Syunew3D.DLL读狗写狗的Dll，其中：函数有FindPort（integer, string @）返回值为0，为有狗。YREADSTRING（string @, integer, integer, string, string, string）返回值为"jsjmwy0778"为乡镇注册版，为"jsjmwy0000"则是村级注册版。
写这个Dll应该不难。
这个DLL如何写？

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课