我個人的想法：我想用VB製作一個登入程式，在登入之後才可以連上寬頻網路，且這個程式在登入跟登出時候會自動將時間跟日期傳到記事本。
目前的問題：我目前沒有辦法強制使用者登入，另外也沒有辦法讓寬頻網路跟程式連結，希望各位能給我一些建議
目前的進度
VB的表單樣貌:
在開啟之後會將"C:\TEXT.TXT"文件資料載入到TEXT3
在登入之後
登入的時候會將時間和日期，儲存到"C:\TEXT.TXT"且不會將之前的紀錄刪除
TEXT4會顯示目前登入的時間
***************************************************************************
程式碼
Private Sub Command1_Click() **************登入按鈕
If Text1 = "1234" And Text2 = "1234" Or Text1 = "4321" And Text2 = "4321" Then ***2組帳號
a = Date & "-" & Time & "，登入" & Text1 *****登入之後的時間
Text4 = a *****將時間的資料貼到TEXT4
Option1 = True *****登入狀況 登入中 黑點
Option2 = Flase ***** 尚未登入 白點
Open "C:\TEXT.TXT" For Append As #1 ******將時間跟日期新增到記事本
a = Text4.Text
Print #1, a
Close #1
Else
MsgBox "密碼錯誤，請輸入正確的帳號" **** 如果不是 1234 and 4321 這兩組則錯誤
End If
Dim INWORD As String ************重新整理TEXT4
Text3.Text = ""
Open "C:\TEXT.TXT" For Input As #1
Do Until EOF(1)
Line Input #1, INWORD
Text3.Text = Text3.Text & INWORD & vbCrLf
Loop
Close #1
End Sub
Private Sub Command2_Click() ********登出按鈕
If Text1 = "1234" And Text2 = "1234" Or Text1 = "4321" And Text2 = "4321" Then **2組帳號
a = Date & "-" & Time & "，登出" & Text1 *****登出時間
Text4 = a ****將登出時間貼到TEXT4上
Option2 = True ***尚未登入 黑點
Option1 = False ***登入中 白點
Open "C:\TEXT.TXT" For Append As #1 *******將登出時間新增到記事本
a = Text4.Text
Print #1, a
Close #1
Else
MsgBox "密碼錯誤，請輸入正確的帳號" ****如果帳號密碼錯誤則出現
End If
Dim INWORD As String *****重新整理TEXT4
Text3.Text = ""
Open "C:\TEXT.TXT" For Input As #1
Do Until EOF(1)
Line Input #1, INWORD
Text3.Text = Text3.Text & INWORD & vbCrLf
Loop
Close #1
End Sub
Private Sub Form_Load() *****開啟表單時
Dim INWORD As String *****匯入記事本的文件
Text3.Text = ""
Open "C:\TEXT.TXT" For Input As #1
Do Until EOF(1)
Line Input #1, INWORD
Text3.Text = Text3.Text & INWORD & vbCrLf
Loop
Close #1
EndSub
***************************************************************************
