Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Send Mail", 381, 512, 226, 8)
GUISetBkColor(0xACA899)
$Group1 = GUICtrlCreateGroup("Gmail Account", 8, 0, 361, 505)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Username :", 24, 24, 76, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Input1 = GUICtrlCreateInput("", 104, 56, 257, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Button1 = GUICtrlCreateButton("Login", 288, 88, 75, 25)
$Label4 = GUICtrlCreateLabel("File.txt", 24, 168, 59, 25)
GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
$Input4 = GUICtrlCreateInput("", 88, 168, 217, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("...", 312, 168, 51, 25)
GUICtrlCreateEdit("", 16, 232, 345, 265)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("Password: ", 24, 56, 72, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Input2 = GUICtrlCreateInput("", 104, 24, 257, 21)
$Button2 = GUICtrlCreateButton("Send", 24, 88, 259, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("To:", 32, 128, 26, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Input3 = GUICtrlCreateInput("", 72, 128, 289, 21)
$Label5 = GUICtrlCreateLabel("Please enter the message", 96, 200, 205, 27)
GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
EndSwitch
WEnd