Ako používať VB6 zarobiť bootovacie

zavádzač je aplikácia , ktorá sa pokúša o prihlásenie užívateľa von aplikácii pripojeného k Internetu . Booter dobrý spôsob , ako otestovať všetky programy , ktoré ste kódované alebo konfigurácie zabezpečenia siete . Visual Basic 6 programovací jazyk Microsoft môžu byť použité na vytvorenie zavádzač aplikácie s minimálnym množstvom kódu . Je to ideálny jazyk , pretože aplikácia VB nepoužívajte veľa pamäte a môžete sa pripojiť k internetu . Pokyny dovolená 1

Otvorte aplikáciu Visual Basic pre programovanie aplikácií a vytvoriť novú aplikáciu . Pomenujte súbor , takže je možné ľahko identifikovať v budúcnosti , napríklad " . VB6 Booter "
2

Pridať dve textové polia , tri prázdne tlačidlá , dva štítky a jeden časovač v aplikácii . Časovač sa bude merať množstvo času zavádzač beží .
3

Umiestnite tri tlačidlá v spodnej časti aplikácie a umiestniť dve textové polia v hornej časti . Umiestnite časovač v pravom hornom rohu . Meno na prvé tlačidlo na ľavej " Štart " , druhé tlačidlo " Zastaviť " a tretí " Clear " .
4 Ak chcete zobraziť

Kliknite na kartu zdrojového kódu aplikácie Visual Studio zdrojový kód tejto aplikácie . Pridajte nasledujúce riadky na hornej časti štruktúry kódu určiť , čo bude aplikácia robiť .

Dovoz System.NetImports System.TextImports System.Net.SocketsImports System.Diagnostics
5

Vytvoriť novú triedu pre aplikáciu a podprogramu časovača , pridaním nasledujúce riadky kódu .

Public Class Form1

Private Sub Timer1_Tick ( byval sender Ako System.Object , Bývalá e As systému . EventArgs ) Kľuky Timer1.TickTry klipart

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

Priradenie podprogramy pre každé z tlačidiel v aplikácii . Po stlačení tlačidla sa bude vykonávať implicitné funkciu .

Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Clicklabel2.forecolor = Color.Limelabel2.text = " aktívny ! " Timer1.Start ( ) End Sub

Private Sub Button2_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button2.Clicklabel2.forecolor = Color.Redlabel2.text = " zastavil ! " Timer1.Stop ( ) End Sub

Private Sub button3_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľučky Button3.ClickListBox1.Items.Clear ( ) End Sub

7

Uložte zdrojový kód a skompilovať aplikáciu do súboru . exe . Spustite súbor . Exe . Zadajte hostiteľa IP v " textovom poli 1 " a zadajte umiestnenie , ktoré by malo byť zavedenie LILO . Stlačte tlačidlo " Štart " pre spustenie zavádzač .

• Predchádzajúca strana: Ako na obrazovku škrípanie vo VBA 
• Ďalšia strana: VBA projekt nebude aktualizovať