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
;==============================================
   

How to navigate through a web page and fetch data ?

Have you ever done clicking and moving mouse across 2-3 pages just to get one small piece of information. Now with on click you can browse through multiple pages and get the piece of info that you are looking for. Here, in this example I'll show you how to get the exchange rate of INR/USD and save that value into an txt file. This is for education purpose only. Stripping data from others website may be violation of law and in some cases frequent automated browsing migh bring down the site as well.

#include <IE.au3>
#include <String.au3>
#include <array.au3>
#Include <Date.au3>


Dim $iBasePrc, $chars, $QuoteFileName
$QuoteFileName = "Currency_" & @YEAR & ".txt"

$oIE = fnOpenURL("http://www.xe.com/ucc/", "3000")

; Initialize $sHTML value
$sHTML = _IEDocReadHTML ($oIE)

if StringLen($sHTML) > 1000 Then

  $oForm = _IEFormGetObjByName ($oIE, "ucc")
  $oSelect = _IEFormElementGetObjByName ($oForm, "From")
  _IEFormElementOptionSelect ($oSelect, "United States Dollars - USD", 1, "byText")
  $oSelect = _IEFormElementGetObjByName ($oForm, "To")
  _IEFormElementOptionSelect ($oSelect, "India Rupees - INR", 1, "byText")
  ;Click on Submit image button
  _IEFormImageClick ($oIE, "/gen/images/btn_go.gif", "src")
  _IELoadWait ($oIE)
  ;now you are on rates page
  $oTable = _IETableGetCollection ($oIE, 12)
  $aTableData = _IETableWriteToArray ($oTable, True)
  $myQuote = StringReplace($aTableData[2][2], "INR", "")
  $myTime = _NowCalc();StringReplace($aTableData[1][0], "Live rates at ", "")
  fnWriteToFile($QuoteFileName, $myTime & @TAB & $myQuote, "")
 
EndIf

_IEQuit ($oIE)


Func fnOpenURL($myURL, $AttachDelay)

  ShellExecute ("C:\Program Files\Internet Explorer\iexplore.exe", "about:blank")
  if $AttachDelay < 3000 Then $AttachDelay=3000;3 seconds
  Sleep ($AttachDelay)
  $oIE = _IEAttach ("about:blank", "url")
  _IENavigate ($oIE, $myURL)
  _IELoadWait ($oIE)
  return($oIE)

EndFunc


Func fnWriteToFile($fileName, $Content, $TimeStamp)

   $file = FileOpen($fileName, 1)
   if $TimeStamp <> "" Then  FileWriteLine($file, _NowCalc() & @TAB & $Content & @CRLF)
   if $TimeStamp = "" Then  FileWriteLine($file, $Content & @CRLF)

EndFunc

Automating mailcity (web mail) login.

Here is my sample code for automated opening of webmail account login.

#include <IE.au3>
#include <String.au3>
#include <array.au3>
#Include <Date.au3>
#include "myFunctions.au3"


$oIE = fnOpenURL("http://mail.lycos.com", "3000")

$oFrames = _IEFrameGetCollection ($oIE)
$oFrame = _IEFrameGetCollection ($oIE, 0)
$oElement = _IEGetObjById($oFrame, "m_U")
_IEFormElementSetValue ($oElement, "your id goes here")
$oElement = _IEGetObjById($oFrame, "m_P")
_IEFormElementSetValue ($oElement, "password here")

$oElement = _IEGetObjById($oFrame, "login")
_IEAction ($oElement, "click")
_IELoadWait ($oIE)

Generic Web User Interface Login Automation

This script works for most of web login screens like hotmail.com, mail.yahoo.com, gmail.com etc. It picks up most of the configuration values from associated ini file, in this case it depends on "myfile.ini". If you want to automate loging in to other sites like comcast, AT & T you just add another section in the INI file with detail of the web UI objects

Contents of AutoIt script

#Include <Date.au3>
#include <IE.au3>

$varSec = IniReadSectionNames("myfile.ini")

If @error Then 
 MsgBox(4096, "", "Error occurred, You have not set the INI file.")
Else
    For $i = 1 To $varSec[0]

  WriteToLogFile ("Logged in user name " & @UserName)
  WriteToLogFile ("Opening " & $varSec[$i] & " page.")
  ShellExecute("C:\Program Files\Internet Explorer\IEXPLORE.EXE", "about:blank")
  Sleep (3000)
  $oIE = _IEAttach ("about:blank", "url")
  Sleep (2000)
  _IENavigate ($oIE, fnGetKeyValue($varSec[$i], "url"))
  _IELoadWait ($oIE)
  $oForm = _IEFormGetObjByName ($oIE, fnGetKeyValue($varSec[$i], "form"))
  $oElement = _IEGetObjById($oIE, fnGetKeyValue($varSec[$i], "uInput"))
  _IEFormElementSetValue ($oElement, fnGetKeyValue($varSec[$i], "uid"))
  $oElement = _IEGetObjById($oIE, fnGetKeyValue($varSec[$i], "pInput"))
  _IEFormElementSetValue ($oElement, fnGetKeyValue($varSec[$i], "pwd"))

  if fnGetKeyValue($varSec[$i], "btn") <> "" Then
   $oElement = _IEGetObjById($oIE, fnGetKeyValue($varSec[$i], "btn"))
   _IEAction ($oElement, "click")
  Else
   _IEFormSubmit ($oForm)
  EndIf

  _IELoadWait ($oIE)
  WriteToLogFile ("Signed in to " & $varSec[$i] & ".")
  _IELoadWait ($oIE)
  WriteToLogFile ("Inbox opened for " & $varSec[$i] & ".")
  WriteToLogFile ("---------------------------------------------------")

    Next

EndIf


; Get key values suing section name
Func fnGetKeyValue ($Section, $Key)
 $varKeys = IniReadSection("myfile.ini", $varSec[$i])
 For $j = 1 To $varKeys[0][0]
  ;MsgBox(4096, "", "Key: " & $varKeys[$j][0] & @CRLF & "Value: " & $varKeys[$j][1])
  if $varKeys[$j][0] = $Key Then
   Return ($varKeys[$j][1])
  EndIf
 Next
EndFunc


; Logging function
Func WriteToLogFile ($Contents)
 $file = FileOpen(@ScriptName & "_log.txt", 1)
 FileWriteLine($file, _Now() & @TAB & $Contents & @CRLF )
 FileClose($file)
EndFunc

Contents of myfile.ini

[Yahoo]
url=http://www.mail.yahoo.com
form=login_form
uInput=username
pInput=passwd
uid=user id goes here
pwd=password goes here
btn=.save

[Hotmail]
url=http://www.hotmail.com
form=f1
uInput=i0116
pInput=i0118
uid=user id goes here@hotmail.com
pwd=password goes here
btn=idSIButton9

[Gmail]
url=http://www.gmail.com/
form=gaia_loginform
uInput=Email
pInput=Passwd
uid=user id goes here
pwd=password goes here
btn=signIn