VB寫登入程式時~如何編寫記憶帳號密碼的程式碼

Question

使用VB6.0寫登入程式時~如何編寫記憶帳號密碼的程式碼
能使每次開啟程式時 帳號密碼會自動輸入
知道的人麻煩回我一下哦~謝謝^^

登入介面主要是要切換不同服務用的
我把它整合在同一個登入介面
這記憶功能是給常使用某種服務使用的
主要是記憶 text1跟text2的帳密
若關掉程式時 沒清除的話 有勾選記憶
那下次開啟時 就會出現在文字方塊上
不太懂程式碼要怎寫 可以交一下嗎@@"

Answer 1

當使用者勾選記憶帳號時，
可以在硬碟裡留下一個 Text 檔紀錄相關資訊，
每當程式開起來的時候先去檢查是否有此記憶檔，
如果有的話就開啟此記憶檔並將相關的值(Ex.帳號)填入對應的欄位中，
不過因為是明碼紀錄在PC的硬碟裡，
如果紀錄的資訊有安全顧慮的話(Ex.密碼)，
那麼可能要考慮一下是否要將資料編碼後再儲存於硬碟上。

2006-04-03 20:16:07 補充：
在表單上放
按鈕 Command1
核取方塊 Check1
文字欄 Text1 及 Text2
然後在把下列程式碼貼上去即可

Private Sub Form_Load()
Dim ReadUserData As String

If Dir(App.Path & "\UserData.txt") <> "" Then
　Open App.Path & "\UserData.txt" For Input As #1
　　Do While Not EOF(1)
　　　Line Input #1, ReadUserData

2006-04-03 20:16:17 補充：
　　　Select Case Left(ReadUserData, 4)
　　　　Case "UID:" '讀取帳號資料
　　　　　Text1.Text = Mid(ReadUserData, 5, Len(ReadUserData) - 4)
　　　　Case "PWD:" '讀取密碼資料
　　　　　Text2.Text = Mid(ReadUserData, 5, Len(ReadUserData) - 4)
　　　End Select
　　Loop
　Close #1
End If

End Sub

2006-04-03 20:16:44 補充：
Private Sub Command1_Click()

If Check1.Value = 1 Then '有勾選記憶密碼的話就產生紀錄檔
　Open App.Path & "\UserData.txt" For Output As #1
　　Print #1, "UID:" & Text1.Text '將帳號寫入文字檔
　　Print #1, "PWD:" & Text2.Text '將密碼寫入文字檔
　Close #1
Else

2006-04-03 20:16:57 補充：
　Kill App.Path & "\UserData.txt" '沒有勾選記憶密碼的話就把紀錄檔刪除
End If

：
{登入後的作業}
：

End Sub

2006-04-04 16:33:36 補充：
只要在下面這兩行程式中再加上一行指令即可
　If Dir(App.Path & "\UserData.txt") <> "" Then
　　Open App.Path & "\UserData.txt" For Input As #1

變成
　If Dir(App.Path & "\UserData.txt") <> "" Then
　　Check1.Value = 1
　　Open App.Path & "\UserData.txt" For Input As #1

Answer 2

下面的網址應該對你有幫助

http://phi008780424.pixnet.net/blog

Answer 3

我實際測試後 大致上OK
不過有個小問題阿
就是當程式從新執行時
記憶帳密的鉤鉤要從新點選
有辦法若是打勾後除非自己再按取消
不然就一直記憶的選項打勾嗎?

還有很謝謝你一直耐心的為我解答哦^^

Answer 4

這樣的話，又何必寫登入介面呢?? @@
如果是要測試的話
可以在程序執行前，先將資料以"指定"的方式
填入"文字方塊"中...(我想你應該是用文字方塊接收帳號跟密碼資料的吧)!!
這樣，在整個程式啟動後，帳號跟密碼就會自動出現囉
當然，只限一個人!! ^_^

或是在編輯的時候，直接給予初值設定就好了!!
不過，寫完後記得要清除就是了!!
不然，登入介面就變的沒有意義了!!

我的想法大概就是這樣吧!! ^_^ 參考看看吧!!