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

Страницы: [1] 2 3 ... 10
1
Дни рождения / Re: С днём рождения damien2008!
« Последний ответ от Garrett Отправлен Сегодня в 02:51:01 »
Всех благ!
:Happy_Birthday:
2
Дни рождения / С днём рождения damien2008!
« Последний ответ от Представитель Сообщества Отправлен Сегодня в 01:00:42 »
От имени всего Русского сообщества AutoIt поздравляем Вас damien2008 с днём рождения!



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

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

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

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
3
Общие вопросы по AutoIt / Re: Не срабатывают функции после перезагрузки
« Последний ответ от joiner Отправлен Вчера в 23:13:44 »
это есть в скрипте?
Код: AutoIt [Выделить]
4
Общие вопросы по AutoIt / Re: Добавить ссылку в общее меню программ
« Последний ответ от joiner Отправлен Вчера в 23:09:30 »
это есть в коде. да и папка то создается. только отображения в списке установленных программ нет её.
в реестре то я тоже пишу и в Установка\удаление программ появляется ссылка на деинсталятор и все удаляется как нужно
5
Общие вопросы по AutoIt / Re: Добавить ссылку в общее меню программ
« Последний ответ от Garrett Отправлен Вчера в 22:19:43 »
joiner
Может?
Код: AutoIt [Выделить]
6
Общие вопросы по AutoIt / Re: Добавить ссылку в общее меню программ
« Последний ответ от joiner Отправлен Вчера в 20:41:33 »
я так и не нашел причину. пришлось сделать иначе. просто в корень папки
C:\ProgramData\Microsoft\Windows\Start Menu\Program
закинуть(создать) ярлык на программу.
вобщем, создать чтобы в своей папке был ярлык не получается, а закинул в корень - все нормально.
7
Автоматизация IE и Web-интерфейса / Re: [Сеть, интернет] StringRegExp HTML кода
« Последний ответ от ssvih-miaa Отправлен Вчера в 20:39:21 »
Спасибо, но данный способ не подходит, так как на странице могут находиться несколько таких таблиц с аналогичным кодом!!!
8
Автоматизация IE и Web-интерфейса / Re: [Сеть, интернет] StringRegExp HTML кода
« Последний ответ от sngr Отправлен Вчера в 20:30:18 »
Код: AutoIt [Выделить]
#include 'array.au3'
$file=ClipGet()
$str=StringRegExp($file,'(?s).*buks.php\?bs=([^"]+)[^>]+>[^>]+>[^0-9]+([0-9]+)',3)
_ArrayDisplay($str)
 

9
Автоматизация IE и Web-интерфейса / [Сеть, интернет] StringRegExp HTML кода
« Последний ответ от ssvih-miaa Отправлен Вчера в 20:18:09 »
День добрый, срочно подскажите что не так я делаю:
Есть код
<table width="750" class="tdmess3" border="0" cellspacing="0" cellpadding="0">
          <tbody><tr>
          <td width="54"><img width="48" height="48" title="—айт проверен вручную админом!" id="click76140" alt="—айт проверен вручную админом!" src="img/icon/-1.png" border="0"></td>
           <td align="left" valign="center">
           
  <a class="menu" onclick="document.getElementById('click76140').src='img/ok.png';" href="buks.php?bs=76140" target="_blank"><font color="green">ѕростейшее задание - быстра¤ оплата</font></a><br>
  <a class="mini2" onclick="document.getElementById('click76140').src='img/ok.png';" href="buks.php?bs=76140" target="_blank">покупаю купоны с лайками</a><br>
  <a class="mini2" onclick="document.getElementById('click76140').src='img/ok.png';" href="buks.php?bs=76140" target="_blank">
  <font style="color: rgb(51, 102, 204); font-family: Tahoma,helvetica,Courier New; font-size: 11px;">¬рем¤: 30 сек., ѕросмотрено: 835, ќстаток: 180, ƒомен: rubserf.ru</font></a>
 
  </td>
           <td width="70" align="left">
            <font style="color: rgb(0, 139, 209); font-family: Tahoma,Verdana,Arial; font-size: 14px; text-shadow: 1px 1px 1px #cdcfd0;">2.0 коп</font>
            </td>
           <td width="45" align="center" valign="center">
           <a class="mini2" href="http://online.drweb.com/result?url=http://rubserf.ru/index.php?act=orderview&amp;order=1498401369" target="_blank">
           <img width="12" height="12" src="img/icon/vir.png" border="0"><br>Dr.Web</a>
           </td>
           <td width="45" align="center" valign="center">
           <a class="mini2" href="index.php?act=ban&amp;sid=76140" target="_blank"><img width="12" height="12" src="img/icon/galoba.png" border="0"><br>∆алоба</a>
           </td>
           
          </tr>
         </tbody></table>

Я выдергиваю нужный мне номер
Код: AutoIt [Выделить]
$aRes = StringRegExp($HTML,'(?<=buks.php\?bs=).*?(?=\")',1)


После чего мне необходимо получить текст "¬рем¤: 30 сек., ѕросмотрено: 835, ќстаток: 180, ƒомен: rubserf.ru" и выдернуть время в данном случае 30 сек, нужны только цифры

Я пробовал реализовать таким вот способом
Код: AutoIt [Выделить]
   
$aRes = StringRegExp($HTML,'(?<=buks.php\?bs=).*?(?=\")',1)
$abRes = StringRegExp($HTML,'(?<=76140").*?([\w]?=</td>)',1)
$bRes = StringRegExp($abRes[0],'(?<=Время:).*?(?=\sсек)',1)
 

Но ничего не получилось (
Так же вместо 76140 необходимо подставить переменную $aRes в которой содержаться данные цифры.
Подскажите кто знает...
10
Общие вопросы по AutoIt / Не срабатывают функции после перезагрузки
« Последний ответ от .me Отправлен Вчера в 14:51:58 »
Приветствую.
есть скрипт с несколькими функциями
Код: AutoIt [Выделить]
Func checkproc()
Select
    Case ProcessExists("procces1.exe")
        ContinueCase
    Case ProcessExists("procces2.exe")
        ContinueCase
    Case ProcessExists("procces3.exe")
        ContinueCase
    Case ProcessExists("procces4.exe")
        Run(@ComSpec & " /c taskkill /f /IM start.exe > NUL", @SystemDir, @SW_HIDE)
    Case Else
    If Not ProcessExists("start.exe") Then
        MyAdlib()
EndIf
EndSelect
EndFunc
 


функция MyAdlib

Код: AutoIt [Выделить]
Func MyAdlib()
Local $Idle = 10000
If _Timer_GetIdleTime() < $Idle Then
ProcessClose("start.exe")
 Run(@ComSpec & ' /c  ' & "start.exe param1 ", '', @SW_HIDE)
  Do
    Sleep(1000)
  Until _Timer_GetIdleTime() > $Idle
ProcessClose("start.exe")
  Run(@ComSpec & ' /c  ' & "start.exe param2 ", '', @SW_HIDE)
EndIf
EndFunc

в конце скрипта
Код: AutoIt [Выделить]
естественно и про AdlibRegister не забыл
Код: AutoIt [Выделить]
AdlibRegister("MyAdlib", 3000)
AdlibRegister("checkproc", 3000)


автозагрузка
Код: AutoIt [Выделить]
$autoruns = @ScriptDir & '\myexe.exe'
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myexe", "REG_SZ", $autoruns)

при запуске все хорошо работает, перезагружаю пк, ехе в котором все эти функции есть запускается, но, сами функции не работают, где я допустил ошибку?
Страницы: [1] 2 3 ... 10