Automated Trading - interesting

I have an account with folioinvesting (earlier known as foliofn). They have a system of window trading i.e. you can place your order during that window trading period and those trades are less expensive - refer to their site for more. But I wanted to place window orders at 8 am and 11 am. There are many times when I am office or in transit so I used to miss it. Also automation makes the timing more accurate. Then I decided to automate it, so wrote this script. This script demonstrates (apart from logging in) clicking of links, selecting radio buttons and clicking on specified images. When I say clicking not just clicking randomly here and there, but to accomplish this task of placing an window order. To place a window order in foliofn it takes about 10 mouse clicks and going through 3-4 screens, more than that its the timing that is important. So, I wrote this script and scheduled it - problem solved. It also generates the log as well.I have added some customizations to suite my requirements

Currently this script places orders blindly, I mean it runs at scheduled time and places the order, the scope of improvement is - it should be intelligent enough to decide whether to place or not or when to place 8 AM or 11 AM or both ?? -- I am working on it :)

#Include <Date.au3>
#include <IE.au3>
   
Dim $Filename

WriteToLogFile ("foliofn_log.txt", "Connecting to Foliofn...")
   
ShellExecute("C:\Program Files\Internet Explorer\IEXPLORE.EXE", "about:blank")
   
Sleep (3000)
   
$oIE = _IEAttach ("about:blank", "url")
   
Sleep (2000)
   
_IENavigate ($oIE, "https://www.folioinvesting.com/servlets/ProcessAction?identifier=loginFormEntry&click1=Login")
   
_IELoadWait ($oIE)
   
$oForm = _IEFormGetObjByName ($oIE, "loginForm")
   
$oElement = _IEGetObjById($oIE, "inputLogin")
_IEFormElementSetValue ($oElement, "user_id")
   
$oElement = _IEGetObjById($oIE, "inputPassword")
_IEFormElementSetValue ($oElement, "********")
   
$oElement = _IEGetObjById($oIE, "loginBtn")
_IEAction ($oElement, "click")
   
WriteToLogFile ("foliofn_log.txt", "Logged-in to Foliofn")
   
_IELoadWait ($oIE)
   
WriteToLogFile ("foliofn_log.txt", "Started Placing Order")
   
_IENavigate ($oIE, "https://www.foliofn.com/servlets/ProcessAction? &_
identifier=default_myAccounts_portal&myAcct.destination=tradeWindow& &_
;myAcct.level=F&myAcct.accountname=*****&myAcct.accountType &_
=I&myAcct.accountNumber=********&myAcct.folioNumber=**********") &_
_IELoadWait ($oIE)
   

WriteToLogFile ("foliofn_log.txt", "Opening - [Trade Entire Folio] Tab")
   
;Find the link "Trade Entire Folio" and click it
$sMyString = "Trade Entire Folio"
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
        _IEAction($oLink, "click")
        ExitLoop
    EndIf
Next
   
_IELoadWait ($oIE)
   

WriteToLogFile ("foliofn_log.txt", "Opening - [Update & Exchange] Tab")
   
;Find the link "Update & Exchange" and click it
   
$sMyString = "Update & Exchange"
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
        _IEAction($oLink, "click")
        ExitLoop
    EndIf
Next
   
_IELoadWait ($oIE)
   
WriteToLogFile ("foliofn_log.txt", "Making final selections")
   
; Select RADIO button
$oForm = _IEFormGetObjByName ($oIE, "tradeFolioSyncSubmit")
_IEFormElementRadioSelect ($oForm, "R", "syncOption", 1, "byValue")
   

;Preview Order : remember it's an image button
_IEFormImageClick ($oIE, "btn_preview.gif", "src")
_IELoadWait ($oIE)
   
WriteToLogFile ("foliofn_log.txt", "Clicked on order PREVIEW button")
   

;Preview Order : remember it's an image button
_IEFormImageClick ($oIE, "btn_order.gif", "src")
   
WriteToLogFile ("foliofn_log.txt", "Clicked on [Place Order] button")
   
_IELoadWait ($oIE)
   
WriteToLogFile ("foliofn_log.txt", "Order Placed")
   

WriteToLogFile ("foliofn_log.txt", "Loging-out of the site..")
   
_IEImgClick ($oIE, "/_linkedfiles/_images/_ui/icon_logout.gif", "src")
sleep(1000)
_IELoadWait ($oIE)
   
_IEQuit ($oIE)
   
If _NowTime(5) > '10:58:00' Then
 WriteToLogFile ("foliofn_log.txt", "Putting the computer in Sleep mode !")
 Shutdown(32)
EndIf
   
WriteToLogFile ("foliofn_log.txt", "===================================")
   
;-- Order Placed..
   
;==============================================
; Logging function
Func WriteToLogFile ($Filename, $Contents)
 $file = FileOpen($Filename, 1)
 FileWriteLine($file, @ScriptName & @TAB & _Now() & @TAB & $Contents & @CRLF )
 FileClose($file)
EndFunc
;==============================================