|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » скрипт не работает на другом компьютере |
|
скрипт не работает на другом компьютере
|
Новый участник Сообщения: 2 |
Скрипт не работает на другом компьютере. Не срабатывает поиск пикселя по цвету, не создает текстовый файл, не закрывает окна, а на моем компьютере все ок. Помогите, пожалуйста.
#include <IE.au3> #Include <Array.au3> Global $n,$oSabmit,$Links,$var,$title,$hFile,$Otchet[100],$i,$pos Global Const $sProIDText = "Автопилот" Opt("TrayIconDebug",1) #Include <Misc.au3> If NOT _Singleton($sProIDText, 1) Then MsgBox(48, 'Внимание', 'Одна копия программы уже запущена') _MyExit() EndIf For $i=1 to 1 Step 1 HotKeySet("{ESC}", "_MyExit") ;Esc - выход $oIE = _IECreate("http://travelpluse.weebly.com") _IELoadWait ($oIE) $n = Random(7,28,1) $oSubmit =_IEGetObjByName($oIE,"tasemcity01") If @Error = 0 Then _IELoadWait ($oIE) _IELinkClickByIndex ($oSubmit,$n,0) ;выбор страны Sleep(5000) EndIf _IELoadWait ($oIE) $coord = PixelSearch(0,0,1024 ,728, 0xFFD46C) If Not @error Then $pos = MouseGetPos() MouseClick("left",$coord[0],$coord[1],1) ; просмотр цен MouseMove($pos[0],$pos[1], 1) If WinExists("Предупреждение системы безопасности") Then Send("{Enter}") EndIf EndIf Sleep(15000) _IELoadWait ($oIE) Opt("WinTitleMatchMode", 2) While WinActive("Microsoft Internet Explorer") WinActivate("Microsoft Internet Explorer") $title = WinGetTitle("Microsoft Internet Explorer") $hFile = FileOpen(@ScriptDir & '\Otchet.txt', 1) ;открываем файл FileWriteLine($hFile, $title & @CRLF) ;записывем в него ссылку страницы FileClose($hFile) ;закрываем файл If BitAND(WinGetState($title), 2) Then WinSetState($title, "", @SW_MAXIMIZE) $n = Random(5000,10000,1000) Sleep($n) WinKill($title) EndIf WEnd $n = Random(3000,7000,1000) Sleep($n) Next MsgBox(0,"НЕ ЗАБУДЬ!","ОТПРАВЬ ОТЧЕТ АВТОПИЛОТА") Func _MyExit() If ProcessExists('IEXPLORE.EXE') Then ProcessClose('IEXPLORE.EXE') Exit EndFunc ;==>_MyExit |
|
Отправлено: 09:46, 19-02-2011 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Цитата trudmoy:
|
|
------- Отправлено: 14:11, 19-02-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 2
|
Профиль | Отправить PM | Цитировать На моем работает. Несколько подправил бардак по совету умных людей - результата пока нет.
Ирония - это хорошо, помощи бы еще. Я юноша в программировании или мальчик ![]() #include <IE.au3> #Include <Array.au3> #Include <Misc.au3> Opt('TrayIconDebug', 1) Opt('WinTitleMatchMode', 2) HotKeySet('{ESC}', '_MyExit') Global $oSabmit, $Links, $var, $title, $hFile, $Otchet[100], $i, $pos Global Const $sProIDText = 'Автопилот' If Not _Singleton($sProIDText, 1) Then MsgBox(48, 'Внимание', 'Одна копия программы уже запущена') _MyExit() EndIf For $i=1 to 1 $oIE = _IECreate('http://travelpluse.weebly.com') $oSubmit = _IEGetObjByName($oIE, 'tasemcity01') If @error == 0 Then _IELinkClickByIndex($oSubmit, Random(7, 28, 1), 0) Sleep(5000) Else MsgBox(48, '', 'Ссылки не нашел') EndIf $coord = PixelSearch(0, 0, 1024, 728, 0xFFD46C) If @error==0 Then MouseClick('left', $coord[0], $coord[1],1) ; проверка цены $pos = MouseGetPos() MouseMove($pos[0], $pos[1], 1) Else MsgBox(48, '', 'Пикселя нет') Sleep(1000) If WinExists('Предупреждение системы безопасности') Then Send('{Enter}') EndIf Sleep(15000) _IELoadWait($oIE) While WinActive('Microsoft Internet Explorer') $title = WinGetTitle('Microsoft Internet Explorer') FileWriteLine(@ScriptDir & '\Otchet.txt', $title & @CRLF) If BitAND(WinGetState($title), 2) Then Sleep(Random(5000,10000,1000)) WinKill($title) EndIf WEnd Sleep(Random(3000,7000,1000)) Next MsgBox(48, 'НЕ ЗАБУДЬ!', 'ОТПРАВЬ ОТЧЕТ АВТОПИЛОТА') Func _MyExit() If ProcessExists('IEXPLORE.EXE') Then ProcessClose('IEXPLORE.EXE') Exit EndFunc ;==>_MyExit |
Отправлено: 15:15, 19-02-2011 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Принтер - не могу подключиться к принтеру Laserjet1522n на другом компьютере | Ogara | Прочее железо | 6 | 30-10-2010 02:17 | |
Разное - Активация XP Home sp2 OEM на другом компьютере после установки | Bondar | Лицензирование продуктов Microsoft | 1 | 17-02-2010 01:04 | |
Принтер - На одном компьютере принтер опознается, а на другом нет?! | maximus87 | Прочее железо | 5 | 18-02-2009 10:08 | |
Dial-Up - модемное соединение с интернетом на другом компьютере локальной сети | valeracrv | Сетевые технологии | 1 | 11-10-2007 18:03 | |
как запретить использование файла на другом компьютере? | ghost99 | Microsoft Windows 2000/XP | 0 | 07-04-2006 11:49 |
|