Board logo

标题: [问题求助] VBS可视设想 [打印本页]

作者: everest79    时间: 2008-11-11 05:01     标题: VBS可视设想

我在批处理区做的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    时间: 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://www.bathome.net/) Powered by Discuz! 7.2