Connection à un serveur counter-strike ... version 1.2

Soyez le premier à donner votre avis sur cette source.

Vue 8 770 fois - Téléchargée 751 fois

Télécharger le projet
Commenter

Description

Bah voilà la 3ieme version de mon programme. Comme le titre le dit bien, c'est toujours un programme qui se connecte à un serveur Counter Strike.

J'ai mis une capture et l'exe final dedans.

Je vous remercie pour les notes que vous m'avez mise & j'espere que cette version vous plaira autant que l'autre.

Bon surf et bons progs à tous !

Ps : la version précédente se trouve là : http://www.vbfrance.com/article.aspx?Val=5214
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 1
11 juil. 2003 à 18:55
xabi62 a juste, à part que les anti-slash ne sont pas apparues ""
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 1
11 juil. 2003 à 18:38
Pas mal comme prog mais msn ça marche pas du tout :(

P.S : J'ai MSN Messenger 6.0
cs_Pentium4 Messages postés 43 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 26 octobre 2004
10 févr. 2003 à 15:53
C bien bô tous sa mais pourrait avoir la meme chose ke cette fois si c le logiciel ki donne les password car c un peu chiant :)
xabi62 Messages postés 84 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 19 juillet 2006
8 août 2002 à 14:33
Salut, pour aller chercher le chemin d'install d'HL, il faut mettre ca dans ton code:

dans le load de ta form
On Error Resume Next
chemin = regget("HKEY_LOCAL_MACHINESOFTWAREValveHalf-LifeInstallPath")
If Err.Number = -2147024894 Then 'Si erreur dans la base de registre
MsgBox "Half-life n'est pas correctement installé sur la machine." & vbCrLf & vbCrLf & "Vous ne pouvez pas utiliser ce programme.", vbCritical
End If

La fonction qui va lire dans base de registre:
Function regget(value)
Set regedit = CreateObject("Wscript.shell")
regget = regedit.regread(value)
End Function

Voila,

A+

XaV, mail moi pour ta nouvelle version.... xabi62@yahoo.fr
cs_MaSSai Messages postés 19 Date d'inscription mardi 16 avril 2002 Statut Membre Dernière intervention 27 juillet 2002
30 juil. 2002 à 09:54
A Metos : Bonne idée ca metos, j'y avais pas pensé. Je vais voir ce que je peux faire.

Bonne prog & bons frags...
S'inscrire maintenant

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.

Du même auteur (cs_MaSSai)