【已解决】请教Win32Gui::Test的SendKeys发送汉字问题

小perl

有用过Win32Gui::Test的吗？SendKeys怎么发送汉字到活动窗口？

1. 
   
2. use Win32::GuiTest qw(:ALL);
   
3. 
   
4. $Win32::GuiTest::debug = 1; # Set to "1" to enable verbose mode
   
5. my $windows = FindWindowLike(0, "^Perl-ChinaUnix.net");
   
6.     SetForegroundWindow($windows);
   
7.     SendKeys("hi,perl");
   
8.     SendKeys("你好");
   
9.     SendKeys("%(36985)");
   
10. 
    
11.      

复制代码

发现没有输出"你好",文档上说了个UnicodeSemantics，不知道怎么用。

小perl

回复 1# 小perl


    别的模块也可以，只要能实现这个功能就成。。。

lightsorrow

use Win32::GuiTest qw/:ALL/;
system("start notepad.exe");
sleep 1;
SendKeys("^{SPC}nihao{SPC}");

#我用的拼音

小perl

回复 3# lightsorrow


    这个方法可以，呵呵。变通的用了一下，大量的输出还是不行了。
我的方法是使用Win32::Clipboard
use Win32::Clipboard;

$|=1;
my $CLIP;
tie $CLIP,'Win32::Clipboard';

$CLIP="来自剪切板";

完了再SendsKeys(^(v));不过对于shell窗口，还是你的方法管用。。谢谢，呵呵。

ttcn_cu

回复 4# 小perl


    Shell  用 alt 空格 e p

小perl

回复 5# ttcn_cu


    Win32这样下不行吧

ttcn_cu

回复 6# 小perl


    你没试着在cmd窗口下按过？应该会出来一个菜单。