20-07-14, 07:48 PM
انا جبت كود لعمل اتصال للبرود باند بس عندى مشكله
الكود :-
المشكله فى Eventstxt
ارجو من اهل الخبره مساعدتى فى حلها لانى بصراحه بقالى 4 ايام بدور وعاوز اعمل البرنامج دا باى طريقه ...
الكود :-
كود :
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
ارجو من اهل الخبره مساعدتى فى حلها لانى بصراحه بقالى 4 ايام بدور وعاوز اعمل البرنامج دا باى طريقه ...