Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como usar VB6 fazer Booters
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 .

Anterior :

Próximo : No
  Os artigos relacionados
·Como criar hiperlinks com base em nomes de pasta utiliz…
·O que é um script VB Usado Para 
·Como depurar VBScript 
·Descrição dos arquivos do projeto VB6 
·Lendo Arquivos TXT em VBScript 
·Como calcular o tamanho do bloco para DataSets VB 
·Como procurar dados em um arquivo com VB Script 
·Como configurar implantação para VBS Dados ação per…
·Como fazer um jogo Clicando Com Visual Basic 
·Como usar uma classe de região para remover partes de …
  Artigos em destaque
·Como Alfabetizar uma matriz em C + + 
·Como adicionar um banner Usando programação HTML 
·Como gerar um tom em Java 
·O que é um literal Duplo 
·Como Revisar entrada em Java Do Teclado 
·Como girar Texto de Licenciatura em JavaScript 
·Como substituir uma palavra em um arquivo de texto exte…
·Grades da tabela usando Java JSP 
·Como Chegar Eclipse Helios para cima e correndo para o …
·Como inserir uma caixa de seleção em PHP MySQL 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados