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"
复制代码

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"
复制代码