[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBScript脚本实现将字符串写入剪切板

VBS实现将字符串写入剪切板的实现代码,需要的朋友可以参考下。

函数代码:


  1. Sub CopyString(s)
  2. Set forms=WScript.CreateObject("forms.form.1")
  3. Set textbox=forms.Controls.Add("forms.textbox.1").Object
  4. With textbox
  5. .multiline=True
  6. .text=s
  7. .selstart=0
  8. .sellength=Len(.text)
  9. .copy
  10. End With
  11. End Sub
  12. '调用
  13. CopyString "批处理之家 www.bathome.net"
复制代码



完整测试代码


  1. Sub CopyString(s)
  2. Set forms=WScript.CreateObject("forms.form.1")
  3. Set textbox=forms.Controls.Add("forms.textbox.1").Object
  4. With textbox
  5. .multiline=True
  6. .text=s
  7. .selstart=0
  8. .sellength=Len(.text)
  9. .copy
  10. End With
  11. End Sub
  12. CopyString "批处理之家 www.bathome.net"
  13. msgbox "ok"
复制代码

下面是本人写的版务操作的vbs,一样是写入剪贴板中(加排版)
  1. Dim note, str, vbstr
  2. note = "  对不起,本贴因为标题过于模糊或含有敏感字符而触犯版规!请楼主在仔细阅读论坛发贴规则后主动修改好标题。同时本贴将暂时禁止回复,对于因此而给楼主带来的不便我们深表歉意,但也请楼主自觉遵守和维护论坛秩序,谢谢!"
  3. For i = 1 To Len(note) Step 30
  4.   str = str & Mid(note, 1, 30) & vbCrLf
  5.   note = Mid(note, 31, Len(note))
  6. Next
  7. str = str & note : note = str
  8. 'MsgBox str:WScript.Quit  
  9. vbstr = "[color=green]" & String(60, "*") & "[/color]" & vbCrLf & vbCrLf & "[color=red][size=4]" & note & vbcrlf & "[/size][/color]" & "[color=blue]请阅读论坛发贴规则:[/color][url][color=red]http://www.bathome.net/thread-963-1-1.html[/color][/url]" & vbCrLf & vbcrlf & "[color=blue]提示:" & vbCrLf & vbTab & "请大家在楼主修改标题并得到管理层认可之前不要给出任何有意义的回复。" & vbCrLf & vbTab & "否则一律视为无视论坛纪律扣2分!(管理层和技术组扣4分)" & vbcrlf & vbtab & "论坛是大家的,也要靠大家来维护。。。[/color]" & vbcrlf & vbcrlf & "[color=green]" & String(60, "*") & "[/color]"
  10. Set oIE = CreateObject("InternetExplorer.Application")
  11. oIE.Navigate "about:blank"
  12. oie.Visible = False
  13. Do Until oIE.ReadyState = 4: WScript.Sleep 200:Loop
  14. oIE.document.parentWindow.clipboardData.setData "text", vbstr
  15. oIE.Quit
  16. Set oie = Nothing
  17. MsgBox "ok"
复制代码
***共同提高***

TOP

回复 2# batman


很好很强大

TOP

批处理、VBS剪贴板操作专题
http://www.bathome.net/thread-8329-1-1.html

TOP

垃圾脚本之家

TOP

返回列表