Что нового

[Автоматизация] Программа не запускается на других компьютерах

jslby

Новичок
Сообщения
11
Репутация
0
Здравствуйте!
К сожалению код программы привести не могу.
Могу её описать. Программа автоматизирует приложение 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


Программа отлажена на моем компьютере, но не работает на других. Просто не кликает по нужным точкам, а если и кликает, то не отправляет текст.
Суть программы - перебор массива и публикация текста. Вот с текстом она не справляется. Возможно ли что проблема в региональных настройках моего компьютера? Как обойти это?
 
Верх