ТТК-Байкал / Список форумов / Программное обеспечение / Остальное / API на https://stat.baikal-ttk.ru/
Обратиться с вопросами по качеству услуг ТТК вы можете здесь
API на https://stat.baikal-ttk.ru/ Страница 1 из 1
Автор |
Сообщение |
0
Собственно вопрос, есть ли там парочка API. Имхо задолбало лазить на сайт и смотреть баланс. Сделал себе прогу, теперь висит и обновляется, вообщем ничего страшного, но хочется все это делать без всяких прог и прочего. К примеру воткнуть API в гаджет для win7, dibian и другое.
з.ы. Для тех кто не понимает о чем речь и зачем вообще нужны API-функции, могут идти дальше. |
|
Автор |
Сообщение |
0
ММм а сейчас как работает прога? парсите страницу?
![]() |
|
Автор |
Сообщение |
0
xProtosx писал(а): ММм а сейчас как работает прога? парсите страницу? да делаем функцию и тупо парсим, висит в трее, как только мышью наводишь, показывает попловком скока денег и какой тариф Оо
![]() Добавлено спустя 1 минуту 22 секунды: был бы счастлив пошарица на веб-серваке ттк, но думаю без трудоустройства меня туда не пустят законно ![]() |
|
Автор |
Сообщение |
0
В принципе в биллитнге есть SOAP модуль, который могет отправлять xml модуль, но когда его настроять я хз) есть то есть, а вот прикрутят когда еще....
А не могеш исходничек проги кинуть, я бы по дсебя поправил, джа скомпилил, ибо нужна пипец как) |
|
Автор |
Сообщение |
0
исходников нету, увы)
Прогу то сделать раз плюнуть. таже делпфи, рубим форму, кидаем окно браузера, get-запросом конектимся и парсим че выдало, форму тупо скрываем и пихаем все в трей, ну а попловок это тотже компонент. И по таймеру обновляем. з.ы. это если по тупому и на размер проги ну вообще срать и скока она будет жрать. в С++ также, что борлондовской, что в MSDN. з.ы.2 мне тута подсказали, что все это чудо на асм`е будет весить килабайт 50 отсилы ![]() Добавлено спустя 3 минуты 2 секунды: в MSDN тока с формой заморочек небудет, убиваем ее сразу из кода |
|
Автор |
Сообщение |
0
ладно придется опять дельфу устанавливать и синтаксис вспоминать)
![]() |
|
Автор |
Сообщение |
+1
Воскрешу тему, для кого все же будет интересно, вот код.
Delphi unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, MSHTML, ComObj, ActiveX, IdServerIOHandler, ExtCtrls, Menus; type TForm1 = class(TForm) IdHTTP1: TIdHTTP; IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; TrayIcon1: TTrayIcon; Timer1: TTimer; PopupMenu1: TPopupMenu; N1: TMenuItem; procedure TrayIcon1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function HTMLToText(HTML: string): string; var Doc: IHTMLDocument2; vArr: Variant; begin Doc:=CreateComObject(Class_HTMLDOcument) as IHTMLDocument2; vArr:=VarArrayCreate([0, 0], VarVariant); vArr[0]:=HTML; Doc.Write(PSafeArray(System.TVarData(vArr).VArray)); Result:=Doc.body.innerText; end; procedure pusk; var IdHTTPs1 : TIdHTTP; htmlDoc: IHtmlDocument2; t1,t2,text,t3:WideString; n,n2:integer; url,login,pass:string; begin Application.ShowMainForm:=false; login:='№№№№'; pass:=№№№№'; IdHTTPs1:=TIdHTTP.Create; url:='https://stat.baikal-ttk.ru/login?login_remotel38b4m='+login+'&password_remotem38b4m='+pass+'&action.remote_login.2fbysl=true'; t1:=htmltotext(form1.idhttp1.get(url)); text:='Итого'; n:=pos(text,t1); text:='Услуги МГ и МН'; n2:=pos(text,t1); t2:=copy(t1,n,n2-n); t3:=copy(t2,20,20); t2:=copy(t2,0,19); //t := WebBrowser1.document as IHtmlDocument2; form1.TrayIcon1.BalloonHint:=t2+#13#10+' '+t3; //memo1.Lines.Add(inttostr(n)+' '+inttostr(n2)+ t2); form1.TrayIcon1.Hint:=t2; form1.TrayIcon1.ShowBalloonHint; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.ShowMainForm:=false; pusk; end; procedure TForm1.N1Click(Sender: TObject); begin Close; end; procedure TForm1.Timer1Timer(Sender: TObject); begin pusk; end; procedure TForm1.TrayIcon1Click(Sender: TObject); begin TrayIcon1.ShowBalloonHint; end; end. |
|
Автор |
Сообщение |
Автор |
Сообщение |
0
Судя по юсес требуется компонент дополнительный, подкинь ссылку на него. Кстати в какой среде компилировал?
![]() |
|
Автор |
Сообщение |
0
xProtosx писал(а): Судя по юсес требуется компонент дополнительный, подкинь ссылку на него. Кстати в какой среде компилировал? Embarcadero RAD Studio XE
![]() Добавлено спустя 6 минут 58 секунд: xProtosx писал(а): Судя по юсес требуется компонент дополнительный, подкинь ссылку на него. Кстати в какой среде компилировал? не там зришь в корень, в юзезах прописываются библиотеки подключаемые(ака .dll).![]() вот что тебе нужно IdHTTP IdSSLIOHandlerSocketOpenSSL TrayIcon Timer PopupMenu з.ы. мне было так влом делать конфиг в .ini и подрубать его...., можешь заняца этим) з.ы. хотя... |
|
Автор |
Сообщение |
0
время идет, прогресс не стоит на месте. Новый ЛК ребята. Попытки юзать rest-api, ангуляр(10% его мощи), java на бекенде... молодцы! Только вот без печеньки в ЛК по-прежнему не подолбиться. Ну ничего, нормальные люди сидят на пингвине и порой юзать wine, уже подташнивает. Выложу ка я сюда то что было сделано на коленке.
з.ы. Если же вы его смогли запустить, думаю вы очень ленивы, раз не написали себе что-то подобное. Спойлер:нуждающимся да поможет этот парсер баланса в ЛК запускам и наслаждаемся сообщениями в трее о вашем балансе, раз в минуту идет обновление, если что-то поменялось, выскочить мессендж. вам понадобится 2 библиотеки это grab и pyQt5 з.ы. мольбы были услышаны, но не до конца... rest-api таки появился, но вот начальная аутентификация должна как бы выдавать нам id-сессии, но ее нету.... |
Страница 1 из 1