jslby
Новичок
- Сообщения
- 11
- Репутация
- 0
Здравствуйте!
К сожалению код программы привести не могу.
Могу её описать. Программа автоматизирует приложение Windows.
Для отправки текста, используются:
Программа отлажена на моем компьютере, но не работает на других. Просто не кликает по нужным точкам, а если и кликает, то не отправляет текст.
Суть программы - перебор массива и публикация текста. Вот с текстом она не справляется. Возможно ли что проблема в региональных настройках моего компьютера? Как обойти это?
К сожалению код программы привести не могу.
Могу её описать. Программа автоматизирует приложение Windows.
Для отправки текста, используются:
Код:
Func _SendEx($sString)
ClipPut("")
Sleep(50)
ClipPut($sString)
Sleep(50)
Send("+{INSERT}{ENTER}")
EndFunc
Func _SendExEx($sKeys, $iFlag=0)
If @KBLayout = 0419 Then
Local $sANSI_Chars = "ёйцукенгшщзхъфывапролджэячсмитьбю.?"
Local $sASCII_Chars = "`qwertyuiop[]asdfghjkl;'zxcvbnm,./&"
Local $aSplit_Keys = StringSplit($sKeys, "")
Local $sKey
$sKeys = ""
For $i = 1 To $aSplit_Keys[0]
$sKey = StringMid($sANSI_Chars, StringInStr($sASCII_Chars, $aSplit_Keys[$i]), 1)
If $sKey <> "" Then
$sKeys &= $sKey
Else
$sKeys &= $aSplit_Keys[$i]
EndIf
Next
EndIf
Return Send($sKeys, $iFlag)
EndFuncПрограмма отлажена на моем компьютере, но не работает на других. Просто не кликает по нужным точкам, а если и кликает, то не отправляет текст.
Суть программы - перебор массива и публикация текста. Вот с текстом она не справляется. Возможно ли что проблема в региональных настройках моего компьютера? Как обойти это?
