如何将VBS代码放在另一个VBS代码中并执行？

lqh123108

1. Private Sub Form_Load() '范列
   
2. Dim vbs As Object
   
3. Set vbs = CreateObject("ScriptControl")
   
4. vbs.Language = "vbs"
   
5. vbs.AddObject "ThisForm", Me, True
   
6. vbs.AddCode "sub mysub():ThisForm.caption=""hello"":end sub"
   
7. vbs.ExecuteStatement "mysub"
   
8. Set vbs = Nothing
   
9. End Sub

复制代码

这是一段VB自动生成VBS,并调用VBS执行的代码..
我现在想..能否将一段VBS代码自动编成上面这段代码的样子,,即把现成的VBS代码自动放在另一个VBS代码中,并执行它..
主要是省得放两个VBS脚本,不采用调用执行的办法)

例如如何将下面代码编成上面的范列:
最好是实现自动化生成上面的范列■

1. set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
   
2.         ("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
   
3. For Each IPConfig IN IPConfigSet
   
4.     If Not IsNull(IPConfig.IPAddress) Then
   
5.         For i=LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
   
6.             WScript.Echo IPConfig.IPAddress(i)
   
7.         Next
   
8.     End If
   
9. Next

复制代码

Batcher

1. ' test1.vbs
   
2. WScript.Echo "hello world"
   
3. Call GetIP
   
4. 
   
5. FUNCTION GetIP
   
6.     ' test2.vbs
   
7.     set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
   
8.             ("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
   
9.     For Each IPConfig IN IPConfigSet
   
10.         If Not IsNull(IPConfig.IPAddress) Then
    
11.             For i=LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
    
12.                 WScript.Echo IPConfig.IPAddress(i)
    
13.             Next
    
14.         End If
    
15.     Next
    
16. END FUNCTION
    

复制代码

yu2n

VBS动态加载VBS？使用 Execute 函数。

下面的例子，运行 TestExecute.vbs 后，将调用 GetIPAddress.vbs 中的代码，并且获取 GetIPAddress.vbs 中定义的 strIPAddress 变量的值。

--------------------------------------

GetIPAddress.vbs  (GetIPAddress.vbs代码需要保存为Unicode/ULE编码)

1. 
   
2. ' GetIPAddress.vbs
   
3. set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
   
4.         ("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
   
5. For Each IPConfig IN IPConfigSet
   
6.     If Not IsNull(IPConfig.IPAddress) Then
   
7.         For i=LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
   
8.             rem WScript.Echo IPConfig.IPAddress(i)
   
9.             strIPAddress = strIPAddress & IPConfig.IPAddress(i) & vbCrLf
   
10.         Next
    
11.     End If
    
12. Next

复制代码

TestExecute.vbs

1. 
   
2. ' TestExecute.vbs
   
3. 
   
4. ' 读取GetIPAddress.vbs中的所有代码
   
5. Dim fso, strCode
   
6. Set fso = CreateObject("scripting.filesystemobject")
   
7. strCode = fso.OpenTextFile("GetIPAddress.vbs", 1, False, True).ReadAll
   
8. 
   
9. ' 运行读取的代码
   
10. Execute strCode
    
11. 
    
12. ' 获取代码运行后的值
    
13. Msgbox "GetIPAddress.vbs 里面的 strIPAddress 变量为：" & vbCrLf & vbCrLf & strIPAddress

复制代码

CrLf

动态调用可以用 Execute 或者 ExecuteGlobal，两者的区别貌似仅在作用域，"ScriptControl" 和 Execute 一样，都不是全局的
话说有这样的需求用 hta 或者 wsf 也不错

lqh123108

多谢了,仔细研究下