imei.frm

自编IMEI多功能写号器 IMEI_Write_MTK.rar

         Height          =   375
         Left            =   330
         TabIndex        =   22
         Top             =   2430
         Width           =   1320
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   200
      Left            =   240
      Top             =   5040
   End
   Begin VB.TextBox Text5 
      Height          =   405
      Left            =   1800
      TabIndex        =   18
      TabStop         =   0   'False
      Top             =   5160
      Width           =   330
   End
   Begin VB.TextBox Text4 
      Height          =   495
      Left            =   1560
      TabIndex        =   17
      TabStop         =   0   'False
      Top             =   5160
      Width           =   180
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Left            =   2280
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   5160
      Width           =   240
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   840
      Top             =   5040
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
                                                               
Option Explicit
Dim m, n, p, cg As Integer

Private Sub Combo1_Click()
On Error GoTo Lend

         If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
         With MSComm1
        .CommPort = 3
        .Settings = "115200,n,8,1"
        .InBufferCount = 0
        .OutBufferCount = 0
        .InputMode = comInputModeText
        .InputLen = 0
        .InBufferSize = 512
        .RThreshold = 1
        If .PortOpen = False Then
        .PortOpen = True
        If Err.Number Then
        MsgBox "串口未打开。" & Err.Number
        Command1.Enabled = True: Text1.Enabled = True: Text2.Enabled = True
        Exit Sub
         End If
        End If
        End With
        MSComm1.Output = "at+eslp=0" & vbCr
        Label2.BackColor = &H8000000F: Label1 = "已断开": Label1.ForeColor = &HFF&: Text1.SetFocus: m = 0
        Timer1.Enabled = True: GoTo Lend
Lend:
End Sub

Private Sub Combo2_Click()
If Command1.Enabled = False Then GoTo Lend


If Combo2 = "IMEI 1 & IMEI 2" Then
   Text2.Visible = True: Text2.Enabled = True: Label8.Visible = True: Label7 = "IMEI 1:": Label8 = "IMEI 2:"
   
   If Option3.Value = False Then
      Check1.Enabled = True: Label16.Visible = False: Combo4.Visible = False: Label7.Top = 1575: Label8.Top = 2430: Text1.Top = 1460
      Command7.Visible = True: Command8.Visible = True: Command10.Visible = True: Command11.Visible = True: Command12.Visible = True: Command13.Visible = True: Line1.Visible = True: Line2.Visible = True: Line3.Visible = True
      Command7.Top = 1590: Command8.Top = 1845
   Else
      Label16.Visible = True:: Combo4.Visible = True: Label7.Top = 1350: Label15.Top = 1800: Combo3.Top = 1740: Label8.Top = 2250: Text1.Top = 1460
      Command7.Visible = False: Command8.Visible = False: Command10.Visible = False: Command11.Visible = False: Command12.Visible = False: Command13.Visible = False: Line1.Visible = False: Line2.Visible = False: Line3.Visible = False
   End If
Else
   If Option3.Value = False Then
      Check1.Enabled = True: Label16.Visible = False: Combo4.Visible = False: Label7.Top = 1980: Text1.Top = 1845
      Command7.Top = 1955: Command8.Top = 2230
   Else
      Label16.Visible = True: Combo4.Visible = True: Label16.Visible = False: Combo4.Visible = False: Label7.Top = 1780: Label15.Top = 2190: Combo3.Top = 2130: Text1.Top = 1845
      Command7.Visible = False: Command8.Visible = False: Command10.Visible = False: Command11.Visible = False: Command12.Visible = False: Command13.Visible = False: Line1.Visible = False: Line2.Visible = False: Line3.Visible = False
   End If
   If Combo2 = "IMEI 1" Then: Label7 = "IMEI 1:"
   If Combo2 = "IMEI 2" Then: Label7 = "IMEI 2:"
   If Combo2 = "IMEI 1 = IMEI 2" Then: Label7 = "IMEI :"
   Text2.Visible = False: Label8.Visible = False: Check1.Enabled = False: Label16.Visible = False: Combo4.Visible = False
   Command10.Visible = False: Command11.Visible = False: Command12.Visible = False: Command13.Visible = False: Line1.Visible = False: Line2.Visible = False: Line3.Visible = False
End If

Label2 = "": Label2.BackColor = &H8000000F

Lend:
End Sub

Private Sub Mscomm1_OnComm()
    On Error Resume Next
    Dim Code1 As String
    Dim i, x As Integer
    
    With MSComm1
        Select Case .CommEvent
            Case comEvReceive
                Code1 = .Input
                If Err.Number = 8020 Then MSComm1.PortOpen = False: Timer1.Enabled = False: MsgBox "串口打开失败,请重新启动程序！": End
                Text5.Text = Text5.Text & Code1
        End Select
    End With
    
    
