[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
aqua

Rank: 2

帖子
3 
积分
109 
技术
0  
捐助
0  
注册时间
2009-8-15 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2009-8-15 19:29 | 只看该作者

[问题求助] [已解决]VBS如何自定义弹出对话框的样式

本帖最后由 pcl_test 于 2016-8-7 19:49 编辑

请问VBS怎么写弹出窗口？
根据123.txt内容， 如123.doc  , 弹窗提示“是否复制123.doc”， 并且有7个按钮，  假设每个按钮都是将123.doc 复制到 e:\ 。 请问则么写 ？？

vbs好像可以弹出消息吧， 不知是否可行？
谢谢啦
1

评分人数

    • keen: 感谢主动给标题标注[已解决]字样PB + 2
收藏 分享

defanive

Rank: 7Rank: 7Rank: 7

帖子
957 
积分
4938 
技术
72  
捐助
0  
注册时间
2008-10-31 
2楼
发表于 2009-8-15 23:29 | 只看该作者
LZ，可能是我见识短浅，暂时纯批处理还做不到，也没有相应的第三方可以完成这个功能。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

rat

Rank: 8Rank: 8

帖子
332 
积分
1983 
技术
14  
捐助
0  
注册时间
2008-9-10 
3楼
发表于 2009-8-16 03:54 | 只看该作者
只能用InternetExplorer.Application模拟

TOP

canyuexiaolang

Rank: 8Rank: 8

帖子
647 
积分
3454 
技术
24  
捐助
0  
注册时间
2009-4-25 
4楼
发表于 2009-8-16 06:58 | 只看该作者
呃……利用VB吧、可是这是批处理之家而不是VB
msgbox

TOP

Seter

Rank: 7Rank: 7Rank: 7

帖子
515 
积分
4596 
技术
6  
捐助
0  
注册时间
2009-8-3 
5楼
发表于 2009-8-16 07:01 | 只看该作者
7个按钮就自个画七八..
话说楼楼楼上某DEF大大不是用VBS做过全自动InternetExplorer.Application模拟的啊,给他玩玩?

TOP

基拉freedom

Rank: 5Rank: 5

帖子
245 
积分
1024 
技术
5  
捐助
0  
注册时间
2008-7-31 
6楼
发表于 2009-8-16 16:45 | 只看该作者
xp中自带有 msg。用法参见：msg /?
_____________________版务操作_____________________

为了节省论坛版面资源和存储空间，删除了不必要的对命令帮助的全盘复制。
　　　　　　　　—— by zqz0012005  20090817
_____________________版务操作_____________________
o(∩_∩)o...~~~
空间：http://hi.baidu.com/fair_jm
喜欢批处理的没事的话去逛逛哦~~

TOP

newxso

Rank: 4

帖子
44 
积分
300 
技术
2  
捐助
0  
注册时间
2008-9-16 
7楼
发表于 2009-8-16 23:30 | 只看该作者
想制作有按扭的窗口，可以用HTA ，以下是一个示例，把以下代码复制到记事本，另存为 BrgoMenu.hta 即可。效果如图，既有背景音乐，又有活动文字说明。（以下代码中，＆nbsp中的＆是中文字符，使用时请还原为英文的&，因为&加上nbsp的组合是表示空格，在网站上贴出来就是显示空格，不能显示此组合字，想获得如图效果，可以下载附件，其中还有子窗口代码供参考）想增加按扭或修改提示内容，可以用记事本来编辑以上代码即可。
  1. <title>备份还原快手2.0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;By: newxso</title> 

  2. <SCRIPT LANGUAGE="VBScript">

  3. window.resizeTo 473, 190

  4. window.moveTo(screen.width-500)/2,(screen.height-400)/2 

  5. Set objShell = CreateObject ("Wscript.Shell")

  6. Sub BackupScript

  7.          objShell.Run("%comspec% /c start brgo.exe 1"),0 ,TRUE 

  8. Self.Close()

  9. End Sub

  10. Sub RestoreScript

  11.          objShell.Run("%comspec% /c start brgo.exe 2"),0 ,TRUE 

  12. Self.Close()

  13. End Sub

  14. Sub BootScript

  15.          objShell.Run("%comspec% /c start BootSet.hta"),0 ,TRUE 

  16. End Sub

  17. Sub HddScript

  18.       

  19.          objShell.Run("%comspec% /c start HddInfo.hta"),0 ,TRUE 

  20. End Sub

  21. 

  22. Sub HelpScript

  23.         objShell.Run("%comspec% /c notepad.exe 使用说明.txt"),0 ,TRUE 

  24. End Sub

  25. </SCRIPT>

  26. <body bgcolor="#DCDCDC">

  27. <fieldset><legend>请用鼠标点击选择以下项目：</legend>

  28. <td valign="top"><font color="#D200D2" size="2">

  29. <marquee behavior="alternate" scrollamount="4">┏点击┓</marquee>

  30. &nbsp;<input id=runbutton class="button" type="button" value="备份系统" name="backup_button" 

  31. onClick="BackupScript">

  32. <input id=runbutton class="button" type="button" value="还原系统" name="Restore_button" 

  33. onClick="RestoreScript">

  34. <input id=runbutton class="button" type="button" value="引导模式" name="boot_button" 

  35. onClick="BootScript">

  36. <input id=runbutton class="button" type="button" value="磁盘信息" name="hdd_button" 

  37. onClick="HddScript">

  38. <input id=runbutton class="button" type="button" value="使用帮助" name="help_button" 

  39. onClick="HelpScript">

  40. <BR>

  41. <BR>

  42. <BR>

  43. <td valign="top"><font color="#FF60AF" size="2">

  44. <marquee scrollamount="2" direction="left">背景音乐: 谭咏麟 - 无法不想你</marquee>

  45. <fieldset>

  46. <table border="0" cellspacing="1" width="100%">

  47. <td valign="top"><font color="#01B468" size="2">

  48. <marquee scrollamount="4" direction="left">备份还原快手 是一个可以在Windows下完成Ghost备份还原的程序 简单到你只需点一下鼠标即可&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Made: newxso QQ:453623262 Email:aximail@126.com</marquee>

  49. </table>

  50. <body scroll="no">

  51. <HTA:APPLICATION contextmenu="no" MaximizeButton="No" ICON="brgo.ico">

  52. <BGSOUND SRC="无法不想你.wma" Loop="-1">

  53. </BODY>
复制代码

TOP

cfanlost

Rank: 2

帖子
2 
积分
105 
技术
0  
捐助
0  
注册时间
2009-8-17 
8楼
发表于 2009-8-17 09:27 | 只看该作者

vbs弹窗

wscript.Echo "vbs弹窗内容"

TOP

defanive

Rank: 7Rank: 7Rank: 7

帖子
957 
积分
4938 
技术
72  
捐助
0  
注册时间
2008-10-31 
9楼
发表于 2009-8-17 12:36 | 只看该作者
2L看错了。。。

如果VBS的话，可以试用下HVScript，能快速制作窗口VBS。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
10楼
发表于 2016-8-7 20:35 | 只看该作者
本帖最后由 pcl_test 于 2016-8-7 20:50 编辑

http://www.bathome.net/redirect. ... 7540&ptid=40921
  1. WSH.echo CreateObject("WScript.Shell").Exec("mshta.exe ""about:<hta:application showintaskbar=no />" &_

  2.         "<title>提示</title><script>window.resizeTo(500, 150);" & _

  3.         "function f(a){document.getElementById('info').innerText=a.value;" & _

  4.         "new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(a.value.replace(/\D+/, ''));" & _

  5.         "setTimeout(function(){window.close()}, 1000)}</script>" & _

  6.         "<body style='text-align:center'><div><font style='color:#FF0000;'>点击其中一个按钮试试</font><br>" & _

  7.         "<input type='button' value='按钮1' onclick='f(this)'>&nbsp;&nbsp;" & _

  8.         "<input type='button' value='按钮2' onclick='f(this)'>&nbsp;&nbsp;" & _

  9.         "<input type='button' value='按钮3' onclick='f(this)'>&nbsp;&nbsp;" & _

  10.         "<input type='button' value='按钮4' onclick='f(this)'>&nbsp;&nbsp;" & _

  11.         "<input type='button' value='按钮5' onclick='f(this)'>&nbsp;&nbsp;" & _

  12.         "<input type='button' value='按钮6' onclick='f(this)'>&nbsp;&nbsp;" & _

  13.         "<input type='button' value='按钮7' onclick='f(this)'></div><br><div id='info'></div></body>""").StdOut.ReadAll
复制代码

TOP

返回列表