📄 frmdialupmanage.frm
字号:
ForeColor = &H00C0C000&
Height = 210
Left = 735
TabIndex = 13
Top = 510
Width = 2235
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "结束:"
ForeColor = &H00FFFFFF&
Height = 270
Left = 135
TabIndex = 12
Top = 495
Width = 525
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
ForeColor = &H00C0C000&
Height = 210
Left = 735
TabIndex = 11
Top = 285
Width = 2130
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "开始:"
ForeColor = &H00FFFFFF&
Height = 225
Left = 135
TabIndex = 10
Top = 270
Width = 525
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 210
Left = 735
TabIndex = 9
Top = 60
Width = 2340
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "状态:"
ForeColor = &H00FFFFFF&
Height = 225
Left = 135
TabIndex = 8
Top = 45
Width = 480
End
Begin VB.Image Image1
Height = 285
Left = 1875
Top = 990
Width = 285
End
End
Begin VB.PictureBox Pic1
Height = 315
Left = 5835
ScaleHeight = 255
ScaleWidth = 210
TabIndex = 6
Top = 4335
Visible = 0 'False
Width = 270
End
Begin VB.Timer Timer1
Interval = 250
Left = 4710
Top = -195
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 420
Left = 1380
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 4305
Width = 4335
End
Begin VB.CommandButton Command6
Caption = "修改口令(&E)"
Height = 270
Left = 4485
TabIndex = 2
Top = 3945
Width = 1200
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 270
IMEMode = 3 'DISABLE
Left = 1380
PasswordChar = "@"
TabIndex = 1
Top = 3945
Width = 2985
End
Begin VB.ListBox List1
Appearance = 0 'Flat
Height = 3450
Left = 105
TabIndex = 0
Top = 360
Width = 1575
End
Begin VB.Label Label1
Caption = "名称(&N):"
Height = 240
Left = 90
TabIndex = 43
Top = 120
Width = 780
End
Begin VB.Image Image4
Height = 480
Index = 4
Left = 9525
Picture = "frmDialupManage.frx":030A
Top = 1110
Visible = 0 'False
Width = 480
End
Begin VB.Image Image4
Height = 480
Index = 3
Left = 9030
Picture = "frmDialupManage.frx":0614
Top = 1110
Visible = 0 'False
Width = 480
End
Begin VB.Image Image4
Height = 480
Index = 2
Left = 8460
Picture = "frmDialupManage.frx":091E
Top = 1125
Visible = 0 'False
Width = 480
End
Begin VB.Image Image4
Height = 480
Index = 1
Left = 7905
Picture = "frmDialupManage.frx":0C28
Top = 1110
Visible = 0 'False
Width = 480
End
Begin VB.Image Image4
Height = 480
Index = 0
Left = 7410
Picture = "frmDialupManage.frx":0F32
Top = 1125
Visible = 0 'False
Width = 480
End
Begin VB.Image Image2
Height = 240
Index = 4
Left = 8865
Picture = "frmDialupManage.frx":123C
Top = 15
Visible = 0 'False
Width = 240
End
Begin VB.Image Image3
Height = 480
Index = 4
Left = 9510
Picture = "frmDialupManage.frx":1386
Top = 480
Visible = 0 'False
Width = 480
End
Begin VB.Image Image3
Height = 480
Index = 3
Left = 8895
Picture = "frmDialupManage.frx":1690
Top = 450
Visible = 0 'False
Width = 480
End
Begin VB.Image Image3
Height = 480
Index = 2
Left = 8370
Picture = "frmDialupManage.frx":199A
Top = 465
Visible = 0 'False
Width = 480
End
Begin VB.Image Image3
Height = 480
Index = 1
Left = 7860
Picture = "frmDialupManage.frx":1CA4
Top = 480
Visible = 0 'False
Width = 480
End
Begin VB.Image Image3
Height = 480
Index = 0
Left = 7380
Picture = "frmDialupManage.frx":1FAE
Top = 480
Visible = 0 'False
Width = 480
End
Begin VB.Image Image2
Height = 240
Index = 3
Left = 8490
Picture = "frmDialupManage.frx":22B8
Top = 0
Visible = 0 'False
Width = 240
End
Begin VB.Image Image2
Height = 240
Index = 2
Left = 8085
Picture = "frmDialupManage.frx":2402
Top = 15
Visible = 0 'False
Width = 240
End
Begin VB.Image Image2
Height = 240
Index = 1
Left = 7695
Picture = "frmDialupManage.frx":254C
Top = 0
Visible = 0 'False
Width = 240
End
Begin VB.Image Image2
Height = 240
Index = 0
Left = 7350
Picture = "frmDialupManage.frx":2696
Top = 0
Visible = 0 'False
Width = 240
End
Begin VB.Label Label3
Caption = "请输入上网的内容(&M):"
Height = 375
Left = 90
TabIndex = 5
Top = 4320
Width = 1125
End
Begin VB.Label Label2
Caption = "操作口令(&P):"
Height = 195
Left = 105
TabIndex = 4
Top = 4005
Width = 1185
End
End
Attribute VB_Name = "frmDialupManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉出品
'发布日期：05/08/15
'描 述：拨号上网管理器
'网 站：http://www.mndsoft.com/
'e-mail：mnd@mndsoft.com
'OICQ : 88382850
'****************************************************************************
Option Explicit
'--------系统托盘api
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const SC_RESTORE = &HF120&
Private Const SC_SIZE = &HF000&
'----------
Dim DialUser As String, StartTime As String, EndTime As String
Dim nEntry As Integer
Dim hyperjump
Const ProgTitle = "上网管理器"
Const DeyAmn = 3000
Const MsgBox1 = "我不知道您是谁，我不好记录您的操作哎,看用户列表中有没有您的大名!"
Const MsgBox2 = "这好像不是您的密码哎,仔细想想!"
Const MsgBox3 = "请输入您上网要干何事!"
Const MsgBox4 = "您好像英文很好哎,对不起,咱中国人说国语,用汉字:-)"
Const MsgBox5 = "工作内容表达不清,为了大家的方便,您还是稍微多写一些吧!"
Const MsgBox6 = "这好像不是您的密码哎,仔细想想!"
Const MsgBox7 = "别忘了,我到这里了,退出时右键单击图标!"
'--------------------------------
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Type NOTIFYICONDATA
cbSize As Long
mhWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Dim TheForm As NOTIFYICONDATA
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private m_objIpHelper As CIpHelper
Private TransferRate As Single
Private TransferRate2 As Single
Private Sub Combo1_Click()
rasDialer.PhoneEntry = Combo1.Text
If rasDialer.AutoUpdate Then
'editPhoneNumber.Text = rasDialer.PhoneNumber
Text3.Text = rasDialer.UserName
Text4.Text = rasDialer.Password
'editDomain.Text = rasDialer.UserDomain
Else
'editPhoneNumber.Text = ""
Text3.Text = ""
Text3.Text = ""
'editDomain.Text = ""
End If
End Sub
Private Sub Combo1_GotFocus()
Combo1.ToolTipText = Combo1.Text
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -