Scaner et pinger un poste

Soyez le premier à donner votre avis sur cette source.

Vue 7 674 fois - Téléchargée 1 467 fois

Description

c'est un code qui permet de scannerle reseau et de pinger sur l'unde hot

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
hello
a la place de :

ShellExecute(0,'Open', 'net', PChar('use \\' + Edit1.Text + ' /u:' + Edit2.Text + ' ' + Edit3.Text), nil, SW_HIDE);

tu peux utiliser la tres utile et propre fonction Format(); qui permet de formater du texte, ça donne :

ShellExecute(0,'Open', 'net', PChar(format('use \\%s /u:%s %s',[Edit1.Text,Edit2.Text,Edit3.Text])), nil, SW_HIDE);

%s : à remplacer par une string
%i : par un integer
yen a d'autre je pense (F1 pour l'aide)

+++

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.