vbs創造窗體

『壹』 怎麼創造一個普通的vbs彈窗

普通彈窗：
創建文本文檔
寫入下面代碼↓
msgbox"你想說的內容"
退出
重命名「新建文本文檔.txt」為「新建文本文檔.vbs」

『貳』 vbs中怎麼建立一個窗口，能在窗口中設置各種控制項，比如文本框、下拉框什麼的，以便控制後面有運行參數謝

調用IE，寫HTML，就行了。前提是你得會網頁編程。
http://tieba..com/f?ct=335675392&tn=PostBrowser&sc=11006421990&z=979110951&pn=0&rn=30&lm=0&rs16=0&word=vbs#11006421990

『叄』 VBS調用窗口

你好，很高興為你解答。
用cmd打開記事本程序

Set ws = CreateObject("WScr虎紶港咳蕃糾歌穴攻膜ipt.Shell")
ws.Run "cmd.exe /c notepad.exe"
如有其他問題，可以繼續追問

『肆』 在vbs中 如何彈出新窗口

是這樣嗎？

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
do
result=MsgBox("[是]彈出窗口A" & vbCr & "[否]彈出窗口B",3,"彈出窗口")
If result=6 Then
objws.Run "c:\"
ElseIf result=7 Then
objws.Run "d:\"
Else
Exit Do
End If
loop

你能說的詳細一點嗎？

要彈出什麼對話框？

『伍』 怎麼做vbs詢問窗口

ifmsgbox("確定要關機嗎？",vbyesno,"提示")=vbyesthen
'你要執行的命令
else
'選擇否執行的代碼
endif

vbs詢問窗口

代碼如上 其他部分自行添加

『陸』 vbs操作windows窗口的問題

set ws=createobject("wscript.shell")
wscript.sleep 1000
'appactivate 激活--即使某窗口獲得焦點
'" "引號內為窗口的標題
'1。使文本獲得焦點
'ws.AppActivate "新建 文本文檔.txt - 記事本"
'Alt+tab 可以切換窗口
'ws.sendkeys ("%{tab}")
'2。使任務管理器獲得焦點
'ws.AppActivate "Windows 任務管理器"
'ws.sendkeys ("%{tab}")
'3。使文件夾aa獲得焦點
ws.AppActivate "文件夾aa"
'ws.sendkeys ("%{tab}")
使用時需要將對應的前面'注釋符去掉

『柒』 VBS如何將窗口輸入的文字並創建新的txt寫進去

還是用batch吧，代碼輸進去，把後綴搞成bat
就行。用vbs很復雜。需要調動很多文件。
@echo off
color 2f
mode con cols=25 lines=13
title 請輸入文字
:122
set/p u=請輸入你要發送的文字
echo %u% >>文檔.txt
goto 122

『捌』 如何用VBS將窗口一直設為活動窗口

Run
WshShell 對象
在新過程中運行程序。

object.Run(strCommand, [intWindowStyle], [bWaitOnReturn])
參數
object
WshShell 對象。
strCommand
表示要運行的命令行的字元串值。必須包括要傳遞到可執行文件的所有參數。
intWindowStyle
可選。表示程序窗口外觀的整數值。請注意，並非所有程序都使用此信息。
bWaitOnReturn
可選。布爾值，表示在繼續執行腳本中的下一條語句之前，腳本是否等待執行完程序。如果設為 true，則在執行完程序後才執行腳本，Run 方法返回由程序返回的任何錯誤代碼。如果設為 false（默認值），則 Run 方法將自動在啟動程序後立即返回 0（不是錯誤代碼）。
說明
Run 方法返回一個整數。Run 方法啟動在新 Windows 進程中運行的程序。可以讓腳本等到程序執行完後再繼續執行。這允許您同步運行腳本和程序。strCommand 參數內的環境變數自動擴展。如果某個文件類型已正確注冊到某個程序中，則對該類型的文件調用 Run 方法時將執行該程序。例如，如果您的計算機系統中裝有 Word，則對 *.doc 文件調用 Run 方法時將啟動 Word 並載入該文檔。下表列出了 intWindowStyle 的可用設置。

intWindowStyle 說明
0 隱藏一個窗口並激活另一個窗口。
1 激活並顯示窗口。如果窗口處於最小化或最大化狀態，則系統將其還原到原始大小和位置。第一次顯示該窗口時，應用程序應指定此標志。
2 激活窗口並將其顯示為最小化窗口。
3 激活窗口並將其顯示為最大化窗口。
4 按最近的窗口大小和位置顯示窗口。活動窗口保持活動狀態。
5 激活窗口並按當前的大小和位置顯示它。
6 最小化指定的窗口，並按照 Z 順序激活下一個頂部窗口。
7 將窗口顯示為最小化窗口。活動窗口保持活動狀態。
8 將窗口顯示為當前狀態。活動窗口保持活動狀態。
9 激活並顯示窗口。如果窗口處於最小化或最大化狀態，則系統將其還原到原始大小和位置。還原最小化窗口時，應用程序應指定此標志。
10 根據啟動應用程序的程序狀態來設置顯示狀態。

示例 1
下面的 VBScript 代碼用記事本打開當前運行腳本的副本。

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\notepad " & WScript.ScriptFullName
下面的 VBScript 代碼與上述代碼完成的操作相同，不同之處在於，它指定窗口類型，等待用戶關閉記事本，關閉記事本時保存從記事本返回的錯誤代碼。

Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, true)
示例 2
下面的 VBScript 代碼打開一個命令窗口，將路徑改為 C:\，並執行 DIR 命令。

Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir"
Set oShell = Nothing

『玖』 VBS如何定義窗口標題，並在窗口中顯示 「百度知道」，謝謝 !

我的方法是當窗口在任務欄激活時，發送 enter 按鍵
就是在你的代碼後邊加上 ws.sendkeys "{enter}"

『拾』 能用VBS 建立一個窗口，實現拖入程序自動建立快捷方式，拖出快捷方式自動刪除快捷方式。代碼怎麼寫呢

不能建立窗口
不過可以用 WScript.Arguments 直接拖到vbs文件圖標上實現，很簡單
建立快捷方式以下是實例

set WshShell = WScript.CreateObject("WScript.Shell") '設置CreateObject 方法
s = WshShell.SpecialFolders("Desktop") '取得「桌面」的路徑
set oShellLink = WshShell.CreateShortcut(s & "\騰訊QQ.lnk") '設置快捷方式將要保存到的路徑和快捷方式名,你也可以指定一個真實存在的路徑，這個範例是創建到桌面
oShellLink.TargetPath = "d:\qq\QQ.vbs" '快捷方式里的「目標」
oShellLink.WorkingDirectory = "d:\qq" '快捷方式里的「起始位置」
oShellLink.Save '建立快捷方式

刪除文件 要用到filesystemobject 對象
具體可以看一下《microsoft 腳本技術》講的很詳細

代碼就自己碼去吧，呵呵