使用记事本编程来整蛊是一种有趣且富有创意的活动。以下是一些简单的示例和步骤，帮助你创建一些恶作剧程序：
示例1：简单的弹窗
1. 打开记事本。
2. 输入以下代码：
```vbscript
msgbox "你是猪!"
```
3. 将文件保存为 `.vbs` 扩展名，例如 `pig.vbs`。
4. 双击运行该文件，会弹出一个对话框显示“你是猪!”。
示例2：关机恶作剧
1. 打开记事本。
2. 输入以下代码：
```vbscript
Dim WshShell
Set WshShell = CreateObject（"wscript.shell"）
WshShell.Run "cmd.exe /c shutdown -s -f -t 300", 0, True
```
3. 将文件保存为 `.vbs` 扩展名，例如 `shutdown.vbs`。
4. 双击运行该文件，系统会在300秒后自动关机。
示例3：键盘跑马灯
1. 打开记事本。
2. 复制以下代码：
```vbscript
Dim i, text
For i = 1 To 100
text = text & Chr（65 + Rnd * 25）
Next i
MsgBox text
```
3. 将文件保存为 `.vbs` 扩展名，例如 `keyboard.vbs`。
4. 双击运行该文件，会在任务栏显示一个跑马灯效果。
示例4：自动重启
1. 打开记事本。
2. 输入以下代码：
```vbscript
MsgBox "对不起，您灌水太多需要重新启动计算机。", 33, "重新启动计算机"
```
3. 将文件保存为 `.vbs` 扩展名，例如 `restart.vbs`。
4. 双击运行该文件，会弹出一个对话框提示重启计算机。
注意事项
安全性：
恶作剧程序可能会对他人造成困扰，请确保不会对他人造成实际伤害。
合法性：
确保你的恶作剧程序符合当地法律法规。
反病毒软件：
某些恶作剧程序可能会被反病毒软件误报为病毒，建议先进行测试。
通过这些简单的示例，你可以开始尝试编写自己的恶作剧程序，为朋友和家人带来一些欢乐。记得在整蛊时保持友好和尊重，避免过度行为。