تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كود لعمل نسخة احتياطية من Sql Server DB موجودة على شبكة داخلية dr.programming 0 258 28-09-23, 05:29 PM
آخر رد: dr.programming
Thumbs Up توضيح لعمل السيريال الخاص بالمنتجات devpos 1 223 10-09-23, 05:49 PM
آخر رد: Asem2
  مساعدة : أبحث عن كود لعمل Scroll using buttons maestro13 1 464 08-06-23, 06:38 AM
آخر رد: سعود
  الطريق لعمل التقارير على فيجوال ستديو ٢٠٢٢ mostafa nada 4 1,420 18-06-22, 11:31 AM
آخر رد: رضوان الجماعي
  [سؤال] معايا سلسله نصيه و عاوز كود بحث بالشبه فيها حسن الجلب 1 818 08-02-22, 01:17 AM
آخر رد: حسن الجلب
Exclamation [VB.NET] محتاج فكرة لعمل كود او دالة Random anasghost 17 2,955 29-11-21, 09:32 AM
آخر رد: معاند الحظ
  [سؤال] هل من سبيل لحفظ ملف csv يحتوي علي لغه عربيه لعمل استراد لقاعده البيانات ؟ dametucorazon 6 13,814 13-11-21, 12:49 AM
آخر رد: _11Basil
  هل يوجد كود برمجى او طريقه لعمل هذا فى الداتا جريد فيو خالد كامل1 3 1,190 08-10-21, 07:04 PM
آخر رد: خالد كامل1
  ارجوكم طلب في المتغيرات مش عارف اظبطه اليوم السابع 4 1,369 14-06-21, 05:22 PM
آخر رد: اليوم السابع
  [سؤال] سورس كود لبرنامج مبيعات بس مش عارف افتحه مرفق البرنامج hassan505 4 3,121 19-12-20, 06:44 AM
آخر رد: Mohamed abdel aty

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


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