Um inicializador é uma aplicação que tenta registrar um usuário de um aplicativo conectado à Internet. A booter uma boa maneira de testar todos os programas que já codificados ou uma configuração de segurança da rede. Basic 6 A linguagem de programação Microsoft Visual pode ser usado para criar aplicativos booter com uma quantidade mínima de código. É uma linguagem ideal , pois aplicações de VB não usar muita memória e pode se conectar à Internet. Instruções
1

Abra o aplicativo de programação Visual Basic e crie um novo aplicativo. Nomeie o arquivo para que ele possa ser facilmente identificados no futuro , por exemplo, " . Booter VB6 "
2

Adicione duas caixas de texto, três botões em branco , dois selos e um temporizador na aplicação . O timer vai medir a quantidade de tempo que o inicializador é executado.
3

Coloque os três botões na parte inferior do aplicativo e colocar as duas caixas de texto no topo. Coloque o cronômetro no canto superior direito. Nomeie o primeiro botão à esquerda "Iniciar", o segundo botão "Stop" eo terceiro " Limpar ".
4

Clique na aba código fonte do Visual Studio para exibir código -fonte do aplicativo . Adicione as seguintes linhas no topo da estrutura de código para especificar o que a aplicação vai fazer.

System.NetImports Importações System.TextImports System.Net.SocketsImports Sistema.Diagnostics
5

Criar uma nova classe para o aplicativo e sub-rotina do timer , adicionando as seguintes linhas de código.

Public Class Form1 Private Sub

Timer1_Tick (sender System.Object , ByVal e As 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 Como IPAddressDim bytCommand As Byte () = New Byte () {} GLOIP = IPAddress.Parse ( TextBox1.Text ) udpClient.Connect ( GLOIP , TextBox2.Text ) bytCommand = bytCommand.Length ) Listbox1.selectedIndex + = 1Catch ex Como ExceptionMe.Close () End Sub TryEnd
6

Atribuir sub-rotinas para cada um dos botões do aplicativo. Quando pressionado, os botões irá executar a função implícita.

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

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

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

7

Salve o código fonte e compilar o aplicativo em um arquivo exe . . Inicie o arquivo exe . . Digite o host IP na "caixa de texto 1" para especificar um local que deve ser inicializado. Pressione o botão "Iniciar" para iniciar o inicializador .