Message sender !

Soyez le premier à donner votre avis sur cette source.

Vue 4 201 fois - Téléchargée 317 fois

Description

Vous avez sans doute déja eu des messages de pub sur votre ordinateur avec windows XP. (surout les possesseurs de l'ADSL)

Alors, pourquoi ne pas en envoyer vous même?

Avec ce programme vous pouvez envoyez vos messages.

Il ne marche qu'avec Windows NT, Me et XP.

Il prévient si vous êtes sous windows 98 que ca ne marchera pas, mais je ne l'ai pas fais pour win 95...

Euh, ya un truc qu'il faut dire, c'est que l'on voit votre adresse Ip ou le nom de votre Pc, alors ce n'est pas dur de vous retrouver.

Sinon, j'avais mis une option pour sauter des lignes mais comme c'est une commande MSDOS (Ctrl+T), ca ne marche pas ici...

Voila, dites moi ce que vous en pensez.
Ne dites pas que c'est nul, car je m'enfoue, je l'ai fais en 10 minutes...

Conclusion :


Pas de mise à jour prévue. (sauf si je trouve comment faire pour windows 98 et si je règle le problème de la commande MsDos.)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
44
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
4 avril 2008

voir ma source aussi...
Messages postés
629
Date d'inscription
mercredi 3 juillet 2002
Statut
Membre
Dernière intervention
9 octobre 2006

c clair tu vas faire fureur avec ton T-shirt ! (c le mec ki fait fureur avec son accordéon ki cause là 8o) )

bon pour le prog, j'en avais fait un moi aussi, visiblement c le truc de débutant, mais ça sert !
encore aujourd'hui un collègue en a eu besoin :-)

héhé le mien il était mieux nananèreuuu, y'avait un fichier ini pour sauvegarder les personnes favorites, nananèreuuuuuu

llllllllooooooooooolllllllllllllllllll
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005

lol je te donne 9.9999/10 pour le t-shirt ! on frole la perfection
et j'avais pas vu que ton prog integre une possibilité de reconnaitre le systeme d'exploitation ca mérite au moins un 0.0001/10 lol !
non aller c pas mal on va dire !
Messages postés
338
Date d'inscription
jeudi 22 août 2002
Statut
Membre
Dernière intervention
14 juin 2005

"Euh, ya un truc qu'il faut dire, c'est que l'on voit votre adresse Ip ou le nom de votre Pc, alors ce n'est pas dur de vous retrouver."

avec la méthode décrite ci-dessus, on peut changer le FromName, et donc l'ip ou nom de pc pourra etre inconnue (j'ai testé ca en local, pas sur le net)
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007

salut !
pour te passer de la commande dos net.exe tu peut utiliser les api
exemples:

'Declaration
Private Declare Function NetMessageBufferSend Lib "netapi32.dll" _
(ByVal servername As String, _
ByVal msgname As String, _
ByVal fromname As String, _
ByVal Buffer As String, _
ByVal BufSize As Long) As Long

Private Const NERR_SUCCESS As Long = 0
Private Const NERR_BASE As Long = 2100
Private Const NERR_NetworkError As Long = (NERR_BASE + 36)
Private Const NERR_NameNotFound As Long = (NERR_BASE + 173)
Private Const NERR_UseNotFound As Long = (NERR_BASE + 150)
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_BAD_NETPATH As Long = 53
Private Const ERROR_NOT_SUPPORTED As Long = 50
Private Const ERROR_INVALID_PARAMETER As Long = 87
Private Const ERROR_INVALID_NAME As Long = 123

'Fonction retour d'erreurs
Private Function NetSendErrorMessage(ErrNum As Long) As String
Select Case ErrNum
Case NERR_SUCCESS
NetSendErrorMessage = "The message was successfully sent"
Case NERR_NameNotFound
NetSendErrorMessage = "Send To not found"
Case NERR_NetworkError
NetSendErrorMessage = "General network error occurred"
Case NERR_UseNotFound
NetSendErrorMessage = "Network connection not found"
Case ERROR_ACCESS_DENIED
NetSendErrorMessage = "Access to computer denied"
Case ERROR_BAD_NETPATH
NetSendErrorMessage = "Sent From server name not found."
Case ERROR_INVALID_PARAMETER
NetSendErrorMessage = "Invalid parameter(s) specified."
Case ERROR_NOT_SUPPORTED
NetSendErrorMessage = "Network request not supported."
Case ERROR_INVALID_NAME
NetSendErrorMessage = "Illegal character or malformed name."
Case Else
NetSendErrorMessage = "Unknown error executing command."
End Select
End Function


'envoie du message
Private Function NetSendMessage(ByVal sSendTo As String, ByVal sMessage As String) As Long
Dim ret As Long
sSendTo = StrConv(sSendTo, vbUnicode)
sMessage = StrConv(sMessage, vbUnicode)
NetSendMessage = NetMessageBufferSend(vbNullString, sSendTo, vbNullString, sMessage, Len(sMessage))
End Function


'utilisation
Dim ret As Long

ret = NetSendMessage(Destinataire, Message)
If ret <> 0 Then
'pas bon
Msgbox NetSendErrorMessage(ret)
Else
'Bon
Msgbox NetSendErrorMessage(ret)
End If
Next e

voili A+
Afficher les 9 commentaires

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.