j'ai vérifié mon code et il marche très bien.

http://hypranet.homeip.net/status.php

esayer vous allez voir !

moi je l'est tester sur quelques sites et sa fonctionnais très bien.

je vais vérifier ça pour google et d'autre site de ce genre.

oui cela est supposé être possible, j'utilise la librairie zlib, sa crée des extension du .gzip si je ne me trompe.

voici un site de référence http://www.gzip.org/zlib/

Moi non plus, qu'es ce que tu a voulu compressé ?

le programme marche très bien

Ben non c'é pour une fonctionnalité bien précise

tu tape aaa.vbs ben sa va créer sa fichier, ensuite trouver son icone et finalement l'effacer.

télécharge le programme et tu vera ce que je veux dire.

cette fonctionnalité est très pratique, car sa permet de trouver l'icon d'un fichier sans obligatoirement avoir ce type de fichier sous la main.

je suis bien désoler si tu as cru que mon programme a de mauvaise intention.
sa n'afface pas ton fichier.

un chat avec winsock c'é bien plus facile et efficace

J'ai essayer ton logiciel mais quand j'essaie de jouer a pacmen il me sort un erreur qui dit division par 0 impossible

es ce qu'il marche sur 2000/xp ?

Pas fort comme programme tu aurais pu tout simplement dire
dans nt/2000/xp taper

net send [nom_ordi] [message]

dans exectuter

et sa aurai été mieux que faire cette petit source inutile

on peux le trouver ou MBBrowse.ocx

J'ai requarder ta souce et point vue de cryptage

sa marche pas fort

dans text à crypter il affiche seulement ta clé de cryptage inverser

c'é pas du cryptage sa

un genre de cryptage de base untilisé est

l'addition de clé

c'é simple du prend le text et tu lui ajoute ta clé ton pour le décrypter du fais l'opération inverse tu soustrait ta clé

example simple tu as besoin de dexu bouton un crypter un décrypter et tu as ausi besoin d'un textbox nommer Text

TextACrypter = "test de cryptage"
CleCryptage = "a"
TextADeCrypter = "ÕÆÔÕ�ÅÆ�ÄÓÚÑÕÂÈÆ"

voici le code pour crypter
For x = 1 To Len(TextACrypter)
  If y = Len(CleCryptage) Then
  y = 1
  Else
  y = y + 1
  End If
  TextCrypter = Asc(Mid(TextACrypter, x, 1)) + Asc(Mid(CleCryptage, y, 1))
  If TextCrypter > 255 Then
  TextCrypter = TextCrypter - 255
  End If
  Text = Text & Chr(TextCrypter)
Next x

et celui pour décryter
For x = 1 To Len(TextADECrypter)
If y = Len(CleCryptage) Then
y = 1
Else
y = y + 1
End If
TextDeCrypter = Asc(Mid(TextADECrypter, x, 1)) - Asc(Mid(CleCryptage, y, 1))
  If TextDeCrypter < 0 Then
  TextDeCrypter = TextDeCrypter + 255
  End If
  Text = Text & Chr(TextDeCrypter)
Next x

Si tu comprend pas dit moi le je vais t'expliquer