Script qui envoie un e-mail avec autoit

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Nociif

Nociif

2b || !2b
V
Sep 23, 2011
2,607
4
944
push location
Discord
Nociif#5969
Salut tout le monde, je vais vous apprendre à créer un script qui enverra des e-mails mais avant tout je vous demanderais de ne pas les utiliser comme des logiciels de fishing ! Merci de votre compréhension :)

I] Bien Commencer
II] La forme
III] Le script


I] Bien commencer

Pour bien commencer il vous faut Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Et un clavier qui puisse faire du copier/coller :mdr1:

Donc, pour bien commencer, faites clique droit>Nouveau>AutoIt v3 Script , ouvrez-le et supprimez tout les première ligne en vert

II] La forme

Pour la forme, faites outil>Koda(FormDesigner)

faites une form avec 5 inputs et un bouton, celà dois donner approximativement ça:
Code: 
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Mon mailer", 625, 300, 192, 124)
Global $Input1 = GUICtrlCreateInput("Mon nom", 8, 8, 601, 21)
Global $Input2 = GUICtrlCreateInput("mon adresse", 8, 40, 601, 21)
Global $Input3 = GUICtrlCreateInput("Pour l'adresse", 8, 72, 601, 21)
Global $Input4 = GUICtrlCreateInput("Sujet", 8, 104, 601, 21)
Global $Input5 = GUICtrlCreateInput("Message", 8, 136, 601, 21)
Global $button1 = GUICtrlCreateButton("Envoie",8, 200,601,50)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd


III] Le script

dans la partie include mettez ceci:

Code: 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>

Ensuite supprimez ce qu'il y a dans "While 1"

cela dois donnez ça:
Code: 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Mon mailer", 625, 300, 192, 124)
Global $Input1 = GUICtrlCreateInput("Mon nom", 8, 8, 601, 21)
Global $Input2 = GUICtrlCreateInput("mon adresse", 8, 40, 601, 21)
Global $Input3 = GUICtrlCreateInput("Pour l'adresse", 8, 72, 601, 21)
Global $Input4 = GUICtrlCreateInput("Sujet", 8, 104, 601, 21)
Global $Input5 = GUICtrlCreateInput("Message", 8, 136, 601, 21)
Global $button1 = GUICtrlCreateButton("Envoie",8, 200,601,50)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

 EndSwitch
WEnd

Une fois ceci vous devez écrire ceci entre While 1 et WEnd (supprimez EndSwitch)

Code: 
$msg = GUIGetMsg()
    If $msg = -3 Then
        DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
        GUIDelete($Form1)
        ExitLoop
    EndIf
	If $msg = $Button1 Then

            DirCreate(@TempDir & "\ATP\ATP_Mailer")
            InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\ATP\ATP_Mailer\smtp")
		GUICtrlSetState($Button1, $GUI_DISABLE)
        $s_SmtpServer = FileRead(@TempDir & "\ATP\ATP_Mailer\smtp")
		$s_FromName=GUICtrlRead($input1)
		$s_FromAddress=GUICtrlRead($input2)
		$s_ToAddress=GUICtrlRead($input3)
		$s_Subject = GUICtrlRead($Input4)
        $as_Body[0] = GUICtrlRead($input5)
		$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"",-1)
		sleep(50)
				GUICtrlSetState($Button1, $GUI_Enable)
				if @error Then
					MsgBox(0,"","error "& @error)
					Else
		MsgBox(0,"","1 mail envoyé")
		EndIf
	EndIf
	Next

Cela donne ça au final:
Code: 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Mon mailer", 625, 300, 192, 124)
Global $Input1 = GUICtrlCreateInput("Mon nom", 8, 8, 601, 21)
Global $Input2 = GUICtrlCreateInput("mon adresse", 8, 40, 601, 21)
Global $Input3 = GUICtrlCreateInput("Pour l'adresse", 8, 72, 601, 21)
Global $Input4 = GUICtrlCreateInput("Sujet", 8, 104, 601, 21)
Global $Input5 = GUICtrlCreateInput("Message", 8, 136, 601, 21)
Global $button1 = GUICtrlCreateButton("Envoie",8, 200,601,50)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$msg = GUIGetMsg()
    If $msg = -3 Then
        DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
        GUIDelete($Form1)
        ExitLoop
    EndIf
	If $msg = $Button1 Then

            DirCreate(@TempDir & "\ATP\ATP_Mailer")
            InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\ATP\ATP_Mailer\smtp")
		GUICtrlSetState($Button1, $GUI_DISABLE)
        $s_SmtpServer = FileRead(@TempDir & "\ATP\ATP_Mailer\smtp")
		$s_FromName=GUICtrlRead($input1)
		$s_FromAddress=GUICtrlRead($input2)
		$s_ToAddress=GUICtrlRead($input3)
		$s_Subject = GUICtrlRead($Input4)
        $as_Body[0] = GUICtrlRead($input5)
		$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"",-1)
		sleep(50)
				GUICtrlSetState($Button1, $GUI_Enable)
				if @error Then
					MsgBox(0,"","error "& @error)
					Else
		MsgBox(0,"","1 mail envoyé")
		EndIf
	EndIf
	Next
 EndSwitch
WEnd

Compilé et c'est fini !
 
M

meven2012

Membre
Jan 31, 2011
9
0
421
Alors toutes tes erreurs dans ton script :
$as_Body[0] $as_body le [0] ne sert a rien car la variable n'a qu'une valeur

Next de 1 il n'a rien a faire dans ton script de 2 il s'utilise avec For ... In ou For ... To ... Step

Endswitch Il n'y a pas de Switch, donc pas la peine de mettre fin a quelque chose qui n'existe pas

Et puis c'est du copier coller de l'aide autoit... mal organisée en plus
 
casimir

casimir

V
Mar 30, 2011
1,014
1
944
In Your Ass
en l etat sa sert a rien
Meven2012 a commencer a fair le pointage des erreurs et c est pas les seules ^^

Copier coller foireux histoire de se faire mousser un peu ;)
 
[F]usion

[F]usion

Membre Banni
Oct 10, 2011
466
0
321
Nancy(54)
www.cheat-gam3.com
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Alors toutes tes erreurs dans ton script :
$as_Body[0] $as_body le [0] ne sert a rien car la variable n'a qu'une valeur

Next de 1 il n'a rien a faire dans ton script de 2 il s'utilise avec For ... In ou For ... To ... Step

Endswitch Il n'y a pas de Switch, donc pas la peine de mettre fin a quelque chose qui n'existe pas

Et puis c'est du copier coller de l'aide autoit... mal organisée en plus
Click to expand...


Oui dommage toute c'est erreur de débutant ...
 
C

ced5959

Membre
Aug 23, 2011
15
0
301
Si se scripte aurais etait détailler il aurais etait interessend j'aurais pu analyser les fonctions et en tirer quelque chose mais a cette état sa sert strictement a rien a par a utiliser le programme t'elle qu'elle . Car ce qui on la capacité de modifier se scripte on la capacité a le creer au départ donc script totalement ... Sa serais vraiment tres interessent que tu détaille le code source !

Cordialement Wordeur
 
drov

drov

V
Feb 27, 2012
1,427
1
944
A noter que si vous voulez faire un envoyeur de mail genre "report bug" faites attention car il est facile de décompiler et de retrouver vos ids de mail
 
Votre publicité ici !
You must log in or register to reply here.
Top Bottom