frmrm.frm

来自「park 通讯工具」· FRM 代码 · 共 80 行

VERSION 5.00
Begin VB.Form frmRM 
   Caption         =   "Form1"
   ClientHeight    =   4155
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   ScaleHeight     =   4155
   ScaleWidth      =   6690
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   735
      Left            =   240
      TabIndex        =   1
      Top             =   840
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2055
   End
End
Attribute VB_Name = "frmRM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function cyg_crc16 Lib "BaseDLL.dll" (ByVal strBuf As Any, ByVal nLen As Integer) As Long
Private Declare Function DES Lib "BaseDLL.dll" (ByVal strBuf As String, ByVal bType As Boolean, ByRef strret As Any, ByRef nLen As Long) As Integer

Private Sub Command1_Click()
    Dim b(5) As Byte
    Dim strings(10) As String
    
    strings = Space(10)
    
   'b = Space(5)
    
    b(0) = 1
    b(1) = &H41
    b(2) = &H41
    
    Dim n As Long
    
    Dim s As String
    
    's = Hex(b(0)) & Hex(b(1)) & Hex(b(2))
    's = "123"
    
    strings(0) = 1
    strings(1) = 2
    strings(2) = 3
    
    n = cyg_crc16(strings, 3)
    
    n = 0
    
    
End Sub

Private Sub Command2_Click()
    Dim strTest As String
    Dim strret(255) As String
    Dim nLen As Long
        
    strret = Space(0)
    strTest = "1234434"
    
    nLen = 0
    
    DES strTest, False, strret, nLen
    
End Sub