[Файл] Ускоряем рутину

[qwert-yg]

Цитата: Сообщение от sidsid12 Меня на этот сайт кидает [Ссылки могут видеть только зарегистрированные пользователи. ]....

выбери не тот сервер на котором акк зареган! И для гарены регай новый акк! так же можешь в скайп, я помогу с регой.

Добавлено через 2 минуты
возможно из-за последних обновлений. ждите исправлений

[32влад32]

я протестил на ру1.работает)))но есть маленькая проблема у меня вместо разных слов стоят"?????" вопросы)))винда 7)если кто знает как с этим боротся помогите)

[sidsid12]

Получилось спс!!!

[ViPeR-SeD]

Спасибо!Сам играю на гарене-очень помогает.Обрадовал быстрый отстрой скайлеба

[userinit.exe]

на ру1 ошибка скрипта...

[qwert-yg]

Цитата: Сообщение от userinit.exe на ру1 ошибка скрипта...

ОС?

Добавлено через 1 час 0 минут
Обновил, исправил немного багов

[obiw]

Начинающий программист) в свойстве веб браузера измени свойство silent в true а то выдает ошибку скипта) заблокируй начальное окно чтобы не возможно было изменить размер для возможности входа используй заполнение страничек:

procedure TForm1.zapolnenie(brauser:TWebBrowser;namex,value: string);
//процедура заполнения формы где brauser-браузер,namex - название поля для заполнения,
var form : olevariant;
f,i :Integer;
begin
for f: =0 to brauser.OleObject.Document.forms.Length-1 do
begin
form: =brauser.OleObject.Document.forms.Item(f).elements ;
for i: =0 to form.Length-1 do
if form.item(i).name=namex then
form.item(i).value:= value;

end;
end;

а так продолжай в том же направлении!

[qwert-yg]

Цитата: Сообщение от obiw Начинающий программист) в свойстве веб браузера измени свойство silent в true а то выдает ошибку скипта) заблокируй начальное окно чтобы не возможно было изменить размер для возможности входа используй заполнение страничек: procedure TForm1.zapolnenie(brauser:TWebBrowser;namex,value: string); //процедура заполнения формы где brauser-браузер,namex - название поля для заполнения, var form : olevariant; f,i :Integer; begin for f: =0 to brauser.OleObject.Document.forms.Length-1 do begin form: =brauser.OleObject.Document.forms.Item(f).elements ; for i: =0 to form.Length-1 do if form.item(i).name=namex then form.item(i).value:= value; end; end; а так продолжай в том же направлении!

А почему у меня все нормально то?

[-=MonstR=-]

Да на гарене действительно долго грузится но прогай серовно пользоватся не буду инет быстрый а так спасибо

[gnusmas940]

Автору спс. Прога супер. Все работает.
Замечательно было бы сделать: (просто пожелание)
1. Сохранения логина и пароля, выбор из списка нужного акка.
2. Кнопочку для перехода на акк в браузере.

[qwert-yg]

Цитата: Сообщение от gnusmas940 Автору спс. Прога супер. Все работает. Замечательно было бы сделать: (просто пожелание) 1. Сохранения логина и пароля, выбор из списка нужного акка. 2. Кнопочку для перехода на акк в браузере.

учту пожелания

Добавлено через 12 часов 22 минуты

Цитата: Сообщение от FesterGad2 Ошибка! Сервер америка 3 (int12)

а какая ошибка?

[LoWFeaR]

я тебе в скайп кинул авторизацию прими есть вопросы по скрипту. Прога супер автор молодец пробовал на гарене надеюсь на улучшение и добавление автору спасибка.

[userinit.exe]

Цитата: Сообщение от qwert-yg Обновил, исправил немного багов

вот теперь пашет

[FesterGad2]

Ну что, когда выйдет обновленная версия? Все уже ждут ))

[qwert-yg]

Всем привет) у меня отъехал комп, пишу с ноута. Как починю выложи новую версию. (БП сгорел) Прошу понять и не обижаться.