📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "临沂供电公司接入认证系统"
ClientHeight = 7230
ClientLeft = 45
ClientTop = 405
ClientWidth = 4440
Icon = "Form1.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Form1.frx":1782
ScaleHeight = 7230
ScaleWidth = 4440
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin VB.TextBox Text6
Height = 1185
Left = 4590
MousePointer = 1 'Arrow
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 26
Text = "Form1.frx":13396
Top = 2970
Width = 5595
End
Begin VB.TextBox Text5
Height = 420
Left = 5040
TabIndex = 25
Text = "Text5"
Top = 1215
Width = 825
End
Begin VB.TextBox Text4
Height = 1185
Left = 4590
MousePointer = 1 'Arrow
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 24
Text = "Form1.frx":1339C
Top = 1710
Width = 5595
End
Begin VB.Timer Timer3
Interval = 60000
Left = 4500
Top = 1170
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 60000
Left = 4905
Top = 675
End
Begin VB.Timer Timer1
Interval = 200
Left = 4455
Top = 675
End
Begin VB.TextBox Text3
Height = 555
Left = 5130
TabIndex = 19
Text = "Text3"
Top = 45
Width = 3210
End
Begin VB.PictureBox Pic1
AutoSize = -1 'True
Height = 540
Left = 4455
Picture = "Form1.frx":133A2
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 18
Top = 45
Width = 540
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "客户信息"
Height = 1545
Left = 315
TabIndex = 9
Top = 3735
Width = 3795
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00808080&
Height = 180
Index = 4
Left = 1260
TabIndex = 17
Top = 1215
Width = 90
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使用日期："
ForeColor = &H00808080&
Height = 180
Index = 3
Left = 315
TabIndex = 16
Top = 1215
Width = 900
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "http://172.30.0.48/"
ForeColor = &H00808080&
Height = 195
Left = 1260
TabIndex = 15
Top = 900
Width = 2400
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "更新服务器："
ForeColor = &H00808080&
Height = 180
Index = 2
Left = 135
TabIndex = 14
Top = 900
Width = 1080
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "http://172.30.0.48/Update"
ForeColor = &H00808080&
Height = 195
Left = 1260
TabIndex = 13
Top = 585
Width = 2400
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "补丁服务器："
ForeColor = &H00808080&
Height = 180
Index = 1
Left = 135
TabIndex = 12
Top = 585
Width = 1080
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "NOD32 企业版"
ForeColor = &H00808080&
Height = 195
Left = 1260
TabIndex = 11
Top = 270
Width = 2310
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "杀毒软件："
ForeColor = &H00808080&
Height = 180
Index = 0
Left = 315
TabIndex = 10
Top = 270
Width = 900
End
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 180
Left = 1350
TabIndex = 0
Top = 3330
Width = 195
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 285
IMEMode = 3 'DISABLE
Left = 1350
PasswordChar = "*"
TabIndex = 5
Top = 2790
Width = 2400
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 285
Left = 1350
TabIndex = 4
Top = 2205
Width = 2400
End
Begin VB.Label Label16
Caption = "Label16"
Height = 150
Left = 8955
TabIndex = 30
Top = 720
Width = 735
End
Begin VB.Label Label15
Caption = "Label15"
Height = 240
Left = 8055
TabIndex = 29
Top = 720
Width = 960
End
Begin VB.Label Label14
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "退出系统"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 330
Left = 2385
MouseIcon = "Form1.frx":14B24
MousePointer = 99 'Custom
TabIndex = 28
Top = 5535
Width = 1680
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "版权所有：临沂供电公司信息中心(R)2009"
ForeColor = &H00808080&
Height = 180
Index = 6
Left = 135
TabIndex = 27
Top = 6975
Width = 3330
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "技术支持电话：7444"
ForeColor = &H00808080&
Height = 180
Index = 5
Left = 135
TabIndex = 23
Top = 6660
Width = 1620
End
Begin VB.Label Label13
Caption = "Label13"
Height = 195
Left = 7200
TabIndex = 22
Top = 720
Width = 735
End
Begin VB.Label Label12
Caption = "Label12"
Height = 195
Left = 6255
TabIndex = 21
Top = 720
Width = 780
End
Begin VB.Label Label11
Caption = "Label11"
Height = 375
Left = 5400
TabIndex = 20
Top = 720
Width = 870
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "1.03"
ForeColor = &H00808080&
Height = 180
Left = 3825
TabIndex = 8
Top = 6660
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "软件版本："
ForeColor = &H00808080&
Height = 180
Left = 2925
TabIndex = 7
Top = 6660
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "记住账号自动登录"
Height = 180
Left = 1665
MouseIcon = "Form1.frx":14C76
MousePointer = 99 'Custom
TabIndex = 6
Top = 3330
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户密码："
Height = 180
Left = 360
TabIndex = 3
Top = 2835
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户账号："
Height = 180
Left = 360
TabIndex = 2
Top = 2250
Width = 900
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "认证连接"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 330
Left = 450
MouseIcon = "Form1.frx":14DC8
MousePointer = 99 'Custom
TabIndex = 1
Top = 5535
Width = 1680
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Type RASIPADDR
a As Byte
b As Byte
c As Byte
d As Byte
End Type
Private Type RASENTRY
dwSize As Long
dwfOptions As Long
dwCountryID As Long
dwCountryCode As Long
szAreaCode(10) As Byte
szLocalPhoneNumber(128) As Byte
dwAlternateOffset As Long
ipaddr As RASIPADDR
ipaddrDns As RASIPADDR
ipaddrDnsAlt As RASIPADDR
ipaddrWins As RASIPADDR
ipaddrWinsAlt As RASIPADDR
dwFrameSize As Long
dwfNetProtocols As Long
dwFramingProtocol As Long
szScript(259) As Byte
szAutodialDll(259) As Byte
szAutodialFunc(259) As Byte
szDeviceType(16) As Byte
szDeviceName(128) As Byte
szX25PadType(32) As Byte
szX25Address(200) As Byte
szX25Facilities(200) As Byte
szX25UserData(200) As Byte
dwChannels As Long
dwReserved1 As Long
dwReserved2 As Long
dwSubEntries As Long
dwDialMode As Long
dwDialExtraPercent As Long
dwDialExtraSampleSeconds As Long
dwHangUpExtraPercent As Long
dwHangUpExtraSampleSeconds As Long
dwIdleDisconnectSeconds As Long
dwType As Long
dwEncryptionType As Long
dwCustomAuthKey As Long
guidId As GUID
szCustomDialDll(259) As Byte
dwVpnStrategy As Long
dwfOptions2 As Long
dwfOptions3 As Long
szDnsSuffix(255) As Byte
dwTcpWindowSize As Long
szPrerequisitePbk(259) As Byte
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -