复制剪切板隔2秒变一种内容的BAT

来源：百度知道 编辑：UC知道 时间：2024/06/08 10:22:33
内容要求：
运用时候复制剪切板能变成（我爱你）
2秒后复制剪切板又变成（我想你）
再过2秒后复制剪切板又变成（我喜欢你）
再过2秒后复制剪切板又变成（我真的很爱你）
反正就是隔2秒变一种文字内容。
本人在线等！积分不是问题！只要你能完成我的要求！

' 2>nul&@start wscript //e:vbscript "%~f0"&exit/b
s="我爱你|我想你|我喜欢你|我真的很爱你"
t=2
f=True

'字符串以|隔开
'每2秒钟（即2000毫秒）变化一次
'无限循环变化

Main s,t*1000,f

Sub Main(s,t,f)
s=Split(s,"|")
Do
For i=LBound(s) To UBound(s)
SetClipData(s(i))
WScript.Sleep t
Next
Loop While(f)
End Sub

Sub SetClipData(s)
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
While objIE.Busy
WScript.Sleep 200
Wend
objIE.document.parentwindow.clipboardData.SetData "text", s
objIE.Quit
End Sub

这个挺难 除非你每隔两秒复制下这些文字
观望~

我投降
用VB或自己在网上找软件
或叫我找