Non-english send func (UDF)

[thesnow]

expandcollapse popup

#include-once

;======================================================
;
; Func name:    SendX("string",flag)
; Description:  Send non-english string.
; $string:      $string ,you text
; $flag:        0 ClipPut mode,1 send ASC mode
; Return Value :    none
; Author:       thesnow(rundll32@126.com)
; web:      www.autoit.net.cn
;
;======================================================
Func SendX($string,$flag)
    Local $char
    Local $code
    Local $Clip
    if $flag <> 1 then $flag=0
Switch $flag
    Case 0
        $clup=ClipGet()
        ClipPut($string)
        Send("+{ins}")
        ClipPut($clup)
    Case 1
        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
EndSwitch
EndFunc ;==>SendX

Edited July 27, 2007 by thesnow

[martin]

expandcollapse popup

#include-once

;======================================================
;
; Func name:    SendX("string",flag)
; Description:  Send non-english string.
; $string:      $string ,you text
; $flag:        0 ClipPut mode,1 send ASC mode
; Return Value :    none
; Author:       thesnow(rundll32@126.com)
; web:      www.autoit.net.cn
;
;======================================================
Func SendX($string,$flag)
    Local $char
    Local $code
    Local $Clip
    if $flag <> 1 then $flag=0
Switch $flag
    Case 0
        $clup=ClipGet()
        ClipPut($string)
        Send("+{ins}")
        ClipPut($clup)
    Case 1
        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
EndSwitch
EndFunc;==>SendX

Does this really work? How do you know what the encoding is, or why should you assume that if a character code is greater than 127 you should send 256*code+nextcode?

[thesnow]

Does this really work? How do you know what the encoding is, or why should you assume that if a character code is greater than 127 you should send 256*code+nextcode?

127 Is Chinese used ,if $string is other language,please use sendx($string,0)