mobile2.tcl - информация о мобильных телефонах.

Решение вопросов при работе с TCL скриптами.

Модератор: Модераторы

mobile2.tcl - информация о мобильных телефонах.

Сообщение tvrsh » 16 май 2009 10:34

###
#
# Название: mobile.tcl
# Версия: 2.0
# Автор: tvrsh
# Оффсайт: http://egghelp.ru/
#
###
#
# Описание: Скрипт собирает с сайта http://www.gsmarena.com характеристики мобильных телефонов.
#
###
#
# Установка:
# 1. Скопируйте скрипт mobile.tcl в папку scripts/mobile вашего бота.
# 2. В файле eggdrop.conf впишите строку source scripts/mobile/mobile.tcl
# 3. Сделайте .rehash боту.
#
###
#
# Версион хистори:
#
# 1.0(25.03.2007) Первая паблик версия.
# 1.1(31.03.2007) + Канальный флаг.
# + Обработка страниц через http.tcl
# 2.0(03.08.2010) Скрипт переделан для работу с сайтом http://www.gsmarena.com
#
###


Пример работы:
# Просмотр списка брэндов.
<tvrsh> !mob
<@bionic> List of all GSM brands
<@bionic> Acer (18), Alcatel (154), Amoi (47), Apple (4), Asus (26), AT&T (4), Benefon (9), BenQ (29), BenQ-Siemens (27), Bird (61), BlackBerry (40), Bosch (10), Chea (12), Dell (8),
<@bionic> Ericsson (40), Eten (22), Fujitsu-Siemens (2), Garmin-Asus (5), Gigabyte (27), Haier (51), HP (17), HTC (65), Huawei (30), i-mate (34), i-mobile (37), Innostream (18), iNQ (3), Kyocera (6),
<@bionic> LG (306), Maxon (31), Micromax (36), Microsoft (2), Mitac (12), Mitsubishi (25), Modu (7), Motorola (278), MWg (5), NEC (72), Neonode (3), Nokia (308), O2 (45), Palm (14),
<@bionic> Panasonic (43), Pantech (48), Philips (136), Qtek (21), Sagem (120), Samsung (590), Sendo (19), Sewon (25), Sharp (36), Siemens (94), Sonim (6), Sony (13), Sony-Ericsson (169), T-Mobile (29),
<@bionic> Tel.Me. (7), Telit (30), Thuraya (1), Toshiba (22), Vertu (9), VK-Mobile (31), Vodafone (44), WND (5), XCute (4), ZTE (23)
<@bionic> Для просмотра моделей используйте !mob марка. (677.469мc.)

# Просмотр списка моделей.
<tvrsh> !mob asus
<@bionic> All Asus phones
<@bionic> P835, P565, P552w, P320, M930, P550, P750, P527, Z801, J502, V88i, M530w, P526, J501, P735, Z810, P535, P525, P505, M303, M307, M310, V80, V75, V66, V55
<@bionic> Для просмотра модели используйте: !mob марка модель. (625.396мc.)

# Просмотр конкретной модели.
<tvrsh> !mob asus P835
<@bionic> Asus :: P835
<@bionic> General :: 2G Network: GSM 850 / 900 / 1800 / 1900 3G Network: HSDPA 900 / 1900 / 2100 Announced: 2009, March Status: Available. Released 2009, May
<@bionic> Size :: Dimensions: 115 x 59 x 13.8 mm Weight: 148 g
<@bionic> Display :: Type: TFT resistive touchscreen, 65K colors Size: 480 x 800 pixels, 3.5 inches
<@bionic> Sound :: Alert types: Vibration; Downloadable polyphonic, MP3 ringtones Speakerphone: Yes
<@bionic> Memory :: Phonebook: Practically unlimited entries and fields, Photocall Call records: Practically unlimited Internal: 4GB storage, 288MB RAM, 256MB ROM Card slot: microSD, up to 16GB
<@bionic> Data :: GPRS: Class 12 (4+1/3+2/2+3/1+4 slots), 32 - 48 kbps EDGE: Class 12 3G: HSDPA, 7.2 Mbps, HSUPA 2 Mbps WLAN: Wi-Fi 802.11b/g Bluetooth: Yes, v2.0 with A2DP Infrared port: No USB: Yes, v2.0
<@bionic> Camera :: Primary: 5 MP, 2592x1944 pixels, autofocus Video: Yes Secondary: Yes
<@bionic> Features :: OS: Microsoft Windows Mobile 6.1 Professional Messaging: SMS (threaded view), EMS, MMS, Email Browser: WAP 2.0/xHTML, HTML (IE), RSS reader Radio: No Games: Yes Colors: Black GPS: Yes, with A-GPS support Java: Yes, MIDP 2.0 More function: - Pocket Office (Word, Excel, PowerPoint, OneNote, PDF viewer) - Organizer - MP3/MP4 player
<@bionic> Battery :: Stand-by: Up to 350 h Talk time: Up to 6 h More function: Standard battery, Li-Ion 1100 mAh
<@bionic> Misc :: Price group: About 400 EUR
<@bionic> Related :: Nokia N8, Nokia N97
<@bionic> Pictures :: http://www.gsmarena.com/asus_p835-pictures-2727.php (584.001мc.)


