Πώς να χρησιμοποιήσετε VB6 για να βγάλουν booters

A booter είναι μια εφαρμογή που προσπαθεί να καταγράψει ένα χρήστη από μια σύνδεση στο Internet εφαρμογή . Ένα booter ένας καλός τρόπος για να δοκιμάσετε όλα τα προγράμματα που έχετε κωδικοποιημένα ή μια διαμόρφωση της ασφάλειας του δικτύου . Visual Basic 6 γλώσσα προγραμματισμού της Microsoft μπορεί να χρησιμοποιηθεί για τη δημιουργία εφαρμογών booter με ένα ελάχιστο ποσό του κωδικού . Είναι μια ιδανική γλώσσα διότι οι εφαρμογές VB δεν χρησιμοποιούν πολύ μνήμη και μπορεί να συνδεθεί στο Internet . Οδηγίες
Η

1 Ανοίξτε την εφαρμογή Visual Basic προγραμματισμό και να δημιουργήσετε μια νέα αίτηση . Ονομάστε το αρχείο, ώστε να μπορεί να προσδιοριστεί εύκολα στο μέλλον ? Για παράδειγμα, " . VB6 booter " 2

Προσθέστε δύο πλαίσια κειμένου , τρία κενά κουμπιά , δύο ετικέτες και ένα χρονόμετρο στην εφαρμογή . Το χρονόμετρο θα μετρήσει την ποσότητα του χρόνου η booter τρέχει .
Εικόνων 3

Τοποθετήστε τα τρία κουμπιά στο κάτω μέρος της εφαρμογής και τοποθετήστε τα δύο πλαίσια κειμένου στην κορυφή . Τοποθετήστε το χρονόμετρο στην επάνω δεξιά γωνία . Ονομάστε το πρώτο κουμπί στα αριστερά "Start ", το δεύτερο κουμπί " Stop" και το τρίτο " Εκκαθάριση".
Η

4 Κάντε κλικ στην καρτέλα του πηγαίου κώδικα του Visual Studio για να δείτε πηγαίο κώδικα της εφαρμογής . Προσθέστε τις ακόλουθες γραμμές στο πάνω μέρος της δομής του κώδικα για να καθορίσετε ποια είναι η εφαρμογή θα πρέπει να κάνει .

Εισαγωγές System.NetImports System.TextImports System.Net.SocketsImports System.Diagnostics
5

Δημιουργήστε μια νέα κατηγορία για την εφαρμογή και την υπορουτίνα του χρονοδιακόπτη , προσθέτοντας τις ακόλουθες γραμμές κώδικα .

Δημόσιας τάξης Φόρμα1

Private Sub Timer1_Tick ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως Σύστημα . EventArgs ) Λαβές Timer1.TickTry

ListBox1.Items.Add ( " DatPktS # " + + TextBox1.Text " # S" ) ListBox1.Items.Add ( My.Computer.Info.AvailableVirtualMemory ) dim udpClient Όπως New UdpClientDim GLOIP Όπως IPAddressDim bytCommand Όπως Byte ( ) = Νέα Byte ( ) { } GLOIP = IPAddress.Parse ( TextBox1.Text ) udpClient.Connect ( GLOIP , TextBox2.Text ) bytCommand = bytCommand.Length ) ListBox1.SelectedIndex + = 1Catch πρώην Όπως ExceptionMe.Close ( ) End Sub TryEnd
Η 6

Εκχώρηση υπορουτίνες σε κάθε ένα από τα κουμπιά στην αίτηση . Όταν πιεστεί , τα κουμπιά θα εκτελέσει τη σιωπηρή λειτουργία .

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Clicklabel2.forecolor = Color.Limelabel2.text = " ενεργό ! " Timer1.Start ( ) End Sub

Private Sub Button2_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button2.Clicklabel2.forecolor = Color.Redlabel2.text = " σταματήσει! " Timer1.Stop ( ) End Sub

Private Sub Button3_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button3.ClickListBox1.Items.Clear ( ) End Sub
Σελίδα 7

σώσει τον πηγαίο κώδικα και μεταγλώττιση της εφαρμογής σε ένα αρχείο exe . . Ξεκινήστε το αρχείο exe . . Εισάγετε την IP υποδοχής στο "κουτί κειμένου 1 " για να καθορίσετε μια θέση που θα πρέπει να ξεκινήσει . Πατήστε το κουμπί "Start" για να ξεκινήσει η booter .
Η
εικόνων