?? form1.frm
字號:
VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Form1
BackColor = &H00FFFFFF&
Caption = "程序網上激活窗口"
ClientHeight = 2595
ClientLeft = 60
ClientTop = 420
ClientWidth = 6855
LinkTopic = "Form1"
ScaleHeight = 2595
ScaleWidth = 6855
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 200
Left = 5760
Top = 120
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "輸入激活序列號："
Height = 855
Left = 120
TabIndex = 0
Top = 720
Width = 6615
Begin VB.TextBox txt5
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 5520
MaxLength = 5
TabIndex = 10
Top = 360
Width = 975
End
Begin VB.TextBox txt4
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 4197
MaxLength = 5
TabIndex = 8
Top = 360
Width = 975
End
Begin VB.TextBox txt3
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2878
MaxLength = 5
TabIndex = 6
Top = 360
Width = 975
End
Begin VB.TextBox txt2
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1559
MaxLength = 5
TabIndex = 4
Top = 360
Width = 975
End
Begin VB.TextBox txt1
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 240
MaxLength = 5
TabIndex = 1
Top = 360
Width = 975
End
Begin VB.Label Label5
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "－"
Height = 180
Left = 5254
TabIndex = 9
Top = 405
Width = 180
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "－"
Height = 180
Left = 3935
TabIndex = 7
Top = 405
Width = 180
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "－"
Height = 180
Left = 2616
TabIndex = 5
Top = 405
Width = 180
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "－"
Height = 180
Left = 1297
TabIndex = 3
Top = 405
Width = 180
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "－"
Height = 180
Left = 720
TabIndex = 2
Top = 360
Width = 180
End
End
Begin InetCtlsObjects.Inet PostSocket
Left = 6120
Top = 1800
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "此軟件需要網上激活才能使用！"
Height = 180
Left = 2280
TabIndex = 11
Top = 240
Width = 2520
End
Begin VB.Image Image22
Enabled = 0 'False
Height = 480
Left = 3720
Picture = "Form1.frx":0000
Top = 1800
Visible = 0 'False
Width = 1410
End
Begin VB.Image Image11
Enabled = 0 'False
Height = 480
Left = 1800
Picture = "Form1.frx":3186
Top = 1800
Visible = 0 'False
Width = 1410
End
Begin VB.Image Image2
Height = 480
Left = 3720
Picture = "Form1.frx":6905
Top = 1800
Width = 1410
End
Begin VB.Image Image1
Height = 480
Left = 1800
Picture = "Form1.frx":9CE4
Top = 1800
Width = 1410
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private WithEvents EncryptDES As clsDES
Attribute EncryptDES.VB_VarHelpID = -1
Private EncryptObject As Object
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
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -