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

Rank: 4

帖子
44 
积分
300 
技术
2  
捐助
0  
注册时间
2008-9-16 
1楼 跳转到 »
发表于 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

返回列表