VERIFICA?ÃO STATUS SERVIDOR
Boa Noite
Estou montando um PDV então preciso criar uma rotina para verificar se o servidor esta ou nao esta conectado, peguei na net uma funçao de ping mais ta dando muita falha.
estrutura
Um servidor com ip 192.168.2.1
um pdv 192.168.2.55
entao quando eu abrir o pdv preciso verificar se existe essa conexao
Estou montando um PDV então preciso criar uma rotina para verificar se o servidor esta ou nao esta conectado, peguei na net uma funçao de ping mais ta dando muita falha.
estrutura
Um servidor com ip 192.168.2.1
um pdv 192.168.2.55
entao quando eu abrir o pdv preciso verificar se existe essa conexao
Você pode tentar conectar com o banco de dados. Se der erro, considera que não está disponÃvel.
Se você não quer envolver o banco de dados... você pode usar o componente Winsock.
Abraços
Se você não quer envolver o banco de dados... você pode usar o componente Winsock.
Abraços
assim nao funciona pois demora muito para retornar, preciso de algo rapido ate pq isso fica eum timer que tenho que verifica sempre
ninguem teria uma solucao ?
Já tentou com Winsock?
Se não for assim... só usando uma API pra dar o ping mesmo.
Não tem muito pra onde correr.
Se não for assim... só usando uma API pra dar o ping mesmo.
Não tem muito pra onde correr.
http://www.vbforums.com/showthread.php?547443-Ping-from-VB6
Boa noite
eu tenho um mini programa, que coloco nas maquina cliente, ai ele ver ser o IP localizou o servidor ai ele executa o programa principal
ver ser serve pra alguma coisa pra você
eu tenho um mini programa, que coloco nas maquina cliente, ai ele ver ser o IP localizou o servidor ai ele executa o programa principal
ver ser serve pra alguma coisa pra você
Vou te passar um passo-a-passo bem simples que vai te ajudar acho
Vai na Guia Application das propriedades do teu projeto
Clica no botão View application events
na tela que aparece, deixa ela com a seguinte caracterÃstica:
Namespace My
[ô] The following events are available for MyApplication:
[ô]
[ô] Startup: Raised when the application starts, before the startup form is created.
[ô] Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
[ô] UnhandledException: Raised if the application encounters an unhandled exception.
[ô] StartupNextInstance: Raised when launching a single-instance application and the application is already active.
[ô] NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
Partial Friend Class MyApplication
Private Sub MyApplication_NetworkAvailabilityChanged(sender As Object, e As Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
If My.Computer.Network.IsAvailable = False Then
MessageBox.Show([Ô]Atenção: A rede parou de funcionar.[Ô] & ControlChars.NewLine & [Ô]Se o Sistema estiver rodando em rede provavelmente ele também parará de funcionar.[Ô], My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class
End Namespace
O segredo está em vc montar a função NetworkAvailabilityChanged
tente rodar o sistema e desconecte a rede e vc verá a resposta
é claro que um sistema que roda em ambiente de rede, pode parar de funcionar por outras razões... cabe a vc trata-las
Vai na Guia Application das propriedades do teu projeto
Clica no botão View application events
na tela que aparece, deixa ela com a seguinte caracterÃstica:
Namespace My
[ô] The following events are available for MyApplication:
[ô]
[ô] Startup: Raised when the application starts, before the startup form is created.
[ô] Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
[ô] UnhandledException: Raised if the application encounters an unhandled exception.
[ô] StartupNextInstance: Raised when launching a single-instance application and the application is already active.
[ô] NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
Partial Friend Class MyApplication
Private Sub MyApplication_NetworkAvailabilityChanged(sender As Object, e As Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
If My.Computer.Network.IsAvailable = False Then
MessageBox.Show([Ô]Atenção: A rede parou de funcionar.[Ô] & ControlChars.NewLine & [Ô]Se o Sistema estiver rodando em rede provavelmente ele também parará de funcionar.[Ô], My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class
End Namespace
O segredo está em vc montar a função NetworkAvailabilityChanged
tente rodar o sistema e desconecte a rede e vc verá a resposta
é claro que um sistema que roda em ambiente de rede, pode parar de funcionar por outras razões... cabe a vc trata-las
Tópico encerrado , respostas não são mais permitidas