已经知道rock4函数原形
Declare Function Rockey Lib "RYDLL32.DLL" (ByVal fcode As Integer, ByRef handle As Integer, ByRef lp1 As Long, ByRef lp2 As Long, ByRef p1 As Integer, ByRef p2 As Integer, ByRef p3 As Integer, ByRef p4 As Integer, ByVal buffer As Any) As Integer
fcode为访问类型,例如
Global Const RY_FIND = 1 '找锁
Global Const RY_FIND_NEXT = 2 '找下一锁
Global Const RY_OPEN = 3 '打开锁
Global Const RY_CLOSE = 4 '关闭锁
Global Const RY_READ = 5 '读锁
handle为狗的句柄
p1,p2为读狗密码,p3,p4为写狗密码
buffer为写缓冲