批处理之家 - Powered by Discuz! Board

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

作者: lixiaodaoaaa 时间: 2009-5-14 20:27 标题: vbs+hta 装饰下电影菜单

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

戏弄苍天老师说要用vbs+hta装饰下，我就来给你装饰下。哈哈特别感谢戏弄苍天老师的指点，下面的代码有戏弄苍天老师编写。我大致看懂了点。不过不是完全栋把下面的代码保存为xxx.hta 格式就行了，保存格式，我想不用我再多说什么了吧？ =================================================================
<script language=vbscript>
function window_onload
x=500
y=420
window.resizeTo x,y
x=(screen.width-x)/2
y=(screen.height-y)/2
window.moveTo x,y
document.title="视频欣赏 - 小网吧影院"
end function
set ow=createobject("wscript.shell")

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

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

function game_onclick
ow.run "cmd /c Net use y: \\Gameserver\onlinegame >Nul 2>Nul & start y:"
end function
function c_onclick
ow.run "cmd /k echo 滚你麻痹去！！！&pause"
end function

</script>
<style>
input{background:#9ed048;}
</style>

<body scroll=no bgcolor=#48c0a3>
<center>
<input type=button id=move_a value=" 电影欣赏 ">
<br><br>
<input type=button id=move_b value=" 看连续剧 ">
<br><br>
<input type=button id=game value=" 游戏菜单 ">
<br><br>
<input type=button value=" 感谢使用 " onclick=window.close()>
<br><br><br>
<input type=button value="嘿嘿，我来模拟下" onclick=window.close()>
<br><br><br><br><br><br><br>
<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://bathome.net./)

Powered by Discuz! 7.2