CRIANDO UMA APLICACAO PRA PINGAR UM IP

 Tópico anterior Próximo tópico Novo tópico

CRIANDO UMA APLICACAO PRA PINGAR UM IP

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#370162 - 02/04/2011 00:54:42

IZAKEE
ORLANDIA
Cadast. em:Abril/2011


Última edição em 02/04/2011 02:15:39 por IZAKEE

Bom, seguinte galera. Entrei no curso de VB.Net e estamos aprendendo visual basic 2008 express, e eu queria fazer um aplicativo ping
tipo um formulrio onde eu digitasse um ip, e o programa pingasse ele e me retornasse em um label se ele foi sucedido e o tempo de resposta
coisa bem simples, se algum tiver um link de um tutorial que explique como faz, ou se algum puder explicar ficarei grato.

EDIT o programa no nenhuma []tarefa[] do curso, pra uso prprio em casa, pois uso wireless

Everybody[]s got a secret, can you tell me what is mine?

#370167 - 02/04/2011 02:02:41

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


cara com esse titulo vai ser dificil o pessoal entra pra ver coloca COMO DAR PING EM UM IP ai o pessoal que sabe a resposta ja entra e manda pra tu so uma dica blz....... vou procurar algo pra voce.....

pois so sei capturar o ip da maquina em questao.....ambos da net e o local.....



#370168 - 02/04/2011 02:04:21

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Public chkAdm As Boolean = My.Computer.Network.Ping([]192.168.32.2[])
if chkadm = true then
messagebox.show([]Conexo ok[])
else
messagebox.show([]A conexo falhou[])
endif



#370169 - 02/04/2011 02:06:53

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


e isso ai mesmo aqui funcionou.....



#370170 - 02/04/2011 02:08:29

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


ou pode ser usado esse

If My.Computer.Network.Ping([]192.168.0.152[]) Then
            MsgBox([]success[])
        Else
            MsgBox([]no reply[])
        End If



#370171 - 02/04/2011 02:10:04

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Mais se voce quiser saber se o cara continuar com a net ligada.... FUIIIIIIIIIIIIIIII
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8898



#370173 - 02/04/2011 02:23:43

IZAKEE
ORLANDIA
Cadast. em:Abril/2011


Última edição em 02/04/2011 02:51:57 por IZAKEE

cara, esse cdigo que voc me mandou me ajudou muito, adaptei ele pra isso:

    Private Sub cmdPingarClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPingar.Click
        If My.Computer.Network.Ping(txtIP.Text) = True Then
            MsgBox([]Sucesso[])
        Else
            MsgBox([]Falha[])
        End If
    End Sub



certo, at ae eu entendi, essa variavl retorna um valor false ou true conforme o resultado do ping.
s o que me falta o tempo do ping, eu queria fazer o seguinte, jogar a informao do ping em um textbox multiline com o resultado em milisegundos
tem como fazer isso? algum pode me ajudar? grato

Everybody[]s got a secret, can you tell me what is mine?

Resposta escolhida #370178 - 02/04/2011 04:15:11

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


Ah esse simples olha o artigo do macoratti que esta tudo explicado la, tim tim por tim tim

VB.NET - Obtendo informaes da rede com NetworkInformation - PING

Abraos

Estou voltando... Ol a todos... J posso dizer, ([]Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA[])
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em cdigos binrios.



#370210 - 02/04/2011 13:16:55

IZAKEE
ORLANDIA
Cadast. em:Abril/2011


Última edição em 02/04/2011 13:20:10 por IZAKEE

Zerocal, justamente isso que eu preciso, s que pra vb.net 2008
mas mesmo assim j ajudou muito

Everybody[]s got a secret, can you tell me what is mine?

#370214 - 02/04/2011 13:24:35

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


IZAKEE mais esse artigo do marcoreti voce pode fazer no 2008 e no 2010 que vai funcionar do mesmo jeito fiz aqui e funciono..... fiz no 2008 funciono e depois converti para 2010 e funciono blz......pode seguir o tutorial.....



#370222 - 02/04/2011 14:34:36

IZAKEE
ORLANDIA
Cadast. em:Abril/2011


beleza, vou tentar, que l tava escrito que era pro vb 2005, logo imaginei que no ia ter compatibilidade, mas valeu mesmo

Everybody[]s got a secret, can you tell me what is mine?

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por IZAKEE em 08/04/2011 16:11:55