设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › VBS封装HTML控件，调用IE，搞一套GUI库
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 19122|回复: 5

[技术讨论] VBS封装HTML控件，调用IE，搞一套GUI库

[复制链接]
wrove
发表于 2012-12-8 14:57:42 | 显示全部楼层 |阅读模式
本帖最后由 wrove 于 2012-12-8 20:00 编辑

如题，这是我的设想
回复

举报

wrove
 楼主| 发表于 2012-12-8 18:52:02 | 显示全部楼层
本帖最后由 wrove 于 2012-12-8 18:53 编辑
  1. Set hw=New HtmlWindow
  2. hw.Title="Hello world"
  3. hw.SetGeometry 500,200,300,200
  4. hw.Show
  5. hw.Text="Yes,it's a test!"
  6. MsgBox hw.Text,vbOKOnly,"Text:"
  7. MsgBox hw.Title,vbOKOnly,"Title:"
  8. hw.Close False
  9. Class HtmlWindow
  10.         Private ws,fso,file,codes,ie,doc
  11.        
  12.            Private Sub Class_Initialize   ' 设置 Initialize 事件。
  13.             Set ws=WScript.CreateObject("WScript.Shell")
  14.             Set fso=CreateObject("Scripting.FileSystemObject")
  15.             file=fso.GetAbsolutePathName(fso.GetTempName&".htm")
  16.             Set codes=fso.CreateTextFile(file,True)
  17.                 HtmlWindow_Init()
  18.             Set ie=WScript.CreateObject("InternetExplorer.Application")
  19.             ie.AddressBar=False
  20.             ie.ToolBar=False
  21.             codes.Close
  22.                    Me.Open file         
  23.            End Sub
  24.           
  25.            Private Sub HtmlWindow_Init()
  26.                       codes.Write "<HTML>"
  27.             codes.Write "<HEAD>"
  28.             codes.Write "<TITLE id="&Chr(34)&"Title"&Chr(34)&"></TITLE>"
  29.             codes.Write "</HEAD>"
  30.             codes.Write "<BODY>"
  31.             codes.Write "<TEXT id="&Chr(34)&"Text"&Chr(34)&"><TEXT>"
  32.             codes.Write "<BODY>"
  33.             codes.Write "</BODY>"
  34.            End Sub
  35.           
  36.            Public Sub Show()
  37.                    ie.Visible=True
  38.            End Sub
  39.           
  40.            Public Sub Refresh()
  41.                 codes.Close
  42.                 Me.Open file
  43.         End Sub
  44.           
  45.     Public Sub Open(path)
  46.             ie.Navigate fso.GetAbsolutePathName(path)
  47.             Set doc=ie.Document
  48.     End Sub
  49.           
  50.            Public Sub Close(keepHtml)
  51.                    Set ws=Nothing
  52.                    Set codes=Nothing
  53.                    If Not keepHtml Then fso.DeleteFile file
  54.                    Set fso=Nothing
  55.                    ie.Quit
  56.            End Sub

  58.            Public Property Get Left()
  59.                    Left=ie.Left
  60.            End Property
  61.            Public Property Let Left(value)
  62.                    If TypeName(value)="Long" Or TypeName(value)="Integer" Then
  63.                            ie.Left=value
  64.                    End If
  65.            End Property
  66.           
  67.            Public Property Get Top()
  68.                    Top=ie.Top
  69.            End Property
  70.            Public Property Let Top(value)
  71.                    If TypeName(value)="Long" Or TypeName(value)="Integer" Then
  72.                            ie.Top=value
  73.                    End If
  74.            End Property
  75.           
  76.            Public Property Get Width()
  77.                    Width=ie.Width
  78.            End Property
  79.            Public Property Let Width(value)
  80.                    If TypeName(value)="Long" Or TypeName(value)="Integer" Then
  81.                            ie.Width=value
  82.                    End If
  83.            End Property
  84.           
  85.            Public Property Get Height()
  86.                    Height=ie.Height
  87.            End Property
  88.            Public Property Let Height(value)
  89.                    If TypeName(value)="Long" Or TypeName(value)="Integer" Then
  90.                            ie.Height=value
  91.                    End If
  92.            End Property
  93.           
  94.            Public Sub SetPosition(Left,top)
  95.                    Me.Left=Left
  96.                    Me.Top=top
  97.            End Sub
  98.           
  99.            Public Sub SetSize(width,height)
  100.                    Me.Width=width
  101.                    Me.Height=height
  102.            End Sub
  103.           
  104.            Public Sub SetGeometry(Left,top,width,height)
  105.                    Me.SetPosition Left,top
  106.                    Me.SetSize width,height
  107.            End Sub
  108.           
  109.            Public Sub Move(Left,top)
  110.                    Me.SetPosition Left,top
  111.            End Sub
  112.           
  113.            Public Property Get Text()
  114.                    Text=doc.getElementById("Text").InnerText
  115.            End Property
  116.           
  117.            Public Property Let Text(value)
  118.                    doc.getElementById("Text").InnerText=CStr(value)
  119.            End Property
  120.           
  121.            Public Property Get Title()
  122.                    Title=doc.getElementById("Title").InnerText
  123.            End Property
  124.            Public Property Let Title(value)
  125.                    doc.getElementById("Title").InnerText=CStr(value)
  126.            End Property
  127.           
  128. End Class
