论坛 › 『 提问交流 』 › 自定义函数之发送汉字函数

xushujing007 发表于 2012-10-31 20:05:07

自定义函数之发送汉字函数

#include-once

;======================================================
;
; 函数名称:                SendX("string",flag)
; 详细信息:                发送汉字.
; $string:                $string 为您想输入的汉字.
; $flag:                0或者非1为剪切板模式,1为发送ASC模式
; 返回值 :                没有
; 作者:                        thesnow(rundll32@126.com)
;
;======================================================
Func SendX($string, $flag)
        Local $char
        Local $code
        Local $clup
        If $flag <> 1 Then $flag = 0
        Switch $flag
                Case 0
                        $clup = ClipGet()
                        ClipPut($string)
                        Send("+{ins}")
                        ClipPut($clup)
                Case 1
                        If @AutoItUnicode Then
                                $clup = ClipGet()
                                ClipPut($string)
                                Send("+{ins}")
                                ClipPut($clup)
                        Else
                                For $i = 1 To StringLen($string)
                                        $char = StringMid($string, $i, 1)
                                        $code = Asc($char)
                                        If $code > 127 Then
                                                $code = $code * 256
                                                $i = $i + 1
                                                $char = StringMid($string, $i, 1)
                                                $code = $code + Asc($char)
                                        EndIf
                                        Send("{ASC " & $code & "}")
                                Next
                        EndIf
        EndSwitch
EndFunc   ;==>SendX

这个函数的第25行的@@AutoItUnicode 要改成什么才能正常运行？？

xushujing007 发表于 2012-10-31 20:06:44

注：此函数是我在AU3目录下找到的。非自己的作品。特此声明。
我用send发送中文是乱码。看到这个。请大家帮忙修改一下。

annybaby 发表于 2012-11-9 00:41:09

回复 1# xushujing007

会不会是版本太低??
新版的没了那个函数,那个宏也没了~~
我直接用send()没发现中文乱码

jingygr 发表于 2012-11-14 09:33:23

应该是版本太低了，我这里也没有找到这个。

风行者 发表于 2012-11-14 12:08:15

可以试试这样
Send("{ASC "&StringToBinary("你")&"}")

lxwlxwayy 发表于 2012-11-15 20:16:41

风行者你这句怎么理解阿

lxwlxwayy 发表于 2012-11-15 20:25:08

转字符为二进制，然后再获得二进制字符的as码,再发送息

查看完整版本: 自定义函数之发送汉字函数