RAS Connection, one problem

[memo421]

I have used following code, it works for one time. As I want loop to work for 4 times. The code should dial number and show dialing status in Listbox. It do this for one time only. When It loop for second time, it do not show any dialing status in Listbox though dialing code executes(I saw thisin debug section).

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim th1 As New Threading.Thread(AddressOf Dialsub)
        th1.IsBackground = True
        th1.Start()
 
 
    End Sub
 
Private Sub Dialsub()
        For i As Integer = 0 To 4
            sw.Start()
            System.Threading.Thread.Sleep(5000)
            sw.Stop()
 
            Dim tm As TimeSpan
            tm = sw.Elapsed
 
            'MsgBox(tm.Seconds)
 
            If tm.Seconds = 4 Or tm.Seconds = 9 Then
                '  Dim rasconnection1 As New Ras.RasConnection
 
                RasConnection1.PhoneNumber = "#777"
                RasConnection1.UserName = "[e-mail]"
                RasConnection1.Password = "ptcl"
                RasConnection1.Dial()
 
 
            End If
            Button9.Text = i
        Next
    End Sub
 
Private Sub RasConnection1_DialNotify1(ByVal sender As Object, ByVal e As Ras.RasDialNotify1EventArgs) Handles RasConnection1.DialNotify1
        ListBox1.Items.Add(String.Format("{0}", e.ConnectionState, e.Message.ToString))
        If e.[Error] > 0 Then
            MessageBox.Show(String.Format("{0},{1}", e.[Error], e.Message))
        End If
        ' RasConnection1.Dispose()
 
    End Sub
 

Please me out to solve this.

[Ramk]

Plz check the statement tm.Seconds = 4. It shall be 5sec because, you waited 5000ms=5sec at the statement System.Threading.Thread.Sleep(5000).
Do check the if tm.Seconds statement once again.Plz post your code segments in the [code] blocks(Just click # on your right top of the thread editor window.), which gives easy look at your code, thus can improve the response time.

[memo421]

@Ramk
Thanks RAMK for ur response...

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim th1 As New Threading.Thread(AddressOf Dialsub)
th1.IsBackground = True
th1.Start()
 
 
End Sub
 
Private Sub Dialsub()
For i As Integer = 0 To 4
sw.Start()
System.Threading.Thread.Sleep(5000)
sw.Stop()
 
Dim tm As TimeSpan
tm = sw.Elapsed
 
'MsgBox(tm.Seconds)
 
If tm.Seconds = 4 Or tm.Seconds = 9 Then
' Dim rasconnection1 As New Ras.RasConnection
 
RasConnection1.PhoneNumber = "#777"
RasConnection1.UserName = "[e-mail]"
RasConnection1.Password = "ptcl"
RasConnection1.Dial()
 
 
End If
Button9.Text = i
Next
End Sub
 
Private Sub RasConnection1_DialNotify1(ByVal sender As Object, ByVal e As Ras.RasDialNotify1EventArgs) Handles RasConnection1.DialNotify1
ListBox1.Items.Add(String.Format("{0}", e.ConnectionState, e.Message.ToString))
If e.[Error] > 0 Then
MessageBox.Show(String.Format("{0},{1}", e.[Error], e.Message))
End If
' RasConnection1.Dispose()
 
End Sub

Well, I found the cause that is, when RasConnection1.Dial() executes, it get error, on next attempt it do not dial connection instead internally a error is raised that "Connection already being used", something like that. I tried rasconnection.dispose to dispose this control. But It do not dispose.

What should I do to dispose this RAS control? Is there any strong feature in VB.NET that dispose all threads of any control?

Thanks

[Ramk]

I tried rasconnection.dispose to dispose this control. But It do not dispose.

What should I do to dispose this RAS control? Is there any strong feature in VB.NET that dispose all threads of any control?

Thanks

How you are saying it is not disposed? I wouldn't understand. Try to use close method instead if such method exists. If you are having multiple threads, try to check the ThreadPool class can help you.