- @fltmc>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close)&&exit
- @echo off
- rem 下载安装autoit 123456 替换为需要的内容
- (for /f "skip=7 delims=" %%a in ('type "%~f0"') do echo %%a)>"%~dp0x.au3"
- "%~dp0x.au3"
- del "%~dp0x.au3"
- exit
- Run("D:\sidchg64-3.0e.exe")
- Local $window = WinActivate ( "D:\sidchg64-3.0e.exe" )
- Sleep(1000)
- Local $result = ControlSend("D:\sidchg64-3.0e.exe", "" , "", "123456", 1)
- Sleep(1000)
- Send("{ENTER}")
复制代码
软件需要管理员权限?试了下在au3中使用 ShellExecute,但是出问题了。只能用笨方法,以上代码保存为bat文件。 |