Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

Estatísticas
Temos 6985 usuários registrados
O último usuário registrado atende pelo nome de Handerson Mildroz

Os nossos membros postaram um total de 17164 mensagens em 2588 assuntos

PING

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo PING

Mensagem por Marcos Guedes em 10/12/2009, 10:56

Verifica se um endereço web está acessível:
Código:
* by [Você precisa estar registrado e conectado para ver este link.]
* with LOTS of help from (actually; all the hard work by) Markus Voellmy
*
* ? pingstate( pingx( "[Você precisa estar registrado e conectado para ver este link.] ) )
* would check jassing.com to be sure it's running a web server
* NOTE: it does not do any dns lookups; so if you're checking for a mail server, you need
* to resolve the mx record yourself.

? pingstate( pingx( "forum.programacaobrasil.com",80 ) )

#DEFINE sckclosed 0
#DEFINE sckopen 1
#DEFINE scklistening 2
#DEFINE sckconnectionpending 3
#DEFINE sckresolvinghost 4
#DEFINE sckhostresolved 5
#DEFINE sckconnecting 6
#DEFINE sckconnected 7
#DEFINE sckclosing 8
#DEFINE sckerror 9

FUNCTION pingstate
   LPARAMETERS tnstate
   LOCAL lcstate
   DO CASE
      CASE tnstate = sckclosed
         lcstate = "Closed"
      CASE tnstate = sckopen
         lcstate = "Open"
      CASE tnstate = scklistening
         lcstate = "Listening"
      CASE tnstate = sckconnectionpending
         lcstate = "Waiting"
      CASE tnstate = sckresolvinghost
         lcstate = "Resolving"
      CASE tnstate = sckconnecting
         lcstate = "Connecting"
      CASE tnstate = sckconnected
         lcstate = "Connected"
      CASE tnstate = sckclosing
         lcstate = "Closing"
      CASE tnstate = sckerror
         lcstate = "Error"
      OTHERWISE
         lcstate = "Unknown"
   ENDCASE
   RETURN lcstate
ENDFUNC

FUNCTION pingx
   LPARAM tcserver, tnport
   LOCAL lnstate, loping, lnlast
   loping=CREA("mswinsock.winsock")
   WITH loping
      .remoteport=tnport
      .remotehost = tcserver
      .CONNECT()
      lnlast = -1
      DO WHILE .state < sckconnected
         IF lnlast # .state
            lnlast = .state
         ENDIF
      ENDDO
      lnstate = .state
      .CLOSE()
   ENDWITH
   RETURN lnstate
ENDFUNC
Fonte:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: PING

Mensagem por Marcos Guedes em 10/12/2009, 10:59

Retorna o endereço de IP de um site na web:
Código:
DECLARE INTEGER WSACleanup IN ws2_32
DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr
DECLARE INTEGER gethostbyname IN ws2_32 STRING HOST
DECLARE INTEGER WSAStartup IN ws2_32 INTEGER wVerRq, STRING lpWSAData
DECLARE RtlMoveMemory IN kernel32 AS CopyMemory;
   STRING @DEST, INTEGER Src, INTEGER nLength

IF wsastartup(0x202, REPLI(CHR(0),512)) = 0  && initiates use of WS2_32.DLL
   ? getip('forum.programacaobrasil.com')
   = wsacleanup()
ENDIF

FUNCTION getip(cserver)
   * returns IP like 127.0.0.1 for a given host name like [Você precisa estar registrado e conectado para ver este link.]
   #DEFINE hostent_size 16
   LOCAL nstruct, nsize, cbuffer, naddr, cip
   nstruct = gethostbyname(cserver)
   IF nstruct = 0
      * not found in a host database; or not connected etc.
      RETURN '0.0.0.0'
   ENDIF

   cbuffer = REPLI(CHR(0), hostent_size)
   cip = REPLI(CHR(0), 4)

   = copymemory(@cbuffer, nstruct, hostent_size)
   = copymemory(@cip, buf2dword(SUBS(cbuffer,13,4)),4)
   = copymemory(@cip, buf2dword(cip),4)
   RETURN inet_ntoa(buf2dword(cip))
ENDFUNC

FUNCTION buf2dword(lcbuffer)
   RETURN ASC(SUBSTR(lcbuffer, 1,1)) + ;
      BITLSHIFT(ASC(SUBS(lcbuffer, 2,1)),8) +;
      BITLSHIFT(ASC(SUBS(lcbuffer, 3,1)),16) +;
      BITLSHIFT(ASC(SUBS(lcbuffer, 4,1)),24)
ENDFUNC
Fonte:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: PING

Mensagem por Marcos Guedes em 10/12/2009, 11:00

Verificar se um IP está disponível em uma rede local:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum