欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 复制股票代码到剪贴板的VBS代码

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有15254人关注过本帖树形打印复制链接

主题：复制股票代码到剪贴板的VBS代码
帅哥哟，离线，有人找我吗？
admin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2009/8/31 9:33:14 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：4.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：5.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：6.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：7.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：8.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：9.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2009/9/9 8:53:54 [显示全部帖子]

剪切版是可以多进程访问

至于操作你可以在网上搜索一下 InternetExplorer.Application 对象得有关帮助

 

例子如下

Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False

set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\新建文档.txt",2,true)

while true
str=ie.document.parentwindow.clipboarddata.getdata("text")
if str<>"" then
f.Write vbCrLf&str
ie.document.parentwindow.clipboarddata.setdata "text",""
End If

wend

[此贴子已经被作者于2009-9-9 8:56:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2009/9/9 22:52:57 [显示全部帖子]

VBS目前无法直接访问映射文件，你确实需要按照COM组件得办法来做，通过ACTIVEX来调用接口组件
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2009/10/15 23:23:58 [显示全部帖子]

最好放在Application_VBAStart里做初始化，因为Application_Start()只在软件启动时才执行一次的
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 6 次数据查询