VBS 怎么将在任务栏的程序弹出到桌面显示

kailis123

求助大佬
这是我在网上找到的代码 但是会报错

1. Const WM_SYSCOMMAND=&H112
   
2. Const SC_MAXIMIZE=&HF030&
   
3. Const lpWinTitle1="license - Mozilla Firefox"
   
4. Const lpWinTitle2="正在打开 license.dat"
   
5. 
   
6. 
   
7. Function SendMessage(lpWinTitle,wMsg,wParam,lParam)
   
8. Dim WordApp
   
9. Dim ShApp,colTask,oTask
   
10. Set WordApp=CreateObject("Word.Application")
    
11. Set  colTask=wordapp.Tasks
    
12. SendMessage=False
    
13. For Each oTask In colTask
    
14. If oTask.Visible And InStr(oTask.Name,lpWinTitle) Then
    
15. oTask.SendWindowMessage wMsg,wParam,lParam
    
16. SendMessage=true
    
17. Exit For
    
18. End If
    
19. Next
    
20. WordApp.Quit
    
21. Set WordApp=Nothing
    
22. End Function
    
23. 
    
24. '最大化任务栏中名为ios的应用程序
    
25. SendMessage "ios",WM_SYSCOMMAND,SC_MAXIMIZE,0
    
26. SendMessage lpWinTitle1,WM_SYSCOMMAND,SC_MAXIMIZE,0
    
27. SendMessage lpWinTitle2,WM_SYSCOMMAND,SC_MAXIMIZE,0
    

复制代码