资源介绍
三菱解密vb源码Private Sub Command1_Click()
s = Val(Mid(Combo1.Text, 4, 1))
If MSComm1.PortOpen = False Then
MSComm1.CommPort = (s)
MSComm1.Settings = "9600,e,7,1"
MSComm1.PortOpen = True
End If
Text1.Text = ""
MSComm1.Output = Chr$(2) + "08" + "00" + "80" + "8" + Chr$(3) + "6B"
MSComm1.RThreshold = 20
End Sub
Private Sub MSComm1_OnComm()
w = Mid(MSComm1.Input, 2, 16)
For i = 1 To 15 Step 2
a = Mid(w, i, 2)
b = Val(Mid(a, 1, 1))
c = Val(Mid(a, 2, 1))
d = Chr$(b * 16 + c)
Text1.Text = Text1.Text + d
Next i
MSComm1.RThreshold = 0
Form1.Caption = "Tel:13054900817()"
End Sub
- 上一篇: 三菱FX系列PLC密码直读器
- 下一篇: 三菱PLC--FX全系列解密软件