📄 xdamanipulator.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form XDAmanipulator
BorderStyle = 1 'Fixed Single
Caption = "XDA manipulator"
ClientHeight = 4230
ClientLeft = 45
ClientTop = 435
ClientWidth = 7500
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "XDAmanipulator.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4230
ScaleWidth = 7500
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Help
Caption = "Help"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6240
TabIndex = 17
Top = 3690
Width = 1095
End
Begin VB.CheckBox Lock8
Appearance = 0 'Flat
BackColor = &H00CCFFFF&
Caption = "Keep first 8 digits the same"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 2040
TabIndex = 15
ToolTipText = "Highly recommended!!!"
Top = 3240
Value = 1 'Checked
Visible = 0 'False
Width = 2895
End
Begin VB.CommandButton reset_counters
Caption = "reset"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4185
TabIndex = 12
Top = 3690
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton unlock_GID
Caption = "unlock"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4185
TabIndex = 10
Top = 2325
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton unlock_SID
Caption = "unlock"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4185
TabIndex = 9
Top = 1845
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton update_IMEI
Caption = "update"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4185
TabIndex = 8
Top = 2820
Visible = 0 'False
Width = 975
End
Begin VB.TextBox IMEI
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 240
Left = 2055
MaxLength = 14
TabIndex = 5
Top = 2880
Visible = 0 'False
Width = 1710
End
Begin MSCommLib.MSComm MSComm1
Left = 6960
Top = 1200
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
Handshaking = 2
BaudRate = 115200
End
Begin VB.Label lSearching
BackStyle = 0 'Transparent
Caption = $"XDAmanipulator.frx":030A
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 720
TabIndex = 18
Top = 2040
Width = 6135
End
Begin VB.Label version
BackStyle = 0 'Transparent
Caption = "v1.11"
Height = 255
Left = 6840
TabIndex = 19
Top = 0
Width = 615
End
Begin VB.Label URL
BackStyle = 0 'Transparent
Height = 375
Left = 0
MouseIcon = "XDAmanipulator.frx":03A8
MousePointer = 99 'Custom
TabIndex = 16
Top = 0
Width = 3255
End
Begin VB.Label Timers
BackStyle = 0 'Transparent
Height = 255
Left = 2040
TabIndex = 14
Top = 3720
Width = 1695
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Call timers:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 13
Top = 3705
Visible = 0 'False
Width = 1095
End
Begin VB.Label Luhn_digit
BackStyle = 0 'Transparent
Height = 375
Left = 3750
TabIndex = 11
ToolTipText = "This is a ""check-digit"". It's automatically calculated, and cannot directly be changed"
Top = 2880
Visible = 0 'False
Width = 255
End
Begin VB.Label GIDlock
BackStyle = 0 'Transparent
Height = 255
Left = 2040
TabIndex = 7
Top = 2400
Width = 1695
End
Begin VB.Label SIDlock
BackStyle = 0 'Transparent
Height = 255
Left = 2025
TabIndex = 6
Top = 1920
Width = 1815
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "IMEI:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 4
Top = 2865
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "GID lock: "
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 3
Top = 2385
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "SID lock: "
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 2
Top = 1905
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Status: "
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 1
Top = 1425
Width = 1095
End
Begin VB.Label lStatus
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2025
TabIndex = 0
Top = 1425
Width = 5415
End
Begin VB.Image Image1
Height = 4500
Left = 0
Picture = "XDAmanipulator.frx":04FA
Top = 0
Width = 7500
End
End
Attribute VB_Name = "XDAmanipulator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'used for loading URLs into browser
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Keep the original IMEI for restoration of first 8 digits. Needed accross functions
Dim OrigIMEI As String
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Ctrl-R
If KeyCode = vbKeyR And Shift = 2 Then
DumpRom "c:\RS-x-xx.bin"
End If
End Sub
Private Sub Form_Load()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -