老师,我照抄了人家的代码了,就是连不上啊
Public Class AccessControl
Public axCZKEM1 As New zkemkeeper.CZKEM
#Region "Communication"
Private bIsConnected = False
Private iMachineNumber As Integer
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
bIsConnected = axCZKEM1.Connect_Net("192.168.4.225", "4370")
If bIsConnected = True Then
btnConnect.Text = "Disconnect"
btnConnect.Refresh()
lblState.Text = "Current State:Connected"
iMachineNumber = 1
axCZKEM1.RegEvent(iMachineNumber, 65535)
Else
axCZKEM1.GetLastError(idwErrorCode)
MsgBox("Unable to connect the device,ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
End If
Cursor = Cursors.Default
End Sub
#End Region
End Class
[此贴子已经被作者于2016/3/14 9:36:43编辑过]