frmeditpassword.frm

adsl拨号工具 有很多功能 不错啊 大家试试

VERSION 5.00
Begin VB.Form frmEditPassWord 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用户口令修改"
   ClientHeight    =   2025
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4215
   Icon            =   "frmEditPassWord.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2025
   ScaleWidth      =   4215
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "关闭(&Q)"
      Height          =   300
      Left            =   3090
      TabIndex        =   4
      Top             =   1635
      Width           =   825
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认(&O)"
      Height          =   300
      Left            =   1890
      TabIndex        =   3
      Top             =   1635
      Width           =   825
   End
   Begin VB.TextBox Text3 
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   1860
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1230
      Width           =   2235
   End
   Begin VB.TextBox Text2 
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   1860
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   810
      Width           =   2235
   End
   Begin VB.TextBox Text1 
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   1860
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   420
      Width           =   2235
   End
   Begin VB.Image Image1 
      Height          =   720
      Left            =   60
      Picture         =   "frmEditPassWord.frx":030A
      Top             =   150
      Width           =   720
   End
   Begin VB.Label Label4 
      Caption         =   "确认一遍："
      Height          =   180
      Left            =   585
      TabIndex        =   8
      Top             =   1275
      Width           =   1020
   End
   Begin VB.Label Label3 
      Caption         =   "新口令："
      Height          =   210
      Left            =   660
      TabIndex        =   7
      Top             =   885
      Width           =   945
   End
   Begin VB.Label Label2 
      Caption         =   "旧口令："
      Height          =   180
      Left            =   915
      TabIndex        =   6
      Top             =   465
      Width           =   780
   End
   Begin VB.Label Label1 
      Caption         =   "修改密码时请注意别人哦！"
      Height          =   240
      Left            =   1800
      TabIndex        =   5
      Top             =   120
      Width           =   2490
   End
End
Attribute VB_Name = "frmEditPassWord"
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：[e-mail]
'OICQ  : 88382850
'****************************************************************************
'修改口令
Private Sub Command1_Click()
    If Trim(Text2) <> Trim(Text3) Then
       MsgBox "哎,第一次咋和第二次密码不一样呢?", vbCritical, "拨号上网管理器 v1.0"
       Text3.SetFocus
       Exit Sub
    Else
       Call SetKeyValue(HKEY_CURRENT_USER, "Software\Mndsoft\Property\DialUserList", "WatchWord" & Trim(sTR(frmDialupManage.List1.ListIndex)), Trim(Text3), REG_SZ)
       Unload Me
    End If
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub

Private Sub Form_Load()
   Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
   Command1.Enabled = False
   Text1 = frmDialupManage.Text1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 22 Then KeyAscii = 0
    If KeyAscii = 13 Then
       Text2.SetFocus
    End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 22 Then KeyAscii = 0
    If KeyAscii = 13 Then
       Text3.SetFocus
    End If
End Sub

Private Sub Text3_Change()
   If Len(Trim(Text3)) <> 0 Then
      Command1.Enabled = True
   Else
      Command1.Enabled = False
   End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 22 Then KeyAscii = 0
    If KeyAscii = 13 Then
       Command2.SetFocus
    End If
End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 93 Then MaskMenu Text1
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 93 Then MaskMenu Text2
End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 93 Then MaskMenu Text3
End Sub

Private Sub MaskMenu(ByVal oText As TextBox)
    With oText
        .Enabled = False
        .Enabled = True
        .SetFocus
        SendKeys "%"
    End With
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then MaskMenu Text1
End Sub

Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then MaskMenu Text2
End Sub


Private Sub Text3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then MaskMenu Text3
End Sub