» AutoIT

Zwook 11:20 22-11-2008
Цитата:

Необходимо чтобы в первом цикле значения:

Код:  
MouseClick("left", $aCoords[$i], $aCoords[$i+1])
 
Были равны 500,500 во втором цикле 560,560 в третьем 500,500 и.т.д.

Оно так и происходит. Я написал, если нужно всё это зациклить чтобы оно по кругу всегда выполнялось, то Do...Untill нужно раскомментировать:


Код: Do
For $i = 1 To $aCoords[0] Step 2 ;Т.к у нас парные значения, задаём циклу интервал выполнения
MouseClick("Left", $aCoords[$i], $aCoords[$i+1])
Next
Until True

Leagnus

Цитата:

П.ч. нет флага $STDOUT_CHILD к потоку вывода.

Опять же моя вина, пользовался русской справкой.Попробовал с флагом - тоже самое - возвращает ноль, правда функцию перекодировки не применял. У меня почему-то с этой функцией скрипт зацикливается и сам себя запускает до бесконечности....

Цитата:

И правильно делает, что не происходит. Где у тебя функция опроса GUI? Читаем:

Пошел читать...



Цитата:

Ну создай необходимое кол-во циклов.

Я не совсем это имел ввиду...



Цитата:

Оно так и происходит. Я написал, если нужно всё это зациклить чтобы оно по кругу всегда выполнялось, то Do...Untill нужно раскомментировать:

Ну а что именно в Until писать то? Любое зачение которое я пробовал безрезультативно. (К Примеру Do / For / Next / Until $a=1)




Цитата:

Проверки чего? и почему у Switch стоит переменная $a, у меня в примере там обработчик событии стоит, что и положено в этом цикле

По всей видимости я не так понял значение Switch, я думал Switch(Меняет) Одну переменную другой

Zwook

Цитата:

Ну а что именно в Until писать то? Любое зачение которое я пробовал безрезультативно. (К Примеру Do / For / Next / Until $a=1)

Попробуй так:

Код:
HotKeySet("{Esc}", "_Exit")

Global $aCoords = StringSplit("500|500|560|560|500|500", "|")

Do
    For $i = 1 To $aCoords[0] Step 2 ;Т.к у нас парные значения, задаём циклу интервал выполнения
        MouseClick("Left", $aCoords[$i], $aCoords[$i + 1])
    Next
Until False

Func _Exit()
    Exit
EndFunc

Здорова народ! Вы мне уже как родные, я прочитал все 118 страниц этого форума по AvtoIt. ))

А теперь вопросы:
1. В теме пару раз проскакивал скрипт авто-настройки подключения к интернету, может кто знает, есть ли более тихий способ создать подключение например через командную строку или с использованием DllCall?
2. Можно ли AvtoItом определить сколько модемов установлено в системе и их названия?

APSTENU

Цитата:

есть ли более тихий способ создать подключение например через командную строку или с использованием DllCall?

Создать новое интернет подключение или подключиться к интернету?


Цитата:

определить сколько модемов установлено в системе и их названия?

Для Dial-Up модемов (может работает и для ADSL, проверить нет возможности):

Код: Dim $strComputer = ".", $sName, $iCount = 0

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_POTSModem")

For $objItem In $colItems
$iCount += 1
$sName &= $objItem.Name & @LF
Next

MsgBox(0, "Installed modems", @TAB & "Number: " & $iCount & @LF & @LF & _
@TAB & "Name(s): " & @LF & _
$sName)

Maza_Faka


Цитата:

Для Dial-Up модемов (может работает и для ADSL, проверить нет возможности):

ADSL похоже определился как "Пocлeдoвaтeльный кaбeль для cвязи кoмпьютepoв"
Мне и надо было только для Dial-Up, спасибо твой пример отлично подошёл!


Цитата:

Win32_POTSModem Class

Спасибо, буду разбираться


Цитата:

Создать новое интернет подключение или подключиться к интернету?

Именно создать новое интернет подключение...

Ещё вопрос:
можно ли к стандартному GUICtrlCreateButton прикрепить картинку или иконку,
но чтобы кнопка не становилась грубой и плоской на манер Windows 98
или есть какая-нибудь альтернатива для решения этой проблемы?

