标题: [问题求助] VBS可视设想 [打印本页]
作者: everest79 时间: 2008-11-11 05:01 标题: VBS可视设想
我在批处理区做的21点后来发现太难看了,一直没有做下去,研究了下dhtml顺便学习了下网上的代码,做了这样一个界面,其实好多脚本中的功能都可以通过这样的界面来更好的交互,下边代码是没加游戏的,看起来比较直观- Dim Ie
- Set Ie=WScript.CreateObject("InternetExplorer.Application","UE_")
- With Ie
- '.MenuBar=0 '取消菜单栏'
- '.AddressBar=0 '取消地址栏'
- '.ToolBar=0 '取消工具栏'
- '.StatusBar=0 '取消状态栏'
- '.Resizable=0 '不允许用户改变窗口大小'
- .fullscreen=1
- .Width=640 '宽
- .Height=500 '高
- .Navigate "about:blank" '打开空白页面'
- .Left=Fix((.Document.ParentWindow.Screen.AvailWidth-.Width)/2) '水平居中
- .Top=Fix((.Document.ParentWindow.Screen.AvailHeight-.Height)/2) '垂直居中
- .Document.Title="Back Jack 21"
- .Document.Body.Style.lineheight="1" '行高
- .Document.Body.Scroll="no" '关闭滚动条
- .Document.Body.bgcolor="#007D00" '背景色
- .Document.Body.Style.FontSize="12px" '字体
- .Document.Body.InnerHTML="<P ID=Computer></P><P ID=Temp></P><P ID=Player></P><P ID=Select></P>" 'body主框架
- .Document.Body.OnconTextMenu=GetRef("Disabled") '禁止右键
- .Document.Body.OnSelectStart=GetRef("Disabled") '禁止选取
- .Visible=1
- End With
- Set Dball=Ie.Document.Body.All '获取body集合按ID引用给变量
- Set Phtml=Dball.Player
- Set Chtml=Dball.Computer
- Set Thtml=Dball.Temp
- Set Shtml=Dball.Select
- Phtml.InnerHTML="AKQJ10987654321
- ddddddddddddd" '根据主框架ID注入内容
- Chtml.InnerHTML="aaaaaaaaaaaaaaaaaaaaaa"
- Thtml.InnerHTML="比分"
- Shtml.InnerHTML="<BUTTON ID=Yes>跟牌</BUTTON><BUTTON ID=No>拒绝</BUTTON><BUTTON ID=Cancel>退出游戏</BUTTON>"
- Set Dball.No.Onclick=GetRef("Dont") '事件绑定
- Set Dball.Yes.Onclick=GetRef("Continue")
- Set Dball.Cancel.Onclick=GetRef("OverGame")
- Do While True
- WScript.Sleep 200
- Loop
- Function Disabled()
- Disabled=False
- End Function
- Sub Dont()
- Phtml.InnerHTML="不要" '内容更新
- End Sub
- Sub Continue()
- Phtml.InnerHTML="继续"
- End Sub
- Sub OverGame()
- Ie.Quit
- End Sub
- Sub UE_OnQuit()
- WScript.Quit
- End Sub
复制代码
这个是我刚弄的游戏界面,实在太难看了,那个高手原意帮我先写个html的
作者: zqz0012005 时间: 2008-11-11 09:21
调用InternetExplorer.Application对象来可视化,当然可行
我觉得不如hta直接,hta本来就是用于本地运行的html,用vbs脚本生成html感觉走了弯路
作者: rat 时间: 2008-11-11 09:57
严重可行!但有点复杂。
游戏界面,这个youxi01兄等应当很熟悉的。
作者: youxi01 时间: 2008-11-11 13:37
做这个界面是不难
有人写了相关的代码,是完全模拟 notepad.exe,可以说是以假乱真啊!
作者: youxi01 时间: 2008-11-11 13:39
个人建议还是直接做成hta好了,何必那么麻烦
作者: everest79 时间: 2008-11-11 15:15
嘿嘿,这个也是刚学会,hta还不行,还是以学习为主
作者: defanive 时间: 2009-5-16 14:36
【震撼发布】HVScript-v0.2!让vbs拥抱GUI!
http://bbs.bathome.net/thread-4474-1-1.html
兄去看看这个吧,我写的软件。。。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |