منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] معايا كود لعمل كونكشن pppoe برود باند ومش عارف اكمله - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] معايا كود لعمل كونكشن pppoe برود باند ومش عارف اكمله (/showthread.php?tid=2470)



معايا كود لعمل كونكشن pppoe برود باند ومش عارف اكمله - preans_2007 - 05-04-14

يا جماعه انا معايا الكود بتاع البرود باند وبيدينى ايروو كل شويه ممكن حد يقولى العيب فين او يعملى مشروع ويبعتهولى ؟
كود :
Imports System.Net
Imports System.Net.NetworkInformation
Imports DotRas
Imports Microsoft.Win32

Public Class Form1
    Public Entry As RasEntry = RasEntry.CreateBroadbandEntry("BIDO8597", RasDevice.GetDeviceByName("(PPPOE)", RasDeviceType.PPPoE))
    Private connectionHandle As RasHandle
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.RasPhoneBook1.Open(RasPhoneBook.GetPhoneBookPath(RasPhoneBookType.User))
        RasPhoneBook1.Entries.Clear()
        Me.RasPhoneBook1.Entries.Add(Entry)
        RasDialer1.Credentials = New NetworkCredential(TextBox1.Text.ToString(), TextBox2.Text.ToString())
        RasDialer1.EntryName = "BIDO8597"
        RasDialer1.PhoneBookPath = RasPhoneBook.GetPhoneBookPath(RasPhoneBookType.User)
        Try
            Me.RasDialer1.Credentials = New NetworkCredential(TextBox1.Text.ToString(), TextBox2.Text.ToString())
            Me.connectionHandle = Me.RasDialer1.DialAsync()
        Catch ex As Exception
            Me.TextBox3.AppendText(ex.ToString())
            '  Eventstxt.AppendText(ex.Message.ToString & Chr(10))
            'Eventstxt.AppendText(ex.ToString & Chr(10))
        End Try
        Me.Button1.Enabled = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (RasDialer1.IsBusy) Then
            RasDialer1.Dispose()
        Else
            Dim Mypbk = RasPhoneBook.GetPhoneBookPath(RasPhoneBookType.User).ToString()
            Dim MyConn As RasConnection = RasConnection.GetActiveConnectionByName("BIDO8597", Mypbk)
            If (MyConn IsNot Nothing) Then
                MyConn.HangUp()
                'Eventstxt.AppendText("Disconnected on User Request!")
            End If
        End If
        Me.TextBox3.Clear()
        Me.TextBox3.AppendText("Disconnected")
        Me.Button1.Visible = True
        Me.Button2.Visible = False
        Me.Button1.Enabled = True
    End Sub

    Private Sub RasDialer1_StateChanged(sender As Object, e As StateChangedEventArgs) Handles RasDialer1.StateChanged
        Me.TextBox3.AppendText(e.State.ToString() + Chr(13) + Chr(10))
    End Sub

    Private Sub RasDialer1_DialCompleted(sender As Object, e As DialCompletedEventArgs) Handles RasDialer1.DialCompleted
        If (e.Cancelled) Then
            Me.TextBox3.AppendText("Cancelled!")
        ElseIf (e.TimedOut) Then
            Me.TextBox3.AppendText("Connection attempt timed out!")
        ElseIf (e.Error IsNot Nothing) Then
            Me.TextBox3.AppendText("Connection Error")
            Me.Button1.Enabled = True
        ElseIf (e.Connected) Then
            Me.TextBox3.AppendText("Connection successful!")
        End If
        If (e.Connected) Then
            Button1.Visible = False
            Button2.Visible = True
        End If
    End Sub
End Class

ياريت حد يساعدنى يا جماعه ويبقى شكرا لكم