form1.frm

三菱PLC解密软件.vb源码.可以解三菱FX的密码

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "三菱FX系列解密(信捷自动化)"
   ClientHeight    =   450
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3570
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   450
   ScaleWidth      =   3570
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   200
      Left            =   1440
      Top             =   480
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   0
      Top             =   480
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
      ParitySetting   =   2
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "Form1.frx":1CCA
      Left            =   1920
      List            =   "Form1.frx":1CDD
      TabIndex        =   2
      Text            =   "COM1"
      Top             =   80
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "解密"
      Height          =   375
      Left            =   2640
      TabIndex        =   1
      Top             =   35
      Width           =   855
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H0000FF00&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Text            =   "密码显示窗口"
      Top             =   30
      Width           =   1935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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