有没有类似“你写我读”的软件，打一个字读一个字的？

dog · 2021 年2 月 4 日 10:39

写东西时作为校对之用
【txt朗读很多了，需要的是边输入边读的】

xiaokonglong · 2021 年2 月 5 日 01:17

excel

下面这个没用过,搜出来的.

dog · 2021 年2 月 8 日 02:55

excel就算了。。。
你写我读在64位win10下面不好用，或者根本不能用。

现在有个方案，利用其他阅读软件的自动朗读剪贴板功能来朗读新输入的字符。
但是不知道有什么办法可以自动将新输入的字符自动发送到粘贴板的办法。
autohotkey应该可以做到，但是我不会。

dog · 2021 年2 月 9 日 13:38

最新进展，已经通过autohotkey简单编码完成了这个功能。
第一步，安装朗读女，设置朗读剪贴板的快捷键为ctrl+R。

第二步，启用ahk，代码如下。

~1::
~2::
~3::
~4::
~5::
~6::
~7::
~8::
~9::
~space::
send , ^a
send , ^c
Clipboardold := Clipboardtemp
Clipboardtemp := Clipboard
num := StrLen(Clipboardold) - StrLen(Clipboardtemp)
if ((SubStr(Clipboardold,1,1)=SubStr(Clipboardtemp,1,1)) and (num < 0))
{
Clipboard := SubStr(Clipboard, 1+num)
send , ^r
}
else
{
send , ^r
}
send , {Right}
return

代码说明：

输入法选择备选词时，需要按下1~9或空格键，此时触发操作，将分析剪贴板前后变化，朗读新增字符。【通过小键盘数字键选字不会触发朗读】
存在的问题：①只能朗读向文末添加的字符，向一句中间插着写的读不了且有bug【建议这时通过小键盘选字】。②其他小问题若干，但不太影响使用。
优点：朗读女有很多的发音人可供选择，比“你写我读”的声音好听多了，哈哈。
期待大神帮忙改进。

dog · 2022 年5 月 9 日 10:03

优点

比你写我读兼容性更强，无论什么不标准窗口，只要输入法界面能出来，就能识别。
可以加点代码，把你输入的所有中文英文都记录下来，自己给自己做字库，或者作为文字时光机使用。
可以调用其他朗读技术，不局限于微软tts，让声音更好听。

缺点

稍稍有一丢丢卡顿感，但是处于可接受范围之内。

dawn · 2022 年5 月 9 日 10:51

喜欢这种一年以后更新的帖子

前段时间找输入法的时候看到了 https://soime.cn/
不过这输入法感觉并不好用，没深入尝试

dog · 2022 年5 月 9 日 11:50

感谢，俺试试。
类似的方案还有影子输入法，基于ahk的，加几行代码也可以语音复读。
不过这些小众输入法词库一般都不太能打。

dog · 2022 年8 月 5 日 10:41

自己写了一个win11微软输入法输入同步朗读的，不同于之前截图ocr的方式，使用的是UIA——无障碍读取方式。
直接读取微软输入法新输入的汉字，然后朗读出来，所以快得多。

和这个小工具同样的原理和使用方法，快捷键ctrl shift n：

你叉叉（You Fa Fa）——输入法关键词屏蔽小工具，也网文作者好帮手~控制骂人情绪，从输入法做起 - 讨论分享 - 小众软件官方论坛 (appinn.net)

用的大神的UIA库 AutoHotkey 使用 UI Automation(UIA) 获取相关信息教程 - 火冷 - 博客园 (cnblogs.com)
autohotkey V2 代码

#include Class_UIA.ah2
#Warn All, Off
#SingleInstance force
global ID
global ifok
ifok := 0
return

~^+n::{
global ID
global ifok
if ifok = 0 {
MouseGetPos , , , &ID, 2
msgbox("已开启朗读模式")
ifok := 1
}else{
msgbox("已关闭朗读模式")
ifok := 0
}
return
}

#HotIf (ifok = 1)

$1:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "1")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}1"
return
}

$space:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "1")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{space}"
return
}

$2:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "2")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}2"
return
}

$3:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "3")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}3"
return
}

$4:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "4")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}4"
return
}

$5:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "5")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}5"
return
}

$6:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "6")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}6"
return
}

$7:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "7")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}7"
return
}

$8:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "8")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}8"
return
}

$9:: {
global ID
local n
try
{
   elWin := UIA.ElementFromHandle(ID)
   cond := UIA.CreatePropertyCondition("name", "9")
   Element := elWin.FindFirst(cond, 4)
   Element := Element.GetNext()
   itemName := Element.GetCurrentPropertyValue(30005)
}
catch
{
itemName :=""
}
run 'mshta vbscript:createobject(`"sapi.spvoice`").speak(`"' itemName '`")(window.close)'
Send "{Raw}9"
return
}

http://dogbean.ysepan.com/
编译了一个exe版本，给需要的人：

使用说明：开启或关闭需要按几下按键，鼠标移动到输入法候选栏，然后按下快捷键 ctrl + shift + n
类似：

dog · 2023 年3 月 14 日 12:36

@deanme 编译了一个exe

dog · 2024 年1 月 9 日 05:23

应用户需求，更新一个旧版win10可用的"你写我读"。
下载地址：http://dogbean.ysepan.com/

使用说明，双击运行，在托盘菜单开启或暂停朗读功能。

zephyr · 2024 年1 月 9 日 07:47

感谢大佬及时的回复和持续的反馈 ::

话题		回复	浏览量
你叉叉（You Fa Fa）——输入法关键词屏蔽小工具，也网文作者好帮手~控制骂人情绪，从输入法做起讨论分享输入法 , appinned , windows	15	2791	2022 年8 月 10 日
[寻资源] 取图比图点击左键程序C/VB/C#等源代码，非按键精灵一类的。问题求助❓	4	1105	2022 年6 月 6 日
能否让键盘右下角的?/按钮在中文输入法时输出正斜杠/而不是{顿号、}？问题求助❓ windows	6	1263	2023 年6 月 23 日
Auohotkey 脚本求助 AutoHotkey	2	1154	2022 年7 月 14 日
求一下autohotkey的一些热键问题求助❓	10	1175	2022 年11 月 6 日

有没有类似“你写我读”的软件，打一个字读一个字的？

优点

缺点

相关话题