Comment savoir si un modem USB est connecté ?

DeathVB Messages postés 44 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 31 octobre 2006 - 16 févr. 2006 à 14:36
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 16 févr. 2006 à 16:55
Salut tout le monde

Je veux savoir comment faire pour savoir si mon modem USB est connecté, des fois ca arrive qu'il se deconnete tout seul !

s'il ya quelqu'un qui peut m'aider, je serais très reconnaissant


"The only way to learn is be aware and hold on tight."

6 réponses

cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
16 févr. 2006 à 14:47
'Lut,
Oui ont peut t'aider, astuce faire un ping par exemple pour savoir si tu es connecté
Mais VB6 ou VB.Net ?
0
DeathVB Messages postés 44 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 31 octobre 2006
16 févr. 2006 à 14:59
VB6 si c'est possible ?!


"The only way to learn is be aware and hold on tight."
0
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
16 févr. 2006 à 15:18
Tu trouveras sur allapi.net un exemple pour pinger une adresse externe
http://www.mentalis.org/apilist/IcmpSendEcho.shtml

Je te conseilles de remplacer dans l'exemple la valeur de la constante HOSTNAME par "www.google.fr" qui est plus fiable


<HR width="100%" SIZE=2>
Si la réponse te conviens merci de l'accepter
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 48
16 févr. 2006 à 16:18
salut,

par déconnecter, tu entends .. plus de connection internet? ou le modem n'est plus reconnu par l'OS...



si c'est une simple déco, il y a une API toute prête ^^




Option Explicit

'

'-> détermine si le système est connecté à internet

Private Declare Function InetIsOffline Lib "url.dll" _

(ByVal dwFlags As Long) As Long

'

'

Private Sub Form_Load()

MsgBox "Connection établie?" & vbCrLf & Not CBool(InetIsOffline(0&))

Unload Me

End Sub





<small> Coloration
syntaxique automatique [AFCK]</small>



++

PCPT [AFCK]
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
DeathVB Messages postés 44 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 31 octobre 2006
16 févr. 2006 à 16:25
Oui c'est ça ...
Quand le modem n'est plus reconnu par mon OS je veux qu'un msgbox soit affiché par exemple


"The only way to learn is be aware and hold on tight."
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 48
16 févr. 2006 à 16:55
tu les listes tous dans un tableau, si aucun listé ne contien ton modem, une alerte...

et pour trouver comment faire : voir ce lien

++
0
Rejoignez-nous