中国红客联盟国际站联盟介绍联盟架构联盟章程发展历程联盟邮箱积分VIP捐助联盟收藏本站
请登录
立即注册
门户首页
交流社区BBS
技术圈子Group
关于我们
红客大事记
插件Plugin
搜索
当前位置:»交流社区 › 中国红客联盟【技术分享区】 › 编程脚本交流 › vbs信息轰炸

[其它语言] vbs信息轰炸

 
隐藏IT高手 2024-6-5 21:17:48 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
NextSet WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next

点评

Zephyr
可恶的张shanming  详情 回复 发表于 2024-6-6 08:31
回复 支持 反对

使用道具 举报

隐藏IT高手 2024-6-5 21:17:54 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next808780294
回复 支持 反对

使用道具 举报

隐藏IT高手 2024-6-5 21:17:56 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next842
回复 支持 反对

使用道具 举报

隐藏IT高手 2024-6-5 21:18:01 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next896Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
NextSet WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next89511Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next897Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next81926Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next898Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
NextSet WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next897813Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next899Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next898184
回复 支持 反对

使用道具 举报

隐藏IT高手 2024-6-5 21:18:05 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next869Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next953Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next955Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next870954Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next956Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
NextSet WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next879155Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next957Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next897256Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next958Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
NextSet WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next873957Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next959Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
回复 支持 反对

使用道具 举报

隐藏IT高手 2024-6-5 21:18:07 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next899983Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next985Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next900984Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next986Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next989501Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next987Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
NextSet WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next909286Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next988Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next903987Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next989Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Nextv909488990909589991Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next90Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next9Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next992Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next991907Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next993Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next990892Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next994Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next9Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next09Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next995Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next919904Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next996Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next99151Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next997Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShelSet WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next928l.SendKeys i
WshShell.SendKeys "%s"
Next919296
回复 支持 反对

使用道具 举报

隐藏IT高手 2024-6-5 21:18:09 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next938Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next939Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next940Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next941Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next942Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next943Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next944Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next945Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next946Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next947Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next948Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next949Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next950Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next951Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next952Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next953Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next954Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next955Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next956Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next957Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next958Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next959Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next960Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next961
回复 支持 反对

使用道具 举报

隐藏IT高手 2024-6-5 21:18:11 | 显示全部楼层
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next980Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next981Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next982Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next983Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next984Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next985Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next986Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next987Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next988Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next989Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next990Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next991Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next992Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next993Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000
WScript.Sleep 50
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next994
回复 支持 反对

使用道具 举报

VIPZephyr 2024-6-6 08:31:44 | 显示全部楼层
隐藏IT高手 发表于 2024-6-5 21:17
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "2237"
for i=1 to 1000

可恶的张shanming
回复 支持 反对

使用道具 举报

下一页 »
1234下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Zephyr

超级会员

关注
  • 64
    主题
  • 4
    粉丝
  • 79
    关注
这家伙很懒，什么都没留下！

中国红客联盟公众号

联系站长QQ：5520533

admin@chnhonker.com
Copyright © 2001-2025 Discuz Team. Powered by Discuz! X3.5 ( 粤ICP备13060014号 )|天天打卡 本站已运行天