批处理之家 - Powered by Discuz! Board

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

作者: 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

@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文件。

作者: 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

' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & exit /b
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ("C:\sidchgl64-3.0j.exe")
WScript.Sleep 500
WshShell.sendkeys "bbs.bathome.net"
WScript.Sleep 500
WshShell.sendkeys "{ENTER}"
复制代码

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

回复 5# zjianxio

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

欢迎光临批处理之家 (http://www.bathome.net/)