CHECAGEM

USUARIO.EXCLUIDOS 21/11/2006 08:53:55
#185494
queria saber como faço para quando iniciar meu programa ele cheque se uma determinada url esta online, e se nao tiver ele mostre uma mensagem

se alguem puder me ajudar..estou precisando muito
ESLEYSANCHES 21/11/2006 11:50:24
#185538
Determinada URL On-line ? Como assim?

tipo ao iniciar o programa verificar se a URL http://www.vbmania.com.br está On-Line ? é isso mesmo amigão ??
USUARIO.EXCLUIDOS 21/11/2006 14:02:18
#185565
isso mesmo, e se nao tiver ele avisa tipo "servidor Offline"
USUARIO.EXCLUIDOS 21/11/2006 14:26:27
#185573
Cara, não sei se é conveniente, pois se existir demora um pouco pra carregar (apesar que dependendo do site, demora uma vez, mas qdo exibir no browser já vai rapidim), mas que funfa funfa:

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function Download(ByVal URL As String, ByVal outFile As String) As Boolean
    Dim i As Long

    If (outFile = "") Or (URL = "") Then
     Download = False
    Else
     If (InStr(URL, "//")) = 0 Then URL = "http://" & URL
       i = URLDownloadToFile(0, URL, outFile, 0, 0)
       If i = 0 Then
          Download = True
       Else
          Download = False
       End If
     End If
End Function

Private Sub Form_Load()
If Download("http://www.naoepossivelessaurlexistiroue.com.br/", Environ("TEMP") & "\File.tmp") Then
  MsgBox "URL Existente"
Else
  MsgBox "URL Inexistente ou desativada"
End If
End Sub


Se eu encontrar outra forma lhe aviso...flw
USUARIO.EXCLUIDOS 21/11/2006 14:37:57
#185577
Bem, tem como usar o WebBrowser tb:

wb é o componente WebBrowser:
wb.Navigate "http://www.vbmania.com.br/"
Do While wb.Busy
  DoEvents
Loop
If LCase(wb.LocationName) = "servidor não encontrado" Then
  MsgBox "A URL está desativada!"
End If



Mas ainda prefiro a outra forma que é mais certeza de funcionar, pois com o WebBrowser pode dá pipino, primeiro que se o pc for americano dará "Server Not Found" ou algo do tipo, segundo que eu simplesmente não confio no WebBrowser, mas fica a teu critério...flw
USUARIO.EXCLUIDOS 21/11/2006 22:38:58
#185665
como eu faço para um bbtao fazer asssa checagem?
USUARIO.EXCLUIDOS 22/11/2006 16:31:49
#185821
tipo tem como fazer pra se a url tiver off ou nao existir ele desabilitar um botao? se tiver onn ele habilita.
USUARIO.EXCLUIDOS 22/11/2006 17:08:12
#185832
Veja o exemplo em anexo...flw
USUARIO.EXCLUIDOS 23/11/2006 09:14:47
#185862
vlw
Tópico encerrado , respostas não são mais permitidas
Voltar