三菱PLC解密软件vb源码
三菱解密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" MSCom