【導(dǎo)讀】隨著21世紀的到來，網(wǎng)絡(luò)已成為人與人，計算機與計算機構(gòu)通的虛擬世界，每個現(xiàn)代人幾乎都要和網(wǎng)絡(luò)打交道。益與計算機技術(shù)和通信技術(shù)發(fā)展緊密結(jié)合在一起。當前它已廣泛應(yīng)用于政府機關(guān)和企業(yè)的辦公自動化、工廠。計算機網(wǎng)絡(luò)技術(shù)的研究已成為目前非?；钴S的領(lǐng)域。表，Inter在世界范圍的廣泛普及，把人類推向了一個嶄新的信息時代。要享受Inter上的各種服務(wù)，用戶必須以某種方式接入網(wǎng)絡(luò)。幾十年內(nèi)占主導(dǎo)地位。ADSL接入服務(wù)能做到較高的性能價格比這一點，與ADSL接入技術(shù)較其。與CableMode相比，ADSL技術(shù)具有相當大的優(yōu)勢。路上用戶激增時，其速度將會減慢。再者，有關(guān)資料表明，大部分情況下，HFC. 送其它數(shù)據(jù)信號，所以CableModem的理論傳輸速率只能達到一小半。實驗表明，其速率減為1M-2Mbps，更常見的是400K-500Kbps。端相連，它的結(jié)構(gòu)可以看作是星型結(jié)構(gòu)，它的數(shù)據(jù)傳輸帶寬是由每一用戶獨享的。的速率優(yōu)勢是不言而喻的。所付出的附加話費而擔(dān)憂。另外，一些家長朋友們，也常常因為孩子們長時間沉迷于網(wǎng)絡(luò)而苦惱。

　　

