-
-
[旧帖] [求助]关于wibu狗的问题,主要是读取wibu狗信息,写的代码不知道哪错了.Vs2005编写的.请指教. 0.00雪花
-
发表于: 2008-2-29 14:49 4256
-
网上搜到的资料太少,就看到你还懂点,请多指教.谢谢.
在VB.net下编写,我现在是想要读取wibu狗中的信息.如ulFirmCode,ulUserCode,ulSerial.代码也写了可就显示不出结果,代码如下.
声明:
<DllImport("WkWin32.dll", ExactSpelling:=True)> _
Function WkbOpen2(ByVal hwkbsys As Integer, _
ByVal flCtrl As Integer, ByVal pszPort As String, ByVal lFirmCode As Integer, _
ByVal lUserCode As Integer, ByVal pvCtrl As Integer) As Integer
End Function
<DllImport("WkWin32.dll")> _
Function WkbQueryEntry2(ByVal hwkbe As Integer, _
ByVal flCtrl As Integer, ByVal pvDest As ValueType, ByVal cbDest As Integer) As Integer
End Function
首先是打开了.
hwkbe = WkbOpen2(hwkbsys, WKB_STDCTRL Or WKB_VERSION1, "*", vFirmCode, vUserCode, 0)
然后就读数据
fValid = WkbQueryEntry2(hwkbe, WKB_STDCTRL, wkboe, Len(wkboe))
其中wkboe是个结构体了.可其中就读不出wibu狗信息.
请问需要怎么做,请指导.
在VB.net下编写,我现在是想要读取wibu狗中的信息.如ulFirmCode,ulUserCode,ulSerial.代码也写了可就显示不出结果,代码如下.
声明:
<DllImport("WkWin32.dll", ExactSpelling:=True)> _
Function WkbOpen2(ByVal hwkbsys As Integer, _
ByVal flCtrl As Integer, ByVal pszPort As String, ByVal lFirmCode As Integer, _
ByVal lUserCode As Integer, ByVal pvCtrl As Integer) As Integer
End Function
<DllImport("WkWin32.dll")> _
Function WkbQueryEntry2(ByVal hwkbe As Integer, _
ByVal flCtrl As Integer, ByVal pvDest As ValueType, ByVal cbDest As Integer) As Integer
End Function
首先是打开了.
hwkbe = WkbOpen2(hwkbsys, WKB_STDCTRL Or WKB_VERSION1, "*", vFirmCode, vUserCode, 0)
然后就读数据
fValid = WkbQueryEntry2(hwkbe, WKB_STDCTRL, wkboe, Len(wkboe))
其中wkboe是个结构体了.可其中就读不出wibu狗信息.
请问需要怎么做,请指导.
赞赏
赞赏
雪币:
留言: