• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

asworm

Wireless[VB6]

7 mensagens neste tópico

Boas alguem sabe como contruir um programa que faça procura de dispositivos wireless em VB6?

algo do género "Easy wifi radar".

Agradeça desde ja a atenção.

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

penso que apenas no .net dará para fazer isso !! .. nao sei bem mas era bem pensado um programa desses

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

sim penso que sim porque para trabalhar com wireless tens de trabalhar com linguagem web !! e no .net ja dá para isso

penso que nao tou a dizer nada de errado !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

sim penso que sim porque para trabalhar com wireless tens de trabalhar com linguagem web !! e no .net ja dá para isso

penso que nao tou a dizer nada de errado !

Por acaso até estás :) Uma coisa não tem nada a ver com a outra.

Boas alguem sabe como contruir um programa que faça procura de dispositivos wireless em VB6?

algo do género "Easy wifi radar".

Agradeça desde ja a atenção.

cumps

Não posso testar, porque não tenho dispositivos wireless, mas tenta esta solução:

http://www.experts-exchange.com/Networking/Wireless/Q_20674661.html

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ups  :-[  hihiih

:P

como fazes download nesse site dessa tal coisa !!

eu podia testar tenho um portatil com wireless incorporado, é atraves de wireless que tambem tenho net ! :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

como fazes download nesse site dessa tal coisa !!

eu podia testar tenho um portatil com wireless incorporado, é atraves de wireless que tambem tenho net ! :D

Private Declare Function GetRTTAndHopCount Lib "iphlpapi.dll" _

        (ByVal lDestIPAddr As Long, _

        ByRef lHopCount As Long, _

        ByVal lMaxHops As Long, _

        ByRef lRTT As Long) As Long

       

Private Declare Function inet_addr Lib "wsock32.dll" _

        (ByVal cp As String) As Long

       

Public LastPing As String

Public FoundIt As String

Public IPWatchDog As String

Public Function SimplePing(sIPadr As String) As Boolean

    ' Based on an article on 'Codeguru' by 'Bill Nolde'

    ' Thx to this guy! It 's simple and great!

    ' Implemented for VB in November 2002 by G. Wirth, Ulm,  Germany

    ' Enjoy!

   

    Dim lIPadr      As Long

    Dim lHopsCount  As Long

    Dim lRTT        As Long

    Dim lMaxHops    As Long

    Dim lResult    As Long

   

    Const SUCCESS = 1

   

    lMaxHops = 20              ' should be enough ...

   

    lIPadr = inet_addr(sIPadr)

   

    SimplePing = (GetRTTAndHopCount(lIPadr, lHopsCount, lMaxHops, lRTT) = SUCCESS)

    LastPing = SimplePing

   

End Function

Private Sub Timer1_Timer()

IPWatchDog = "10.0.0.50"

Call SimplePing(IPWatchDog)

If FoundIt = "Active" Then GoTo WatchDog

If LastPing = True Then MsgBox ("Found " & IPWatchDog & " Monitoring is active")

If LastPing = True Then FoundIt = "Active"

If FoundIt = "Inactive" Then GoTo Waiting

WatchDog:

If LastPing = False Then MsgBox ("Lost communications to " & IPWatchDog)

If LastPing = False Then FoundIt = "Inactive"

Waiting:

End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora