高手帮忙**安装au3后编辑页面不能显示汉语

zhh912

跪求高手帮助：
今天下了个au3的安装包，安装后发现编辑页面不能显示汉字。
如Run("notepad.exe")
   WinActivate("无标题 -记事本")
  Send("希望显示汉语")
F5编译后出现
Run("notepad.exe")
WinActivate("无标题 -记事本")
Send("希望显示汉语")
?￡í??……?ooó?
保存运行时
发现仅打开txt文档。
如果把
Send("希望显示汉语")
改成
Send（"this is a txt"）
同样仅打开txt文档
但在au3中F5时显示
Run("notepad.exe")
WinActivate("无标题 -记事本")
Send("this is a txt")
this is a txt


这到底怎么回事啊，我下了安，安了又下。每次安装前都把注册表的au3注册表项删除了，还是不行。



老大们帮帮小弟吧。

[ 本帖最后由 zhh912 于 2008-12-11 10:52 编辑 ]

liongodmien

你帮助也没看，那怎么能帮助你啊！

SEND()是不支持发送中文的！

robin.von

原帖由 zhh912 于 2008-12-10 16:02 发表
跪求高手帮助：
今天下了个au3的安装包，安装后发现编辑页面不能显示汉字。
如Run("notepad.exe")
   WinActivate("无标题 -记事本")
  Send("希望显示汉语")
F5编译后出现
Run("notepad.exe")
WinActivate(" ...

Run("notepad.exe")
WinWaitActive("无标题 - ")
SendC("希望显示汉语")

Func SendC($Str, $Flag = 0)
        If $Flag Then
                Local $Clip = ClipGet()
                ClipPut($Str)
                Send('+{ins}')
                ClipPut($Clip)
        Else
                Local $Nul = Chr(0)
                For $i = 1 To StringLen($Str)
                        Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & $Nul) & '}')
                Next
        EndIf
EndFunc   ;==>SendC

zhh912

谢谢提醒哦。新手不怎么熟悉。
我终于解决了

zhh912

谢谢啊，老大。
崇拜你那！
高手就是高手。多多向您学习。
我还得多多努力啊