Board logo

标题: [转贴] VBScript脚本实现将字符串写入剪切板 [打印本页]

作者: find    时间: 2012-2-28 21:58     标题: 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"
复制代码

作者: batman    时间: 2012-2-28 22:15

下面是本人写的版务操作的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"
复制代码

作者: find    时间: 2012-2-28 22:19

回复 2# batman


很好很强大
作者: powerbat    时间: 2012-2-28 22:23

批处理、VBS剪贴板操作专题
http://www.bathome.net/thread-8329-1-1.html
作者: Demon    时间: 2012-2-28 22:35

垃圾脚本之家




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2