Nikkorot

опять же у тебя неправильный синтаксис
опять же ты просто ставишь хостнейм сначала, а надо сначала -w, потом задержку, потом уже хостнейм

вот что-то типа того



Код:
$hostname="www.mail.ru"
$time=4000
Local $Get = Run(@ComSpec & " /c Ping -w" & $time & $HostName , "", @SW_HIDE)
MsgBox(0,"Ping Output",$get)

APSTENU

Цитата:

Именно создать новое интернет подключение...

Наверняка можно из dll-ки (знать бы еще из какой) вызвать мастер подключений и дальше стандартными autoit'скими командами посылать ему нажатия разных клавиш.
Но есть и другой вариант, правда он не до конца доделан.
Как известно, информация о всех подключениях хранится в файле @AppDataCommonDir & '\Microsoft\Network\Connections\Pbk\rasphone.pbk' Это простой текстовый файл, где описание каждого нового подключения начинается со строки, содержащей название подключения в квадратных скобках, например [Овердрайв] Открой его в блокноте.
Так что достаточно дописать в конец этого файла всю требуемую инфу и новым подключением уже можно пользоваться через rasdial или rasphone Внимание, файл сохранен в кодировке UTF, так что если название подключения содержит кириллические символы, их надо сначала сконвертить в UTF. Функция для этого есть в шапке.
Недостатки:
1. созданное таким образом подключение не отображается в Пуск->Подключение Надо, наверное, что-то в реестре прописать, а что и где - не знаю.
2. Я не знаю где Windows хранит логин и пароли. Вроде бы не в rasphone.pbk Даже если и знал, то все равно - они должны быть серьезно зашифрованы. так что при использовании такого подключения всегда нужно указывать эти данные для rasphone или rasdial. Из скрипта это делать - нет никаких проблем, а если руками такое подключение запускать - неудобно.

Цитата:

Наверняка можно из dll-ки

Dll-ку то я знаю - Run ("rundll32.exe netshell.dll,StartNCW")
могу если надо готовый пример с GUI выложить
А про 'rasphone.pbk' не знал обязательно поковыряю.
Я вот и хочу как-нибудь половчее подключение создать - в обход мастера





Добавлено:
Эх, если бы ещё в свойствах модема строку инициализации автоматом можно было прописывать..

вот пример для создания подключения по АДСЛ


Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Documents and Settings\Администратор\Рабочий стол\iconzz\connection.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$tit="Мастер новых подключений"
$name=InputBox("Введите имя подключения","Определите имя создаваемого подключения к интернет посредством ADSL","","")
$login=InputBox("Введите имя пользователья","Введите имя пользователя для подключения к интернет","","")
$pass=InputBox("Введите пароль","Введите пароль для подключения к интернет","","*")
Run (@SystemDir &"/rundll32.exe netshell.dll,StartNCW")
WinWait($tit)
Sleep(2000)
ControlClick($tit,"","Button2")
WinWait($tit,"&Подключить к Интернету")
ControlClick($tit,"&Подключить к Интернету","Button6")
WinWait($tit,"Каким образом подключиться к Интернету?")
ControlClick($tit,"Каким образом подключиться к Интернету?","Button2")
ControlClick($tit,"Каким образом подключиться к Интернету?","Button9")
WinWait($tit,"Через &обычный модем")
ControlClick($tit,"Через &обычный модем","Button2")
ControlClick($tit,"Через &обычный модем","Button12")
WinWait($tit,"Им&я поставщика услуг")
ControlSetText($tit,"Им&я поставщика услуг","Edit1",$name)
ControlClick($tit,"Им&я поставщика услуг","Button12")
WinWait($tit,"&Имя пользователя:")
ControlSetText($tit,"&Имя пользователя:","Edit1",$login)
ControlSetText($tit,"&Имя пользователя:","Edit2",$pass)
ControlSetText($tit,"&Имя пользователя:","Edit3",$pass)
ControlClick($tit,"&Имя пользователя:","Button17")
WinWait($tit,"Завершение работы мастера новых подключений")
ControlCommand($tit,"Завершение работы мастера новых подключений","Button1","check")
ControlClick($tit,"Завершение работы мастера новых подключений","Button21")

Зато сработало если сразу после запуска мастера подключений поставить это

