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

HORRIBLE · Отправлено: **00:22, 08-04-2010** | #2

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 · Отправлено: **00:52, 08-04-2010** | #3

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

Antoschka2 · Отправлено: **01:14, 08-04-2010** | #4

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

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

madmasles · Конфигурация компьютера

Antoschka2,
Попробуйте так:

Код:

;...
HotKeySet("{ESC}", "_Bye") ;Esc - выход
WinWaitActive("www.---.de - Windows Internet Explorer")

While 1
    TrayTip("", "Работаем", 3, 16)
    Sleep(3000)
    $random = Random(0, 1, 1)
    If $random = 0 Then
        TrayTip("", "Работает функция odin", 3, 16)
        odin()
        TrayTip("", "", 0)
    Else
        TrayTip("", "Работает функция dva", 3, 16)
        dva()
        TrayTip("", "", 0, 16)
    EndIf
WEnd

Func _Bye()
    Exit
EndFunc   ;==>_Bye
;...

Только я бы Вам посоветовал сделать выход по горячей клавише, а то скрипт так будет работать вечно.

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

Antoschka2 · Отправлено: **01:39, 08-04-2010** | #6

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