|
楼主 |
发表于 2008-7-5 14:13:56
|
显示全部楼层
谢谢 马甲兄
呵呵,谢谢马甲兄。另外我顺便将sendx函数发上来因为我发现新版本中没有ACN_String.au3,不知道是我下载的版本不对,还是因为版本本身的原因。
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 |
|