تقييم الموضوع :
  • 2 أصوات - بمعدل 2.5
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده فى تعديل كود لبرنامج PPPoe
#1
Wink 
انا جبت كود لعمل اتصال للبرود باند بس عندى مشكله
الكود :-

كود :
Imports System.Net
Imports System.Net.NetworkInformation
Imports DotRas
Imports Microsoft.Win32

Public Class Form1
    Public entry As RasEntry = RasEntry.CreateBroadbandEntry("Broadband Connection", RasDevice.GetDeviceByName("(PPPOE)", RasDeviceType.PPPoE))
    Public pbk As New RasPhoneBook
    Private connectionHandle As RasHandle
    Public dialer As New RasDialer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pbk.Open()
        pbk.Entries.Clear()
        pbk.Entries.Add(entry)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        dialer.DialAsyncCancel()
        dialer.Credentials = New NetworkCredential(phn.Text.ToString(), Pastxt.Text.ToString())
        dialer.EntryName = "Broadband Connection"
        dialer.PhoneBookPath = RasPhoneBook.GetPhoneBookPath(RasPhoneBookType.AllUsers)
        Try
            dialer.Credentials = New NetworkCredential(phn.Text.ToString(), Pastxt.Text.ToString())
            dialer.Dial()
        Catch ex As Exception
            '  Eventstxt.AppendText(ex.Message.ToString & Chr(10))
            Eventstxt.AppendText(ex.ToString & Chr(10))
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (dialer.IsBusy) Then
            dialer.Dispose()
        Else
            Dim Mypbk = RasPhoneBook.GetPhoneBookPath(RasPhoneBookType.AllUsers).ToString()
            Dim MyConn As RasConnection = RasConnection.GetActiveConnectionByName("Broadband Connection", Mypbk)
            If (MyConn IsNot Nothing) Then
                MyConn.HangUp()
                Eventstxt.AppendText("Disconnected on User Request!")
            End If
        End If
    End Sub
End Class
المشكله فى Eventstxt
ارجو من اهل الخبره مساعدتى فى حلها لانى بصراحه بقالى 4 ايام بدور وعاوز اعمل البرنامج دا باى طريقه ...
الرد
تم الشكر بواسطة: ahmedotaka
#2
Photo 
شوف ده 

انشاء الله نرفع الشرح قريب بالتفصيل الممل بأذن الله


الملفات المرفقة
.rar   اتصال برودباند.rar (الحجم : 128.89 ك ب / التحميلات : 697)
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد
تم الشكر بواسطة:
#3
جزاكم الله خير ... بالتوفيق لكم جميعاً
MicroDoha
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Brick [مثال] مثال لبرنامج التعامل مع الأعداد الأولية Omar Abd 0 62 09-10-18, 06:45 PM
آخر رد: Omar Abd
Bug [VB.NET] سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً elgokr 11 622 13-07-18, 06:19 AM
آخر رد: elgokr
  [VB.NET] سورس كود لبرنامج الكتابة باللغة العربية من خلال لوحة مفاتيح انجليزية والعكس. elgokr 6 350 13-07-18, 02:35 AM
آخر رد: elgokr
Brick [VB.NET] سورس كود لبرنامج عرض اسماء الاجهزة بالشبكة المحلية ... elgokr 7 384 30-06-18, 07:39 PM
آخر رد: elgokr
Star [مثال] سورس كود لبرنامج إدارة الروابط URL ( إهداء إلي المنتدي ) YousefOkasha 4 463 09-06-18, 09:50 PM
آخر رد: YousefOkasha
  مشروع بسيط باستخدام تقنية ADO.net يوضح فيه اضافة تعديل وحذف adel2012 5 1,637 23-03-17, 08:36 AM
آخر رد: masry700
  تعديل في جدول DataGridView ausamaxp 1 747 18-02-17, 06:30 PM
آخر رد: C0MNDS
  التحكم في الملفات نقل تعديل حذف مثال جميل قابل للتطوير zinom 6 1,690 26-12-15, 10:50 PM
آخر رد: zinom
  مشروع لبرنامج التقاط الصور وارسالها الى الخادم واخذ رابطها بعد الرفع أبو عمر 4 1,406 10-09-15, 12:26 PM
آخر رد: أبو عمر
  برودباند,إن شاء الله شرح كامل لانشاء اتصال البرود باند pppoe connection zinom 2 1,851 25-05-15, 04:00 AM
آخر رد: zinom

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


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