复制代码
不过，好像源文件并没有改变，最好的方式是对codes重构，而后Refresh
回复

举报

wrove
 楼主| 发表于 2012-12-8 19:53:58 | 显示全部楼层
可以用Xml组件，修改一次Refresh一次
回复

举报

czjt1234
发表于 2012-12-11 18:30:39 | 显示全部楼层
正好在研究这个，学习下
回复

举报

wrove
 楼主| 发表于 2012-12-16 21:44:59 | 显示全部楼层
还是用HTA吧，HTA内置的支持Javascript和VBScript
回复

举报

wrove
 楼主| 发表于 2012-12-16 23:29:32 | 显示全部楼层
  1. <Html>
  2. <Head>
  3. <Title>My HTML Application</Title>
  4. <HTA:APPLICATION
  5.   APPLICATIONNAME="My HTML Application"
  6.   ID="MyHTMLApplication"
  7.   VERSION="1.0"/>
  8. </Head>
  9. <Script Language="VBScript">

  11. Sub Window_OnLoad
  12.         SetGeometry 400,200,500,300
  13.         MsgBox "Window Loaded!"
  14. End Sub

  16. Sub Window_OnHelp
  17.         MsgBox "Did you need Help?"
  18. End Sub

  20. Sub Window_OnResize
  21.         'ListFolders
  22.         '这个执行会出问题，因为Scripting.FileSystemObject是不允许的操作
  23.         MsgBox "Window Resized!"
  24. End Sub

  26. Sub Window_OnUnload
  27.         MsgBox "Window Unloaded!"
  28. End Sub

  30. Sub ListFolders
  31.         Set fso = CreateObject("Scripting.FileSystemObject")
  32.         Set folder = fso.GetFolder("E:")
  33.         Set folders = folder.SubFolders
  34.         foldersStr="Folders</br>"
  35.         For Each folder In folders
  36.                 foldersStr=foldersStr&folder.Name&"</br>"
  37.         Next
  38.         document.getElementById("Folders").innerText=foldersStr
  39. End Sub

  41. Sub SetPosition(Left,Top)
  42.         Window.MoveTo Left,Top
  43. End Sub

  45. Sub SetSize(Width,Height)
  46.         Window.ResizeTo Width,Height
  47. End Sub

  49. Sub SetGeometry(Left,Top,Width,Height)
  50.         Window.MoveTo Left,Top
  51.         Window.ResizeTo Width,Height
  52. End Sub

  54. Sub MoveToCenter
  55.         strComputer = "."
  56.         Set objWMIService = GetObject("Winmgmts:\" & strComputer & "\root\cimv2")
  57.         Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
  58.         For Each objItem in colItems
  59.                 intHorizontal = objItem.ScreenWidth
  60.                 intVertical = objItem.ScreenHeight
  61.         Next
  62.         intLeft = (intHorizontal - 800) / 2
  63.         intTop = (intVertical - 600) / 2
  64.         Window.ResizeTo 800,600
  65.         Window.MoveTo intLeft, intTop
  66. End Sub

  68. Sub Body_Load
  69.         MsgBox "Html body loaded!"
  70. End Sub

  72. Sub Body_BeforeUnload
  73.         MsgBox "Event Before Html body unload"
  74. End Sub
  75. </Script>
  76. <Body bgcolor="Green" OnLoad="Body_Load" OnBeforeUnload="Body_BeforeUnload">
  77. <Center>
  78. <p id="Folders"></p>
  79. <p>
  80. HTA程序设计</br></br>
  81. 良好滴结合HTML和VBS或JavaScript脚本</br></br>
  82. 也即脱离浏览器的Html可执行程序</br></br>
  83. 可以用这个来做VBS和JS本地脚本的GUI</br></br>
  84. </p>
  85. <Button OnClick="self.close()" Style="Font-Size:18">退出</Button>
  86. </Center>
  87. </Body>
  88. </Html>
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 14:07 , Processed in 0.012832 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表