请懂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 代替

link369 · 发表于 2013-3-15 21:37:58

不懂。学习学习。。。。

		自动登录	找回密码
密码			加入

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

相关帖子