Public Class Dog
Public DogBytes As Integer = 0
Public DogAddr As Integer = 1
Public DogCascade As Integer = 0
Public NewCascade As Integer = 0
Public DogPassword As Integer = 0
Public NewPassword As Integer = 0
Public DogResult As Integer = 0
Public CurrentNu As Integer = 0
Public DogData(199) As Byte
Public RetCode As Integer = 0
Declare Function Check_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByRef RetCode As Integer) As Integer
Declare Function Read_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal DogAddr As Integer, ByVal DogBytes As Integer, ByVal DogData() As Byte, ByRef RetCode As Integer) As Integer
Declare Function Write_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal DogAddr As Integer, ByVal DogBytes As Integer, ByVal DogData() As Byte, ByRef RetCode As Integer) As Integer
Declare Function Convert_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal DogBytes As Integer, ByVal DogData() As Byte, ByRef DogResult As Integer, ByRef RetCode As Integer) As Integer
Declare Function DisableShare_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByRef RetCode As Integer) As Integer
Declare Function SetPassword_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal NewPassword As Integer, ByRef RetCode As Integer) As Integer
Declare Function SetCascade_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal NewCascade As Integer, ByRef RetCode As Integer) As Integer
Declare Function GetCurrentNo_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByRef CurrentNu As Integer, ByRef RetCode As Integer) As Integer
End Class
加好友 
发短信
Post By：2014/6/2 7:36:00 [显示全部帖子]
