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

[问题求助] 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的
2

评分人数

    • wxcute: 前景光明哦PB + 10
    • rat: 嘿嘿,顶一个先PB + 18

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

兄去看看这个吧,我写的软件。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

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

TOP

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

TOP

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

TOP

严重可行!但有点复杂。

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

TOP

调用InternetExplorer.Application对象来可视化,当然可行
我觉得不如hta直接,hta本来就是用于本地运行的html,用vbs脚本生成html感觉走了弯路
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

返回列表