;===============================================================================
;
; GUI Name:         Txting app through email
; Description:      Provides Uses with multiple cell carrier links to help text
;                   through email in a limited reception area.
; Parameter(s):
;
; Return Value(s):  Pain!
; Author(s):        Chris Chillemi Main GUI
;
;===============================================================================
#include <ColorConstants.au3>
#include <EditConstants.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <MsgBoxConstants.au3>

Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
Local $hMainGUI = GUICreate("Send a Text App", 450, 410)
GUICtrlSetBkColor($hMainGUI, 0x929396)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")
Func CLOSEButton()
	Exit
EndFunc   ;==>CLOSEButton

GUISetState(@SW_SHOW)

GUICtrlCreateLabel("10 digit Cell #", 10, 25, 82, 25)

$Input1 = GUICtrlCreateInput("", 10, 40, 82, 25) ;Phone #
GUICtrlSetFont(-1, 9, 800, 1, "Arial")
GUICtrlSetBkColor(-1, 0x00cccc)

GUICtrlCreateLabel("Cell Carier (pick from list to the right)", 100, 25, 180, 25)

$Input2 = GUICtrlCreateInput("", 95, 40, 195, 25) ; Carrier code
GUICtrlSetFont(-1, 9, 800, 1, "Arial")
GUICtrlSetBkColor(-1, 0x00cccc)

GUICtrlCreateLabel("Subject", 10, 70, 280, 25)

$Input3 = GUICtrlCreateInput("", 10, 85, 280, 25) ; Subject
GUICtrlSetFont(-1, 9, 800, 1, "Arial")
GUICtrlSetBkColor(-1, 0x00cccc)

GUICtrlCreateLabel("Txt Body", 10, 115, 280, 25)

$Input4 = GUICtrlCreateInput("", 10, 135, 280, 200, $ES_MULTILINE) ; Text Message
GUICtrlSetFont(-1, 9, 800, 1, "Arial")
GUICtrlSetBkColor(-1, 0x00cccc)

$Ok_Button1 = GUICtrlCreateButton("Send the Text via E-Mail", 10, 360, 200, 25)
GUICtrlSetOnEvent($Ok_Button1, "Ok_Button1")
GUICtrlSetBkColor(-1, 0xffff01)
GUICtrlSetColor(-1, 0x0000ff)
GUICtrlSetFont(-1, 10, 900, 1, "Calibri")
Func Ok_Button1()
	Local $sAddress = GUICtrlRead($Input1) & GUICtrlRead($Input2)
	Local $sSubject = GUICtrlRead($Input3)
	Local $sBody = GUICtrlRead($Input4)
	_INetMail($sAddress, $sSubject, $sBody)
	Sleep(100)
	Send("!{s}")
EndFunc   ;==>Ok_Button1

#Region GROUP WITH RADIO BUTTONS
GUICtrlCreateGroup("Cell Carriers", 300, 10, 120, 390)
Local $rad1 = GUICtrlCreateRadio("Alltel", 310, 25, 90)
GUICtrlSetState(-1, 0)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad2 = GUICtrlCreateRadio("AT&T", 310, 50, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad3 = GUICtrlCreateRadio("Boost Mobile", 310, 75, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad4 = GUICtrlCreateRadio("Cricket", 310, 100, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad5 = GUICtrlCreateRadio("Metro PCS", 310, 125, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad6 = GUICtrlCreateRadio("Nextel", 310, 150, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad7 = GUICtrlCreateRadio("Ptel", 310, 175, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad8 = GUICtrlCreateRadio("Qwest", 310, 200, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad9 = GUICtrlCreateRadio("Sprint", 310, 225, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad10 = GUICtrlCreateRadio("Suncom", 310, 250, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad11 = GUICtrlCreateRadio("T-Mobile", 310, 275, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad12 = GUICtrlCreateRadio("Tracfone", 310, 300, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad13 = GUICtrlCreateRadio("U.S. Cellular", 310, 325, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad14 = GUICtrlCreateRadio("Verizon", 310, 350, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
GUICtrlSetFont(-1, 9, 900, 1, "Arial")
Local $rad15 = GUICtrlCreateRadio("Virgin Mobile", 310, 375, 90)
GUICtrlSetFont(-1, 9, 900, 1, "Arial")

GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

$Alltel = "@message.alltel.com"
$ATT = "@txt.att.net"
$BoostMobile = "@myboostmobile.com"
$Cricket = "@sms.mycricket.com"
$MetroPCS = "@mymetropcs.com"
$Nextel = "@messaging.nextel.com"
$Ptel = "@ptel.com"
$Qwest = "@qwestmp.com"
$Sprint = "@messaging.sprintpcs.com"
$Suncom = "@tms.suncom.com"
$TMobile = "@tmomail.net"
$Tracfone = "@mmst5.tracfone.com"
$USCellular = "@email.uscc.net"
$Verizon = "@vtext.com"
$Virgin_Mobile = "@vmobl.com"


GUISetState(@SW_SHOW)
#Region GUICTRLREAD
$rad1_1 = GUICtrlRead($rad1)
$rad2_1 = GUICtrlRead($rad2)
$rad3_1 = GUICtrlRead($rad3)
$rad4_1 = GUICtrlRead($rad4)
$rad5_1 = GUICtrlRead($rad5)
$rad6_1 = GUICtrlRead($rad6)
$rad7_1 = GUICtrlRead($rad7)
$rad8_1 = GUICtrlRead($rad8)
$rad9_1 = GUICtrlRead($rad9)
$rad10_1 = GUICtrlRead($rad10)
$rad11_1 = GUICtrlRead($rad11)
$rad12_1 = GUICtrlRead($rad12)
$rad13_1 = GUICtrlRead($rad13)
$rad14_1 = GUICtrlRead($rad14)
$rad15_1 = GUICtrlRead($rad15)
#EndRegion GUICTRLREAD

While 1
	If GUICtrlRead($rad1) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Alltel)

	ElseIf GUICtrlRead($rad2) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $ATT)

	ElseIf GUICtrlRead($rad3) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $BoostMobile)

	ElseIf GUICtrlRead($rad4) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Cricket)

	ElseIf GUICtrlRead($rad5) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $MetroPCS)

	ElseIf GUICtrlRead($rad6) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Nextel)

	ElseIf GUICtrlRead($rad7) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Ptel)

	ElseIf GUICtrlRead($rad8) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Qwest)

	ElseIf GUICtrlRead($rad9) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Sprint)

	ElseIf GUICtrlRead($rad10) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Suncom)

	ElseIf GUICtrlRead($rad11) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $TMobile)

	ElseIf GUICtrlRead($rad12) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Tracfone)

	ElseIf GUICtrlRead($rad13) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $USCellular)

	ElseIf GUICtrlRead($rad14) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Verizon)

	ElseIf GUICtrlRead($rad15) = $GUI_CHECKED Then
		GUICtrlSetData($Input2, $Virgin_Mobile)

		Sleep(1000)
	EndIf

WEnd

#EndRegion GROUP WITH RADIO BUTTONS

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton1")
Func CLOSEButton1()
	Exit
EndFunc   ;==>CLOSEButton1