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



Labels:

Posted by Technology Yogi, Saturday, December 27, 2008 11:38 PM | 0 comments |

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


Labels:

Posted by Technology Yogi, 11:13 PM | 0 comments |

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)



Labels:

Posted by Technology Yogi, Saturday, December 20, 2008 2:54 PM | 0 comments |

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



Labels:

Posted by Technology Yogi, Saturday, December 13, 2008 12:39 PM | 0 comments |