前言

機房中有改密碼的功能，但是是要知道原密碼才能改。如果現在系統已經打包供給客戶進行使用了，客戶登入密碼忘記了，怎麼解決？這時，密保派上用場了。看看我是怎麼實現這個功能的！

樣式展覽

功能介紹

1.登入時自動檢測此賬號是否設定密保，如果沒有密保，自動彈出設定密保窗體，設定成功才可登入。 2.忘記密碼通過之前設定的密保找回，選擇問題，答案，輸入驗證碼，全部正確後方可修改密碼。 3.我在資料庫中添加了一個表，列名分別為：使用者名稱，密保問題，密保答案。

驗證碼部分程式碼

Private Sub Picture1_Click()
    Randomize Timer    '隨機種子
    y = ""
    Picture1.Cls       '圖片框清屏
    For i = i To 3     '四個字元
        
        '設定字元字號，字形
        Picture1.FontSize = Int(Rnd * 13 + 12)       '[12，24]字號隨機
        j = Int(Rnd * 4) + 1                         '[1，4]隨機數
        If i = j Then Picture1.FontItalic = True     '對應位置傾斜
        
       '顏色隨機
        k1 = Int(Rnd * 256)
        k2 = Int(Rnd * 256)
        k3 = Int(Rnd * 256)
        Picture1.ForeColor = RGB(k1, k2, k3)
        
        '產生隨機字元
        k = Int(Rnd * 3)
        Select Case k
            Case 0: a = 48: b = 57       '數字
            Case 1: a = 65: b = 90       '大寫字母
            Case 2: a = 90: b = 122      '小寫字母
        End Select
        
        '記錄並輸出字元
        x = Int(Rnd * (b - a + 1) + a)      '隨機數
        y = y & (Chr(x))
        Picture1.Print Chr(x) & " ";        '圖片框輸出
        Picture1.FontItalic = False         '不傾斜
    Next i
    
    '畫一條隨機位置的線條
    Picture1.Line (0, 0)-(Int(Rnd * 500 + 1000), Int(Rnd * 150) + 100)
End Sub