منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعده فى تعديل كود لبرنامج PPPoe
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
انا جبت كود لعمل اتصال للبرود باند بس عندى مشكله
الكود :-

كود :
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 ايام بدور وعاوز اعمل البرنامج دا باى طريقه ...
شوف ده 

انشاء الله نرفع الشرح قريب بالتفصيل الممل بأذن الله
جزاكم الله خير ... بالتوفيق لكم جميعاً