Messages de divers maniere

0/5 (5 avis)

Vue 7 118 fois - Téléchargée 1 377 fois

Description

Presentation de MSG-Cortex 4

ce prog peut :
- scanner un reseau pour connaitre les PC connéctés
- envoyer un msg a un poste ciblé via net send.
- envoyer un msg a plusieur poste d'un reseau via net send.
- fair un chat entre deux poste via winsock.
- envoyer des emails.
- recevoir des email.
- bombarder un poste de msg via net send.
- possede un carnet d'adresse.
- changer d'apparence (skin)
voila tout ce qui sait faire.
la partie reception d'email est encore a finiolé, mais est quand meme operationel.

Source / Exemple :


'###########################################################################"
Label8.Caption = "Connection en cours ..."
Dim tmp As String
Set evt = ws
If evt.State = sckConnected Then Exit Sub
nbrecept = 0
ws.connect LireINI("email", "pop"), 110
While ws.State <> sckConnected
DoEvents
Wend
'Attente du message de bienvenue
nextSend = False
While nextSend = False
DoEvents
Wend

nextSend = False
ws.SendData "USER " & LireINI("email", "utilisateur") & vbCrLf
While nextSend = False
DoEvents
Wend

nextSend = False
ws.SendData "PASS " & UncryptMsg(LireINI("email", "mdp")) & vbCrLf
While nextSend = False
DoEvents
Wend

If InStr(1, AnSwEr, "OK") > 0 Then
    Label8.Caption = "Vous êtes connecté"
Else
    Label8.Caption = "Login/mot de passe incorrect"
End If

nextSend = False
ws.SendData "STAT" & vbCrLf
While nextSend = False
DoEvents
Wend
Label8.Caption = Mid(AnSwEr, 4, 3) & " emails"
If Mid(AnSwEr, 4, 3) = 0 Then
    Exit Sub
End If
'recuperation des titre des mails
Dim nb As Integer
nb = Mid(AnSwEr, 4, 3)
nextSend = False
ws.SendData "LIST" & vbCrLf
While nextSend = False
DoEvents
Wend

Dim i As Integer
i = 1
While i < nb + 1
    nextSend = False
    ws.SendData "TOP " & i & " 0" & vbCrLf
    While nextSend = False
        DoEvents
    Wend
    Text1.Text = AnSwEr
    Position& = Text1.Find("SUBJECT", , , rtfWholeWord)
    Dim j As Integer
    j = 0
    While Mid(AnSwEr, Position + 9 + j, 2) <> vbNewLine
        DoEvents
        j = j + 1
    Wend
    '---------------------------------------
    
    '---------------------------------------
    lstMessage.AddItem (Mid(AnSwEr, Position + 9, j))
DoEvents
i = i + 1
Wend

'###########################################################################"
lstMessage.Text = lstMessage.List(0)

Conclusion :


ci dessus une partie du code qui gere le serveur pop3
les skin sont a l'adresse suivante :
http://www.chez.com/neocortex/pagecour/vb/msgcortex/skin.zip
pour utilisé les skins il faut allé dans les option du prog et selectionner le fichier "skin.msgx" contenu dans le zip en telechargement.

Bonne Prog

Neocortex
www.wcx.fr.st

je suis toujours a la recherche de skin, alors j'attend de voir vos création.
Vous verrez il n'est pas du tout difficile de créer son propre skin.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
3
Date d'inscription
mardi 18 novembre 2003
Statut
Membre
Dernière intervention
26 avril 2005

je veut l'executer commant merci
email
wwelcom.adel@laposte.net
Messages postés
3
Date d'inscription
mardi 18 novembre 2003
Statut
Membre
Dernière intervention
26 avril 2005

je cherche un programme sur la messagerie elctronique client serveur
mon email wwelcom.adel@laposte.net
merci
Messages postés
75
Date d'inscription
samedi 27 mars 2004
Statut
Membre
Dernière intervention
4 juillet 2005

alors t'en est ou ? après 1 ans ?
Messages postés
48
Date d'inscription
dimanche 17 juin 2001
Statut
Membre
Dernière intervention
11 décembre 2008

je vais taché de retravailler les commentaire et de mettre a jour le prog sur le site
NeoCortex
Messages postés
132
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
2 mai 2004

Salut NeoCortex,
je trouve ton programme "message de diffferentes manieres" tres bien, par contre le code ... est dur a lire... tu n'en aurais pas une version ... commentée ? J'aimerais bien l'étudier !
Rnosat

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.