jiaosc 发表于 2014-3-24 16:53:36

已解决如何分行分项读取网上股票交易5.0的资金股票栏中的数据

本帖最后由 jiaosc 于 2014-3-24 16:54 编辑

通过将近半年的摸索,个人的需求已基本得到解决,唯一不足之处就是只能激活股票交易软件界面在前台运行,但不影响功能使用。现将源代码贴出,以求共同完善。
WinActivate("网上股票交易系统5.0")
SLEEP(100)
Send("{F4}")
SLEEP(500)
ControlClick("网上股票交易系统5.0","","CVirtualGridCtrl2","left")
SLEEP(200)
SLEEP(500)
ControlClick("网上股票交易系统5.0","","CVirtualGridCtrl2","right")
SLEEP(200)
Send("{DOWN}")
SLEEP(200)
Send("{DOWN}")
SLEEP(200)
Send("{DOWN}")
SLEEP(200)
Send("{ENTER}")
SLEEP(200)
WinSetState ( "网上股票交易系统5.0", "", @SW_MINIMIZE)
$chicangxxclip=ClipGet( )
$chicangxx=StringSplit($chicangxxclip,@CR);
$CountLines =$chicangxx
ClipPut ("")
For $a=2 To $CountLines         
$xiadangpcx =StringSplit($chicangxx[$a],@TAB);         
$zqdm=$xiadangpcx
$zqmc=$xiadangpcx
$gpye=$xiadangpcx
$kyye=$xiadangpcx
$gpyk=$xiadangpcx
$gpcbj=$xiadangpcx
$ykb1=$xiadangpcx
$xianjia=$xiadangpcx
$shizhi=$xiadangpcx
$xiadangpcxtxt="持股信息"&@CRLF&$zqdm1&@CRLF&$zqmc1&@CRLF&$gpye1&@CRLF&$kyye1&@CRLF&$gpyk1&@CRLF&$gpcbj1&@CRLF&$ykb11&@CRLF&$xianjia1&@CRLF&$shizhi1&@CRLF
Msgbox(0,'$xiadangpcxtxt )      ;
通过获取的持仓信息信息,就可以对持仓股票进行具体下一步的买卖操控了。

zxhou1 发表于 2014-4-15 12:45:16

又是一牛人啊,能不能直接通过服务器获取价格啊

zealor 发表于 2014-12-20 20:30:49

不错,试了一下可用。不过还是提点建议:
1.ControlClick获取焦点的方法不好,应该用ControlFocus
2.拷贝到剪贴板也不要用鼠标右键按很多次,直接send("^C")即可。
页: [1]
查看完整版本: 已解决如何分行分项读取网上股票交易5.0的资金股票栏中的数据