If Combo2 = "IMEI 1 & IMEI 2" Or Combo2 = "IMEI 1 = IMEI 2" Then
       Text3 = "": Text3 = Left(Right(Text5, 71), 15)
       Text4 = "": Text4 = Left(Right(Text5, 24), 15)
    If m = 1 And Len(Text3) = 15 And Len(Text4) = 15 And Len(Label2) <> 39 And Label2.BackColor <> &HC000& Then
       
       For i = 1 To 15
         If Asc(Mid(Text3, i, 1)) < 48 Or Asc(Mid(Text3, i, 1)) > 57 Then Label2.BackColor = &HFF&: Label2 = "写IMEI失败。": Frame2.Enabled = True: Command1.Enabled = True: Command1.SetFocus: n = 0: GoTo TC1
       Next i
       For i = 1 To 15
         If Asc(Mid(Text4, i, 1)) < 48 Or Asc(Mid(Text4, i, 1)) > 57 Then Label2.BackColor = &HFF&: Label2 = "写IMEI失败。": Frame2.Enabled = True: Command1.Enabled = True: Command1.SetFocus: n = 0: GoTo TC1
       Next i
       
       If Val(Text1) = Val(Text3) And Val(Text2) = Val(Text4) Then
          Label2.BackColor = &HC000&: Label2 = "成功写入: " & Text3 & " 、" & Text4
          
          Frame2.Enabled = True: Command1.Enabled = True: Text1.Enabled = True: Text2.Enabled = True
          n = 0
       Else
          Label2.BackColor = &HFF&: Label2 = "写IMEI失败。": Frame2.Enabled = True: Command1.Enabled = True: Command1.SetFocus: n = 0
       End If
       Frame2.Enabled = True
TC1:
          
    End If
End If
    
    
If Combo2 = "IMEI 1" Then
       Text3 = "": Text3 = Left(Right(Text5, 24), 15)
    If m = 1 And Len(Text3) = 15 And Len(Label2) <> 39 And Label2.BackColor <> &HC000& Then
       
       For i = 1 To 15
         If Asc(Mid(Text3, i, 1)) < 48 Or Asc(Mid(Text3, i, 1)) > 57 Then GoTo TC2
       Next i
       
       If Val(Text1) = Val(Text3) Then
          Label2.BackColor = &HC000&: Label2 = "成功写入: " & Text3
          Frame2.Enabled = True: Command1.Enabled = True: Text1.Enabled = True
       Else
          Label2.BackColor = &HFF&: Label2 = "写IMEI失败。": Frame2.Enabled = True: Command1.Enabled = True:  n = 0
       End If
TC2:
    End If
End If
    
    
If Combo2 = "IMEI 2" Then
       Text4 = "": Text4 = Left(Right(Text5, 24), 15)
    If m = 1 And Len(Text4) = 15 And Len(Label2) <> 39 And Label2.BackColor <> &HC000& Then
       
       For i = 1 To 15
         If Asc(Mid(Text4, i, 1)) < 48 Or Asc(Mid(Text4, i, 1)) > 57 Then GoTo TC3
       Next i
       
       If Val(Text2) = Val(Text4) Then
          Label2.BackColor = &HC000&: Label2 = "成功写入: " & Text4
          Frame2.Enabled = True: Command1.Enabled = True: Text1.Enabled = True
          n = 0
       Else
          Label2.BackColor = &HFF&: Label2 = "写IMEI失败。": Frame2.Enabled = True: Command1.Enabled = True: n = 0
       End If
TC3:
    End If
End If

    
    If Right(Text5, 10) = "+EIND: 128" Then
       MSComm1.Output = "at+eslp=0" & vbCr
    End If
Lend1:
End Sub

Function IMEI_Write()
Dim x As Double
Dim xcs As Integer
    m = 0: Text5 = "":  Timer1.Enabled = False: xcs = 2
    
    Command1.Enabled = False: Text1.Enabled = False: Text2.Enabled = False
    Frame2.Enabled = False
    If Label1 = "已断开" Then Label2 = "请连接手机...": GoTo JS

    If p >= xcs Then Label2.BackColor = &HFF&: Label2 = "写IMEI失败。": Frame2.Enabled = True: Command1.Enabled = True: Command1.SetFocus: Text1.Enabled = True: Text2.Enabled = True: n = 0: cg = 0:  GoTo JS
    Label2 = "请稍后,正在写号......": Label2.BackColor = &HFFFF&
    
    If Combo2 = "IMEI 1 = IMEI 2" Then Text2 = Text1: GoTo Line1
    If Combo2 = "IMEI 1" Then GoTo Line2
    If Combo2 = "IMEI 2" Then Text2 = Text1: GoTo Line3

    
Line1:
    For x = 1 To 9999: Next x
    MSComm1.Output = "at+egmr=1,7," & """" & Text1.Text & """" & vbCr
    For x = 1 To 9999: Next x
    MSComm1.Output = "at+egmr=1,10," & """" & Text2.Text & """" & vbCr
    For x = 1 To 9999: Next x
    m = 1: MSComm1.Output = "at+egmr=0,7" & vbCr
    For x = 1 To 9999: Next x
    m = 1: MSComm1.Output = "at+egmr=0,10" & vbCr
    GoTo JS
