zhh912 发表于 2008-12-10 16:02:18

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

跪求高手帮助:
今天下了个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 发表于 2008-12-11 09:16:37

你帮助也没看,那怎么能帮助你啊!

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

robin.von 发表于 2008-12-11 09:54:21

原帖由 zhh912 于 2008-12-10 16:02 发表 http://www.autoitx.com/images/common/back.gif
跪求高手帮助:
今天下了个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 发表于 2008-12-11 10:23:33

回复 2# liongodmien 的帖子

谢谢提醒哦。新手不怎么熟悉。:face (29):
我终于解决了:face (33):

zhh912 发表于 2008-12-11 10:59:21

回复 3# robin.von 的帖子

谢谢啊,老大。
崇拜你那!:face (29):
高手就是高手。多多向您学习。
我还得多多努力啊
页: [1]
查看完整版本: 高手帮忙**安装au3后编辑页面不能显示汉语