Недавние сообщения

Страницы: [1] 2 3 ... 10
1
Общие вопросы по AutoIt / Чтение из csv и заход на сайт
« Последний ответ от luxess777 Отправлен Сегодня в 04:57:42 »
Сорян если тема уже есть. Не могу найти соответствующий ответ.

Есть файл csv в котором есть список email адресов и через запятую пароль от ящика.

Задача в следующем:

Программа читает первую строчку в csv? берет email и пароль и вносит эти данные в mail.ru и заходит автоматически. Я делаю определенные манипуляции в почте, и выхожу. Как только выхожу с этого ящика, то прога сразу же заходит на следующий ящик.. и так до конца файла.

Есть код, но он чето не срабатывает... :

Код: AutoIt [Выделить]
#include <IE.au3>

Local $hFile, $sEMail
$hFile = FileOpen(@ScriptDir & '\email.txt')

While 1
    $sEMail = FileReadLine($hFile)
    If @error Then ExitLoop
    $sLogin = '$sEMail'
   $sUrl = 'http://mail.ru/'

WEnd
FileClose($hFile)


$oIE = _IECreate($sUrl)
$oForm = _IEFormGetObjByName($oIE, "auth")
$oLogin = _IEFormElementGetObjByName($oForm, "login")
$oPassword = _IEFormElementGetObjByName($oForm, "password")

_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPassword, $sPass)

$oLinks = _IETagNameGetCollection($oIE, "input")
For $oLink in $oLinks
   $sLinkText = _IEPropertyGet($oLink, "outerhtml")
   If StringInStr($sLinkText, '"Войти"') Then
       _IEAction($oLink, "focus")
       _IEAction($oLink, "click")
       ExitLoop
   EndIf
Next
 

2
Дни рождения / С днём рождения Loopback!
« Последний ответ от Представитель Сообщества Отправлен Сегодня в 01:02:36 »
От имени всего Русского сообщества AutoIt поздравляем Вас Loopback с днём рождения!



Цитировать
Пусть все мечты исполнятся,
Пусть все желанья сбудутся,
Пусть радости запомнятся,
А горести забудутся.

Здоровье будет крепкое,
В делах всегда согласие,
Любовь навеки верная —
Без ссор и разногласия.

Зарплата только вовремя,
Стабильная, высокая.
Работа будет лёгкая
И не совсем далёкая.

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
3
Код: AutoIt [Выделить]
Func _sendbyid($send_ID,$send_Text)
    If $temp_send_userstat = 'online' Then
        _IENavigate($oIE,$url_chat & $send_ID)
        _IELoadWait($oIE)

        $chatButt = _IEGetObjById($oIE,'chat-send-message')

        Do
            Global $oLinks = _IETagNameGetCollection($oIE, 'div')
        Until IsObj($oLinks)

        For $oLink In $oLinks
            If $oLink.getAttribute("class") == "frameBody body2" Then
                $oLink.innerText = $send_Text
            EndIf
        Next

        _IEAction($chatButt, "click")
    EndIf
EndFunc

4
В описании функций есть все подробности
Код: AutoIt [Выделить]
#NoTrayIcon ;не показывать иконку в трее

#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <TrayConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>

Opt("TrayMenuMode", 1 + 2) ; Не отображать в трее пункты меню по умолчанию (Script Paused/Exit) и не отмечать галочками при выборе.
Global $nTrayTest1 = TrayCreateItem("Test1")
Global $nTrayTest2 = TrayCreateItem("Test2")
TrayCreateItem("")
Global $nTrayExit = TrayCreateItem("Выход")
TraySetClick(16) ; Устанавливает способ вызова меню трея: 16 = Отпусканием вторичной кнопки мыши

Local $test = GUICreate("test", 350, 214, -1, -1, -1, -1)
GUISetState(@SW_SHOW, $test)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

        ; Проверка нажат ли крестик на окне если нажат, то выходим
        Case $GUI_EVENT_CLOSE
            Exit

            ; Проверка нажата ли кнопка Свернуть, если нажата, сворачиваем в трей
        Case $GUI_EVENT_MINIMIZE
            TraySetState($TRAY_ICONSTATE_SHOW) ; Включает отображение иконки в трее
            GUISetState(@SW_HIDE) ; Сворачивает окно в трей
    EndSwitch

    ; Восстанавливает из трея
    Switch TrayGetMsg()
        Case $TRAY_EVENT_PRIMARYUP
            TraySetState($TRAY_ICONSTATE_HIDE)
            GUISetState(@SW_SHOW)
        Case $nTrayExit
            Exit
        Case $nTrayTest1
            MsgBox(0, "", "Test1")
        Case $nTrayTest2
            MsgBox(0, "", "Test2")
    EndSwitch
