Chris a écrit : Tu as programmé tous tes logiciels qui accèdent à Internet, alors!
Navigateur Web
Log de messagerie
Pare-feu
etc...
Chris
Code : Tout sélectionner
Procedure send(msg.s)
SendNetworkData(ConnID,@msg,Len(msg))
EndProcedure
Procedure.s wait()
res=""
For tmp=1 To 4999
res+" "
Next
ReceiveNetworkData(ConnID,@res,4999)
res=Left(res,3)
ProcedureReturn res
EndProcedure
Procedure.l sendmail(mailserver.s,mailto.s,mailfrom.s,subject.s,msgbody.s)
If InitNetwork()
ConnID = OpenNetworkConnection(mailserver,25)
If ConnID
wait()
error=0
If res="220"
send("HELO "+mailfrom+cr)
wait()
If res="250"
Delay(100)
send("MAIL FROM: <"+mailfrom+">"+cr)
wait()
If res="250"
send("RCPT TO: <"+mailto+">"+cr)
wait()
If res="250"
send("DATA"+cr)
wait()
If res="354"
Delay(100)
;/ Modifié à partir d'ici pour l'envoi des fichiers par MIME
;/ La routine ne gère pas la totalité des formats, seulement
;/ le format texte(ascii).
;/ Il y a une routine plus complète dans CodeArchiv, mais que
;/ je n'ai pas réussi à faire fonctionner.
;- Partie 1 : En tête
send("From: <"+mailfrom+">"+cr)
send("To: <"+mailto+">"+cr)
send("Subject: "+subject+cr)
send("Date: "+D$+cr)
send("MIME-Version: 1.0"+cr)
send("Content-Type: multipart/mixed;"+cr)
send(" boundary="+Chr(34)+"-=_NextPart"+cr+cr)
;- Partie 2 : Heuuu!!! Je sais pas
send("X-Priority: 3"+cr)
send("X-MSMail-Priority: Normal"+cr)
send("X-Mailer: PBMailer"+cr)
send("X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409"+cr+cr)
send("This is a multi-part message in MIME format."+cr+cr)
;- Partie 3 : Texte du message
send("---=_NextPart"+cr)
send("Content-Type: text/plain;"+cr)
send("charset="+Chr(34)+"iso-8859-1"+Chr(34)+cr)
send("Content-Transfer-Encoding: 7bit"+cr+cr)
send(msgbody +cr+cr); Message
;- Partie 4 : Piece jointe
ResetList(Fichiers())
While NextElement(Fichiers())
If Fichiers()\Selected = 1
Fichier$ = Fichiers()\Fichier
send("---=_NextPart"+cr)
send("Content-Type: application/octet-stream;"+cr)
send("name="+Chr(34)+GetFilePart(Fichier$)+Chr(34)+cr)
send("Content-Transfer-Encoding: 7bit"+cr)
send("Content-Disposition: attachment; filename="+Chr(34)+GetFilePart(Fichier$)+Chr(34)+cr);"+cr)
Delay(200)
If ReadFile(0, Fichier$)
Buffer.l = Lof()
*Mem0= AllocateMemory(Buffer)
If *Mem0
ReadData(*Mem0, Buffer)
send(PeekS(*Mem0, Buffer) + cr)
EndIf
EndIf
;/ Jusqu'ici
send(cr)
send("---=_NextPart"+cr)
send("--"+cr+"--"+cr+cr)
Delay(150)
EndIf
Wend
send(""+cr)
send("."+cr)
wait()
If res="250"
Delay(100)
send("QUIT"+cr)
wait()
ProcedureReturn 1
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
CloseNetworkConnection(ConnID)
EndIf
EndIf
EndProcedure
sendmail(Serveur$,Adresse$,Expediteur$,Sujet$,Message$)
Code : Tout sélectionner
MessageRequester("","Erreur",#MB_ICONERROR)Je viens de vérifier!... C'EST VRAILe temps ne fait rien à l'affaire
Quand on est con, ...on est con!
donc du bazar en haut du message, le texte de commentaire et la pièce jointe en texte sans mise en forme du code.X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: PBMailer
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409
This is a multi-part message in MIME format.
---=_NextPart
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
test soft de chris
---=_NextPart
Content-Type: application/octet-stream;
name="GetDrive.pb"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="GetDrive.pb"
; Auteur : Le Soldat Inconnu
; Version de PB : 3.90
;
; Explication du programme :
; Récupérer la lettre et le type (disquette, disque dur, etc...) de tous les lecteurs présents sur l'ordinateur.
Structure DriveInfos
DriveLetter.s
DriveType.l
DriveTypeString.s
NameOfVolume.s
EndStructure
NewList DriveList.DriveInfos()
Procedure GetDrive(ListDriveType.l)
Protected Drive.s, DriveLetter.s, DriveType.l, Start.l, LengthDrive.l, DriveTypeString.s
#REMOVABLE_DRIVE = 1
#FIXED_DRIVE = 2
#REMOTE_DRIVE = 4
#CDROM_DRIVE = 8
#RAMDISK_DRIVE = 16
#UNKNOWN_DRIVE = 32
#ALL_DRIVE = 63
; On vide la liste
ClearList(DriveList())
; On récupère la lettre des différents lecteurs présent sur l'ordinateur
Drive = Space(255)
LengthDrive = GetLogicalDriveStrings_(255, @Drive)
For Start = 0 To LengthDrive - 4 Step 4
DriveLetter.s = PeekS(@Drive + Start, 3) ; on récupère une lettre
DriveType.l = GetDriveType_(@DriveLetter) ; on récupère le type du lecteur
Select DriveType ; On donne un nom au type de lecteur
Case #DRIVE_REMOVABLE : DriveType = #REMOVABLE_DRIVE : DriveTypeString.s = "Disquette"
Case #DRIVE_FIXED : DriveType = #FIXED_DRIVE : DriveTypeString.s = "Disque dur"
Case #DRIVE_REMOTE : DriveType = #REMOTE_DRIVE : DriveTypeString.s = "Lecteur réseau"
Case #DRIVE_CDROM : DriveType = #CDROM_DRIVE : DriveTypeString.s = "CD-ROM"
Case #DRIVE_RAMDISK : DriveType = #RAMDISK_DRIVE : DriveTypeString.s = "RamDisk"
Case #DRIVE_UNKNOWN : DriveType = #UNKNOWN_DRIVE : DriveTypeString.s = ""
EndSelect
If DriveType & ListDriveType ; on regarde si le type du lecteur correspond à ceux demandés
AddElement(DriveList())
DriveList()\DriveLetter = RemoveString(DriveLetter, "\")
DriveList()\DriveType = DriveType
DriveList()\DriveTypeString = DriveTypeString
If DriveLetter <> "A:\" And DriveLetter <> "B:\"
DriveList()\NameOfVolume = Space(255)
GetVolumeInformation_(@DriveLetter, @DriveList()\NameOfVolume, 255, 0, 0, 0, 0, 0)
DriveList()\NameOfVolume = Trim(DriveList()\NameOfVolume)
Else
DriveList()\NameOfVolume = ""
EndIf
EndIf
Next
EndProcedure
;- Debut du test
GetDrive(#REMOVABLE_DRIVE | #CDROM_DRIVE | #FIXED_DRIVE)
ResetList(DriveList())
While NextElement(DriveList())
Debug DriveList()\DriveLetter + " " + DriveList()\DriveTypeString + " " + DriveList()\NameOfVolume
Wend
; ExecutableFormat=Windows
; CursorPosition=16
; FirstLine=1
; Executable=C:\Program Files\PureBasic\Développements\essai.exe
; EOF
---=_NextPart
--
--
