VBS可视设想

everest79

我在批处理区做的21点后来发现太难看了，一直没有做下去，研究了下dhtml顺便学习了下网上的代码，做了这样一个界面，其实好多脚本中的功能都可以通过这样的界面来更好的交互，下边代码是没加游戏的，看起来比较直观

1. Dim Ie
   
2. Set Ie=WScript.CreateObject("InternetExplorer.Application","UE_")
   
3. With Ie
   
4. '.MenuBar=0 '取消菜单栏'
   
5. '.AddressBar=0 '取消地址栏'
   
6. '.ToolBar=0 '取消工具栏'
   
7. '.StatusBar=0 '取消状态栏'
   
8. '.Resizable=0 '不允许用户改变窗口大小'
   
9. .fullscreen=1
   
10. .Width=640 '宽
    
11. .Height=500 '高
    
12. .Navigate "about:blank" '打开空白页面'
    
13. .Left=Fix((.Document.ParentWindow.Screen.AvailWidth-.Width)/2) '水平居中
    
14. .Top=Fix((.Document.ParentWindow.Screen.AvailHeight-.Height)/2) '垂直居中
    
15. .Document.Title="Back Jack 21"
    
16. .Document.Body.Style.lineheight="1" '行高
    
17. .Document.Body.Scroll="no"     '关闭滚动条
    
18. .Document.Body.bgcolor="#007D00"   '背景色
    
19. .Document.Body.Style.FontSize="12px" '字体
    
20. .Document.Body.InnerHTML="<P ID=Computer></P><P ID=Temp></P><P ID=Player></P><P ID=Select></P>" 'body主框架
    
21. .Document.Body.OnconTextMenu=GetRef("Disabled") '禁止右键
    
22. .Document.Body.OnSelectStart=GetRef("Disabled") '禁止选取
    
23. .Visible=1
    
24. End With
    
25. Set Dball=Ie.Document.Body.All '获取body集合按ID引用给变量
    
26. Set Phtml=Dball.Player         
    
27. Set Chtml=Dball.Computer     
    
28. Set Thtml=Dball.Temp
    
29. Set Shtml=Dball.Select
    
30. Phtml.InnerHTML="AKQJ10987654321
    
31. ddddddddddddd" '根据主框架ID注入内容
    
32. Chtml.InnerHTML="aaaaaaaaaaaaaaaaaaaaaa"
    
33. Thtml.InnerHTML="比分"
    
34. Shtml.InnerHTML="<BUTTON ID=Yes>跟牌</BUTTON><BUTTON ID=No>拒绝</BUTTON><BUTTON ID=Cancel>退出游戏</BUTTON>"
    
35. Set Dball.No.Onclick=GetRef("Dont")        '事件绑定
    
36. Set Dball.Yes.Onclick=GetRef("Continue")
    
37. Set Dball.Cancel.Onclick=GetRef("OverGame")
    
38. Do While True
    
39. WScript.Sleep 200
    
40. Loop
    
41. Function Disabled()
    
42. Disabled=False
    
43. End Function
    
44. Sub Dont()
    
45. Phtml.InnerHTML="不要" '内容更新
    
46. End Sub
    
47. Sub Continue()
    
48. Phtml.InnerHTML="继续"
    
49. End Sub
    
50. Sub OverGame()
    
51. Ie.Quit
    
52. End Sub
    
53. Sub UE_OnQuit()
    
54. WScript.Quit
    
55. 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

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