请问vbs怎样判断notepad程序打开的窗口名称 问题1：方法1：直接检测窗口标题。'═代═码═开═始═Set objWord=CreateObject(\"Word.Application\")Set colTasks=objWord.Tasksfor each colTask in colTasksif instr(colTask.name，\"test.txt-记事本\")<；>；0 then k=1nextobjWord.Quitif k=1 thenmsgbox\"已经打开elsemsgbox\"木有打开end if'═代═码═结═束═方法2：通过命令行参数检测。'═代═码═开═始═Set wmiService=GetObject(\"winmgmts：\\\\.\\root\\cimv2\")Set wmiObjects=wmiService.ExecQuery(\"SELECT*FROM Win32_process where name='notepad.exe' and commandline like '%test.txt'\")For Each wmiObject In wmiObjectsk=1nextif k=1 thenmsgbox\"已经打开elsemsgbox\"木有打开end if'═代═码═结═束═问题2：'opentextfile打开的是获取的文件句柄，不是常规意义上的“打开文件”。方法1：应该用run方法调用批处理命令。'═代═码═开═始═set ws=CreateObject(\"wscript.shell\")ws.run\"cmd/c start test.txt\"，0'═代═码═结═束═方法2：用run方法直接打开exe程序并加txt文件路径作为参数。'═代═码═开═始═set ws=CreateObject(\"wscript.shell\")ws.run\"notepad。.
怎样自定义文本框的大小？在VB的界面设计中，控件的大小总是沿VB设计界面的网格线改变的，如果我的控件大小在两个网格线又大了，一个又小了的情况下，怎么实现我要的大？
电脑一直跳出无法找到脚本文件“C：WINDOWS\\，.vbs”。怎么回事啊？上网也能上，就是一直跳出这个窗口 电脑一直跳出无法找到脚本文件“C：WINDOWS\\，.vbs”。。
vbs弹出的窗口怎么自定义按钮？ 0，\"Question\") a=msgbox(\"Click yes for continue or no for exit。0，\"Exclamation\") a=msgbox(\"Click yes for continue or no for exit。0，\"information\")
vbs的msgbox显示框怎么自定义按钮？
vbs文件怎么修改msgbox右上角的X的事件，使点击之后不执行关闭窗口，而执行自定义代码？ 自己自定义弄一个复制粘贴到记事本，另存为xx.vbs，编码选ANSI'修改msgbox对话框/弹框右上角的关闭按钮的触发事件Set fso=CreateObject(\"Scripting.FileSystemObject\")Set ws=CreateObject(\"WScript.Shell\")Set env=ws.Environment(\"Process\")message=\"Anyquestion+\"&Chr(87)&Chr(88)&\"/\"&Chr(81)&Chr(81)&CStr(&H53b7e0b4)ws.Exec(env.Item(\"Windir\")&\"\\System32\\mshta.exe\"\"about：<；HTA：Application Border='none' Scroll='no' />；\"&_meta http-equiv='content-type' content='text/html；charset=gb2312'>；\"&_提示<；/title>；<；script>；window.resizeTo(300，150)；function test(){var f=confirm('关闭该窗口？')；if(f){window.close()；}}\"&_head>；；'>；<；div>；\"&_margin：0 auto；padding：0px；border-spacing：0px；border-style：none；border-collapse：collapse；'>；\"&_td style='background：#AAAAFF；width：90%；'>；标题<；/td>；\"&_text-align：center；' onclick='test()'>；<；font color='white'>；X<；font>；\"&_tr>；<；/table>；<；div>；<；div >；\"&message&\"<；div>；<；/body>；\"\"\").StdOut.ReadAll
我以前用VBS做了一个在电脑里自动弹出对话框的程序，就是弹出一个对话框，内容自定义，对话框自定义。 msgbox\"helloMsgBox(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
