电脑vbs有多少的框

‘壹’ 我的电脑总出现没有vbs扩展文件的对话框

估计你的机器上是安装了超级解霸3000.超级解霸3000将.vbs注册为自己要处理的文件类型。vbs文件vb脚本程序，关联到winnt\system32下的Wscript.exe或CSript.exe。而eVC，PocketPC SDK的安装程序在安装过程中，要调用WScript来运行安装脚本来完成文件拷贝，写注册表等重要工作，可以想见，vbs被超级解霸注册后，安装当然会失败，而且就出现你那个“没有文件扩展.vbs的脚本引擎”的对话框。
解决方法：
1、卸载任何已安装的eVC组件
2、到http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=C717D943-7E4B-4622-86EB-95A22B832CAA
下载Script host engine并安装，安装成功后重启，它会把vbs文件注册为自己使用。
3、重新安装eVC，应该就不会出现那个错误提示了
注：可以不用卸载超级解霸。不过以后安装解霸要格外小心，别让它又把vbs文件给注册了。另外，听说金山毒霸也会注册vbs文件类型，请注意
from: http://www.3143.com/html/2004-11-27/00005-448-20041127134041.html

‘贰’ vbs怎么同时打开多个位置不一样的对话框

vbs最基本的弹出窗口代码 : 因为这是一段javascript代码，所以它们应该放在 之间。 是对一些版本低的浏览器起作用，在这些老浏览器中如果不支持javascript，不会将标签中的代码作 为文本显示出来。 Window.open ('page.html')用于控制弹出新的窗口page.html，如果page.html不与主窗口在同一路径下，前面 应写明路径，绝对路径(http://)和相对路径(../)均可。 用单引号和双引号都可以，只是不要混用。 这一段代码可以加入HTML的任意位置，加入到和之间也可以，位置越靠前执行越早，尤其是页面 代码较长时，又想使页面早点弹出就尽量往前放。 【经过设置后的弹出窗口】 下面再说一说弹出窗口外观的设置。只要再往上面的代码中加一点东西就可以了。 我们来定制这个弹出窗口的外观、尺寸大小、弹出位置以适应该页面的具体情况。 参数解释： js脚本结束。 【用函数控制弹出窗口】 下面是一个完整的代码。 ...任意的页面内容... 这里定义了一个函数openwin(),函数内容就是打开一个窗口。在调用它之前没有任何用途。怎么调用呢？ 方法一： 浏览器读页面时弹出窗口； 方法二： 浏览器离开页面时弹出窗口； 方法三：用一个连接调用：打开一个窗口 注意：使用的"#"是虚连接。 方法四：用一个按钮调用： 【主窗口打开文件1.htm，同时弹出小窗口page.html】 将如下代码加入主窗口区： 加入区：open即可。 【弹出的窗口之定时关闭控制】 下面我们再对弹出窗口进行一些控制，效果就更好了。如果我们再将一小段代码加入弹出的页面（注意是加入到page.html的HTML中，可不是主页面中，否则…），让它在10秒钟后自动关闭是不是更酷了？ 首先，将如下代码加入page.html文件的区： 然后，再用这一句话代替page.html中原有的这一句就可以了。（这一句话千 万不要忘记写啊！这一句的作用是调用关闭窗口的代码，10秒钟后就自行关闭该窗口。） 【在弹出窗口中加上一个关闭按钮】 呵呵，现在更加完美了！ 【内包含的弹出窗口——一个页面两个窗口】 上面的例子都包含两个窗口，一个是主窗口，另一个是弹出的小窗口。 通过下面的例子，你可以在一个页面内完成上面的效果。 打开一个窗口 看看OpenWindow.document.write()里面的代码不就是标准的HTML吗？只要按照格式写更多的行即可。千万注意多一个标签或少一个标签都会出现错误。记住用OpenWindow.document.close()结束啊。 【终极应用——弹出窗口的Cookie控制】 回想一下，上面的弹出窗口虽然酷，但是有一点小毛病（你沉浸在喜悦之中，一定没有发现吧？）比如你将上面的脚本放在一个需要频繁经过的页面里（例如首页），那么每次刷新这个页面，窗口都会弹出一次，是不是非常烦人？有解决的办法吗？Yes!Follow me。我们使用Cookie来控制一下就可以了。 首先，将如下代码加入主页面HTML的区： 然后，用（注意不是openwin 而是loadpop啊）替换主页面中原有的这一句即可。你可以试着刷新一下这个页面或重新进入该页面，窗口再也不会弹出了。真正的Pop-Only-Once! 写到这里，弹出窗口的制作和应用技巧基本上算是讲完了，希望对正在制作网页的朋友有所帮助我就非常欣慰了。 需要注意的是，JS脚本中的大小写最好前后保持一致。 没有菜单、工具栏、地址栏的弹出窗口： 离开一个页面时弹出一个可定制的窗口 </SCRIPT>如下代码加入HTML的区： 超级弹窗代码(MYIE也照弹)

‘叁’ vbs代码inputbox怎么设置多输入框

a=inputbox("")

b=inputbox("")

‘肆’ vbs中怎么实现一个对话框中显示多个输入框

Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 1
objExplorer.StatusBar = 1
objExplorer.Width=400
objExplorer.Height = 400
objExplorer.Left = 200
objExplorer.Top =200
objExplorer.Visible = 1
for i=1 to 5
ss=ss & "输入框" & i & ":<input type=text value=''><br />"
next
objExplorer.Document.Body.InnerHTML = ss

‘伍’ VBS怎么制作有多个选项的对话框

‘陆’ VBS怎么制作有多个选项的对话框

如何让VBS弹出一个对话框“确认、取消”，单击确认就执行下一个程序，单击取消就不执行并且关闭对话框？ 制作有多个选项的对话框？

dim wshset wsh = createobject("wscript.shell")if msgbox( "打开计算器？",1,"询问")=1 then wsh.run "calc.exe"end if

msgbox "内容",VbYesNoCancel,"标题"图中是msgbox第二个参数的可选设置值 你可以按你自己的需要选择 比如上述代码么 VbYesNoCancel 则弹出如下图的样式

你的要求没法无法用系统默认的msgbox，实现！可以自定义个弹出窗口来实现你的要求！
但可以如下，简单实现代替下

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Long
n = MsgBox("选择【终止】：选项1" & vbCrLf & "选择【重试】：选项2" & vbCrLf & "选择【忽略】：选项3", vbAbortRetryIgnore, "提示")
Debug.Print n
Cells(1, 1) = n

End Sub

很简单，将你定义的对话框赋值给一个变量来追踪，这个变量的值即为你点击不同按键带来的不同数值。
e.g.
value = msgbox("are u sure....",vbOkCancel,"title")

value=1，你点了ok；value=2，你点的是取消。

先把文件上传到网盘，地址贴上来，看看什么情况再说！

‘柒’ vbs如何弹出100个对话框之后在打开一个网页

OnErrorResumeNext
DimWS,I
SetWS=WScript.CreateObject("WScript.Shell")
ForI=1To100'弹出对话框的数量.
WS.Run"mshta.exeVBScript:MsgBox(""控盘惨大王来咯!"",64,""系统信息"")(Close)",1
Next
WS.Run"http://..com/question/2051925630409576987.html",1
'网站地址.

‘捌’ vbs对话框

MsgBox 函数
在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。

MsgBox(prompt[, buttons][, title][, helpfile, context])

参数
prompt

作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。

Buttons

数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。

Title

显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。

Helpfile

字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。

Context

数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。

设置
buttons 参数可以有以下值：

常数 值 描述
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。

第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。

返回值
MsgBox 函数有以下返回值：

常数 值 按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 放弃
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否

说明
如果同时提供了 helpfile 和 context，则用户可以按 F1 键以查看与上下文相对应的帮助主题。

如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。

当MicroSoft Internet Explorer使用MsgBox函数时，任何对话框的标题总是包含"VBScript",以便于将其与标准对话框区别开来。

下面的例子演示了 MsgBox 函数的用法：

Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")
' MyVar contains either 1 or 2, depending on which button is clicked.

‘玖’ 我以前用VBS做了一个在电脑里自动弹出对话框的程序，就是弹出一个对话框，内容自定义，对话框自定义。

msgbox "hello"

MsgBox(prompt[, buttons] [, title] [, helpfile, context])
buttons 参数有下列设置值：
常数 值 描述
vbOKOnly 0 只显示 OK 按钮
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
vbDefaultButton1 0 第一个按钮是缺省值。
vbDefaultButton2 256 第二个按钮是缺省值。
vbDefaultButton3 512 第三个按钮是缺省值。
vbDefaultButton 4768 第四个按钮是缺省值。
如果"显示 Retry 及 Cancel 按钮" 且让"第三个按钮是缺省值"则：
msgbox "hello",517 '517=5+512

‘拾’ vbs运行时，任何不弹出黑色的控制台窗口

这要看你的vbs内容了，黑框是因为vbs中运行了cmd命令或者bat文件，要取消黑框则在运行cmd、bat的命令后面加上",0"，下面给个例子：
CreateObject("wcript.shell").Run "123.bat",0
CreateObject("wcript.shell").Run "Shutdown -s",0
上面两条命令都不会出现黑框，因为引号后面跟了“逗号零”。
有问题就追问吧！