vb和vbs混合使用

来源：百度知道 编辑：UC知道 时间：2024/06/06 08:36:23
vb中的代码：
Dim s As ScriptControl
Dim rs As Variant
Dim vbs As String
Private Sub Command1_Click()
Dim bb
bb = "你好啊"
Open App.Path & "\vbs1.vbs" For Input As #1
vbs = StrConv(InputB(LOF(1), 1), vbUnicode)
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
s.AllowUI = True
s.Modules.Add "MyCalc"
s.Modules("MyCalc").AddCode "bb = """ & bb & """"
s.Modules("MyCalc").AddCode vbs
s.Modules("MyCalc").Run ("MyCalc")
Set s = Nothing
Close #1
End Sub

vbs1.vbs中的代码：
Function MyCalc()
Dim WshShell,bb
Set WshShell=CreateObject("WScript.Shell")
WshShell.Run "notepad"
Wscript.Sleep 1000
WshShell.AppActivate "无标题"
WshShell.SendKeys "bb&q

sendkeys无法直接发送中文字符
Dim s As ScriptControl
Dim rs As Variant
Dim vbs As String
Private Sub Command1_Click()
Dim bb As String
bb = "hello"
Open "z:\vbs1.vbs" For Input As #1
vbs = StrConv(InputB(LOF(1), 1), vbUnicode)
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
s.AllowUI = True
s.Modules.Add "MyCalc"
s.Modules("MyCalc").AddCode "bb = """ & bb & """" '<-
s.Modules("MyCalc").AddCode vbs
s.Modules("MyCalc").Run ("MyCalc")
Set s = Nothing
Close #1
End Sub
Private Sub Form_Load()
Shell "notepad.exe", 1
End Sub
'=================vbs内容
Function MyCalc()
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate &q