[prescient63]

Originally Posted by Lyenae

Dunno how shitty of a company you have to be to not offer real time quotes. I can get real time shit for free with a paper trading account from thinkorswim, or even straight on MarketWatch - Stock Market Quotes, Business News, Financial News

Though it might be some regulation somewhere.

Seems like real time to me........

Intraday data provided by Interactive Data Real Time Services, a division of Interactive Data Corp. and subject to terms of use. Historical and current end-of-day data provided by Interactive Data Pricing and Reference Data. More information on NASDAQ traded symbols and their current financial status. Intraday data delayed 15 minutes for Nasdaq, and 20 minutes for other exchanges. Dow Jones Indexes(SM) from Dow Jones & Company, Inc. SEHK intraday data is provided by Comstock and is at least 60-minutes delayed. All quotes are in local exchange time. Real-time last sale data provided by NASDAQ.

In case anyone wants to automate their trading through excel. This is 1000% untested and guaranteed to fail at some point, but I'm lazy.
Transaction type takes values 1-4

Function trade(Symbol, Transaction, Quantity)

Dim IE As Object


Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate ("http://simulator.investopedia.com/Trade/TradeStock.aspx")
IE.StatusBar = True
IE.Toolbar = True
IE.Visible = True
IE.Resizable = True
IE.AddressBar = True

Do While IE.ReadyState <> 4 'READYSTATE_COMPLETE'
  DoEvents
Loop

    IE.Document.forms(0).all("ctl00$MainPlaceHolder$symbolTextbox").Value = Symbol
    IE.Document.forms(0).all("ctl00$MainPlaceHolder$transactionTypeDropDown").Value = Transaction
    IE.Document.forms(0).all("ctl00$MainPlaceHolder$quantityTextbox").Value = Quantity
    IE.Document.forms(0).all("ctl00$MainPlaceHolder$durationTypeDropDown").Value = "1"
    IE.Document.forms(0).all("ctl00$MainPlaceHolder$previewOrderButton").Click
    
Do While IE.ReadyState <> 4 'READYSTATE_COMPLETE'
DoEvents
Loop

IE.Document.forms(0).all("ctl00$MainPlaceHolder$submitOrder").Click
  
Do While IE.ReadyState <> 4 'READYSTATE_COMPLETE'
DoEvents
Loop

IE.Quit: Set IE = Nothing

End Function