CONNEXION RESEAU SIMPLE AVEC UN THREAD

Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Threading

Public Class Principal

    '---------------------------------------------------------------------------------------------------
    'INITIALISATION DES FONCTIONS INTER THREAD
    '---------------------------------------------------------------------------------------------------
    Delegate Sub SetMessageCallback(ByVal [Message] As String)
    Delegate Sub SetProgressBarCallback(ByVal [Valeur] As Integer)
    Delegate Sub SetVisibleCallback(ByVal [Object] As Object, ByVal [Visible] As Boolean)
    Delegate Sub SetBtnEnableCallback(ByVal [Object] As Object, ByVal [Enable] As Boolean)
    Delegate Sub SetClearCallback(ByVal [Object] As Object, ByVal [Etat] As Boolean)

    '---------------------------------------------------------------------------------------------------
    'DECLARATION DU THREAD PRINCIPAL
    '---------------------------------------------------------------------------------------------------
    Public ThreadConnexion As New Threading.Thread(AddressOf SelectConnexion)

#Region "Thread"

#Region "Procédures inter-Threads"

    Private Sub SetClear(ByVal [Object] As Object, ByVal [Etat] As Boolean)

        'Efface un objet
        If [Object].InvokeRequired Then
            Dim d As New SetClearCallback(AddressOf SetClear)
            Me.Invoke(d, New Object() {[Object], [Etat]})
        Else
            If [Etat] = True Then
                [Object].clear()
            End If
        End If

    End Sub

    Private Sub MessageInfo(ByVal [Message] As String)

        'Affiche un message d'info 
        If Me.txtInfo.InvokeRequired Then
            Dim d As New SetMessageCallback(AddressOf MessageInfo)
            Me.Invoke(d, New Object() {[Message]})
        Else
            If Me.txtInfo.Text = String.Empty Then
                Me.txtInfo.Text = [Message]
            Else
                Me.txtInfo.Text &= vbCrLf & [Message]
            End If

        End If

    End Sub

    Private Sub SetProgressBar(ByVal [Value] As Integer)

        'Modifie la valeur de la progressbar
        If Me.PB1.InvokeRequired Then
            Dim d As New SetProgressBarCallback(AddressOf SetProgressBar)
            Me.Invoke(d, New Object() {[Value]})
        Else
            PB1.Value = [Value]
        End If

    End Sub

    Private Sub SetVisible(ByVal [Object] As Object, ByVal [Visible] As Boolean)

        'Affichage d'un objet
        If [Object].InvokeRequired Then
            Dim d As New SetVisibleCallback(AddressOf SetVisible)
            Me.Invoke(d, New Object() {[Object], [Visible]})
        Else
            [Object].Visible = [Visible]
        End If

    End Sub

    Private Sub SetBtnEnable(ByVal [Object] As Object, ByVal [Enable] As Boolean)

        'Active/désactive un objet
        If [Object].InvokeRequired Then
            Dim d As New SetBtnEnableCallback(AddressOf SetBtnEnable)
            Me.Invoke(d, New Object() {[Object], [Enable]})
        Else
            If [Enable] = True Then
                [Object].Enabled = True
            ElseIf [Enable] = False Then
                [Object].Enabled = False
            End If
        End If

    End Sub

#End Region

#Region "Selection du réseau"

    Private Sub SelectConnexion()

        While ThreadConnexion.ThreadState = ThreadState.Running


            SetBtnEnable(btnCI, False)
            SetVisible(PB1, True)
            SetVisible(lblAnalyse, True)
            SetClear(txtInfo, True)

            SetProgressBar(0)
            MessageInfo("---------------------------------------------------------")
            MessageInfo("Configuration adresse IP")
            Shell("netsh interface ipv4 set address name=Wireless static 192.168.0.2 255.255.255.0 192.168.0.1", AppWinStyle.Hide)
            Thread.Sleep(2000)
            SetProgressBar(25)
            MessageInfo("Configuration DNS")
            Shell("netsh interface ipv4 set dnsserver name=Wireless static 192.168.0.1 primary")
            Thread.Sleep(2000)
            SetProgressBar(50)
            MessageInfo("Connexion réseau San-fil")
            Shell("netsh wlan connect name=Wireless ssid=SSID")
            MessageInfo("Activation des paramètres")
            MessageInfo("---------------------------------------------------------")
            Thread.Sleep(4000)
            SetProgressBar(75)
            SetProgressBar(100)
            Thread.Sleep(100)
            SetBtnEnable(btnCI, True)
            SetVisible(PB1, False)
            SetVisible(lblAnalyse, False)
            Me.ThreadConnexion.Suspend()

        End While

    End Sub

    Private Sub Selection(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCI.Click

        Cursor.Current = Cursors.WaitCursor

        If ThreadConnexion.ThreadState = ThreadState.Unstarted Then
            ThreadConnexion.Start()
        ElseIf ThreadConnexion.ThreadState = ThreadState.Suspended Then
            ThreadConnexion.Resume()
        End If

        Cursor.Current = Cursors.Default

    End Sub

#End Region

#End Region

End Class

Télécharger le zip

02 juin 2007 19:47:25 :

Petite info concernant la modification de la source pour ce qui souhaiterai utiliser un thread pour d'autre fonctionnalité que le réseau.