[已解决]发送组合键ctrl+n的vbs代码，如何写？谢谢

ygqiang

[已解决]发送组合键ctrl+n的vbs代码，如何写？谢谢

1. '定义主程序
   
2. Dim Program1,a,b
   
3. Program1 = "C:\TheWorld1\TheWorld.exe"
   
4. 
   
5. Set WshShell=createobject("wscript.shell")
   
6. 
   
7. '运行主程序
   
8. Set oExec=WshShell.Exec(Program1)
   
9. WScript.Sleep 2000
   
10. 
    
11. '发送组合键ctrl+n
    
12. WshShell.SendKeys "^n"
    
13. 
    
14. '输入网址
    
15. wshShell.SendKeys "www.baidu.com"
    
16. WshShell.SendKeys "{ENTER}"
    
17. WScript.Sleep 2000

复制代码