While 1
If WinExists("Мастер новых подключений") Then
WinMove("Мастер новых подключений", "", -500, -500)
    ExitLoop
EndIf
WEnd

т.е. просто убираем окно с видимой части экрана

APSTENU
ниче так, хотя и на миг появляется окно, ну и фиг с ним)))

Осталось с панели задач как-нибудь скрыть

APSTENU
#NoTrayIcon в начало добавь;))

а ну это из трея

а с панели задач хз....
да и появляется оно там на 5 сек))

настройки модема вместе со строкой инициализации нашёл в реестре

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}\0000]

последние цифры куста реестра - это номер модема, у меня их 2 (0000 и 0001)
так что видимо установленные модемы без особых ухищрений можно узнать через реестр... или они только у меня прописаны там?


Добавлено:
CrazyNNM

Цитата:

ниче так, хотя и на миг появляется окно, ну и фиг с ним)))

а у меня не успевает появиться


Цитата:

#NoTrayIcon в начало добавь;))

да, про это я знал

кста, у тебя не только ADSL подключение, его можно и как Dial-Up так же использовать

APSTENU

Цитата:

а у меня не успевает появиться

у мну маленький бук, не такой уж мощный, так что у меня все успевает


Цитата:

кста, у тебя не только ADSL подключение, его можно и как Dial-Up так же использовать

использовать подключение адсл для диалап соединения никаким хреном не получится

а вот сделать из этого скрипта скрипт для создания диалап подключения, дело пары кликов))))

CrazyNNM

Да точно, чтобы твой скрипт как Dial-Up работал его надо чуток изменить

Добавлено:
здесь лежит русская и улучшенная версия SciTE
справка по SciTE тоже полностью переведена

http://scite-ru.googlecode.com/files/SciTE_176_57Ru_140408.zip

среди улучшений также есть возможность paccкpacки кoдa AutoIt для пoмeщeния в фopyмы

Цитата:

здесь лежит русская и улучшенная версия SciTE
справка по SciTE тоже полностью переведена

http://scite-ru.googlecode.com/files/SciTE_176_57Ru_140408.zip

среди улучшений также есть возможность paccкpacки кoдa AutoIt для пoмeщeния в фopyмы

в шапку его)))

APSTENU

Цитата:

Осталось с панели задач как-нибудь скрыть

Пример

Leagnus
спасибо за функцию, как раз не хватало!

CrazyNNM

Цитата:

$hostname="www.mail.ru"
$time=4000
Local $Get = Run(@ComSpec & " /c Ping -w" & $time & $HostName , "", @SW_HIDE)
MsgBox(0,"Ping Output",$get)

Один хрен не работает, почему-то скрипт сам себя запускает в бесконечность... Я уже задолбался,никак не могу отловить комп сразу в даун уходит.

Maza_Faka

Цитата:

Пример

Может я что-то не так делаю, но у меня примеры те не таботают

APSTENU

Цитата:

у меня примеры те не таботают

Какая версия AutoIt установлена?

Maza_Faka
AutoIt 3.2.12
SciTE 1.77 - тоже полную версию с оф.сайта отдельно скачал
Windows XP Professional Service Pack 3

Заголовок блокнота как называется?

По поводу руссификации SciTE - достатогно поместить файл locale.properties в каталог SciTE
[more=locale.properties]# locale.properties by Neil Hodgson neilh@scintilla.org
# Placed in the public domain 2001

# locale.properties defines the localised text for the user interface
# Some definitions are commented out because they duplicate another string
# The format of each line is original=localised, such as File=&Fichier
# Even though the original text may have ellipses "..." and access key
# indicators "&" in the user interface, these do not appear in this file
# for the original texts. Translated texts should have an access key indicator
# if needed as the translated text may not include the original access key.
# Ellipses are automatically added when needed.
# The "/" character should not be used in menu entries as on GTK+ the "/" is
# used to specifiy the menu hierarchy and so will produce extra menu items.
# Each original text may have only one translation, even if it appears in
# different parts of the user interface.

# Please state any further license conditions and copyright notices you desire.
# If there are no further notices then contributed translations will be assumed
# to be made freely available under the same conditions as SciTE.

