找回密码
 加入
搜索
查看: 3171|回复: 5

[系统综合] 请懂VBS的大师帮忙转个代码

[复制链接]
发表于 2013-3-14 10:06:21 | 显示全部楼层 |阅读模式
坛里 有懂VBS的吗?
  这里有个VBS的脚本,我想看看它是如何取得股票代码的,请大师帮我转成AU3的
Sub fzdm()     
   Application.ActivateFrame("Technic")
    '与该窗格关联的证券代码 
   Set Grid = Technic.GetGridByName("Main") 
   Label = Grid.StockLabel        
   Set objIE = CreateObject("InternetExplorer.Application")    '复制股票代码到剪贴板 
   objIE.Navigate("about:blank") 
   objIE.document.parentwindow.clipboardData.SetData "text", Label 
   objIE.Quit 
   MsgBox "复制成功" 
End Sub 
 楼主| 发表于 2013-3-14 10:39:03 | 显示全部楼层
先下了,不等了,有路过的大师帮忙看看啊
 楼主| 发表于 2013-3-14 14:41:15 | 显示全部楼层
还没人来啊。。。。。
 楼主| 发表于 2013-3-14 16:41:39 | 显示全部楼层
看来贴子又得沉了
发表于 2013-3-14 22:03:30 | 显示全部楼层
搜索了一下,得知你用的是"金字塔决策交易系统"
这是此VBA的帮助http://www.weistock.com/WeisoftH ... sic_application.htm

Application.ActivateFrame("Technic") '开打名为"Technic"的框架
Set Grid = Technic.GetGridByName("Main") '' 得到框架名称为"Technic",窗格名称为"Main"的窗格对象
Label = Grid.StockLabel ;取得与该窗格关联的证券代码  
这些你可以查看帮助里的[obj/COM 管理]分类里的函数来实现
其它那几句只是设置剪辑板内容而以.可以用ClipPut 代替
发表于 2013-3-15 21:37:58 | 显示全部楼层
不懂。学习学习。。。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-25 22:25 , Processed in 0.114977 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表