How to Capture AAStock's market capital info.

Install iOpus iMacro
http://www.iopus.com/download/

Save the following code into "testing.vbs" and double click to run, the extracted data will be stored in c:\extract.csv (in this demo, only 2318.hk and 2319.hk has been extracted)

'Option Explicit
Dim iim1, iret
Dim rn, i, keyword, vals

'MsgBox ("This example script uses NO macros, but sends the macro code directly.")

set iim1= CreateObject ("imacros")
iret = iim1.iimInit

Dim MyMacroCode

iret = iim1.iimDisplay("Start demo")

'Run the first macro
for vals = 2318 to 2319
vals_string = CStr(vals)
MyMacroCode = "CODE:"
MyMacroCode = MyMacroCode+"VERSION BUILD=6000818" + vbNewLine
MyMacroCode = MyMacroCode+"SET !EXTRACT_TEST_POPUP NO " + vbNewLine
MyMacroCode = MyMacroCode+"SET !ERRORIGNORE YES " + vbNewLine
MyMacroCode = MyMacroCode+"URL GOTO=http://www.aastocks.com/chi/fundamental/profile.asp?symbol="+vals_string+"&catg=ma" + vbNewLine
MyMacroCode = MyMacroCode+"SIZE X=885 Y=611" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:qinf ATTR=NAME:qin_s CONTENT="+vals_string + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=1 TYPE=INPUT:BUTTON FORM=NAME:qinf ATTR=NAME:btnHKStockSubmit" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=1 TYPE=A ATTR=TXT:基本數據" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=1 TYPE=INPUT ATTR=CLASS:nf12&&NAME:qin_s&&VALUE:"+vals_string+"&&NAME:qin_s EXTRACT=TXT " + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=5 TYPE=TD ATTR=CLASS:cell_body&&TXT:* EXTRACT=TXT" + vbNewLine
MyMacroCode = MyMacroCode+"TAG POS=7 TYPE=TD ATTR=CLASS:cell_body&&TXT:* EXTRACT=TXT" + vbNewLine
MyMacroCode = MyMacroCode+"SAVEAS TYPE=EXTRACT FOLDER=C:\ FILE=*" + vbNewLine
MyMacroCode = MyMacroCode+"" + vbNewLine
iret = iim1.iimPlay(MyMacroCode)
next

if iret < 0 Then
MsgBox "Error in Macro#1: "+ iim1.iimGetLastError()
End If

iret = iim1.iimDisplay("Script completed.")

'MsgBox "Close iMacros browser"

iret = iim1.iimExit
WScript.Quit(0)