vbs整人代码大集合

在数字化时代，VBS（VisualBasicScript）整人代码因其简单易用而广受欢迎。小编将为你呈现一系列VBS整人代码，让你轻松掌握这一技能，为生活增添乐趣。

一、VBS整人代码入门

1.1了解VBS

VBS是一种基于VisualBasic的脚本语言，它允许用户通过简单的代码实现各种功能。VBS整人代码就是利用这一特性，通过编写脚本对他人进行恶作剧。

二、VBS整人代码实战

2.1桌面图标变色

通过编写VBS脚本，可以轻松实现桌面图标变色，给朋友一个惊喜。

代码示例：

SetWshShell=WScript.CreateObject("WScript.Shell") WshShell.Run"powershell-Command(Get-ItemPropertyHKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace).LinkArea",0,True

2.2自动播放音乐

编写VBS脚本，让电脑自动播放一首音乐，为朋友带来欢乐。

代码示例：

SetWshShell=WScript.CreateObject("WScript.Shell") WshShell.Run"start""""C:\Users\YourName\Music\song.mp3""""",0,True

2.3桌面文字滚动

利用VBS脚本，实现桌面文字滚动效果，增添趣味。

代码示例：

SetWshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run"powershell-Command(Add-Type-AssemblyNameSystem.Windows.Forms

$form=New-ObjectSystem.Windows.Forms.Form

$form.Text='滚动文字'

$form.Size=New-ObjectSystem.Drawing.Size(300,100)

$form.Controls.Add((New-ObjectSystem.Windows.Forms.RichTextBox).SetBounds(10,10,280,80))

$form.Controls[0].Text='这是一段滚动文字'

$form.Controls[0].Multiline=$true

$form.Controls[0].ScrollBars='Vertical'

$form.Controls[0].Font=New-ObjectSystem.Drawing.Font('宋体',12,[System.Drawing.FontStyle]::Bold)

$form.Controls[0].Update()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二段滚动文字'

$form.Controls[0].Update()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第二十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第三十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第四十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第五十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第六十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第七十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十二段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十三段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十四段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十五段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十六段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十七段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十八段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第八十九段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第九十段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第九十一段滚动文字'

$form.Controls[0].Update()

$form.Controls[0].Refresh()

Start-Sleep-Seconds5

$form.Controls[0].Text='这是第九十二段滚动文字'

$form.Controls[0].Update()