Board logo

标题: [技术讨论] VBS封装HTML控件，调用IE，搞一套GUI库 [打印本页]
作者: wrove    时间: 2012-12-8 14:57     标题: VBS封装HTML控件，调用IE，搞一套GUI库

本帖最后由 wrove 于 2012-12-8 20:00 编辑

如题，这是我的设想
作者: wrove    时间: 2012-12-8 18:52

本帖最后由 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

  57. 

  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

可以用Xml组件，修改一次Refresh一次
作者: czjt1234    时间: 2012-12-11 18:30

正好在研究这个，学习下
作者: wrove    时间: 2012-12-16 21:44

还是用HTA吧，HTA内置的支持Javascript和VBScript
作者: wrove    时间: 2012-12-16 23:29

  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">

  10. 

  11. Sub Window_OnLoad

  12. 	SetGeometry 400,200,500,300

  13. 	MsgBox "Window Loaded!"

  14. End Sub

  15. 

  16. Sub Window_OnHelp

  17. 	MsgBox "Did you need Help?"

  18. End Sub

  19. 

  20. Sub Window_OnResize

  21. 	'ListFolders

  22. 	'这个执行会出问题，因为Scripting.FileSystemObject是不允许的操作

  23. 	MsgBox "Window Resized!"

  24. End Sub

  25. 

  26. Sub Window_OnUnload

  27. 	MsgBox "Window Unloaded!"

  28. End Sub

  29. 

  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

  40. 

  41. Sub SetPosition(Left,Top)

  42. 	Window.MoveTo Left,Top

  43. End Sub

  44. 

  45. Sub SetSize(Width,Height)

  46. 	Window.ResizeTo Width,Height

  47. End Sub

  48. 

  49. Sub SetGeometry(Left,Top,Width,Height)

  50. 	Window.MoveTo Left,Top

  51. 	Window.ResizeTo Width,Height

  52. End Sub

  53. 

  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 

  67. 

  68. Sub Body_Load

  69. 	MsgBox "Html body loaded!"

  70. End Sub

  71. 

  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>
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2