怎么用vbs做整人小程序
时间: 2023-12-07 15:39:37 浏览: 56
以下是一个使用VBS制作整人小程序的例子:
```vbs
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "你的电脑已被黑客攻击,请立即关机!"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.send "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
```
这个程序会在电脑上不断弹出一个警告框,并且不断地开启和关闭大写锁定、数字锁定和滚动锁定键,让用户感到非常困惑和恼火。
相关问题
如何用vbs做一个小游戏
你可以使用 VBScript 编写简单的小游戏,以下是一个示例:
```
' Mini Game in VBScript
Option Explicit
Dim answer, guess, turns
answer = Int((100 * Rnd) + 1)
guess = 0
turns = 0
Do While guess <> answer
guess = InputBox("Guess the number between 1 and 100.")
If guess = "" Then Exit Do
If guess < answer Then
MsgBox "Too low!"
ElseIf guess > answer Then
MsgBox "Too high!"
End If
turns = turns + 1
Loop
If guess = answer Then
MsgBox "Congratulations! You guessed the number in " & turns & " turns."
Else
MsgBox "Sorry, you gave up. The answer was " & answer & "."
End If
```
这个小游戏会随机生成一个 1 到 100 之间的数字,玩家需要猜这个数字是多少。如果猜测的数字比正确答案小,会弹出“太低了”提示;如果猜测的数字比正确答案大,会弹出“太高了”提示。玩家可以一直猜测直到猜中为止,或者点击取消按钮放弃游戏。如果玩家猜中了,会弹出“恭喜你!你在 X 步内猜中了数字。”的提示;如果玩家放弃了,会弹出“很遗憾,你放弃了。正确答案是 X。”的提示。
你可以将代码保存为 .vbs 文件并运行,就可以开始玩这个小游戏了。
vbs 表白整人代码
以下是一个使用VBScript编写的简单的表白整人代码:
```vbscript
Dim message
message = InputBox("请你输入对方的名字:", "表白整人")
If message = "" Then
MsgBox "你没有输入任何内容!", vbCritical, "错误"
Else
MsgBox "亲爱的 " & message & ",我喜欢你!", vbInformation, "表白"
End If
```
这段代码会弹出一个输入框,让你输入对方的名字。如果你没有输入任何内容,会弹出一个错误提示框。否则,会弹出一个表白的提示框,显示"亲爱的 [对方的名字],我喜欢你!"的信息。
请注意,这段代码仅供娱乐和学习使用,请确保在适当的场合和恰当的方式下使用。