【正文】 = amp。HFFamp。 (1).Text = (1).Text amp。 LoginName (2).Text = (2).Text amp。 Date = 已用時間： = False = ddd(subtime) = ddd(subtime) = money amp。 ￥ Set conn = New Provider=。Data Source= amp。 amp。 \data\。Persist Security Info=False time4 = 0 = 2200 = 2021 Left = \ 2 2021 Top = ( Height) \ 2 End Sub Private Sub a1_Click(Index As Integer) Call online 39。調(diào)用網(wǎng)絡(luò)聯(lián)接程序 End Sub Private Sub A2_Click(Index As Integer) Call offline 39。調(diào)用斷 開網(wǎng)絡(luò)程序 End Sub Private Sub a3_Click(Index As Integer) 39?；謴?fù)計時初始狀態(tài)，重新計時 subtime = 0 sum = sumtime * 3600 = False = ddd(sum) = True End Sub Private Sub a4_Click(Index As Integer) 1 39。調(diào)用網(wǎng)絡(luò)設(shè)置窗口 End Sub Private Sub b1_Click(Index As Integer) 1 39。調(diào)用上網(wǎng)絡(luò)記錄窗口 End Sub Private Sub b3_Click(Index As Integer) 1 39。調(diào)用網(wǎng)頁收藏窗口 End Sub Private Sub c1_Click(Index As Integer) 1 39。調(diào)用個人通訊錄窗口 End Sub Private Sub c3_Click(Index As Integer) 1 39。調(diào)用通訊錄查詢窗口 End Sub Private Sub e1_Click(Index As Integer) 1 39。調(diào)用用戶密碼修改窗口 End Sub Private Sub e2_Click(Index As Integer) 1 39。調(diào)用登錄窗口 End Sub Private Sub E3_Click(Index As Integer) End 39。退出系統(tǒng) End Sub Private Sub f1_Click(Index As Integer) 1 39。調(diào)用系統(tǒng)版本信息窗口 End Sub Private Sub Option1_Click() = 已用時間： = ddd(subtime) End Sub Private Sub Option2_Click() = 剩余時間： = ddd(sumtime * 3600 subtime) End Sub Private Sub Timer1_Timer() If Then = 已用時間： = ddd(subtime) ElseIf Then = 剩余時間： = ddd(sumtime * 3600 subtime) End If = ddd(subtime) = ddd(time4) = ddd(time5) time4 = time4 + 1 time5 = time5 + 1 If time5 = booktime * 60 Then 39。上網(wǎng)時間提示 MsgBox 已上網(wǎng) amp。 booktime amp。 分鐘！ , vbOKOnly + vbExclamation, 提示 End If subtime = subtime + 1 End Sub Private Function ddd(sum1 As Long) As String hh = sum1 \ 3600 mm = (sum1 Mod 3600) \ 60 ss = (sum1 Mod 3600) Mod 60 ddd = hh amp。 : amp。 mm amp。 : amp。 ss End Function Private Sub Timer2_Timer() 39。時鐘計時器 (3).Text = time Const HourHand = 0 Const MinuteHand = 13 Const SecondHand = 14 Dim Angle Angle = * (15 (Hour(Now) + Minute(Now) / 60)) linClock(HourHand).X1 = 0 linClock(HourHand).Y1 = 0 linClock(HourHand).X2 = * Cos(Angle) linClock(HourHand).Y2 = * Sin(Angle) Angle = * (75 (Minute(Now) + Second(Now) / 60)) linClock(MinuteHand).X1 = 0 linClock(MinuteHand).Y1 = 0 linClock(MinuteHand).X2 = * Cos(Angle) linClock(MinuteHand).Y2 = * Sin(Angle) Angle = * (75 Second(Now)) linClock(SecondHand).X1 = 0 linClock(SecondHand).Y1 = 0 linClock(SecondHand).X2 = * Cos(Angle) linClock(SecondHand).Y2 = * Sin(Angle) End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Call online Case 2 Call offline Case 3 1 Case 4 1 Case 5 1 Case 6 1 Case 7 1 Case 8 1 Case 9 End End Select End Sub Private Sub Picture1_Resize() Dim i, Angle Static Flag As Boolean If Flag = False Then Flag = True For i = 0 To 14 If i 0 Then Load linClock(i) linClock(i).Visible = True linClock(i).BorderWidth = 4 linClock(i).BorderColor = RGB(0, 64, 250) Next i End If (1, 1)(1, 1) For i = 0 To 14 Angle = i * 2 * Atn(1) / 3 linClock(i).X1 = * Cos(Angle) linClock(i).Y1 = * Sin(Angle) linClock(i).X2 = Cos(Angle) linClock(i).Y2 = Sin(Angle) Next i End Sub Public Sub online() 39。上網(wǎng)連接程序 Shell ,RnaDial + , vbNormalFocus SendKeys {enter}, True = ON LAN = amp。HFF00amp。 = True begintime = time time1 = subtime time5 = 0 = ddd(time4) = ddd(time5) = 39。獲取 IP地址 End Sub Public Sub offline() 39。斷開網(wǎng)絡(luò)程 序 Shell ,RnaDial + , vbNormalFocus DoEvents SendKeys {tab}, True DoEvents SendKeys {enter}, True DoEvents = OFF LAN = amp。HFFamp。 = False endtime = time Dim Sql As String time2 = subtime time3 = time2 time1 txtSQL = insert into adsl(登錄日期 ,開始時間 ,結(jié)束時間 ,用戶名稱 ,連接時長 ,IP 地址 ) values(39。 amp。 Date amp。 39。,39。 amp。 begintime amp。 39。,39。 amp。 endtime amp。 39。,39。 amp。 LoginName amp。 39。,39。 amp。 time3 amp。 39。,39。 amp。 amp。 39。) Set mrc = (txtSQL) txtSQL = update userlist set 上網(wǎng)用時 =39。 amp。 subtime amp。 39。 where amp。 用戶名稱 =39。 amp。 LoginName amp。 39。 Set mrc = (txtSQL) End Sub Public Function GetConnect() As String Dim hKey As Long Dim SubKey As String hKey = HKEY_CURRENT_USER 39。主鍵 SubKey = RemoteAccess 39。子鍵 GetConnect = GetRegValue(hKey, SubKey, Default) 39。取得默認連接名 End Function Public Function GetRegValue(hKey As Long, lpszSubKey As String, szKey As String) As Variant On Error GoTo ErrorRoutineErr: Dim phkResult As Long Dim lResult As Long Dim szBuffer As String Dim lBuffSize As Long szBuffer = Space(255) 39。創(chuàng)建緩沖區(qū) lBuffSize = Len(szBuffer) RegOpenKeyEx hKey, lpszSubKey, 0, 1, phkResult 39。打開注冊鍵 lResult = RegQueryValueEx(phkResult, szKey, 0, 0, szBuffer, lBuffSize) 39。查詢結(jié)果 RegCloseKey phkResult 39。關(guān)閉注冊鍵 If lResult = ERROR_SUCCESS Then 39。返回結(jié)果 GetRegValue = Left(szBuffer, lBuffSize 1) Else GetRegValue = End If Exit Function ErrorRoutineErr: GetRegValue = End Function 上網(wǎng)記錄查詢窗口 Dim conn As New Dim mrc As New Dim stl As String Private Sub cmdQuery_Click() 39。查詢按鍵 Dim sum As Long If = 用戶名稱 Then If = Then MsgBox 比較數(shù)據(jù)欄不能為空！ Exit Sub End If stl = select * from adsl where 用 戶 名 稱 =39。 amp。 Trim() amp。 39。 39。查詢所用 sql 語句 If adStateClosed Then 39。測試數(shù)據(jù)集狀態(tài) End If = adUseClient stl,