Скрипт должен работать как на сузи так и на обычных ботах.
Приветствуются комментарии и предложения а просто молчаливое скачивание.

Скачать: mobile2.tcl
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: mobile.tcl

Сообщение triton » 18 июл 2010 09:58

ввожу команду !mob asus Asus-P525 -a не дает ответа в пати
Tcl error [mobile_pub]: can't read "nomer": no such variable


а при !mob
[09:57] Tcl error [mobile_pub]: couldn't open socket: connection timed out
triton
 
Сообщения: 40
Зарегистрирован: 07 июн 2010 08:14
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение tvrsh » 05 сен 2010 12:37

Долгожданное возвращение легендарного скрипта.
Смотрим первый пост.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение triton » 06 сен 2010 15:16

спс tvrsh, все работает.
triton
 
Сообщения: 40
Зарегистрирован: 07 июн 2010 08:14
Благодарил (а): 1 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение Baklazhan » 06 сен 2010 20:37

Отлично работает,спс за скрипт
Baklazhan
 
Сообщения: 8
Зарегистрирован: 07 фев 2010 00:56
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение tvrsh » 07 сен 2010 10:59

Чтобы в запросе можно было безболезненно допускать лишние пробелы и не возникало ошибок как эта:
<tvrsh> !mob acer beTouch E130
<@bionic> Модели {} beTouch E130 нет в списке. Уточнике список моделей командой !mob Acer. (0.547мc.)

В процедуре ::mobile::mobile_proc после строки
global mobile lastbind
допишите
regsub -all {\s+} $text " " text

Это уберет все лишние пробелы.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение tvrsh » 10 сен 2010 10:15

Чтобы скрипт показывал похожие по функционалу телефоны, в процедуре ::mobile::mobile_parce после строк
if {[regexp -- {<li id="specs-cp-pics"><a href=(.*?)>Pictures</a></li>} $html - p]} {
      set pics "$mobile(color4)Pictures :: \037\00312http://www.gsmarena.com/$p\037\003"
}
добавьте строки
if {[regexp -- {<li id="specs-cp-related"><a href=(.*?)>Related} $html - p]} {
      set rlink $p
}

После чего, в самом низу этой же процедуры перед строкой
::mobile::mobile_largetext PRIVMSG $chan "$pics \00315([expr ([clock clicks] - $mobile(start))/1000.0]мc.)"
вставьте следующий код
TCL: [ Скачать ] [ Скрыть ]
set mobile(agent) [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)"]
set mobile(url) [::http::geturl "http://www.gsmarena.com/$rlink" -timeout 15000]
set html [::http::data $mobile(url)]
::http::cleanup $mobile(url)

regexp {<div class=\"main-related\">(.*?)<div class=\"makers\">} $html "" data
regsub -all {<div id="
specs-cp-pic">} $data "|" data
foreach line [split $data "
|"] {
    if {[regexp -- {<a title=\"(.*?)\"\ href=\"(.*?)\">} $line -> rphone rlink]} {
        lappend related "
$mobile(color2)$rphone$mobile(color1), "
    }
}
set related "
$mobile(color4)Related :: [string trim [join $related] ", "]"
::mobile::mobile_largetext PRIVMSG $chan "
$related"

Сохраните скрипт и сделайте .rehash боту.

В итоге имеем:
#egghelp @ IrcNet.ru писал(а): <@tvrsh> !mob nokia n900
<+bionic> Nokia :: N900
...
<+bionic> Related :: Nokia N8, Nokia N97
<+bionic> Pictures :: http://www.gsmarena.com/nokia_n900-pictures-2917.php (1232.064мc.)
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение UnInViTeD » 24 сен 2010 04:21

норм скрипт
Изображение
Изображение
Аватара пользователя
UnInViTeD
 
Сообщения: 18
Зарегистрирован: 30 авг 2010 16:57
Откуда: Магнитогорск
Благодарил (а): 4 раз.
Поблагодарили: 0 раз.
Версия бота: Windrop 1.6.21+suzi

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение IuClik » 24 янв 2011 12:58

откуда взять этот TCL?
IuClik
 
Сообщения: 1
Зарегистрирован: 24 янв 2011 12:53
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: mobile2.tcl - информация о мобильных телефонах.

Сообщение tvrsh » 24 янв 2011 13:35

IuClik писал(а):откуда взять этот TCL?

Из первого сообщения темы.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi


Вернуться в TCL скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

cron