[no_sound]

Прошу прощения если не в тему пишу, но заметил таку интересную команду:
Run("rundll32.exe netshell.dll,StartNCW"). Написано, что она работает и на Windows Vista. Я попробовал запустить - результата нет. Даже сообщения никакого не выдает. Подскажите что делать? Может есть альтернативные библиотеки или под Vista по другому называются?

[Иск]

Помогите пож еще раз...наверное замучил уже...Я считываю 4 раза изменение полоски состояния, получаю 4 значения $res. Допустим, $res1=207, $res2=208, $res3=355, $res4=355. Теперь мне надо что бы в программа сравнила их по критериям, которые я задал. Т.к. Критериев для обработки много, я путаюсь и не знаю что с ними делать . Пробовал через IF -Then, как показано ниже, но выдает ошибку

If $res1<>$res2, $res2=$res4 Then
If $res1<>$res2^ ERROR

В связке If-Then-ElseIf таже ошибка. Может параметры не правильно заданы и нельзя так их вводить, тоесть через запятую?
Просто сразу после того как первый IF не соответствует действительности вылетает ошибка. Как сделать что бы программа из предложеных условий выбирала нужное и действовала согласно результату? Упростить до двух считываний изменений и потом сравнения их нельзя, надо что бы именно 4 сравнивало. Что посоветуете?...

if $res1=$res4 Then
Send("1")
EndIf
If $res1<>$res2, $res2=$res4 Then
Send("1")
EndIf
If $res1<>$res2, $res2<>$res3, $res3=$res4 Then
Send("1")
EndIf
If $res1=$res2, $res2<>$res3, $res3=$res4 Then
Send("1")
EndIf
If $res1=$res3, $res3<>$res4 Then
Send("5")
EndIf
If $res1<>$res2, $res2<>$res3, $res3<>$res4 Then
Send("5")
EndIf
If $res1<>$res2, $res2=$res3, $res3<>$res4 Then
Send("5")
EndIf


Если пишу так:

ElseIf $res1=$res2<>$res3=$res4 Then
Send("5")

то с ошибкой не выкидывает, но нажимает всегда "1", даже если видно что полоско двигается вперед и назад...

Попробовал задать по-другому :

ElseIf $res1=$res2<$res3=$res4 Then
Send("5")

Теперь жмет что надо, но загвоздка в том, что может быть так $res2<$res3, а может быть так $res2 >$res3.... если ставлю <>, то не обрабатывает.... Как можно еще поставить неравенство? Неужели надо кучу IF добавлять?

[Creat0R]

Иск,

Может параметры не правильно заданы и нельзя так их вводить, тоесть через запятую?

Нет конечно, тут нужно использовать And (логическое “И”) / Or (логическое “Или”), в справке всё это есть ...

Код:

$res1 = 207
$res2 = 208
$res3 = 355
$res4 = 355

If ($res1 = $res4) Or _
    ($res1 <> $res2 And $res2 = $res4) Or _
    ($res1 <> $res2 And $res2 <> $res3 And $res3 = $res4) Or _
    ($res1 = $res2 And $res2 <> $res3 And $res3 = $res4) Then

    ;Send("1")
    ConsoleWrite(1)
ElseIf ($res1 = $res3 And $res3 <> $res4) Or _
    ($res1 <> $res2 And $res2 <> $res3 And $res3 <> $res4) Or _
    ($res1 <> $res2 And $res2 = $res3 And $res3 <> $res4) Then

    ;Send("5")
    ConsoleWrite(5)
EndIf

[Иск]

Нет конечно, тут нужно использовать And (логическое “И”) / Or (логическое “Или”), в справке всё это есть ... »

Ага, есть только в жизни бы не догадался что ,цитирую : "AND Оператор логического умножения" и есть нужная мне запятая В общем потихоньку разбираюсь...Спасибо за помощь!Все теперь работает как и задумано!

[amel27]

no_sound

Прошу прощения если не в тему пишу »

не думаю, что тут у многих Vista... попробуйте спросить ЗДЕСЬ
без привязки к AutoIT CMD-команда будет:

Код:

rundll32.exe netshell.dll,StartNCW

[SvetlanaK]

Добрый день! а не подскажет ли кто, можно ли в АИ отслеживать время? и подобно виндусовому планировщику задач запускать нужные функции по назначенному времени?

[Creat0R]

можно ли в АИ отслеживать время? и подобно виндусовому планировщику задач запускать нужные функции по назначенному времени? »

Можно конечно...

[Creat0R]

Вот пример:

Код:

Global $sDestTime = "14:00:00, 11.09.2008"
Global $sCallFunction = "_MyTask1"

AdlibEnable("CheckTimeProc", 10)

While 1
    Sleep(10)
WEnd

Func CheckTimeProc()
    Local $iFullDestTime = StringRegExpReplace($sDestTime, "[:,\. ]", "")
    Local $iCurrentTime = @HOUR & @MIN & @SEC & @MDAY & @MON & @YEAR

    If $iFullDestTime = $iCurrentTime Then Call($sCallFunction)
EndFunc

Func _MyTask1()
    MsgBox(64, "Hi", "Hello from _MyTask1 :)")
EndFunc

[Maza Faka]

Creat0R
У тебя опечатка в коде AdlibDisable("CheckTimeProc", 10)

[SvetlanaK]

спасибо-преспасибо Вам большое-пребольшое ! я уже заметила опечатку и исправила ! отлично, все работает!