基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

：

登录、注册、更改密码

：

：

Private Sub Command1_Click()
    On Error Resume Next
    Dim t As String, b As String
    For i = 1 To Len(Text1.Text) Step 1
        t = t & Chr(Asc(Mid(Text1.Text, i, i))   2)
    Next i
    For i = 1 To Len(Text2.Text) Step 1
        b = b & Chr(Asc(Mid(Text2.Text, i, i))   2)
    Next i
    t = t & "," & b
    Open App.Path & "/pass&user.ini" For Append As #1
        Print #1, t
    Close #1
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    Dim a As String, b() As String, c As String, d As String
    Open App.Path & "/pass&user.ini" For Input As #1
        Do Until EOF(1)
            Line Input #1, t
            b = Split(t, ",")
            For i = 1 To Len(b(0)) Step 1
                c = c & Chr(Asc(Mid(b(0), i, i)) - 2)
            Next i
            For i = 1 To Len(b(1)) Step 1
                d = d & Chr(Asc(Mid(b(1), i, i)) - 2)
            Next i
           If Text3.Text = c And Text4.Text = d Then
           MsgBox "登录成功！", , "提示"
           Load 首页
           首页.Show
           Unload 用户管理
           Exit Sub
           End If
           
            c = ""
            d = ""
        Loop
    Close #1
    GoTo lll
lll:
    MsgBox "用户名或密码错误！", vbCritical, "提示"
End Sub

Private Sub Command3_Click()
    On Error Resume Next
    Dim a As String, b() As String, c As String, d As String
    Open App.Path & "/pass&user.ini" For Input As #1
    Dim n As String, can As Boolean
        Do Until EOF(1)
            Line Input #1, t
            
            b = Split(t, ",")
            
            For i = 1 To Len(b(0)) Step 1
                c = c & Chr(Asc(Mid(b(0), i, i)) - 2)
            Next i
            For i = 1 To Len(b(1)) Step 1
                d = d & Chr(Asc(Mid(b(1), i, i)) - 2)
            Next i
        If Text5.Text = c And Text6.Text = d Then
           MsgBox "更改成功！", , "提示"
           b(1) = ""
           For i = 1 To Len(Text7.Text) Step 1
           b(1) = b(1) & Chr(Asc(Mid(Text7.Text, i, i))   2)
           Next i
           
           n = n & b(0) & "," & b(1) & vbCrLf
    d = Text7.Text
     For i = 1 To Len(d) Step 1
        b(1) = Chr(Asc(Mid(d, i, i))   2)
        
    Next i
           can = True
           
           Else
           n = n & b(0) & "," & b(1) & vbCrLf
           End If
           
            c = ""
            d = ""
            
        Loop
    Close #1
    If can = True Then
    can = False
    Open App.Path & "\pass&user.ini" For Output As #1
    Print #1, n
    Close #1
    Exit Sub
    End If
    GoTo lll
lll:
    MsgBox "用户名或密码错误！", vbCritical, "提示"
End Sub