调用其他程序

1

SystemUtil.Run "D:/type.txt ",  "","",""

Window("Text:=type.txt - 记事本").Type "happy days"

Window("Text:=type.txt - 记事本").Type micAltDwn & "F" & micAltUp

Window("Text:=type.txt - 记事本").Type micLShiftDwn & "S" & micLShiftUp

Window("Text:=type.txt - 记事本").Close
 

 

2

Dim oShell
Set oShell = CreateObject ("WSCript.shell") 

oShell.run "D:/Tencent/QQ/QQ.exe"
'oShell.run "cmd   dir >d:1.txt"
'oShell.run "cmd /K CD C:/ & Dir"
 Set oShell = Nothing