[решено] Помогите пожалуиста подобрать код генерирующии выбор

[Antoschka2]

Всем добрыи день.
я как-то немогу всё наити код которыи сгенерирует выбор сам по себе. Мне нужно чтобы скрипт FUNC GENERATE () делал автовыбор в случаином порядке между func odin () и func dva ().
2. Нужно мне ещё что нибудь в скрипт добавить, так как он будет постоянно повторяцца и очень долгое время, чтобы небыло вылетов.
Заранее благодарю


WinWaitActive("www.---.de - Windows Internet Explorer")
sleep(3000)
Call("generate")

Func generate ()
sleep(3000)
;ТУТ ПРИМЕРНО ДОЛЖЕН БЫТЬ КОД ГЕНЕРАЦИ
EndFunc





Func odin ()
$Pos = PixelSearch(329, 352, 380, 444, 0x689CFE)
if IsArray($Pos) Then
MouseClick("left", $Pos[0], $Pos[1])
call ("generate")
EndIf
If @error then
sleep(1000)
Call("generate")
endIf
EndFunc

Func dva ()
$Pos = PixelSearch(870, 352, 380, 901, 0x689CFE)
if IsArray($Pos) Then
MouseClick("left", $Pos[0], $Pos[1])
sleep(100)
call ("generate")
EndIf
If @error then
sleep(100)
Call("generate")
endIf
EndFunc

[HORRIBLE]

Antoschka2, можно вот так, с генерировать выбор между Func dva () и Func odin ():

while 1
switch random(0,1,1)
case 0
MsgBox(0,"","1 функция",1)
case 1
MsgBox(0,"","2 функция",1)
EndSwitch
Wend

Для проверки работает первый скрипт или нет можно второй создать....и вторым смотреть есть ли процесс или нет, вылезло ли окно ошибки или нет. Что нибуть на подоби этого:

while 1
sleep(100)

If WinExists("AutoIt Error","") Then ControlClick("AutoIt Error", "", "[ID:2]") ;это строчка если ошибка вылетает при выполнении скрипта

If not ProcessExists("AutoIt3.exe") then ShellExecute(@ScriptDir & "\файлик.au3","","","open")

wend

[Antoschka2]

хмм как-то у меня не получается вставить. скрипт начинает работать но при RANDOM просто выходит.
всёчто надочтобы выбрал чисто случаино между func odin u func dva

[Antoschka2]

Func generate ()
sleep(6000)
switch random(0,1,1)
case 0
Call("odin")
case 1
Call("dva")
EndSwitch
EndFunc


или чтото неправильно?

[madmasles]

Antoschka2,
Попробуйте так:;...
HotKeySet (http://www.autoitscript.com/autoit3/docs/functions/HotKeySet.htm)("{ESC}", "_Bye") ;Esc - выход
WinWaitActive (http://www.autoitscript.com/autoit3/docs/functions/WinWaitActive.htm)("www.---.de - Windows Internet Explorer")

While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) 1
TrayTip (http://www.autoitscript.com/autoit3/docs/functions/TrayTip.htm)("", "Работаем", 3, 16)
Sleep (http://www.autoitscript.com/autoit3/docs/functions/Sleep.htm)(3000)
$random = Random (http://www.autoitscript.com/autoit3/docs/functions/Random.htm)(0, 1, 1)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $random = 0 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
TrayTip (http://www.autoitscript.com/autoit3/docs/functions/TrayTip.htm)("", "Работает функция odin", 3, 16)
odin()
TrayTip (http://www.autoitscript.com/autoit3/docs/functions/TrayTip.htm)("", "", 0)
Else (http://www.autoitscript.com/autoit3/docs/keywords.htm#Else)
TrayTip (http://www.autoitscript.com/autoit3/docs/functions/TrayTip.htm)("", "Работает функция dva", 3, 16)
dva()
TrayTip (http://www.autoitscript.com/autoit3/docs/functions/TrayTip.htm)("", "", 0, 16)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _Bye()
Exit (http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit)
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc) ;==>_Bye
;...Только я бы Вам посоветовал сделать выход по горячей клавише, а то скрипт так будет работать вечно.

PS
Вы бы код тегами оформляли. Это # над сообщением.

[Antoschka2]

огромное спасибо HORRIBLE, madmasles,