電腦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
上面兩條命令都不會出現黑框，因為引號後面跟了「逗號零」。
有問題就追問吧！