Messages de divers maniere

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

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_NeoCortex)