I found another way on the web to get ticker price data (even intraday is possible with this approach as unit of time is 1 sec. 1800=30minutes)
In[20]:= GetPriceData[stocksymbol_, exchangesymbol_, interval_,
numperiod_, parameters_] :=
"http://www.google.com/finance/getprices?q=" <>
ToString[stocksymbol] <> "&x=" <> ToString[exchangesymbol] <>
"&i=" <> ToString[interval] <> "&p=" <> ToString[numperiod] <>
"&f=" <> ToString[parameters] <> "";
In[21]:= PriceData =
Import[GetPriceData["QQQ", "NASDAQ", "1800", "10d", "d,c"]];
In[22]:= PriceData[[9 ;; Length[PriceData], 2]]
Out[22]= {138.391, 138.52, 138.39, 138.395, 138.31, 138.385, 138.321, \
138.16, 138.26, 138.22, 138.245, 138.355, 138.32, 138.4, 138.11, \
137.97, 137.96, 138.255, 138.195, 138.26, 138.341, 138.36, 138.38, \
138.29, 138.37, 138.32, 138.4, 138.01, 137.635, 137.54, 137.54, \
137.7, 137.68, 137.84, 137.84, 137.97, 138.2, 138.26, 138.15, 138.15, \
138.29, 138.41, 138.38, 138.312, 138.34, 138.48, 138.6, 138.52, \
138.52, 138.5, 138.63, 138.53, 138.57, 138.441, 138.6, 138.64, \
138.91, 138.9, 139.06, 138.89, 138.79, 138.76, 138.77, 138.9, 138.97, \
138.81, 138.92, 138.94, 139.04, 139.38, 139.37, 139.06, 139.2, \
139.287, 139.39, 139.481, 139.47, 139.465, 139.395, 139.395, 139.4, \
139.46, 139.62, 138.53, 138.12, 137.99, 137.26, 137.4, 137.66, \
137.405, 137.64, 137.411, 137.16, 136.83, 136.71, 136.65, 136.07, \
136.05, 136.53, 137.19, 137.121, 137.22, 136.71, 136.879, 136.9, \
136.86, 137.23, 137.54, 137.33, 137.309, 137.26, 137.72, 138.04, \
138.19, 138.21, 138.14, 138.22, 138.26, 138.34, 138.29, 138.24, \
138.255, 138.26, 137.92, 137.825, 138.145, 138.58, 138.62, 138.55, \
138.69, 138.8, 138.886, 138.86, 138.86, 138.793, 138.87, 138.918, \
138.94, 139}