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

Rank: 5Rank: 5

帖子
295 
积分
1142 
技术
2  
捐助
0  
注册时间
2008-2-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2009-5-14 20:27 | 只看该作者

[原创] vbs+hta 装饰下 电影菜单

接上篇 ：一个网吧的电影菜单打开项，点击这里直接看那个批处理怎么写的。，

戏弄苍天老师说要用vbs+hta装饰下，我就来给你装饰下。哈哈 特别感谢 戏弄苍天老师的指点，下面的代码有 戏弄苍天老师编写。我大致看懂了点。不过不是完全栋 把下面的代码保存为xxx.hta 格式就行了，保存格式，我想不用我再多说什么了吧？ =================================================================  
  1. <script language=vbscript>

  2. function window_onload

  3. x=500

  4. y=420

  5. window.resizeTo x,y

  6. x=(screen.width-x)/2

  7. y=(screen.height-y)/2

  8. window.moveTo x,y

  9. document.title="视频欣赏 - 小网吧影院"

  10. end function

  11. set ow=createobject("wscript.shell")

  12. 

  13. function move_a_onclick

  14. ow.run "cmd /c NET USE n: \\TSVOD\tv1 >Nul 2>Nul & START n:"

  15. end function

  16. 

  17. function move_b_onclick

  18. ow.run "cmd /c Net use P: \\TSVOD\tv >Nul 2>Nul & start p:"

  19. end function

  20. 

  21. function game_onclick

  22. ow.run "cmd /c Net use y: \\Gameserver\onlinegame >Nul 2>Nul & start y:"

  23. end function

  24. function c_onclick

  25. ow.run "cmd /k echo 滚你麻痹去！！！&pause"

  26. end function

  27. 

  28. </script>

  29. <style>

  30. input{background:#9ed048;}

  31. </style>

  32. 

  33. <body scroll=no bgcolor=#48c0a3>

  34. <center>

  35. <input type=button id=move_a value=" 电 影 欣 赏 ">

  36. <br><br>

  37. <input type=button id=move_b value=" 看 连 续 剧 ">

  38. <br><br>

  39. <input type=button id=game value=" 游 戏 菜 单 ">

  40. <br><br>

  41. <input type=button value=" 感 谢 使 用 " onclick=window.close()>

  42. <br><br><br>

  43. <input type=button value="嘿 嘿，我 来 模拟下" onclick=window.close()>

  44. <br><br><br><br><br><br><br>

  45. <input type=button id=c value="看你麻痹去，滚你麻痹去！！" >
复制代码
=================================================================================== 经过装饰过的批处理的 电影菜单显得非常的好看，好用，好玩！ 截几个图。地一个是以前我用bat做的。 另外一个是 改成用vbs+hta实现的好看的界面！很好。等我
以前是贵宾，还能上传点大的东西上去，现在不是了。连传个500k的附件都上传不了

汗一个，不过还是到我空间里看这个gif动画吧，


算了，附件，在我百度空间里能看的，点击这里直接查看。





[ 本帖最后由 lixiaodaoaaa 于 2009-5-14 20:34 编辑 ]
收藏 分享
我的百度空间欢迎你

chaoxuanhacker

Rank: 1

帖子
9 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-6 
2楼
发表于 2010-9-6 14:39 | 只看该作者
不能用啊。 哎， 你要在改进以下。  嘿嘿~！
々超炫街舞々

TOP

wc726842270

Rank: 7Rank: 7Rank: 7

帖子
1107 
积分
4218 
技术
37  
捐助
0  
注册时间
2010-6-8 
3楼
发表于 2011-3-14 12:28 | 只看该作者
非常不错，正想了解一下HTA呢，不过没想到标注竟如此如大
枫中残雪：风停了，我的心却在动，让我心中的寒意走向远方

TOP

返回列表