# Перевёл дополнения к версии 1.53 Stas (s_t_a_s@mail.ru)
# До версии 1.56 переведено Basf (basfer@mail.ru)
# До версии 1.59 + исправления Borodkin Yevgen (zzh@rambler.ru)
# До версии 1.62 + небольшие исправления - Androgen Belkin (androgen@pochta.ru)
# До версии 1.63 + контекстное меню файлов AU3 - Androgen Belkin (androgen@pochta.ru)

translation.encoding=Cyrillic

# Menus

# File menu
File=&Файл
New=Созд&ать
Open=&Открыть
Open Selected Filename=Открыть &выделенный файл
Revert=Вернуться к со&храненной версии
Close=&Закрыть
Save=&Сохранить
Save As=Сохранить &как
Save a Copy=Сохра&нить копию
Encoding=Ко&дировка
8 Bit=&8-битный формат
UCS-2 Big Endian=UCS-2 &Прямой порядок байтов (сначала младший байт)
UCS-2 Little Endian=UCS-2 &Обратный порядок байтов (сначала старший байт)
Export=&Экспортировать
As HTML=в формате &HTML
As RTF=в формате &RTF
As PDF=в формате &PDF
As LaTeX=в формате &LaTeX
As XML=в формате &XML

Page Setup=Пара&метры страницы
Print=&Печать
Load Session=За&грузить сессию
Save Session=Сох&ранить сессию
Exit=В&ыход

# Edit menu
Edit=П&равка
Undo=&Отменить
Redo=&Повторить
Cut=&Вырезать
Copy=&Копировать
Paste=Вст&авить
Delete=&Удалить
Select All=В&ыделить все
Copy as RTF=Коп&ировать в формате RTF
Match Brace=Найти парную &скобку
Select to Brace=Выделить &до другой скобки
Show Calltip=Показать подска&зку
Complete Symbol=Завер&шить символ
Complete Word=Завершить с&лово
Expand Abbreviation=Расшифровать сокра&щение
Insert Abbreviation=Вставить &сокращение...
Block Comment or Uncomment=Зако&мментировать или раскомментировать текст
Box Comment=Лине&йный комментарий
Stream Comment=Потоков&ый комментарий
Make Selection Uppercase=Перевести в вер&хний регистр
Make Selection Lowercase=Перевести в ни&жний регистр
Paragraph=Абза&ц
Join=&Объединить
Split=&Разделить

# Search menu
Search=&Поиск
Find=&Найти
Find Next=Найти &далее
Find Previous=&Предыдущее совпадение
Find in Files=Найти в &файлах
Replace=&Заменить
Incremental Search=Быстры&й поиск
Go to=Пере&йти
Next Bookmark=&Следующая закладка
Previous Bookmark=П&редыдущая закладка
Toggle Bookmark=Д&обавить или удалить закладку
Clear All Bookmarks=&Удалить все закладки
Replacements:=Замены:

# View menu
View=В&ид
Toggle current fold=Свернуть или развернуть &текущий блок текста
Toggle all folds=Свернуть или развернуть все &блоки текста
Full Screen=&Полноэкранный режим
Tool Bar=Панель &инструментов
Tab Bar=В&кладки
Status Bar=&Строка состояния
Whitespace=П&робелы
End of Line=Си&мволы перевода строк
Indentation Guides=Н&аправляющие отступа
Line Numbers=Н&омера строк
Margin=Пол&я
Fold Margin=Поле свора&чивания блоков текста
Output=Окно ко&нсоли
Parameters=Параметр&ы

# Tools menu
Tools=&Сервис
Compile=&Компилировать
Build=&Собрать
Go=&Выполнить
Stop Executing=&Остановить выполнение
Next Message=Следую&щее сообщение
Previous Message=&Предыдущее сообщение
Clear Output=О&чистить окно консоли
Switch Pane=Пере&ход между редактирование/консоль


