[问题求助] VBS可视设想

everest79

我在批处理区做的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

调用InternetExplorer.Application对象来可视化，当然可行
我觉得不如hta直接，hta本来就是用于本地运行的html，用vbs脚本生成html感觉走了弯路

rat

严重可行！但有点复杂。

游戏界面，这个youxi01兄等应当很熟悉的。

youxi01

做这个界面是不难
有人写了相关的代码，是完全模拟 notepad.exe,可以说是以假乱真啊！

youxi01

个人建议还是直接做成hta好了，何必那么麻烦

everest79

嘿嘿，这个也是刚学会，hta还不行，还是以学习为主

defanive

【震撼发布】HVScript-v0.2！让vbs拥抱GUI！
http://bbs.bathome.net/thread-4474-1-1.html

兄去看看这个吧，我写的软件。。。