[Maza Faka]

Creat0R,

Кажется ты(?) уже задавал точно такой вопрос И я даже пример вроде привёл (сорри, найти не удалось). »

Да, я уже задавал такой вопрос, но твоё решение не отвечало одному из требований задачи (сорри не могу вспомнить какому именно требованию, так, как тоже не смог найти твой пост) Если не трудно выложи своё решение

[Drsmog]

Как выполнить такое условие если в блокноте, строке есть знак + тогда выполнить дествие ???

[Creat0R]

Maza Faka,

не смог найти твой пост

Google рулит (при правильном запросе: 24 +массив site:forum.oszone.net )...

http://forum.oszone.net/thread-60616...tml#post666511

Там задача была похожая, только от 1 до 13 ..
И массив я сделал двумерный (мне кажется так легче), но то что ты сделал в твоём примере, можно сделать двумя циклами (плюс вспомагательная функция):

Код:

#include <Array.au3> ;Только для _ArrayDisplay()

Global $MainArray = GetArray(24, 12)

_ArrayDisplay($MainArray)

Func GetArray($iElements = 24, $iRandom = 12)
    Local $iRandNum, $avRetArray[$iElements + 1]

    For $i = 1 To $iElements
        $iRandNum = Random(1, $iRandom, 1)
        If _FindInArray($avRetArray, $iRandNum) = -1 Then
            $avRetArray[$i] = $iRandNum
        Else
            While _FindInArray($avRetArray, $iRandNum) > 1
                $iRandNum = Random(1, $iRandom, 1)
            WEnd
            $avRetArray[$i] = $iRandNum
        EndIf
    Next

    $avRetArray[0] = $iElements
    Return $avRetArray
EndFunc

Func _FindInArray(ByRef $avArray, $StrToFind)
    Local $iRetCount = 0
    For $i = 1 To UBound($avArray)-1
        If $avArray[$i] <> "" And $avArray[$i] = $StrToFind Then $iRetCount += 1
    Next
    If $iRetCount <> 0 Then Return $iRetCount
    Return -1
EndFunc

Drsmog

если в блокноте, строке есть знак + тогда выполнить дествие

Примерно так:

Код:

$NotepadTitle = "[CLASS:Notepad]"

Run(@WindowsDir & "\Notepad.exe")
WinWait($NotepadTitle)

ControlSetText($NotepadTitle, "", "Edit1", "Просто текст с + ") ;Задаём текст с "+"

$EditText = ControlGetText($NotepadTitle, "", "Edit1")

If StringInStr($EditText, "+") Then
    ;Делаем наше действие ;)
    MsgBox(0, "", "Это могло бы быть ваше действие ;)")
EndIf

;Просто закроем то что открыли
WinClose($NotepadTitle)
WinWaitClose($NotepadTitle, "", 1)
If WinActive("[CLASS:#32770]", "&") Then ControlClick("[CLASS:#32770]", "&", "Button2")

[Drsmog]

Огроменное спасибо !!!!!!!!!!!!

[fak1r]

Такая вот у меня проблемка:
Есть один сайт на который нужно закачивать картинки, а что бы их закачать нада сначала пройти авторизацию вводом логина и пароля.
Так вот нельзя ли как нить сделать прогу на автоите для заливки картинок на этот сайт. очень нужно, а также необходим получать ссылки на залитые на сайт картинки.

PS вот сам сайт www.nn.ru
PSS вот тут http://www.nn.ru/services/personal-photo/ после регистрации будет галерея в котрую и нужно лить картинки.
Помогите пожалуйста!!!!
Заранее спасибо.

[Drsmog]

Нужна помощь !!!!!!!! Пажалуйста кто нибуть !!!!!!!!!!!!

а если в блокноте, строке есть знак + тогда выполнить дествие, а если нет + тогда естественно другое дествие


я так примерно написал а почему то тока плюс проверяет

$NotepadTitle = "[CLASS:Notepad]"


WinWait($NotepadTitle)



$EditText = ControlGetText($NotepadTitle, "", "Edit1")

If StatusbarGetText ( $EditText,"+" ) Then
Send('{DOWN}')
;Делаем наше действие
MsgBox(0, "", "ПЛЮС")
ElseIf StatusbarGetText ( $EditText, "-" ) Then
Send('{DOWN}')
;Делаем наше действие
MsgBox(0, "", "МИНУС")


EndIf

Мне надо так
если +(тока в строке) тогда дествие
если -(тока в строке) тогда другое дествие
если ?(тока в строке) тогда другое дествие
ну и т.д

[Creat0R]

fak1r,

нельзя ли как нить сделать прогу на автоите для заливки картинок на этот сайт

Если помучаться, то наверняка можно, смотри в сторону TCP-функции, ну или через библиотеку IE.au3.

Drsmog,

StatusbarGetText

А при чём тут StatusBar?

Мне надо так

Код:

$NotepadTitle = "[CLASS:Notepad]"

Run(@WindowsDir & "\Notepad.exe")
WinWait($NotepadTitle)

ControlSetText($NotepadTitle, "", "Edit1", "Просто текст с - ") ;Задаём текст с "-"

$EditText = ControlGetText($NotepadTitle, "", "Edit1")

Select
    Case StringInStr($EditText, "+") And Not StringRegExp($EditText, "-|\?")
        Action_Plus()
    Case StringInStr($EditText, "-") And Not StringRegExp($EditText, "\+|\?")
        Action_Minus()
    Case StringInStr($EditText, "?") And Not StringRegExp($EditText, "\-|\+")
        Action_Question()
EndSelect

;Просто закроем то что открыли
WinClose($NotepadTitle)
WinWaitClose($NotepadTitle, "", 1)
If WinActive("[CLASS:#32770]", "&") Then ControlClick("[CLASS:#32770]", "&", "Button2")

Func Action_Plus()
    ;Тут что-то делаем
    MsgBox(0, "", "ПЛЮС")
EndFunc

Func Action_Minus()
    ;Тут делаем что-то другое
    MsgBox(0, "", "МИНУС")
EndFunc

Func Action_Question()
    ;Тут делаем что-то другое
    MsgBox(0, "", "ВОПРОС")
EndFunc

Я только не уверен, что значит “тока в строке”?

[Drsmog]

Этот скрипт проверяет всю страницу в блокноте на наличии знаков, а надо чтоб искал тока в строчке, допустим в блокноте
стоят знаки в столбик.
+
-
?
тогда этот скрипт несрабатывает.
Надо чтоб возле каждого символа писал слово
например
+ это плюс
- это минус
? а это вопрос

[fak1r]

fak1r, Цитата:нельзя ли как нить сделать прогу на автоите для заливки картинок на этот сайт Если помучаться, то наверняка можно, смотри в сторону TCP-функции, ну или через библиотеку IE.au3. »

То то и оно я не умею работать с TCP , а как спомощью IE.au3 авторизирваться на сайте тоже не знаю.

[fak1r]

да и я считаю что ТСР гораздо лучше будет работать чем ИЕ.ау3