# Options menu
Options=&Настройки
Always On Top=&Поверх всех окон
Open Files Here=&Открывать только одну копию программы
Vertical Split=&Консоль - сбоку
Wrap=П&еренос по словам
Wrap Output=Пе&ренос по словам в консоли
Read-Only=&Только для чтения
Line End Characters=&Символы перевода строки
CR + LF=
CR=
LF=
Convert Line End Characters=Кон&вертировать сиволы перевода строки
Change Indentation Settings=&Изменить настройки отступа
Use Monospaced Font=Использовать моно&ширинные шрифты
Open Local Options File=Открыть файл &локальных настроек
Open User Options File=Открыть файл пол&ьзовательских настроек
Open Global Options File=Открыть файл &глобальных настроек
Open Abbreviations File=Открыть файл настройки сокра&щений
Open Lua Startup Script=Открыть &файл автоматизации Lua

# Language menu
Language=По&дсветка

# Buffers menu
Buffers=&Вкладки
Previous=&Предыдущая
Next=&Следующая
Close all=&Закрыть все
Save All=&Сохранить все

# Help menu
Help=Спр&авка
SciTE Help=&Справка по SciTE
About SciTE=&О программе SciTE

# Dialogs
Abbreviation:=&Сокращение:
Insert=&Вставить

# Generic dialog
OK=
Cancel=&Отмена
Yes=&Да
No=&Нет

# About dialog
#About SciTE=
# This is to add something like: Swahili translation 1.41.1 by Neil Hodgson
TranslationCredit=Русский перевод: Valery Kondakoff <strauss@orc.ru>
Contributors:=Благодарности:
Version=Версия
by=Автор:

# Open, Save dialogs
Open File=Открытие файла
Save File=Сохранение файла
Save File As=Сохранение файла
Export File As HTML=Экспорт файла в формате &HTML
Export File As RTF=Экспорт файла в формате &RTF
Export File As PDF=Экспорт файла в формате &PDF
Export File As TeX=Экспорт файла в формате &TeX
Export File As XML=Экспорт файла в формате &XML
Save Current Session=Сохранение текущей сессии
Custom Filter=Фильтр

# Go To dialog
Go To=П&ереход к
Destination Line Number:=Введите &номер строки
Current line:=&Текущая строка:
Last line:=&Последняя строка:

# Indentation Settings dialog
Indentation Settings=Настройки отступа
Tab Size:=&Табуляция:
Indent Size:=&Отступ:
Use tabs:=&Использовать Tab'ы

# Replace and Find dialogs
Find what:=&Что:
Files:=В &файлах:
Replace with:=Ч&ем:
Match whole word only=&Только слово &целиком
Match case=&Учитывать регистр
Regular expression=&Регулярные выражения
Wrap around=&Возвращаться к началу
Transform backslash expressions=Преобразовывать backslash-выра&жения
Search for:=&Шаблон поиска
Replace All=Заменит&ь все
Replace in Selection=В в&ыделенном тексте
Direction=Направление
Reverse direction=В обратном направлении
Up=Вверх
Down=Вниз
Browse=Об&зор
Directory:=&Каталог:
Select a folder to search from=Выберите каталог, с которого начинать поиск
Mark all=&Пометить все
Destination Line:=Линия назначения:
Column:=Колонка:
In Selection=В выделенном
Replace in Buffers=Заменить в буфере
Search only in this style:=Искать только в этом стиле:

# Parameters dialog
Execute=&Выполнить
Set=&Применить

# Other UI strings
Untitled=Безымянный

# Properties used in global options
Text=Текст
All Source=Исходные тексты
All Files (*.*)=Все файлы (*.*)
All Files (*)=Все файлы (*)
Hidden Files (.*)=Скрытые файлы
Show hidden files=Показать скрытые файлы

