Bem-vindo à SACheats

Registre-se para obter acesso a todos os nossos recursos. Uma vez registrado e logado, você poderá criar tópicos, postar respostas a tópicos já existentes, dar reputação aos seus companheiros, realizar downloads e muito mais.
Registre-se Agora

Adicione STATUS ao seu LOADER usando HOST.

Discussão em 'Delphi / Visual Basic' iniciado por SteelGhost, Fevereiro 12, 2017.

  1. SteelGhost

    SteelGhost Membro Avançado

    55
    5
    8
    SACoins:
    165
    Introdução

    Fala pessoal bom hoje estou trazendo um tutorial para vocês que é de adicionar um STATUS para seu LOADER.
    Quando estiver ONLINE na HOST ele estará ONLINE no LOADER.
    Quando estiver OFFLINE na HOST ele estará OFFLINE no LOADER.
    Quando estiver ONLINE terá cor verde e quando estiver OFFLINE cor vermelha.
    :h:
    Tutorial (Escrito)


    Adicione 2 Labels
    Label1 = STATUS:
    Label 2 = Verificando....
    Mude o (name) do Label 2 para status.

    Vamos começar fazendo uma Importação:
    Código:
    Imports System.Net
    Agora no Load do Form vamos declarar alguns comandos:
    Código:
    Dim webclient1 As System.Net.WebClient = New System.Net.WebClient()
    Bom aqui você tem a opção de mudar a VARIAVEL para qualquer outro nome.​
    Código:
    Dim VARIAVEL As String = DownloadString("http://suahost.com/seuarquivo.txt")
    
    Bom o que fizemos nesse último comando.
    Declaramos a VARIAVEL do tipo STRING e que o Download seria tipo STRING (TEXTO .txt)
    Agora vamos dizer que o label2 é igual a VARIAVEL que é igual o .txt da sua HOST.​
    Código:
    status.Text = VARIAVEL
    
    Por que não é label2 em vez de status ?
    Por que no começo do tutorial pedi para mudar o name para status.
    Agora vamos dar as cores ao TEXTO.​
    Código:
    If status.Text = "ONLINE" Then
    status.ForeColor = Color.Lime
    Else
    status.ForeColor = Color.Red
    End If
    O que vai acontecer ali no último comando. Se o texto do status for igual a "ONLINE" então a cor do texto é Lime (verde bem claro) , senão for "ONLINE" vai ser Vermelho.​
     

Compartilhe esta Página

Please enable / Bitte aktiviere JavaScript!
Veuillez activer / Por favor activa el Javascript![ ? ]