Автоматическое продление пенты у БВК

[g0ga]

Паскакаль рулит Зачот, коллега Avton 8)

[Nik]

Ошибка #10061....

[Avton]

Ошибка #10061....

Разбираюсь...
Возможно почта не открыта через NAT или порт 25й не открыт...
А баланс показывает? Почтовые программы работают?
В интернете пишут:

Connection to server failed: Socket Error # 10060
Connection to server failed: Socket Error # 10061
Connection refused.
(Невозможно установить соединение с сервером: Socket Error # 10060, 10061)
Не удается установить соединение с сервером обновлений. Пожалуйста, отключите все используемые антивирусы и файерволы и попробуйте снова. Если ошибка появится вновь, убедитесь, что файервол не используется провайдером вашего интернет-соединения

[maxirk]

Avton
, респект. Поставил на автозагрузку при включении компа на работе

[ChuZhe]

Avton, Goga, красавцы! Спасибо за результат! Сразу видно увлеченных и компетентных людей!

Avton, первая версия проги не заработала. Пишет Incorrect autentification data

Вторая - успешно определила баланс, но остаток Пенты показала 300 минут, хотя у меня там 390 минут. Возможно, она определяет остаток "последнего" в очереди пакета?

[Avton]

Avton, Goga, красавцы! Спасибо за результат! Сразу видно увлеченных и компетентных людей!

Avton, первая версия проги не заработала. Пишет Incorrect autentification data

Вторая - успешно определила баланс, но остаток Пенты показала 300 минут, хотя у меня там 390 минут. Возможно, она определяет остаток "последнего" в очереди пакета?

Да, последнего в очереди. Так подумалось, что этого будет достаточно, чтобы учитывать окончание минут пенты вообще. Но в принципе можно и суммировать.

[Petro]

Тоже доделал автодобавление пенты.
v 1.2.7z

плюс исходные коды, кому надо и кто сомневается в честности
v 1.2 source.7z

p.s. как гриттца, делаем подарки в день рожденья бвк

Вот спасибо, молодцы вы с g0ga!

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

g0ga, продавай идею БВК )))) может реализуют, или открывай веб-сервис по 5р ежемесячно с человека за услуги автоматического продления любых услуг у сотовых операторов. Ты, сразу видно - генератор идей. помнится, в далеком 2003 году ты помог мне разлочить мой тел Philips savvy) своими шаманскими методами ))

[g0ga]

ChuZhe, Petro - спасибо на добром слове (Petro, историю с савви я помню - один из моих первых успешных разлоков). Кстати, у меня тоже есть новая версия скрипта - теперь, если пента на проверяемом номере уменьшилась меньше заданного предела, посылает СМС один раз, а при следующей проверке этого же номера с этими же параметрами отправляет СМС только тогда, когда пента уменьшилась еще, то есть если она не изменилась - СМС не отправляет. А то оказалось, что при регулярной проверке можно задолбать человека СМСками, если у него нет возможности сразу продлить пенту Реализовано тупо - кладет по тому же пути, что и логфайл, отдельные файлики для каждого номера, для которого производится проверка, и с их помощью учитывает изменение пенты меньше заданного предела.
Кому интересно - брать тут: http://irk.nu/penta.rar

[Petro]

Ошибка #10061....

Разбираюсь...
Возможно почта не открыта через NAT или порт 25й не открыт...
А баланс показывает? Почтовые программы работают?
В интернете пишут:

Connection to server failed: Socket Error # 10060
Connection to server failed: Socket Error # 10061
Connection refused.
(Невозможно установить соединение с сервером: Socket Error # 10060, 10061)
Не удается установить соединение с сервером обновлений. Пожалуйста, отключите все используемые антивирусы и файерволы и попробуйте снова. Если ошибка появится вновь, убедитесь, что файервол не используется провайдером вашего интернет-соединения

ошибка эта возникает не при отправке почты, а при соединении через проксю

здесь

if checkbox1.Checked then //если стоит галочка прокси сервер
begin
with idhttp1.ProxyParams do
begin
ProxyServer:=proxyname.Text;
ProxyPort:=StrToInt(pproxyport.Text);
ProxyUsername:=edit3.Text;
ProxyPassword:=edit4.Text;
idhttp1.Request.CacheControl:= 'no-cache';
end;
end;

idhttp1.Connect();
otvet.Text:=idhttp1.post(issaurl,date); //коннектимся

еще у тебя стоит фильтр: в поле "Логин прокси" можно ввести только цифири. А требуются еще и буковины

[Avton]

ошибка эта возникает не при отправке почты, а при соединении через проксю

еще у тебя стоит фильтр: в поле "Логин прокси" можно ввести только цифири. А требуются еще и буковины

С прокси еще не разобрался :-?
Логин прокси, пофиксил. Плюс смски отправляются на латинице, а то на некоторые телефоны приходят разбитыми на две.

v 1.2 Fix.7z

v 1.2 Fix Source.7z