[原创] 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

列兵

Rank: 1

帖子: 9
积分: 21
技术: 0
捐助: 0
注册时间: 2010-9-6

2楼

发表于 2010-9-6 14:39 | 只看该作者

不能用啊。哎，你要在改进以下。嘿嘿~！

々超炫街舞々

TOP

wc726842270

大校

Rank: 7 Rank: 7 Rank: 7

帖子: 1107
积分: 4218
技术: 37
捐助: 0
注册时间: 2010-6-8

3楼

发表于 2011-3-14 12:28 | 只看该作者

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

枫中残雪：风停了，我的心却在动，让我心中的寒意走向远方

TOP

返回列表

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

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]

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