Projemizle lazım olacaklar.
2 tane radiobutton
1 tane label
Gruupbox
1 timer
1 ImList


' Kaynak 'www.visualbasicdersleri.com

PHP Code:
Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
If My.Computer.Network.IsAvailable = True Then
LblBagliMi.ForeColor = Color.Green
LblBagliMi.Text = "İnternet ACIK"
BtnAcKapat.BackgroundImageLayout = ImageLayout.Stretch
BtnAcKapat.Image = ImList.Images("Acık.jpg")
BtnAcKapat.Text = "KAPAT"
Else
LblBagliMi.ForeColor = Color.Red
LblBagliMi.Text = "İnternet KAPALI"
BtnAcKapat.BackgroundImageLayout = ImageLayout.Stretch
BtnAcKapat.Image = ImList.Images("Kapalı.jpg")
BtnAcKapat.Text = "AC"
End If

End Sub

Private Sub BtnAcKapat_Click(sender As System.Object, e As System.EventArgs) Handles BtnAcKapat.Click
If RadioButton1.Checked = True Then
Me.Text = "Wireless Bağlantı Secili"
Else
Me.Text = "ADSL Bağlantı Secili"
End If

If My.Computer.Network.IsAvailable = True Then
BtnAcKapat.Image = ImList.Images("Kapalı.jpg")
Call nEnable()
Timer1.Start()
Else
BtnAcKapat.Image = ImList.Images("Acık.jpg")
Call nDisable()
Timer1.Start()
End If

End Sub

'Kablolu icin Enable (0)
'Kablosuz icin Enable (1)

Private Sub nEnable()

LblBagliMi.ForeColor = Color.Red
LblBagliMi.Text = "İnternet KAPALI"
BtnAcKapat.Text = "AC" 'www.visualbasicdersleri.com

'disable(devre dışı)

Dim objWMIService = GetObject("winmgmts:\.rootcimv2")
Dim colAdapters = objWMIService.Execquery("Select * from Win32_NetworkAdapter Where NetEnabled=True")
colAdapters.ItemIndex(0).Disable()


End Sub

Private Sub nDisable()
'enable (etkin),etkinleştirmek
Windows.Forms.Cursor.Current = Cursors.AppStarting

LblBagliMi.ForeColor = Color.LimeGreen
LblBagliMi.Text = "İnternet ACIK"
BtnAcKapat.Text = "KAPAT"

Dim objWMIService = GetObject("winmgmts:\.rootcimv2")
Dim colAdapters = objWMIService.Execquery("Select * from Win32_NetworkAdapter Where NetEnabled=False")
If RadioButton1.Checked = True Then
colAdapters.ItemIndex(1).Enable() 'kablosuz bağlantı icin
End If
If RadioButton2.Checked = True Then
colAdapters.ItemIndex(0).Enable() 'ADSL BAĞLANTI İCİN
End If

End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If BtnAcKapat.ForeColor = Color.Red Then
BtnAcKapat.ForeColor = Color.White
Else
BtnAcKapat.ForeColor = Color.Red 'www.visualbasicdersleri.com
End If

End Sub

Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
Me.Text = "Wireless Bağlantı Secili"
End Sub

Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged

Me.Text = "ADSL Bağlantı Secili"

End Sub
End Class