Jump to content

Recommended Posts

Posted

Hi, i want to create an email sender to MSN Hotmail.. NOT A SPAMMER! I want to Create an email sender for send email to my friends or other more Faster And i want to create it for practise programming in Autoit.. But i dont know how can i do it.. I Create some program but this program is more dificult..

i Begin the code

Thanks for your Help :)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Email Sender", 229, 460, 192, 124)
$SMTP = GUICtrlCreateInput("Serveur SMTP", 24, 32, 153, 21)
$desti = GUICtrlCreateInput("Nom du Destinaire", 24, 72, 153, 21)
$Adressee = GUICtrlCreateInput("Adresse du Destinaire", 24, 112, 153, 21)
$adresser = GUICtrlCreateInput("Adresse qui recoit le message", 24, 152, 153, 21)
$Texte = GUICtrlCreateEdit("", 24, 192, 153, 169)
GUICtrlSetData(-1, "Texte")
$MyButton1 = GUICtrlCreateButton("Go", 48, 392, 124, 30, $BS_FLAT)
GUISetState(@SW_SHOW)


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

    EndSwitch
WEnd

Thanks for your Help ;)

Posted (edited)

New code!!

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Email Sender", 229, 447, 192, 124)
$SMTP = GUICtrlCreateInput("SMTP Server", 24, 16, 153, 21)
$desti = GUICtrlCreateInput("Name of Destinator", 24, 80, 153, 21)
$Adressed = GUICtrlCreateInput("Adress Of Destinator", 24, 112, 153, 21)
$Texte = GUICtrlCreateEdit("", 24, 208, 153, 169)
GUICtrlSetData(-1, "Texte")
$MyButton1 = GUICtrlCreateButton("Go", 48, 400, 124, 30, $BS_FLAT)
$adresser = GUICtrlCreateInput("Adress of receiver", 24, 144, 153, 21)
$portse = GUICtrlCreateInput("Port of the server", 24, 48, 153, 21)
$sujetmess = GUICtrlCreateInput("Subject of Message", 24, 176, 153, 21)
GUISetState(@SW_SHOW)




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

$SMTP = GUICtrlRead($SMTP)
$destinom = GUICtrlRead($desti)
$Adressee = GUICtrlRead($Adressed)
$receveurmessage = GUICtrlRead($adresser)
$sujet = GUICtrlRead($sujetmess)
$Texteenvoi = GUICtrlRead($Texte)
$Port = GUICtrlRead($portse)

Case $MyButton1



EndSwitch
WEnd

Thanks for your help

Edited by james123
Posted

Zedna is on it!

That is considered a Ban evasion. You wont get much help here and Valik will probably ban you for a longer period just for the evasion... not the program

So, you will have time to read-up a little

8)

NEWHeader1.png

Posted

You wont get much help here and Valik will probably ban you for a longer period just for the evasion...

Yeah, "forever" is usually a pretty long time.
Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...