Вверх ↑
Этот топик читают: Гость
Ответов: 3349
Рейтинг: 233
#16: 2010-02-20 11:27:01 ЛС | профиль | цитата
nesco, я щас этим занимаюсь.
Дело в том что строки меняются, и из новых не сравнить.
Наверно придется как в HiAgente делать.
------------ Дoбавленo в 11.40:
Люди а вы не заметили что при прочтение темы в заголовке погода написано?
------------ Дoбавленo в 11.45:
Quest, твой логин мой пороль не берет.
------------ Дoбавленo в 12.36:
nesco, что я не так делаю.
почему он не считает новые сообщения?
#pas
Add(MainForm,2953706,-7,119)
{
link(onCreate,12455998:doWork2,[])
}
Add(BlockFind,12040668,455,143)
{
IncludeBlock=1
StartBlock="set text f_main_body "
EndBlock=" "
link(onSearch,13016629:doValue,[])
link(Text,5332742:Var1,[(461,131)(440,131)])
}
Add(HTTP_Get,4383465,189,133)
{
URL="http://hiasm.com/forum_serv.php?q=1"
Length=6
link(onDownload,16033274:doConvert,[(229,146)(229,149)])
}
Add(Convertor,16033274,238,143)
{
Mode=11
link(onResult,11266673:doCharset,[])
}
Add(Charset,11266673,289,143)
{
Type=7
link(onCharset,14363852:doEvent1,[])
}
Add(Memo,16040630,735,266)
{
Left=28
Top=36
Width=307
Height=196
ScrollBars=3
}
Add(Memory,13016629,511,143)
{
}
Add(Memory,5102729,707,143)
{
}
Add(Timer,13434402,21,70)
{
Interval=120000
link(onTimer,12455998:doWork1,[(60,76)])
}
Add(HubEx,12455998,56,133)
{
link(onEvent,3025292:doEvent1,[])
}
Add(Hub,3025292,91,133)
{
link(onEvent1,4383465:doDownload,[])
}
Add(Memory,1198308,574,206)
{
}
Add(BlockFind,9904633,448,206)
{
IncludeBlock=1
StartBlock="set text f_main_body "
EndBlock=" "
link(onSearch,1198308:doValue,[])
link(Text,5332742:Var3,[(454,194)])
}
Add(Switch,15621622,357,143)
{
Point(onOn)
Point(onOff)
link(onOn,12040668:doSearch,[(422,156)(422,149)])
link(onOff,13662017:doEvent1,[(419,163)(419,212)])
}
Add(Memory,4313803,357,192)
{
}
Add(Hub,14363852,329,143)
{
link(onEvent1,15621622:doSwitch,[])
link(onEvent2,4313803:doValue,[(348,156)(348,198)])
}
Add(GetDataEx,5332742,434,189)
{
Angle=3
link(Data,4313803:Value,[(408,194)(408,236)(363,236)])
}
Add(Math,10391244,553,266)
{
OpType=1
link(onResult,16040630:doAdd,[])
link(Op1,1198308:Value,[(559,252)(580,252)])
link(Op2,13016629:Value,[(566,220)(517,220)])
}
Add(Hub,13662017,420,206)
{
link(onEvent1,9904633:doSearch,[])
link(onEvent2,10391244:doOperation,[(442,219)(442,272)])
}

карма: 1

0
Ответов: 294
Рейтинг: 64
#17: 2010-02-20 12:40:17 ЛС | профиль | цитата
nesco писал(а):
Quest, твоя схема, тоже не брала мой пароль

Ivann писал(а):
Quest, твой логин мой пороль не берет


Каюсь...
Совсем забыл про "Content-Length" он у меня был закреплен не зависимо от реальной длины.
Выкладываю исправленное с использованием Post.
(Если логин и/или пароль на русском - возможно придется поставить Charset в режиме ANSI>UTF-8 перед Post)


