81,090
社区成员
发帖
与我相关
我的任务
分享
'VBScript code复制代码
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 "文本。。。"