A booter er et program som forsøker å logge brukeren ut av en Internett -tilkoblet program. En booter en god måte å teste eventuelle programmer du har kodet eller nettverkssikkerhet konfigurasjon . Microsofts Visual Basic 6 programmeringsspråk kan brukes til å lage booter søknader med en minimal mengde med kode. Det er et ideelt språk fordi VB -programmer ikke bruker mye minne og kan kobles til Internett . Instruksjoner
en

Åpne Visual Basic programmering programmet og opprette en ny søknad. Navnet på filen slik at den lett kan identifiseres i fremtiden, for eksempel " . VB6 Booter "
2

Legg to tekstbokser, tre blanke knapper, to etiketter og en tidtaker i søknaden . Timeren vil måle hvor lenge booter går .
3

Place de tre knappene nederst av søknaden og plassere de to tekstbokser på toppen. Sett timeren i øvre høyre hjørne . Navngi den første knappen til venstre "Start ", den andre knappen " Stop" og den tredje "Clear ".
4

Klikk på kildekoden kategorien Visual Studio for å vise programmets kildekode. Legg til følgende linjer på toppen av koden struktur for å spesifisere hva programmet skal gjøre.

Importen System.NetImports System.TextImports System.Net.SocketsImports System.Diagnostics
5

Opprett en ny klasse for søknaden og timeren er subrutine ved å legge til følgende linjer med kode.

Public Class Form1

Private Sub Timer1_Tick ( ByVal avsenderen som System.Object , ByVal e Som System . EventArgs ) Håndterer Timer1.TickTry

ListBox1.Items.Add ( " DatPktS #" + TextBox1.Text + "# S ") ListBox1.Items.Add ( My.Computer.Info.AvailableVirtualMemory ) Dim udpClient som ny UdpClientDim GLOIP Som IPAddressDim bytCommand As Byte ( ) = Ny Byte ( ) {} GLOIP = IPAddress.Parse ( TextBox1.Text ) udpClient.Connect ( GLOIP , TextBox2.Text ) bytCommand = bytCommand.Length ) ListBox1.SelectedIndex + = 1Catch ex As ExceptionMe.Close ( ) End TryEnd Sub
6

Angi subrutiner til hver av knappene i programmet . Når den trykkes , vil knappene utføre den implisitte funksjon .

Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Clicklabel2.forecolor = Color.Limelabel2.text = " aktiv ! " Timer1.Start ( ) End Sub

Private Sub Button2_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button2.Clicklabel2.forecolor = Color.Redlabel2.text = " stoppet ! " Timer1.Stop ( ) End Sub

Private Sub Button3_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button3.ClickListBox1.Items.Clear ( ) End Sub
side 7

Lagre kildekoden og kompilere programmet inn i en . exe -fil . Start . Exe -filen. Skriv inn host IP i "tekstboksen 1 " for å angi et sted som skal være oppstartet . Trykk på " Start" -knappen for å starte booter .