Add(MainForm,2953706,91,231)
{
Width=759
Height=563
}
Add(HTTP_PostBuilder,8970883,252,287)
{
URL="http://hiasm.com/forum_serv.php?q=28"
Host="hiasm.com"
Referer="http://hiasm.com/forum.html"
link(onBuild,12744577:doEvent1,[])
}
Add(Button,8949885,140,287)
{
Left=5
Top=5
link(onClick,1312583:doString,[])
}
Add(FormatStr,1312583,182,287)
{
Mask="login=%1&pass=%2"
Point(FString)
link(onFString,8970883:doBuild,[])
link(Str1,14273763:Text,[(188,276)(160,276)])
link(Str2,8872822:Text,[(195,275)(209,275)])
}
Add(Edit,14273763,154,231)
{
Left=5
Top=35
Width=115
Text="Login"
}
Add(Edit,8872822,203,231)
{
Left=5
Top=60
Width=115
Text="Pass"
}
Add(TCP_Client,12686986,329,287)
{
Port=80
IP="93.81.240.87"
link(onRead,5980595:doSearch,[])
}
Add(Hub,12744577,294,287)
{
link(onEvent1,12686986:doOpen,[])
link(onEvent2,12686986:doSend,[(322,300)(322,307)])
}
Add(BlockFind,5980595,371,287)
{
IncludeBlock=1
StartBlock="Set-Cookie: "
EndBlock="; expires"
link(onSearch,10456510:doString,[])
}
Add(FormatStr,10456510,420,287)
{
DataCount=1
Mask="GET http://hiasm.com/forum_serv.php?q=14 HTTP/1.0
Accept: */*
Accept-Language: ru
Referer: http://hiasm.com/forum.html
UA-CPU: x86
Cookie: %1
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; MyIE2; UA10600; UQKCAJMKIR; UA00000; UQVTKQUGRP; MRA 5.2 (build 02405); Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)
Host: hiasm.com
Proxy-Connection: Keep-Alive

"
link(onFString,13541835:doEvent1,[])
}
Add(Hub,13541835,462,287)
{
link(onEvent1,2102754:doOpen,[])
link(onEvent2,2102754:doSend,[(486,300)(486,307)])
}
Add(TCP_Client,2102754,497,287)
{
Port=80
IP="93.81.240.87"
link(onRead,6374731:doCharset,[])
}
Add(RichEdit,3933987,595,287)
{
Left=135
Top=5
Width=610
Height=515
ScrollBars=3
}
Add(Charset,6374731,546,287)
{
Type=7
link(onCharset,3933987:doAdd,[])
}


карма: 0

0
Ответов: 3349
Рейтинг: 233
#18: 2010-02-20 12:45:11 ЛС | профиль | цитата
ну теперь работает.
Только мне и мой вариант подойдет.
------------ Дoбавленo в 12.45:
Quest, можно было и проще сделать.
карма: 1

0
Ответов: 294
Рейтинг: 64
#19: 2010-02-20 13:52:40 ЛС | профиль | цитата
Ivann писал(а):
Только мне и мой вариант подойдет

Ну так я же и не настаиваю - просто как вариант (тем более его можно использовать через прокси)

Ivann писал(а):
Quest, можно было и проще сделать

Ты про мой вариант? Покажешь как?
карма: 0

0
Ответов: 3349
Рейтинг: 233
#20: 2010-02-20 14:13:01 ЛС | профиль | цитата
code_17005.txt
Вот так
карма: 1

0
файлы: 1code_17005.txt [1.3KB] [135]
Ответов: 294
Рейтинг: 64
#21: 2010-02-20 14:21:03 ЛС | профиль | цитата
Quest писал(а):
Ты про мой вариант? Покажешь как?

Ivann писал(а):
Вот так

Мы на разных языках наверное говорим))) С моим вариантом это не имеет ничего общего (да и не работает у меня). А по кол-ву элементов - одинаково.
ЗЫ. Все, флудить заканчиваю.
карма: 0

0
Ответов: 3349
Рейтинг: 233
#22: 2010-02-20 14:35:08 ЛС | профиль | цитата
[flood]Я тебя не понимать[/flood]
карма: 1

0
Ответов: 3349
Рейтинг: 233
#23: 2010-02-23 12:03:02 ЛС | профиль | цитата
мой тоже можно тоже через прокси
------------ Дoбавленo в 17.56:
HiForumAgent вот держите. обновил и доделал.
Теперь при запуске программы вылазит авторизация, только пройдя её можно пользоваться дальше.
В заголовке окна отображаются количесво новых сообщений вот так <HiForumAgent> ; 2
Сохранение пароля и логина.
Новый интерфейс, добавлен логотип программы.
Просмотр темы на форуме двойным нажатие на тему.
для выхода надо нажать дверь, тем самым предотвращая вход без логина.
topic view(alpha) позволяет просматривать последние сообщения.
[burl=http://ivan.moy.su/HFA.sha]Скачать[/burl]

карма: 1

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#24: 2010-02-27 11:06:28 ЛС | профиль | цитата
Я тоже сделал альтернативную версию. Может, кому пригодится. Но логин и пароль не стал сохранять, специально. Версию Ivann-а я не видел и делал независимо

http://www.hiasm.com/sha/shatools.php?q=5&id=185
карма: 22

1
Голосовали:Ivann
Ответов: 16884
Рейтинг: 1239
#25: 2010-02-27 22:29:40 ЛС | профиль | цитата
nesco, пинговать нужно. Сегодня, когда форум не работал, так заклинил комп - ели закрыл прогу.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#26: 2010-02-27 22:32:50 ЛС | профиль | цитата
Tad писал(а):
пинговать нужно

Да нужно, я в курсе. Сделаю обязательно, у меня тоже подвисло. Это, пока, альфа версия для проверки тестовой работоспособности самого алгоритма
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#27: 2010-02-27 22:40:32 ЛС | профиль | цитата
"Учись" у Ivann - Из новых только этот топик, но зато в шести экземплярах Во как !!!
И, наверное ему за размер платят - 1.6 мега -это вам не ............ (дальше непечатаемое выражение)


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3349
Рейтинг: 233
#28: 2010-02-28 08:09:00 ЛС | профиль | цитата
что 1.6 мегабайт?
И что в 6 экземпляров?
карма: 1

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#29: 2010-02-28 09:17:55 ЛС | профиль | цитата
Ivann писал(а):
что 1.6 мегабайт?

Сам же писал
Ivann писал(а):
весит 1.7 мб.


Не в обиду, конечно, но у тебя я заметил интересную особенность -- прикидываться шлангом в неудобной для тебя ситуации
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#30: 2010-02-28 09:22:00 ЛС | профиль | цитата
Ivann писал(а):
что 1.6 мегабайт?
размер sha - файла - 1 700 975
Ivann писал(а):
И что в 6 экземпляров?
смотри прицеп
------------ Дoбавленo в 09.52:
а вот это вообще шедевр схемного решения


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 2fai.png [13.6KB] [172], sh.png [3.2KB] [310]
Голосовали:Genius
Сообщение
...
Прикрепленные файлы
(файлы не залиты)