Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » скрипт не работает на другом компьютере

Ответить
Настройки темы
скрипт не работает на другом компьютере

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: trudmoy
Дата: 19-02-2011
Описание: не читабельно выглядит текст кода
Скрипт не работает на другом компьютере. Не срабатывает поиск пикселя по цвету, не создает текстовый файл, не закрывает окна, а на моем компьютере все ок. Помогите, пожалуйста.
Код: Выделить весь код
#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

 

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1008

Профиль | Сайт | Отправить PM | Цитировать


Цитата trudmoy:
Скрипт не работает на другом компьютере. »
Такой скрипт не будет работать ни на каком компьютере.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community


Отправлено: 14:11, 19-02-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить 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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » скрипт не работает на другом компьютере

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Принтер - не могу подключиться к принтеру 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




 
Переход