# Messages
# Messages may contain variables such as file names or search strings indicated
# by ^0 which are replaced by values before display. ^1, ^2, ... may be used in the future.
Can not find the string '^0'.=Текст '^0' не найден.
Find string must not be empty for 'Replace All' command.=Заполните поле 'Что:' для корректной работы команды 'Заменить все'.
Selection must not be empty for 'Replace in Selection' command.=Команда 'Заменить в выделенном тексте' не выполнена: отсутствует выделенный текст.
No replacements because string '^0' was not present.=Никаких замен не произведено, поскольку текст '^0' не найден.
Could not open file '^0'.=Не удается открыть файл '^0'.
Could not save file '^0'.=Не удается сохранить файл '^0'.
Save changes to '^0'?=Сохранить изменения в файле '^0'?
Save changes to (Untitled)?=Сохранить изменения в файле (Безымянный)?
The file '^0' has been modified. Should it be reloaded?=В файл '^0' внесены изменения. Загрузить его заново?
Bad file.=Неправильный файл.
Failed to create dialog box: ^0.=Не удалось создать диалоговое окно: ^0.
Can not start printer document.=Не удалось начать процесс печати.
URI '^0' not understood.=Не удалось разобрать URI '^0'
Invalid directory '^0'.=Несуществующая директория '^0'.
Find string must not be empty for 'Replace in Selection' command.=Команда 'Заменить в выделенном тексте' не выполнена: cтрока поиска пуста.
Could not save file '^0'. Save under a different name?=Не могу сохранить файл '^0'. Сохранить под другим именем?
Block comment variable '^0' is not defined in SciTE *.properties!=Переменная блочного комментария '^0' не определена в SciTE *.properties!
Box comment variables '^0', '^1' and '^2' are not defined in SciTE *.properties!=Переменная линейного комментария '^0' не определена в SciTE *.properties!
Stream comment variables '^0' and '^1' are not defined in SciTE *.properties!=Переменная потокового комментария '^0' не определена в SciTE *.properties!
The file '^0' has been modified outside SciTE. Should it be reloaded?=Файл '^0' модифицирован вне SciTE. Загрузить измененный файл?
File '^0' is ^1 bytes long,\nlarger than the ^2 bytes limit set in the properties.\nDo you still want to open it?=Файл '^0' на ^1 байт\nбольше чем ^2 байтовый предел, установленный в настройках.\nВы все еще хотите открыть его?
Find string must not be empty for 'Replace in Buffers' command.=Строка поиска не должна быть пуста для команды 'Заменить в буфере'

List Macros=Список макросов
Run Current Macro=Выполнить текущий макрос
Record Macro=Записать макрос
Stop Recording Macro=Прекратить запись макроса
# Контекстное меню файлов AU3 (чтобы были русифицированы пункты меню "Сервис" нужно переименовать соответствующие пункты command.name в файле au3.properties, как указано ниже)
SyntaxCheck Build=Проверить и компиллировать, если нет ошибок
SyntaxCheck Go=Проверить и выполнить, если нет ошибок
SyntaxCheck=Проверить синтаксис
SciTe Config=Настройка SciTe (подсветка синтаксиса)
FunctionPopUp=Меню функций PopUp
AU3Info=AU3Info (информация об окнах)
AU3Recorder=Записать макрос (AU3Recorder)
AutoitMacroGenerator=Записать макрос (макро генератор)
Tidy AutoIt Source=Обработать в "Tidy"
CodeWizard=Мастер создания диалогов (CodeWizard)
GuiBuilder=Создать GUI
ExamDiff=Запустить ExamDiff
User CallTip Entries=
Jump to Function=Перейти к функции
List Functions=Список функций
Toggle Override Font=Переключить шрифт
Insert Bookmarked Line(s)=Вставить строку(и) отмеченную закладкой
Debug to MsgBox=Отладка: перменную -> в сообщение
Debug to Console=Отладка: переменную -> в консоль
Debug: Remove Debug lines=Отладка: удалить отладочные строки
Debug: Add Trace Lines=Отладка: добавить трассировочные линии
Debug: Remove Trace lines=Отладка: удалить трассировочные линии
Debug: Comment ALL lines=Отладка: Закомментировать ВСЕ отладочные вставки
Debug: UnComment ALL lines=Отладка: Раскомментировать ВСЕ отладочные вставки
Cleanup Script WhiteSpace=Очистить пробелы в скрипте
[/more]

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

Цитата:

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

На оффоруме:
http://www.autoitscript.com/forum/index.php?showtopic=80201

Прочитял я все о GuiGetMsg, но так и не смог разобратся как оно работает. Если кто-нибудь может выложить пример с использованием GuiGetMsg где меняется значении переменной при нажатие кнопки/выбора из списка я был бы очень рад!

Nikkorot
Один хрен не работает, почему-то скрипт сам себя запускает в бесконечность... Я уже задолбался,никак не могу отловить комп сразу в даун уходит.

у меня работае все
попробуй так как написано, возвращает результат
только вот не пойму, почему все время разный....