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

find

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

函数代码:

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub

'调用


CopyString "批处理之家 www.bathome.net"
复制代码

完整测试代码

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
CopyString "批处理之家 www.bathome.net"
msgbox "ok"
复制代码

Demon

垃圾脚本之家

powerbat

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

find

回复 2# batman


很好很强大

batman

下面是本人写的版务操作的vbs，一样是写入剪贴板中（加排版）

Dim note, str, vbstr
note = "　　对不起，本贴因为标题过于模糊或含有敏感字符而触犯版规！请楼主在仔细阅读论坛发贴规则后主动修改好标题。同时本贴将暂时禁止回复，对于因此而给楼主带来的不便我们深表歉意，但也请楼主自觉遵守和维护论坛秩序，谢谢！"
For i = 1 To Len(note) Step 30
  str = str & Mid(note, 1, 30) & vbCrLf
  note = Mid(note, 31, Len(note))
Next
str = str & note : note = str
'MsgBox str:WScript.Quit  
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]"
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "about:blank"
oie.Visible = False
Do Until oIE.ReadyState = 4: WScript.Sleep 200:Loop
oIE.document.parentWindow.clipboardData.setData "text", vbstr
oIE.Quit
Set oie = Nothing
MsgBox "ok"
复制代码