En booter är ett program som försöker logga en användare av en Internet - ansluten applikation . En booter ett bra sätt att testa alla program du har kodade eller nätsäkerhet konfiguration . Microsofts Visual Basic 6 programmeringsspråk kan användas för att skapa booter program med en minimal mängd kod . Det är en idealisk språk eftersom VB program inte använder mycket minne och kan ansluta till Internet . Instruktioner
1
Öppna Visual Basic-programmering ansökan och skapa en ny ansökan . Döp filen så att den lätt kan identifieras i framtiden , till exempel " . VB6 Booter "
2
Lägg två textrutor , tre blanka knappar, två etiketter och en timer i ansökan . Timern kommer att mäta hur lång tid det booter körs .
3
Placera de tre knapparna längst ned i programfönstret och placera de två textrutor i toppen . Placera timer i övre högra hörnet . Namnge den första knappen till vänster " Start ", den andra knappen " Stop " och den tredje " Clear ".
4
Klicka på källkoden fliken Visual Studio för att visa programmets källkod . Lägg till följande rader överst kodstrukturen att specificera vad programmet ska göra .
Import System.NetImports System.TextImports System.Net.SocketsImports System.Diagnostics
5
Skapa en ny klass för ansökan och timerns subrutinen genom att lägga till följande rader med kod .
Public Class Form1
Private Sub Timer1_Tick ( ByVal avsändaren som System.Object , ByVal e som System . EventArgs ) Hanterar Timer1.TickTry
ListBox1.Items.Add ( " DatPktS # " + TextBox1.Text + " # S " ) ListBox1.Items.Add ( My.Computer.Info.AvailableVirtualMemory ) Dim udpClient Som New UdpClientDim GLOIP Som IPAddressDim bytCommand Som byte ( ) = Nytt byte ( ) { } GLOIP = IPAddress.Parse ( TextBox1.Text ) udpClient.Connect ( GLOIP , TextBox2.Text ) bytCommand = bytCommand.Length ) ListBox1.SelectedIndex + = 1Catch ex Som ExceptionMe.Close ( ) End Sub TryEnd
6
Tilldela subrutiner till var och en av knapparna i programmet . När den trycks , kommer knapparna att utföra den implicita funktionen .
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Clicklabel2.forecolor = Color.Limelabel2.text = " aktiv ! " Timer1.Start ( ) End Sub
Private Sub Button2_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button2.Clicklabel2.forecolor = Color.Redlabel2.text = " stoppad ! " Timer1.Stop ( ) End Sub
Private Sub Button3_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button3.ClickListBox1.Items.Clear ( ) End Sub
7
Spara källkoden och kompilera programmet till en . exe-fil . Starta . Exe-filen . Ange värdens IP i " textruta 1 " för att ange en plats som ska startas . Tryck på " Start " -knappen för att starta booter .
