我正在写一个HTA来做一些基本的事情，我需要的一件事就是显示空闲的硬盘空间。我有本节的VB脚本：在我的HTML Dim FreeHDSpace
Dim test32
test32 = 56
Sub Window_onLoad
Dim FreeHDSpace
window.resizeTo 550,700
Set objWMIService = GetObjec
我正在创建一个用户填写并发送给一个人的VB脚本表单。但是，如果选择一个选项作为“高优先级”，我也需要它对另一个人进行CC。 我有点生疏VB，但是这是我到目前为止有： If priority.Value = "High priority" Then
newMail.CC = "[email protected]"
Else
newMail.CC = ""
End If
n
我在一个HTA文件中有一个VBS脚本，看起来像这样。但是，当我运行drive()函数时，它由于某种原因在driveWrite()之前运行driveOpen()。我该如何解决这个问题？ Sub Wait(Time)
Dim wmiQuery, objWMIService, objPing, objStatus
wmiQuery = "Select * From Win32_Pin
取一个字符串在这个例子中： TestSub.vbs a = "String"
TestSub a
Sub TestSub(a)
MsgBox "Test " & a
End Sub
的子功能工作得很好，并显示在文本“测试字符串”所述MSGBOX 但是在该示例（嵌入在HTA） 个TestSub2.VBS Sub getdata
NameID = "name12