求助软件弹窗置顶命令

cattan

@echo off
rem
echo.
rem
:startjc
   rem
   rem    qprocess %mtcout.exe% >nul
   qprocess|findstr /i %mtcout.exe% >nul
   rem
   if %errorlevel%==0 (echo .
)else (
     start %d:/按键.vbs% 2>nul  )
   rem
   for /l %%i in (1,1,300) do ping -n 1 -w 1000 168.20.0.1>nul
   goto startjc
echo on
————————————————————————————————————————————————
调用 按键.VBS脚本
————————————————————————————————————————————————
Dim Shell
Set Shell=WScript.CreateObject("WScript.Shell")
Shell.Run "D:\fjeit\Start123\Start123.exe"
WScript.Sleep 5000
Shell.SendKeys "1"
问如何设置 让Start123.exe软件弹窗置顶命令 。。
.bat或者.VBS都可以

went

保存为 按键.bat
并替换 按键.vbs
ansi编码

1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" &exit
   
2. cls
   
3. #Windows API
   
4. $code=@"
   
5.     using System;
   
6.     using System.Runtime.InteropServices;
   
7.     public static class GetApi{
   
8.         [DllImport("user32.dll")]
   
9.         public static extern bool SetWindowPos(int hwnd,int hwndAfter, int x, int y, int cx, int cy, int uFlags);
   
10.     }
    
11. "@
    
12. Add-Type -TypeDefinition $code
    
13. 
    
14. '执行程序'
    
15. $p = Start-Process 'D:\fjeit\Start123\Start123.exe' -PassThru
    
16. 
    
17. '5s后发送按键并置顶'
    
18. Start-Sleep -Seconds 5
    
19. $shell = New-Object -ComObject 'Wscript.Shell'
    
20. $shell.SendKeys('1')
    
21. 
    
22. '主窗口置顶'
    
23. [GetApi]::SetWindowPos($p.MainWindowHandle,-1,0,0,0,0,3)

复制代码

cattan

回复 2# went


    大哥牛皮

cmd1152

不知道为什么，我感觉Start123.exe是一个弹窗广告.......你让弹窗广告置顶？
（这只是我的猜测，不喜勿喷）

cattan

回复 4# cmd1152


    是内部一个软件界面 需要弹窗效果