图片刷屏

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "文采呱呱"
WScript.Sleep 300

For i = 1 To 300
' Ctrl+V 粘贴（剪贴板中的图片或内容）
WshShell.SendKeys "^v"
WScript.Sleep 200

' 按回车或发送键（根据目标软件调整）
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
Next

MsgBox "发送完成！"