#include<IE.au3>
#include<WindowsConstants.au3>

;----Main----------------
FaceBook ()
Sleep(1000)
SelectPhoto ()
Sleep(2000)
PopUp ()
;------------------------

Func FaceBook ()
Local $oIE = _IECreate("https://www.facebook.com/login/")
$oemail = _IEGetObjByName($oIE, "email")
$Psw = _IEGetObjByName($oIE, "pass")
$button = _IEGetObjByName($oIE, "login")
_IEFormElementSetValue($oemail, "---User Email Address---")
_IEFormElementSetValue($Psw, "***********")
_IEAction($button, "click")
_IELoadWait($oIE)
_IENavigate($oIE, "https://www.facebook.com/---user profile page---")
EndFunc

Func SelectPhoto ()
Local $oIE2 = _IEAttach("https://www.facebook.com/---user profile page---", "url")
$ophoto = _IEGetObjByName($oIE2, "composer_photo[]")
_IEAction($ophoto, "click")
WinClose ("Choose File to Upload")
EndFunc

Func PopUp ()
WinActivate ("Choose File to Upload")
Send ("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg")
Send ("{ENTER}")
;ControlFocus ("Choose File to Upload", "", "Edit1")
;ControlSetText ("Choose File to Upload", "", "Edit1", "C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg")
;ControlClick ("Choose File to Upload", "", "Button1")
EndFunc