[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS 怎么将在任务栏的程序弹出到桌面显示

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

返回列表