Наверх
Наверх
Онлайн
техподдержка
 

Вы все еще пользуетесь браузером Internet Explorer 6?

Эта программа для просмотра веб-страниц безнадежно устарела и не соответствует современным стандартам. Мы предлагаем вам скачать и установить другой браузер. Ниже представлены самые популярные.


Mozilla Firefox, Opera, Google Chrome
Уважаемые абоненты! Компанией ТТК внедряется единый федеральный сайт для абонентов
Продолжить общение в форуме вы можете на сайте «settka.online»
Обратиться с вопросами по качеству услуг ТТК вы можете здесь
API на https://stat.baikal-ttk.ru/ Страница 1 из 1
Автор
Сообщение
FrimОтключен 1 Новичок
0
Новое сообщение Дата создания темы: 07-04-2013 17:18
Собственно вопрос, есть ли там парочка API. Имхо задолбало лазить на сайт и смотреть баланс. Сделал себе прогу, теперь висит и обновляется, вообщем ничего страшного, но хочется все это делать без всяких прог и прочего. К примеру воткнуть API в гаджет для win7, dibian и другое.
з.ы. Для тех кто не понимает о чем речь и зачем вообще нужны API-функции, могут идти дальше.
Автор
Сообщение
xProtosx 9 Воротила Shock And Awe Техническая поддержка ТТК
0
Новое сообщение Добавлено: 07-04-2013 18:21
ММм а сейчас как работает прога? парсите страницу? :cc:
Автор
Сообщение
FrimОтключен 1 Новичок
0
Новое сообщение Добавлено: 07-04-2013 18:34
xProtosx писал(а):
ММм а сейчас как работает прога? парсите страницу? :cc:
да делаем функцию и тупо парсим, висит в трее, как только мышью наводишь, показывает попловком скока денег и какой тариф Оо

Добавлено спустя 1 минуту 22 секунды:

был бы счастлив пошарица на веб-серваке ттк, но думаю без трудоустройства меня туда не пустят законно :-)
Автор
Сообщение
xProtosx 9 Воротила Shock And Awe Техническая поддержка ТТК
0
Новое сообщение Добавлено: 07-04-2013 19:35
В принципе в биллитнге есть SOAP модуль, который могет отправлять xml модуль, но когда его настроять я хз) есть то есть, а вот прикрутят когда еще....
А не могеш исходничек проги кинуть, я бы по дсебя поправил, джа скомпилил, ибо нужна пипец как)
Автор
Сообщение
FrimОтключен 1 Новичок
0
Новое сообщение Добавлено: 07-04-2013 19:54
исходников нету, увы)
Прогу то сделать раз плюнуть. таже делпфи, рубим форму, кидаем окно браузера, get-запросом конектимся и парсим че выдало, форму тупо скрываем и пихаем все в трей, ну а попловок это тотже компонент. И по таймеру обновляем.
з.ы. это если по тупому и на размер проги ну вообще срать и скока она будет жрать. в С++ также, что борлондовской, что в MSDN.
з.ы.2 мне тута подсказали, что все это чудо на асм`е будет весить килабайт 50 отсилы :-)

Добавлено спустя 3 минуты 2 секунды:

в MSDN тока с формой заморочек небудет, убиваем ее сразу из кода
Автор
Сообщение
xProtosx 9 Воротила Shock And Awe Техническая поддержка ТТК
0
Новое сообщение Добавлено: 07-04-2013 20:08
ладно придется опять дельфу устанавливать и синтаксис вспоминать) :cm:
Автор
Сообщение
FrimОтключен 1 Новичок
+1
Новое сообщение Добавлено: 01-09-2013 18:53
Воскрешу тему, для кого все же будет интересно, вот код.
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.
Автор
Сообщение
sup38 2 Дилетант
0
Новое сообщение Добавлено: 02-09-2013 08:56
:D, спасибо за код, буду ковырять, под себя делать ;)
Автор
Сообщение
xProtosx 9 Воротила Shock And Awe Техническая поддержка ТТК
0
Новое сообщение Добавлено: 02-09-2013 10:07
Судя по юсес требуется компонент дополнительный, подкинь ссылку на него. Кстати в какой среде компилировал? :cc:
Автор
Сообщение
FrimОтключен 1 Новичок
0
Новое сообщение Добавлено: 02-09-2013 20:55
xProtosx писал(а):
Судя по юсес требуется компонент дополнительный, подкинь ссылку на него. Кстати в какой среде компилировал? :cc:
Embarcadero RAD Studio XE

Добавлено спустя 6 минут 58 секунд:

xProtosx писал(а):
Судя по юсес требуется компонент дополнительный, подкинь ссылку на него. Кстати в какой среде компилировал? :cc:
не там зришь в корень, в юзезах прописываются библиотеки подключаемые(ака .dll).
вот что тебе нужно
IdHTTP
IdSSLIOHandlerSocketOpenSSL
TrayIcon
Timer
PopupMenu
з.ы. мне было так влом делать конфиг в .ini и подрубать его...., можешь заняца этим)
з.ы. хотя...
Автор
Сообщение
ganset 0 Зарегистрированный
0
Новое сообщение Добавлено: 07-11-2016 01:45
время идет, прогресс не стоит на месте. Новый ЛК ребята. Попытки юзать rest-api, ангуляр(10% его мощи), java на бекенде... молодцы! Только вот без печеньки в ЛК по-прежнему не подолбиться. Ну ничего, нормальные люди сидят на пингвине и порой юзать wine, уже подташнивает. Выложу ка я сюда то что было сделано на коленке.
з.ы. Если же вы его смогли запустить, думаю вы очень ленивы, раз не написали себе что-то подобное.
Спойлер:нуждающимся да поможет этот парсер баланса в ЛК

запускам и наслаждаемся сообщениями в трее о вашем балансе, раз в минуту идет обновление, если что-то поменялось, выскочить мессендж.
вам понадобится 2 библиотеки это grab и pyQt5

з.ы. мольбы были услышаны, но не до конца... rest-api таки появился, но вот начальная аутентификация должна как бы выдавать нам id-сессии, но ее нету....
Страница 1 из 1
Перейти в другой форум: