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

Страницы: [1] 2 3 ... 10
1
Стол заказов / Re: Проверка TCP сессии
« Последний ответ от sngr Отправлен Сегодня в 13:13:27 »
Код: AutoIt [Выделить]
$s_Read = ''
$i_PID = Run(@ComSpec & '  /c netstat -an | findstr 10.10.0.10:10', '', @SW_HIDE, 6)
While 1
    $s_Read &= StdoutRead($i_PID)
    If @error Then ExitLoop
    Sleep(1)
WEnd
MsgBox(32,'',$s_Read)
 

2
Переделал программу.
Хочу сделать поиск по базе данных.
Сейчас работает поиск по городам, рядом приписывается название области, а вот название государства ни как не могу вытащить.
Программа работает следующим образом находит:
1. Находит города начинающиеся с на определенные сочетания букв.
2. Находит название областей куда входят эти города (в цикле от индекса города отнимает 1 до тех пор пока во втором столбце не будет пусто (в названиях областей 2 и последующие столбцы пустые).
3. Необходимо также найти название государства (отличается от названия области регистром), знаю что необходимо применить функцию StringIsUpper, но че то не получается.

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

        $sText = FileRead(@ScriptDir & '\test.txt')
        $sText = StringRegExpReplace($sText, '([\r\n]*$)', '')
        $aText = StringSplit(StringStripCR($sText), @LF)
        StringReplace($aText[1], ';', '')
        $i2D = @extended + 1
        Dim $aRes[$aText[0]][$i2D]
        For $i = 1 To $aText[0]
            $aTemp = StringSplit($aText[$i], ';')
            For $j = 1 To $aTemp[0]
                $aRes[$i - 1][$j - 1] = $aTemp[$j]
            Next
        Next
        $aText = 0
        $aTemp = 0

Global $iInput1
GUICreate('Тест', 450, 250, -1, -1, -1, $WS_CLIPCHILDREN)
$nInput1 = GUICtrlCreateInput('', 10, 10, 150, 20)
GUICtrlSetColor(-1, 0x505050)
$nInput2 = GUICtrlCreateList('', 10, 40, 300, 200)


GUISetState()

While 1
    $CitySearch = GUICtrlRead($nInput1)
    Select
        Case $CitySearch <> $iInput1
            GUICtrlSetData($nInput2, '')
            ConsoleWrite($CitySearch & @CRLF)
            $SearchResult = _ArrayFindAll($aRes, GUICtrlRead($nInput1) , 7, 0, 0, 1, 0) ; Поиск всех
            For $x = 0 to UBound($SearchResult)-1
                $CityIndex = $SearchResult[$x]
                $CityName = $aRes[$CityIndex][0]
                $pattern = '(?i)^' & $CitySearch

                CityAndOblAndCountryName()

            Next
            $iInput1 = $CitySearch
    EndSelect

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd


Func CityAndOblAndCountryName()
    If StringRegExp($CityName, $pattern) And Not($aRes[$CityIndex][1] = '') Then
        For $r = 1 to UBound($aRes) - 1
            $OblIndex = $CityIndex - $r
            $OblName = $aRes[$OblIndex][0]
            If $aRes[$OblIndex][1] = '' Then
                ExitLoop
            Else
            EndIf
        Next

        Local $CountryIndex
        Local $CountryName

        ConsoleWrite($CityIndex & ' ' & $CityName &  ' <-- ' & $OblIndex & ' ' & $OblName &  ' <-- ' & $CountryIndex & ' ' & $CountryName  &@CRLF)
        GUICtrlSetData($nInput2, $CityName &  ' <-- ' & $OblName &  ' <-- ' & $CountryName)
    Else
    EndIf
EndFunc

 

3
Общение / Re: [Автоматизация] Не могу нажать пункт в меню на web странице
« Последний ответ от Boris Отправлен Сегодня в 11:12:42 »
Код: AutoIt [Выделить]
#include <IE.au3>

Local $oIE = _IECreate("http://...")
Local $oForm = _IEFormGetObjByName($oIE, "commonwar")
_IEFormSubmit($oForm)

Если я правильно понял проблема в корректной работе с формами.
По имени формы "commonwar" определяется ссылка на форму и по ней производится отправка формы на сервер для выполнения. Ввел эти коды в скрипт - но ничего не происходит.
Попробовал сделать так
Код: AutoIt [Выделить]
_IEAction($oForm,"click")

то же тишина
4
Стол заказов / Проверка TCP сессии
« Последний ответ от Skipus Отправлен Сегодня в 10:31:08 »
Версия AutoIt: 3.
v3.3.14.2

Описание:
Необходимо скрипт для проверки, есть ли ТСР сессия и выполнения условия.

1. Выгружает в файл
2. Смотрит в файл
3. Выполняет условие, если есть нужное соединения, то ничего не делаем, если нет, то перезапускам ПО.

Примечания:

Выгружаю вот таким образом:
Код: AutoIt [Выделить]
Run(@ComSpec&' /c netstat -an | findstr 10.10.0.10:10 > C:\port.txt', '', @SW_HIDE)


Файл держать открытым не надо, т.к. в него еще другой софт иногда глядит.

Нашёл, вот такой пример, но в нем чего-то  не хватает:

Код: AutoIt [Выделить]
$sPath = @ScriptDir & '\port.txt'; Путь до файла
$hRead = FileOpen($sPath, 0); Открываем файл для чтения
While 1; Цикл для построчного чтения
   $sLine = FileReadLine($hRead); Строка
   If @error = -1 Then ExitLoop; Если конец файла выход из цикла
   If StringInStr($sLine, '&leveldata=') Then MsgBox(0, '', 1); Если найдена фраза в строке, выдать сообщение
   ; Если не выдано ничего, значит строка не найдена
WEnd; Конец цикла


Помогите решить задачку.
5
Стол заказов / Re: Автоматизировать действия в торговой платформе
« Последний ответ от Anna Отправлен Сегодня в 10:06:40 »
Pennon
OffTopicВы торгуете по этой стратегии?
Какие результаты?
Загляните в ЛС.
6
Стол заказов / Re: [Сеть, интернет] Парсинг сайта
« Последний ответ от hedji Отправлен Сегодня в 09:09:10 »
Еще раз по шагам:
1) Заходим браузером на страницу
2) Сохраняем страницу себе на комп
3) Открываем сохраненную страницу блокнотом
4) Находим в блокноте ИС-7
5) Видим, что ИС-7 находится в строке ><p><span class="cW">ИС-7</span></p><table
6) Пишем регулярное выражение, которое вернет то, что находится между ><p><span class="cW"> и </span></p><table, но чтобы так много не писать по краям, отбрасываем лишнее, оставляя cW"> и </span></p>
7
Дни рождения / С днём рождения Коршун, Rioran!
« Последний ответ от Представитель Сообщества Отправлен Сегодня в 01:01:58 »
От имени всего Русского сообщества AutoIt поздравляем Вас Коршун, Rioran с днём рождения!



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

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

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

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
8
Стол заказов / Re: [Сеть, интернет] Парсинг сайта
« Последний ответ от TiranCool Отправлен Вчера в 23:35:13 »
Спасибо,но не все понял,я пытался вытащить цифры из кода,но не получется,не правильно выбрал регулятор?
Код: AutoIt [Выделить]
#include <IE.au3>
$oIE = _IECreate("http://wotomatic.net/?search=19_APEC_75#",0,1,1,1)
$str = _IEDocReadHTML($oIE)
$models = StringRegExp($str, 'cW">(.*)</span class="c6"></d>', 3)
If IsArray($models) Then
    For $model in $models
        ConsoleWrite($model & @CRLF)
    Next
EndIf
 



Добавлено: Вчера в 23:55:27
cW"   не понял этого,откуда взялось и что означает,прочел уже все
9
Общие вопросы по AutoIt / Re: ListView — как убрать иконку из первой колонки?
« Последний ответ от musicstashall Отправлен Вчера в 22:21:07 »
Типа того:

Код: AutoIt [Выделить]
_GUICtrlListView_AddItem($ListView, $i, 100000)


Понял  :) Спасибо
10
Общие вопросы по AutoIt / Re: ListView — как убрать иконку из первой колонки?
« Последний ответ от joiner Отправлен Вчера в 22:04:25 »
Код: AutoIt [Выделить]
_GUICtrlListView_AddItem ($hListView, $i, 1)

Страницы: [1] 2 3 ... 10