#include <IE.au3>
#include <Excel.au3>
Call("signin")
Func signin()
Global $oIE= _IECreate ("http://site23.way2sms.com/content/index.html?")
Local $username = _IEGetObjByName($oIE,"username")
Local $password = _IEGetObjByName($oIE,"password")
Local $button = _IEGetObjById($oIE,"loginBTN")
_IEFormElementSetValue ($username, "28")
_IEFormElementSetValue ($password, "NIT")
_IEAction($button,"click")
EndFunc

sleep(5000)
MouseClick($mouse_click_left,186,351)
Local $oExcel_1 = _excel_open()
Local $sworkbook = "C:numbers.xlsx"
local $oWorkbook = _excel_bookopen($oExcel_1,$sWorkbook)


Local $aResult = _Excel_RangeRead($oWorkbook, 1, "A2:B7", 2)
For $i = 0 To 7
Local $text = _IEGetObjByName($oIE,"message")
_IEFormElementSetValue ($text,$aResult[$i][0])

Local $Mobileno = _IEGetObjByName($oIE,"mobile")
_IEFormElementSetValue ($Mobileno, $aResult[$i][1])

Local $button1 = _IEGetObjById($oIE,"send")
_IEAction($button1,"click")

Next
sleep(5000)