A booter è un'applicazione che tenta di accedere a un utente di un programma collegato a Internet. Un booter un buon modo per testare tutti i programmi che avete codificato o una configurazione di sicurezza di rete . Base per il linguaggio di programmazione di Microsoft Visual 6 può essere utilizzato per creare applicazioni booter con una quantità minima di codice . E ' un linguaggio ideale perché le applicazioni VB non usano molta memoria e può collegarsi a Internet . Istruzioni
1

Aprire l'applicazione di programmazione Visual Basic e creare una nuova applicazione . Assegnare un nome al file in modo che possa essere facilmente identificato in futuro; " . VB6 Booter ", per esempio , vendita, acquisto 2

Aggiungere due caselle di testo, tre pulsanti vuoti , due etichette e un timer nell'applicazione . Il timer misurerà la quantità di tempo che il programma di boot viene eseguito .
3

Posizionare i tre pulsanti nella parte inferiore dell'applicazione e posizionare le due caselle di testo in alto. Posizionare il timer nell'angolo superiore destro . Il nome del primo pulsante a sinistra "Start ", il secondo pulsante " Stop" e la terza "Clear ".

4 Fare clic sulla scheda codice sorgente di Visual Studio per visualizzare codice sorgente dell'applicazione . Aggiungi le seguenti righe nella parte superiore della struttura del codice per specificare ciò che l'applicazione farà .

Importazioni System.NetImports System.TextImports System.Net.SocketsImports System.Diagnostics
5 < p > Creare una nuova classe per l'applicazione e la subroutine del timer aggiungendo le seguenti righe di codice .

Public Class Form1 private Sub

Timer1_Tick ( ByVal sender As System.Object , ByVal e come sistema . EventArgs ) Handles Timer1.TickTry

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

Assegna subroutine per ciascuno dei pulsanti nell'applicazione . Quando viene premuto, i pulsanti si esibiranno la funzione implicita .

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Clicklabel2.forecolor = Color.Limelabel2.text = " attivo ! " Timer1.Start ( ) End Sub private Sub

Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Clicklabel2.forecolor = Color.Redlabel2.text = " arrestato ! " Timer1.Stop ( ) End Sub private Sub

Button3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button3.ClickListBox1.Items.Clear ( ) End Sub