تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] معايا كود لعمل كونكشن pppoe برود باند ومش عارف اكمله
#1
يا جماعه انا معايا الكود بتاع البرود باند وبيدينى ايروو كل شويه ممكن حد يقولى العيب فين او يعملى مشروع ويبعتهولى ؟
كود :
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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كتابت كود لعمل نافذه hano 2 84 04-11-16, 07:45 PM
آخر رد: silverlight
  [سؤال] عدد الجداول في المطلوبه لعمل سندات قبض وسندات صرف اليوم مبتدئة وغداً محترفة 1 76 02-10-16, 04:37 PM
آخر رد: أبو عمر
  معايا برنامج المفروض انى هو Demo هيخلص 30/9 araxis 2 122 26-09-16, 09:47 PM
آخر رد: silverlight
  [VB.NET] برنامج ممتاز لعمل Setup لبرنامجك - Advanced Installer Kian Tech 2 175 19-09-16, 03:26 AM
آخر رد: shwehdi4pc
  [سؤال] أفضل برنامج لعمل تحزيم أو سيتب لبرامجنا المصممة بـ vb.net2015 DR.YASER 2 315 15-04-16, 03:57 AM
آخر رد: silverlight
  [سؤال] شباب هل من الممكن اتصال من اتنين كونكشن استرينج احمد عبد الحكيم 3 226 24-02-16, 05:14 PM
آخر رد: عدنان الشمري
  [سؤال] طريقة لعمل نسخة احتياطية كلما اغلق البرنامج احمد عبد الحكيم 1 270 23-02-16, 01:30 AM
آخر رد: boudyonline
  [سؤال] شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر احمد عبد الحكيم 4 327 13-02-16, 03:39 PM
آخر رد: thevest_knight
  [سؤال] اريد سورس لعمل سريال لبرنامجى ramygamalvb 7 375 05-02-16, 01:12 PM
آخر رد: ramygamalvb
  مشكلة/شباب عارف اني ثقلة عليكم لكن فوق كل ذي علم عليم mtx2525 6 379 29-01-16, 03:19 PM
آخر رد: mtx2525

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم