frmmain.frm

计算qualcomm手机与计算机通讯时

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "CRC Caculator"
   ClientHeight    =   5625
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5625
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "A-KEY"
      Height          =   375
      Left            =   3360
      TabIndex        =   4
      Top             =   1080
      Width           =   1215
   End
   Begin VB.TextBox txtAKEY 
      Height          =   270
      Left            =   360
      MaxLength       =   16
      TabIndex        =   3
      Top             =   1200
      Width           =   2535
   End
   Begin VB.TextBox txtESN 
      Height          =   270
      Left            =   360
      MaxLength       =   8
      TabIndex        =   2
      Top             =   480
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      Caption         =   "ESN"
      Height          =   375
      Left            =   3360
      TabIndex        =   1
      Top             =   480
      Width           =   1215
   End
   Begin VB.TextBox txtResult 
      Height          =   3495
      Left            =   240
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   1920
      Width           =   4095
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public ESN As String
Public AKEY As String

Private Sub Command1_Click()
Dim Result() As Byte, CR As Variant, i As Integer, j As Integer, HexChr As String
ReDim Result(132)
ESN = Right("00000000" & txtESN.Text, 8) 'ESN,长度为4个字节,不足4字节,自动补0
If HexCheck(ESN) = False Then
   Exit Sub
   Else
End If
txtESN.Text = ESN
Result(0) = &H27 '这个是写指令
'Resulr(1)= &h00 这句写不写也没关系了,NV_ESN 就是&H0
'ESN是写入手机的时候是高位在后,低位在前的,所以我们要处理一下
Result(3) = Val("&h" & Mid(ESN, 7, 2))
Result(4) = Val("&h" & Mid(ESN, 5, 2))
Result(5) = Val("&h" & Mid(ESN, 3, 2))
Result(6) = Val("&h" & Mid(ESN, 1, 2))
CR = CreatePacket(Result)
txtResult.Text = ""
For i = 0 To UBound(CR)
HexChr = HexChr & Right("00" & Hex(CR(i)), 2)
Next i

For i = 1 To Len(HexChr) Step 2

txtResult = txtResult & Mid(HexChr, i, 2) & " "

Next

End Sub
Private Sub Command2_Click()
Dim Result() As Byte, CR As Variant, i As Integer, HexChr As String
ReDim Result(132)
AKEY = Right("0000000000000000" & txtAKEY.Text, 16) 'AKEY,长度为8个字节,果输入的不足8字节位,自动补0
If HexCheck(AKEY) = False Then

   Exit Sub
   Else
End If
txtAKEY.Text = AKEY
Result(0) = &H27 '写指令(&H26是读,但是很多手机都不允许)
Result(1) = &H19 'NV_A_KEY= &H19

'AKEY写入手机的时候也是高位在后,低位在前的,所以我们要处理一下
Result(4) = Val("&h" & Mid(AKEY, 15, 2))
Result(5) = Val("&h" & Mid(AKEY, 13, 2))
Result(6) = Val("&h" & Mid(AKEY, 11, 2))
Result(7) = Val("&h" & Mid(AKEY, 9, 2))
Result(8) = Val("&h" & Mid(AKEY, 7, 2))
Result(9) = Val("&h" & Mid(AKEY, 5, 2))
Result(10) = Val("&h" & Mid(AKEY, 3, 2))
Result(11) = Val("&h" & Mid(AKEY, 1, 2))
CR = CreatePacket(Result)
txtResult.Text = ""
For i = 0 To UBound(CR)
HexChr = HexChr & Right("00" & Hex(CR(i)), 2)
Next i

For i = 1 To Len(HexChr) Step 2

'MsgBox Mid(Resource, i, 2)

txtResult = txtResult & Mid(HexChr, i, 2) & " "

Next

End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub


Private Sub txtESN_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub


'将输入的字符全部变成大小写
Private Sub txtAKEY_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub