Помогите! да чтож то такое то!Вот код!
оПять глюки какие то! ControlSend не работает, за то когда отдельно от скрипта, той же самой коммандой с теми же параматрами - работает!Почему может быть?Самое странное что вчера работало) :-X
Код:
$Dir = @ScriptDir & '\Setting.ini'
$akk = IniReadSectionNames($Dir)
If IsArray($akk) = 1 Then
For $Start = 1 To $akk[0]
$ID = IniRead($Dir,$akk[$Start],'ID','none')
$SID = IniRead($Dir,$akk[$Start],'SID','none')
$Server = IniRead($Dir,$akk[$Start],'SERVER','none')
$Map = IniRead($Dir,$akk[$Start],'MAP','none')
$Setting = IniRead($Dir,$akk[$Start],'SETTING','none')
$ExeFile = @ScriptDir & '\UDOBot.exe'
Run($ExeFile, @ScriptDir)
WinWait('UDOBot v.4.0.1','SID:')
Sleep(300)
ControlSetText('UDOBot v.4.0.1','SID:','[NAME:textBox1]',$ID,1)
Sleep(300)
ControlSetText('UDOBot v.4.0.1','SID:','[NAME:textBox2]',$SID,1)
ControlSetText('UDOBot v.4.0.1','SID:','[NAME:textBox3]',$SERVER,1)
Sleep(500)
$1 = ControlGetHandle('UDOBot v.4.0.1','','[NAME:comboBox1]')
_GUICtrlComboBox_SetCurSel($1,$Map)
ControlClick('UDOBot v.4.0.1','SID:','[NAME:button1]')
WinWait('UDOBot v.4.0.1','Настройки')
Sleep(300)
ControlClick('UDOBot v.4.0.1','SID:','[NAME:menuStrip1]')
$Hand = WinGetHandle('UDOBot v.4.0.1','Настройки')
$r = ControlSend('UDOBot v.4.0.1','Прочка:',$Hand,'{ALT}')
Sleep(300)
$a = ControlSend('UDOBot v.4.0.1','Прочка:',$Hand,'{ENTER 2}')
Sleep(300)
If $Setting = 'None' Then
Exit
EndIf
$hFile=FileOpen(@ScriptDir & '\settings\' & $Setting, 0)
If $hFile = -1 Then
MsgBox(0, "Error", "Unable to open Setting file.",2)
EndIfоПять глюки какие то! ControlSend не работает, за то когда отдельно от скрипта, той же самой коммандой с теми же параматрами - работает!Почему может быть?Самое странное что вчера работало) :-X
