怎样用记事本制作Windows对话框？

Question

最好对话框右上角还能显示来源，如：僵尸公司
还有判断是怎么怎么样
否怎么怎么样

Answer 1

方法步骤如下：

1、首先打开计算机，在计算机内打开一个空白的记事本，然后在界面内输入相关程序代码语句内容并进行保存。

2、然后在界面内找到刚刚保存的记事本文件，将改文件的后缀改为.vbs，再在弹出的窗口内找到“是”选项并单击。

3、然后使用鼠标右键单击该文件，再在弹出的选项栏内找到“打开”选项并单击。

4、然后再在弹出的界面内找到“确定”选项并单击。

5、最后界面内会出现如下的对话框，需要在对话框内输入正确的内容对话框才会结束，否则对话框将一直运行下去。

Answer 2

首先在记事本中输入显示对话的程序代码，然后保存。之后再将这个文件的后缀名由.txt改为.vbs。再打开此文件，就会出现制作的Windows对话框。具体操作请参照以下步骤。

1、新建一个空白的记事本文件，输入相关程序代码语句内容，之后保存文件。

2、将记事本文件的后缀名由.txt改为.vbs，在跳出的提示窗口选择“是”。

3、选中更改后的文件，右击鼠标选择菜单中的“打开”选项打开文件。

4、打开之后，就会出现对话框，这里点击“确定”选项。

5、之后会出现对话框的输入栏，可以输入内容，但只有输入正确的内容对话框才会结束，否则对话框将一直运行下去。这样就能用记事本制作Windows对话框。

本回答被网友采纳

Answer 3

在桌面新建一个记事本，输入如下代码：
msgbox("你好！")
保存，将记事本的名字由新建 文本文档.txt改为新建 文本文档.vbs
双击运行。引号内的内容可以自己改。
如果看不到后缀名可以到我的电脑-工具-文件夹选项-查看 中把隐藏文件后缀名那个选项的钩钩去掉。

Dim a
do
a=InputBox("快说“我是僵尸”，不然后果很严重！","僵尸公司")
If a="我是僵尸" Then
Msgbox"这就对了嘛！",0,"僵尸公司"
Exit Do
Elseif a<>"我是僵尸" Then
Msgbox"快说你是僵尸，没看见呀？",16,"僵尸公司"
Else
Msgbox"还不说？你再不说我就派僵尸去你家！",16,"僵尸公司"
End If
loop

如果不输入“我是僵尸”就无法关闭窗口
如果真的想关他的机子就把第10行代码改成vbs.run("shutdown -r -t 0"),vbhide
真的会关机哟本回答被提问者采纳