Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 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
Erro de compatibilidade de cores

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Estatísticas
Temos 7039 usuários registrados
O último usuário registrado atende pelo nome de missias

Os nossos membros postaram um total de 32 mensagens em 18 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