pppoe源碼

A. 寬頻連接源代碼（vs2008 的vb）

直接把sEntryName = "寬頻連接3" sUsername = "用戶名" sPassword = "密碼" 比如說~~TEXT1.TEXT=sEntryName 一次類推~~這樣不就出來拉~也就可以實現查寬頻有能連接寬頻~~監聽你可以在加上一個API函數來監聽~ Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As Byte End Type Private Type RASIPADDR a As Byte b As Byte c As Byte d As Byte End Type Private Type RASENTRY dwSize As Long dwfOptions As Long dwCountryID As Long dwCountryCode As Long szAreaCode(10) As Byte szLocalPhoneNumber(128) As Byte dwAlternateOffset As Long ipaddr As RASIPADDR ipaddrDns As RASIPADDR ipaddrDnsAlt As RASIPADDR ipaddrWins As RASIPADDR ipaddrWinsAlt As RASIPADDR dwFrameSize As Long dwfNetProtocols As Long dwFramingProtocol As Long szScript(259) As Byte szAutodialDll(259) As Byte szAutodialFunc(259) As Byte szDeviceType(16) As Byte szDeviceName(128) As Byte szX25PadType(32) As Byte szX25Address(200) As Byte szX25Facilities(200) As Byte szX25UserData(200) As Byte dwChannels As Long dwReserved1 As Long dwReserved2 As Long dwSubEntries As Long dwDialMode As Long dwDialExtraPercent As Long dwDialExtraSampleSeconds As Long dwHangUpExtraPercent As Long dwHangUpExtraSampleSeconds As Long dwIdleDisconnectSeconds As Long dwType As Long dwEncryptionType As Long dwCustomAuthKey As Long guidId As GUID szCustomDialDll(259) As Byte dwVpnStrategy As Long dwfOptions2 As Long dwfOptions3 As Long szDnsSuffix(255) As Byte dwTcpWindowSize As Long szPrerequisitePbk(259) As Byte szPrerequisiteEntry(256) As Byte dwRedialCount As Long dwRedialPause As Long End Type Private Type RASCREDENTIALS dwSize As Long dwMask As Long szUserName(256) As Byte szPassword(256) As Byte szDomain(15) As Byte End Type Private Declare Function RasSetEntryProperties Lib "rasapi32" Alias "RasSetEntryPropertiesA" (ByVal lpszPhonebook As String, ByVal lpszEntry As String, lpRasEntry As RASENTRY, ByVal dwEntryInfoSize As Long, ByVal lpbDeviceInfo As Long, ByVal dwDeviceInfoSize As Long) As Long Private Declare Function RasSetCredentials Lib "rasapi32" Alias "RasSetCredentialsA" (ByVal lpszPhonebook As String, ByVal lpszEntry As String, lpCredentials As RASCREDENTIALS, ByVal fClearCredentials As Long) As Long Private Sub Form_Load() Dim sEntryName As String, sUsername As String, sPassword As String sEntryName = "寬頻連接3" sUsername = "用戶名" sPassword = "密碼" If Create_PPPoE_Connection(sEntryName, sUsername, sPassword) Then MsgBox "連接建立成功！" Else MsgBox "連接建立失敗！" End If End Sub Function Create_PPPoE_Connection(ByVal sEntryName As String, ByVal sUsername As String, ByVal sPassword As String) As Boolean Create_PPPoE_Connection = False Dim re As RASENTRY Dim sDeviceName As String, sDeviceType As String sDeviceName = "WAN 微型埠 (PPPOE)" sDeviceType = "PPPoE" With re .dwSize = LenB(re) .dwCountryCode = 86 .dwCountryID = 86 .dwDialExtraPercent = 75 .dwDialExtraSampleSeconds = 120 .dwDialMode = 1 .dwEncryptionType = 3 .dwfNetProtocols = 4 .dwfOptions = 1024262928 .dwfOptions2 = 367 .dwFramingProtocol = 1 .dwHangUpExtraPercent = 10 .dwHangUpExtraSampleSeconds = 120 .dwRedialCount = 3 .dwRedialPause = 60 .dwType = 5 CopyMemory .szDeviceName(0), ByVal sDeviceName, Len(sDeviceName) CopyMemory .szDeviceType(0), ByVal sDeviceType, Len(sDeviceType) End With Dim rc As RASCREDENTIALS With rc .dwSize = LenB(rc) .dwMask = 11 CopyMemory .szUserName(0), ByVal sUsername, Len(sUsername) CopyMemory .szPassword(0), ByVal sPassword, Len(sPassword) End With Dim rtn As Long If RasSetEntryProperties(vbNullString, sEntryName, re, LenB(re), 0, 0) = 0 Then If RasSetCredentials(vbNullString, sEntryName, rc, 0) = 0 Then Create_PPPoE_Connection = True End If End If End Function

B. 求VB寫的pppoe撥號客戶端源碼，能反饋錯誤代碼的。急！

有易語言的 要不要

C. 怎麼讀懂路由器源代碼

這只是訪問路由是給出的網頁代碼，一些javascript、html，沒有什麼意義。

D. 如何查看TP-LINK路由器中保存的ADSL帳號

查看TP-LINK路由器中保存的ADSL帳號的操作方法：

1. 打開電腦，在瀏覽器地址欄輸入192.168.0.1或192.168.1.1，輸入登陸賬號和密碼（路由器的登陸地址、路由器的登陸用戶名以及登陸密碼在路由器的底部有提示）進入路由器管理界面；

2. 在左菜單欄點擊系統工具，選擇「備份載入設置」；
   

3. 在右側對話框中點擊「備份配置文件」；

4. 保存備份文件，一般保存桌面即可；

5. 用寫字板或者記事本打開此備份文件，查看賬號、密碼；

6. 如果打不開或者是亂碼，用網路搜索一個RouterPassView軟體；

7. 下載完成後解壓，然後用此軟體打開備份文件；

8. 查看成功獲取到寬頻的帳號、密碼。

E. 需要一個c#的pppoe撥號程序源代碼

dialer in-band
dialer pool 1
dialer idle-timeout 0
dialer-group 1
encapsulation ppp
ppp chap password
ppp chap hostname
ppp pap sent-username password
ip address negotiated
mtu 1492
ip tcp adjust-mss 1300
ip nat outside
service-policy output qos
exit