A booter er et program , der forsøger at logge en bruger af en internet -tilsluttet ansøgning. En booter en god måde at teste alle programmer , du har kodet , eller en netsikkerhed konfiguration. Microsofts Visual Basic 6 programmeringssprog kan bruges til at skabe booter applikationer med en minimal mængde af kode. Det er en ideel sprog, fordi VB applikationer ikke bruger meget hukommelse og kan oprette forbindelse til internettet . Instruktioner
1
Åbn Visual Basic programmering ansøgning og oprette en ny ansøgning. Navngiv filen , så den let kan identificeres i fremtiden , for eksempel . " VB6 booter "
2
Tilføj to tekstbokse, tre blanke knapper, to etiketter og en timer i ansøgningen . Timeren vil måle mængden af tid booter kører .
3
Place de tre knapper i bunden af ansøgningen og placere de to tekstbokse på toppen. Placer timeren i øverste højre hjørne . Navngiv den første knap til venstre "Start ", den anden knap på "Stop" og den tredje "Clear ".
4
Klik på kildekoden fanen Visual Studio til at se programmets kildekode. Tilføj følgende linjer i toppen af koden struktur at specificere, hvad programmet skal gøre .
Import System.NetImports System.TextImports System.Net.SocketsImports System.Diagnostics
5 < p > Opret en ny klasse for anvendelse og timeren s subrutine ved at tilføje følgende linjer kode.
Public Class Form1
Private Sub Timer1_Tick ( ByVal afsender 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 Da New UdpClientDim GLOIP Som IPAddressDim bytCommand Som Byte () = Ny Byte () { } GLOIP = IPAddress.Parse ( TextBox1.Text ) udpClient.Connect ( GLOIP , TextBox2.Text ) bytCommand = bytCommand.Length ) ListBox1.SelectedIndex + = 1Catch ex Som ExceptionMe.Close ( ) End TryEnd Sub
6
Tildel subrutiner til hver af knapperne i applikationen. Når der trykkes , vil knapperne udføre den implicitte funktion.
Private Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button1.Clicklabel2.forecolor = Color.Limelabel2.text = " aktiv ! " Timer1.Start ( ) End Sub
Private Sub Button2_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button2.Clicklabel2.forecolor = Color.Redlabel2.text =" stoppet ! " Timer1.Stop ( ) End Sub
Private Sub Button3_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button3.ClickListBox1.Items.Clear ( ) End Sub
7
Gem kildekoden og kompilere programmet ind i en . exe-fil . Start . Exe -filen. Indtast host IP i " tekstfeltet 1" for at angive en placering , der skal startes op. Tryk på " Start" knappen for at starte booter .