Board logo

标题: [文本处理] 求助批处理如何自动运行文件并在里边输入指定文字并按回车? [打印本页]

作者: zjianxio    时间: 2023-7-31 01:56     标题: 求助批处理如何自动运行文件并在里边输入指定文字并按回车?

[img][/img]
我的思路是这样的:
1`通过bat打开软件(不显示窗口)
2`然后在窗口内输入自定义的文字然后回车
大概是这么个思路,我有看大神分享的帖子,但是不是很能看懂,请问能帮忙写一下吗

求助方向:通过bat实现自动输入需要的代码或者文字,然后回车
作者: Batcher    时间: 2023-7-31 10:28

回复 1# zjianxio


    你看的哪个帖子?我试试能否讲清楚
作者: zjianxio    时间: 2023-7-31 11:05

回复 2# Batcher 类似于这个帖子

[文本处理] 求助如何自动输入代码到此路径到指定的小软件中后点击确定
作者: 77七    时间: 2023-7-31 16:27

  1. @fltmc>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close)&&exit
  2. @echo off
  3. rem 下载安装autoit  123456 替换为需要的内容
  4. (for /f "skip=7 delims=" %%a in ('type "%~f0"') do echo %%a)>"%~dp0x.au3"
  5. "%~dp0x.au3"
  6. del "%~dp0x.au3"
  7. exit
  8. Run("D:\sidchg64-3.0e.exe")
  9. Local $window = WinActivate ( "D:\sidchg64-3.0e.exe" )
  10. Sleep(1000)
  11. Local $result = ControlSend("D:\sidchg64-3.0e.exe", "" , "", "123456", 1)
  12. Sleep(1000)
  13. Send("{ENTER}")
复制代码

软件需要管理员权限?试了下在au3中使用 ShellExecute,但是出问题了。只能用笨方法,以上代码保存为bat文件。
作者: zjianxio    时间: 2023-7-31 20:26

回复 4# 77七


你好 大神 我刚才试了下您的代码 但是一运行就会 跳出来一个东西 不知道用什么打开 就没了  
您让运行框显示出来 我看下缺少什么可以吗 谢谢 完全BAT 小白 不是很明白
作者: Batcher    时间: 2023-7-31 21:07

回复 1# zjianxio


test.bat

请参考Q-04把bat文件保存为ANSI编码:
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA
  1. ' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & exit /b
  2. Dim WshShell
  3. Set WshShell=WScript.CreateObject("WScript.Shell")
  4. WshShell.AppActivate ("C:\sidchgl64-3.0j.exe")
  5. WScript.Sleep 500
  6. WshShell.sendkeys "bbs.bathome.net"
  7. WScript.Sleep 500
  8. WshShell.sendkeys "{ENTER}"
复制代码

作者: 77七    时间: 2023-7-31 22:24

回复 5# zjianxio


   把代码中几处 D:\sidchg64-3.0e.exe 修改为实际路径和文件名试试。或者直接试试6楼站长的代码。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2