Line2:
    For x = 1 To 9999: Next x
    MSComm1.Output = "at+egmr=1,7," & """" & Text1.Text & """" & vbCr
    For x = 1 To 9999: Next x
    m = 1: MSComm1.Output = "at+egmr=0,7" & vbCr
    GoTo JS
Line3:
    For x = 1 To 9999: Next x
    MSComm1.Output = "at+egmr=1,10," & """" & Text2.Text & """" & vbCr
    For x = 1 To 9999: Next x
    m = 1: MSComm1.Output = "at+egmr=0,10" & vbCr
JS:
End Function

Private Sub Option1_Click()
If Command1.Enabled = False Then GoTo Lend
Frame1.Enabled = True: Check2.Enabled = True: Option4.Enabled = True: Option5.Enabled = True: Label15.Visible = False: Label16.Visible = False: Combo3.Visible = False: Combo4.Visible = False

If Combo2 = "IMEI 1 & IMEI 2" Then
   Command7.Visible = True: Command8.Visible = True: Command10.Visible = True: Command11.Visible = True: Command12.Visible = True: Command13.Visible = True: Line1.Visible = True: Line2.Visible = True: Line3.Visible = True
   Command7.Top = 1590: Command8.Top = 1845
Else
   Command7.Visible = True: Command8.Visible = True: Command7.Top = 1955: Command8.Top = 2230
End If

If Text1.Enabled = True Then Text1.SetFocus
If Combo2 = "IMEI 1 & IMEI 2" Then Check1.Enabled = True: Label7.Top = 1575: Label8.Top = 2430 Else Label7.Top = 1980: Label8.Top = 1845
Lend:
End Sub

Private Sub Option2_Click()
If Command1.Enabled = False Then GoTo Lend
Frame1.Enabled = True: Check2.Enabled = True: Option4.Enabled = True: Option5.Enabled = True: Label15.Visible = False: Label16.Visible = False: Combo3.Visible = False: Combo4.Visible = False ': Command7.Enabled = True: Command8.Enabled = True

If Combo2 = "IMEI 1 & IMEI 2" Then
   Command7.Visible = True: Command8.Visible = True: Command10.Visible = True: Command11.Visible = True: Command12.Visible = True: Command13.Visible = True: Line1.Visible = True: Line2.Visible = True: Line3.Visible = True
   Command7.Top = 1590: Command8.Top = 1845
Else
   Command7.Visible = True: Command8.Visible = True: Command7.Top = 1955: Command8.Top = 2230
End If

If Text1.Enabled = True Then Text1.SetFocus
If Combo2 = "IMEI 1 & IMEI 2" Then Check1.Enabled = True: Label7.Top = 1575: Label8.Top = 2430 Else Label7.Top = 1980: Label8.Top = 1845
Lend:
End Sub

Private Sub Option3_Click()
If Command1.Enabled = False Then GoTo Lend
Frame1.Enabled = False: Check1.Enabled = False: Check2.Enabled = False: Option4.Enabled = False: Option5.Enabled = False: Label15.Visible = True: Combo3.Visible = True
Command7.Visible = False: Command8.Visible = False: Command10.Visible = False: Command11.Visible = False: Command12.Visible = False: Command13.Visible = False: Line1.Visible = False: Line2.Visible = False: Line3.Visible = False

If Combo2 = "IMEI 1 & IMEI 2" Then
   Label16.Visible = True: Combo4.Visible = True: Label7.Top = 1350: Label15.Top = 1800: Combo3.Top = 1740: Label8.Top = 2250
Else
   Label16.Visible = False: Combo4.Visible = False: Label7.Top = 1780: Label8.Top = 2430: Label15.Top = 2190: Combo3.Top = 2130
End If

If Text1.Enabled = True Then Text1.SetFocus
Lend:
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim dat As String

   Label2 = "": n = 1:  p = 0: Text3 = "": Text4 = ""
   If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
   If Len(Text1) = 15 Or Len(Text2) = 15 Then
      Command1.Enabled = False: Label2 = "请稍后，正在写码......": Label2.BackColor = &H8000000F: Text1.Enabled = False: Text2.Enabled = False
      Call IMEI_Write
   End If
   GoTo Lend
  
Lend:
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
  
  MSComm1.Output = "at+eslp=0" & vbCr

  
  If n = 1 And (Len(Text1) = 15 Or Len(Text2) = 15) Then Label2 = "请连接手机..."
  
  If Left(Right(Text5, 4), 2) = "OK" Then
     Label1 = "已连接": Label1.ForeColor = &HFF0000
     
     If Command1.Enabled = False And (Len(Text1) = 15 Or Len(Text2) = 15) Then
        Label2 = "":
Line1:
           Call IMEI_Write
           p = p + 1
           If Label2.BackColor = &HC000& Then GoTo Line2
           
           If p <= 1 Then GoTo Line1
        End If
        n = 0
  Else
     Label1 = "已断开":  m = 0
     If n = 0 Then
        Text1.Enabled = True: Text2.Enabled = True
        Label1.ForeColor = &HFF&
        
     End If
  End If
  
Line2:
  Text5 = ""
Lend1:
End Sub