代码.txt

来自「三菱PLC解密软件.vb源码.可以解三菱FX的密码」· 文本 代码 · 共 26 行

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:[phone](郝金红)"
End Sub