[LexaSF]

Код:

MsgBox(4096,"AvTobOT","Powered by ToSTeP",1)
$Dir = @ScriptDir & '\AvToB0T.ini'
$Icon = @ScriptDir & '\icon_Avtobot.ini'
$war = IniRead($Dir, "section", "АКК", "0")
If $war = 0 then Exit
If $war > 0 Then
$server = 0
$rep = 0
$sid = 0
$var = 0
$path = IniRead($Dir,'section','Path','')
Local $x = 0
$P = 0 
$Y = 0
$block = 0
$box = 0
Switch $path
Case ''
	MsgBox(0,'ERROR','Не найдена дирректория!')
	Exit
EndSwitch
Do
	$y = 0
FileChangeDir($path)
   Run('UDOBot.exe')
   WinWait("UDOBot v3.0.2","")
   MsgBox(0, "Bonus Box", "winwait")
   WinMenuSelectItem("UDOBot v3.0.2","","Файл","Старт")
   MsgBox(0, "Bonus Box", "Select")
   $hError = 0
If WinExists("Information") Then
 $hError=WinGetHandle("Information")
 Switch WinGetText($hError)
  Case "The Invisible Bonus Box Codes have to be updated please wait untill we update them."
         MsgBox(0, "Bonus Box", "Идет обновление бонусных коробок.")
		ProcessClose('udobot.exe')
		 Exit
    Case "Something is blocking UDOBot from connecting to the Server!"
        $block += 1
		$y = 1
		ProcessClose('udobot.exe')
		MsgBox(0,'ERROR','Something is blocking UDOBot from connecting to the Server!',2000)
	EndSwitch
	$hError = 0
	If WinExists('ERROR') Then $hError=WinGetHandle('ERROR')
Switch WinGetText($hError)
   case 'Received Error Code 41 from server!'
      $sid+=1
	  ProcessClose('udobot.exe')
   case 'Received Error Code 1 from server!'
      $rep+=1
	  ProcessClose('udobot.exe')
  EndSwitch
  EndIf
  MsgBox(0, "Bonus Box", "Error")
WinClose($hError)
   WinWait("Открыть","Эл. управления дерева простран")
     MsgBox(0, "Bonus Box", "winwait2")
   ControlClick("Открыть","Эл. управления дерева простран","DirectUIHWND2")
        MsgBox(0, "Bonus Box", "winwait3")
   WinWait("UDOBot v3.0.2","")
        MsgBox(0, "Bonus Box", "winwait4")
   AutoItSetOption("MustDeclareVars", 1)
Local $L = 0
$L = WinGetHandle("Открыть","Эл. управления дерева простран")
   ControlSend("Открыть", '', $L, '{TAB 8}')								
   ControlSend("Открыть", '', $L, '{END}')
   ControlSend("Открыть", '', $L, '{ENTER}')
   Sleep(1000)
      AutoItSetOption("MustDeclareVars",0)
        MsgBox(0, "Bonus Box", 'vse ok')
Until $y = 0
If $war > 1 Then
Do
   $y = 0
   $x += 1
   $var += 1
   FileChangeDir($Path)
   Run('UDOBot.exe')
   WinWait("UDOBot v3.0.2","")
   WinSetState( "UDOBot v3.0.2", "", @SW_MINIMIZE )
   WinMenuSelectItem("UDOBot v3.0.2","","Файл","Старт")
   		  $hError=0
If WinExists("Information") Then
 $hError=WinGetHandle("Information")
 Switch WinGetText($hError)
  Case "The Invisible Bonus Box Codes have to be updated please wait untill we update them."
         ProcessClose("UDOBot.exe")
         MsgBox(0, "Bonus Box", "Идет обновление бонусных коробок.", 120)
         ProcessClose("AvToB0t.exe")
    Case "Something is blocking UDOBot from connecting to the Server!"
        $block += 1
		$y = 1
		MsgBox(0,'ERROR','Something is blocking UDOBot from connecting to the Server!',3000)
		ProcessClose('udobot.exe')
 EndSwitch
	$hError = 0
	If WinExists('ERROR') Then $hError=WinGetHandle('ERROR')
Switch WinGetText($hError)
   case 'Received Error Code 41 from server!'
      $sid+=1
   case 'Received Error Code 1 from server!'
      $rep+=1
  EndSwitch
  EndIf
WinClose($hError)
   WinWait("Открыть","Эл. управления дерева простран")
   WinWait("UDOBot v3.0.2")
   AutoItSetOption("MustDeclareVars", 1)
   $L = WinGetHandle("Открыть", "Эл. управления дерева простран")
   ControlSend("Открыть", '', $L, '{TAB 8}')								
   ControlSend("Открыть", '', $L, '{END}')
   ControlSend("Открыть", '', $L, '{UP ' & $x & ' }')
   ControlSend("Открыть", '', $L, '{ENTER}')
AutoItSetOption("MustDeclareVars",0)
   Sleep(1000)
Until $var = $war - 1 And $x = 0
$P = $server + $sid + $rep + $block
$Static = IniRead($Dir,'Section','Statistic','Default')
If $Static = 1 Then
MsgBox(0, 'Статистика', 'Всего незапущено аккаунтов: ' & $P & @LF & 'Из-за Error 41: ' & $sid & @LF & 'Кораблей разрушено: ' & $rep & @LF )
EndIf
EndIf
EndIf

[madmasles]

LexaSF,
Я Вас уже просил код тегами обрамлять.

[Creat0R]

LexaSF,
Последнее предупреждение, связанное с...

1. Именованием тем.
2. Помещением кода в соответствкющие теги.
3. Детализацией содержимого сообщения темы.

[LexaSF]

и что мне вот этот весь текст чтоли обрабатывать??Да я лет 10 буду это делать(

[kaster]

LexaSF, нажми на вот эту кнопку предварительно выделив код -
или сначала нажми а потом между появившимися тегами вставь код.

[Iska]

LexaSF, если у Вас проблемы при копировании из редактора при вставке кода на форум — делайте какой-то промежуточный этап копирования, хотя бы Блокнотом (если, конечно, дело не в браузере). Разбираться с портянками неформатированного кода желающих очень, очень мало.

[LexaSF]

Блина да он в сообщение все пробелы убирает!

[Creat0R]

он в сообщение все пробелы убирает! »

Сомневаюсь, я только что добавил в твой пост тег код, и всё нормально отобразилось.

Тема закрыта.
LexaSF уходит в отпуск на 3 дня, для того чтобы перечитать правила и справку форума.