Get Real Time Stock Quotes

[dcop]

If FileExists("C:\Temp\") Then
    Real()
Else
    DirCreate("C:\Temp\")
    Real()
EndIf
Func Real()
InetGet ( "http://finance.yahoo.com/q/ecn?s=orcl", "c:\temp\quote.txt", 1)
$fil = FileRead("C:\Temp\quote.txt", 100000)
$sear = StringInStr ( $fil, "last trade")
$par = StringMid ( $fil, $sear, 60)
$par2 = StringMid($par, 48, 5)
MsgBox(0, "", $par2)
FileDelete ( "C:\Temp\quote.txt" )
EndFunc
Exit

This goes to Yahoo Finance real time quotes and returns the current quote. You could make one for each stock you watch or variable the stock symbol into an input box. This one does Oracle's Price

[olmanRvr]

Hi dcop,

Thanks for the code. I will try it out and get back.

cheers

olmanR

[Jos]

... might be dcop isn't seeing this as the post is around 10 years old and the OP hasn't been around since 2010.

Jos

[olmanRvr]

Yeah, pretty old post.But I thank him for the code any way......

olmanR