Board logo

标题: [原创] vbs+hta 装饰下 电影菜单 [打印本页]

作者: lixiaodaoaaa    时间: 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. function move_a_onclick
  13. ow.run "cmd /c NET USE n: \\TSVOD\tv1 >Nul 2>Nul & START n:"
  14. end function
  15. function move_b_onclick
  16. ow.run "cmd /c Net use P: \\TSVOD\tv >Nul 2>Nul & start p:"
  17. end function
  18. function game_onclick
  19. ow.run "cmd /c Net use y: \\Gameserver\onlinegame >Nul 2>Nul & start y:"
  20. end function
  21. function c_onclick
  22. ow.run "cmd /k echo 滚你麻痹去!!!&pause"
  23. end function
  24. </script>
  25. <style>
  26. input{background:#9ed048;}
  27. </style>
  28. <body scroll=no bgcolor=#48c0a3>
  29. <center>
  30. <input type=button id=move_a value=" 电 影 欣 赏 ">
  31. <br><br>
  32. <input type=button id=move_b value=" 看 连 续 剧 ">
  33. <br><br>
  34. <input type=button id=game value=" 游 戏 菜 单 ">
  35. <br><br>
  36. <input type=button value=" 感 谢 使 用 " onclick=window.close()>
  37. <br><br><br>
  38. <input type=button value="嘿 嘿,我 来 模拟下" onclick=window.close()>
  39. <br><br><br><br><br><br><br>
  40. <input type=button id=c value="看你麻痹去,滚你麻痹去!!" >
复制代码
=================================================================================== 经过装饰过的批处理的 电影菜单显得非常的好看,好用,好玩! 截几个图。地一个是以前我用bat做的。 另外一个是 改成用vbs+hta实现的好看的界面!很好。等我

以前是贵宾,还能上传点大的东西上去,现在不是了。连传个500k的附件都上传不了

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


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





[ 本帖最后由 lixiaodaoaaa 于 2009-5-14 20:34 编辑 ]
作者: chaoxuanhacker    时间: 2010-9-6 14:39

不能用啊。 哎, 你要在改进以下。  嘿嘿~!
作者: wc726842270    时间: 2011-3-14 12:28

非常不错,正想了解一下HTA呢,不过没想到标注竟如此如大




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2