Public Class Form1
 
    Dim defaultconn_an() As Byte = New Byte() {}
    Dim defaultconn_aus() As Byte = New Byte() {46,  0,  0,  0,  28,  3D,  0,  _
      0,  9,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  5,  _
      0,  0,  0,  0,  0,  0,  0,  30,  3C,  7B,  E7,  3F,  30,  CC,  1,  0,  0, _
       0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  2,  0,  0,  0,  _
      C0,  A8,  B2,  23,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  _
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  _
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  _
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  _
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  _
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  _
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0}
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        My.Computer.Registry.SetValue( _
 "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet " & _
 "Settings\Connections\", "DefaultConnectionSettingsss", defaultconn_aus)
 
        MsgBox("DefaultConnection deaktiviert")
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
 
 
 
 
    End Sub
End Class