WEnd
 

5
GUI - Графический интерфейс пользователя / Меню в трее по правой кнопке мыши
« Последний ответ от kyi Отправлен Вчера в 21:33:52 »
Добрый день!
Хочу что бы при клике левой кнопкой мыши на иконке в трее программа разворачивалась, а при нажатии правой кнопкой мыши появлялось доп меню
Сейчас делаю так
(нажмите для показа/скрытия)
При таком раскладе меню создается всегда, хоть нажимаю левой кнопкой, хоть правой.
Начинаю думать как от этого избавиться и при чтении справки нахожу событие $TRAY_EVENT_SECONDARYDOWN
Мысль работает так. Если нажимать правую кнопку, то надо вызывать функцию которая будет создавать меню по этому событию - делаю
(нажмите для показа/скрытия)
но получаю повторяющиеся меню и нестабильную работу программы.
Товарищи, подскажите идею как можно выполнить мою задумку?
Только очень прошу, рассказывайте как можно проще и подробнее.
6
Общие вопросы по AutoIt / Re: Эмуляция отмены действия (ctrl+z)
« Последний ответ от Dima1337 Отправлен Вчера в 20:47:35 »
Методом тыка. Не понимаю, почему так происходит.
По идее, при английской раскладке, должен работать код:
Send("^z")
Он не работает. Просто добавляет знак "z".
Код:
Send("^я")
при русской раскладке работает.
Отменяет последнее действие.

То есть у вас в МОМЕНТ ЗАПУСКА СКРИПТА стоит английская раскладка, и код с клавишей "Z" при этом не работает?Но работает код с клавишей "Я" все верно?
При тестировании вот этого кода, Во время запуска скрипта у меня была РУССКАЯ раскладка:
Код: AutoIt [Выделить]
HotKeySet("{1}","_123123")

While 1
    Sleep(100)
WEnd

Func _123123()
    Send('+{INS}')
    Send('^{z}')
EndFunc


Было то же самое что у вас. Это нормально поведение функции Send.

Если вы все проверили и не работает то вариант для вас либо с помощью "Я" либо вот тема:
http://autoit-script.ru/index.php?topic=25727.0
7
Общие вопросы по AutoIt / Re: Эмуляция отмены действия (ctrl+z)
« Последний ответ от Noter Отправлен Вчера в 20:00:02 »
Код: AutoIt [Выделить]
Func _123123()
    Send('+{INS}')
    Send('^{z}')
EndFunc

Запустите скрипт с английской раскладкой, вероятно в этом кроется ваша проблема

Данный код вставляет из буфера данные, дописывает в конец z.
Отмена операции не происходит(
Раскладка английская


Добавлено: Вчера в 20:01:14
Noter
Попробуйте так
Код: AutoIt [Выделить]
Send("{CTRLDOWN}z{CTRLUP}")


Данный код ничего не дописывает, но и не отменяет(
Раскладка английская


Добавлено: Вчера в 20:30:07
Друзья.

Методом тыка. Не понимаю, почему так происходит.
По идее, при английской раскладке, должен работать код:
Send("^z")
Он не работает. Просто добавляет знак "z".
Код:
Send("^я")
при русской раскладке работает.
Отменяет последнее действие.

Берите на вооружение.

Тему можно закрывать, но она не раскрыта)
8
Код: AutoIt [Выделить]
...
        Do
            If GUIGetMsg() = $Stopb Then
                GUICtrlSetState($Startrefresh,$GUI_ENABLE)
                GUICtrlSetState($Stopb,$GUI_DISABLE)
                Return
            EndIf
        Until TimerDiff($Time) > 1000
...

Спасибо, работает.
9
Общие вопросы по AutoIt / Re: Эмуляция отмены действия (ctrl+z)
« Последний ответ от InnI Отправлен Вчера в 18:41:16 »
Noter
Попробуйте так
Код: AutoIt [Выделить]
Send("{CTRLDOWN}z{CTRLUP}")

10
Общие вопросы по AutoIt / Re: Эмуляция отмены действия (ctrl+z)
« Последний ответ от Dima1337 Отправлен Вчера в 18:38:36 »
Код: AutoIt [Выделить]
Func _123123()
    Send('+{INS}')
    Send('^{z}')
EndFunc

Запустите скрипт с английской раскладкой, вероятно в этом кроется ваша проблема
Страницы: [1] 2 3 ... 10