Вверх ↑
Этот топик читают: Гость
Ответов: 48
Рейтинг: -1
#1: 2010-10-19 18:33:35 ЛС | профиль | цитата
Вот решил поделиться своей очередной, впринцепе бесполезной программой. У меня провайдер скорость постоянно урезает (Билайн) и надо было мне фильм скачать через торент. Короче тема такая: как только торрент запустиш в течении 2х - 3х минут скорость хорошая, а потом падает. Останавливаеш загрузку и потом снова запускаеш, скорость снова нормальная на 2 - 3 минуты. Дак вот я и сварганил на скорую руку программу которая каждые 2 минуты сама останавливает и снова запускает торрент. Мне очень помогает. Программа проста в эксплуатации и у меня она расчитана на нажатие двух клавиш в программе для загркзки торрентов.
Принцип действия.
Жмете кнопку "Запомнить" и наводите курсор на то место куда ему потом нажимать надо будет. Ждете 10 секунд (должны появиться координаты мыши). И все настройка выполнена, можно нажимать кнопку "Запуск (Х)ых координат" и каждые две минуты ваш курсор будет перемещаться в заданное место и нажимать левую кнопку. У меня программа расчитана на два места для нажатия. Настройка второго места для нажатия производиться аналогично. Интервал нажатия на 1е и 2е место берется по интервалу нажатия на кнопку "Запуск (Х)ых координат".
ВНИМАНИЕ
Эта программа создана на скорую руку и сделана под меня. Прошу не МАТЕРИТЬ сильно

КОД:
Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,301,7)
{
Width=505
Height=305
Position=1
}
Add(MouseEvent,2307371,336,168)
{
Point(doPosition)
link(X,15760931:Value,[(349,138)(342,138)])
link(Y,11028315:Value,[(356,138)(440,138)])
}
Add(Memory,15760931,336,77)
{
Default=String()
}
Add(Memory,11028315,434,77)
{
Default=String(15)
}
Add(DoData,3579000,336,224)
{
link(onEventData,4976944:doText,[(380,230)(380,156)(261,156)(261,83)])
link(Data,2307371:MouseX,[])
}
Add(DoData,5806727,336,266)
{
link(onEventData,2703874:doText,[(380,272)(380,83)])
link(Data,2307371:MouseY,[(342,233)(349,233)])
}
Add(Timer,15852923,238,245)
{
Interval=10000
Enable=1
AutoStop=1
link(onTimer,16252998:doEvent1,[])
}
Add(Button,5645538,189,245)
{
Left=10
Top=60
Width=150
Caption="Запомнить"
link(onClick,15852923:doTimer,[])
}
Add(Hub,16252998,280,245)
{
link(onEvent1,3579000:doData,[(315,251)(315,230)])
link(onEvent2,5806727:doData,[(315,258)(315,272)])
}
Add(Edit,4976944,294,77)
{
Left=10
Top=25
Width=70
Text=""
link(onChange,15760931:doValue,[])
}
Add(Label,16694661,119,42)
{
Left=10
Top=5
Width=74
Height=17
Caption="Координата Х"
}
Add(Edit,2703874,392,77)
{
Left=90
Top=25
Width=70
Text=""
link(onChange,11028315:doValue,[])
}
Add(Label,8506009,119,46)
{
Left=90
Top=5
Width=75
Height=17
Caption="Координата У"
}
Add(Memo,3808010,77,49)
{
Left=170
Top=5
Width=320
Height=75
Enabled=1
Strings=#52:Для того, чтобы программа запомнила координаты мыши,|54:нажмите на кнопку "Запомнить", наведите мыш на элимент|53:на который надо будет нажимать и подождите 10 секунд.|0:|41:P.S. - В полях появятся координаты мыши. |
}
Add(Timer,14125360,182,168)
{
Interval=120000
Enable=1
link(onTimer,9637896:doEvent1,[])
}
Add(Button,2662964,119,168)
{
Left=10
Top=90
Width=480
Height=35
Caption="Запуск 1ых коотдинат"
link(onClick,14125360:doTimer,[])
}
Add(Hub,9637896,231,168)
{
link(onEvent1,2307371:doPosition,[(291,174)(291,188)])
link(onEvent2,2307371:doClick,[(291,181)(291,174)])
}
Add(MouseEvent,1372611,840,168)
{
Point(doPosition)
link(X,10443084:Value,[(853,138)(846,138)])
link(Y,15067501:Value,[(860,138)(944,138)])
}
Add(Memory,10443084,840,77)
{
Default=String()
}
Add(Memory,15067501,938,77)
{
Default=String(15)
}
Add(DoData,2571861,840,224)
{
link(onEventData,13733042:doText,[(884,230)(884,156)(765,156)(765,83)])
link(Data,1372611:MouseX,[])
}
Add(DoData,2329653,840,266)
{
link(onEventData,15561363:doText,[(884,272)(884,83)])
link(Data,1372611:MouseY,[(846,233)(853,233)])
}
Add(Timer,8166455,742,245)
{
Interval=10000
Enable=1
AutoStop=1
link(onTimer,1066405:doEvent1,[])
}
Add(Button,15741299,693,245)
{
Left=10
Top=200
Width=150
Caption="Запомнить"
link(onClick,8166455:doTimer,[])
}
Add(Hub,1066405,784,245)
{
link(onEvent1,2571861:doData,[(819,251)(819,230)])
link(onEvent2,2329653:doData,[(819,258)(819,272)])
}
Add(Edit,13733042,798,77)
{
Left=10
Top=165
Width=70
Text=""
link(onChange,10443084:doValue,[])
}
Add(Label,7252570,623,42)
{
Left=10
Top=145
Width=74
Height=17
Caption="Координата Х"
}
Add(Edit,15561363,896,77)
{
Left=90
Top=165
Width=70
Text=""
link(onChange,15067501:doValue,[])
}
Add(Label,15937395,623,46)
{
Left=90
Top=145
Width=75
Height=17
Caption="Координата У"
}
Add(Memo,1839783,581,49)
{
Left=170
Top=145
Width=320
Height=75
Enabled=1
Strings=#52:Для того, чтобы программа запомнила координаты мыши,|54:нажмите на кнопку "Запомнить", наведите мыш на элимент|53:на который надо будет нажимать и подождите 10 секунд.|0:|41:P.S. - В полях появятся координаты мыши. |
}
Add(Timer,16437457,721,168)
{
Interval=120000
Enable=1
link(onTimer,15524731:doEvent1,[])
}
Add(Button,1744471,672,168)
{
Left=10
Top=230
Width=480
Height=35
Caption="Запуск 2ых коотдинат"
link(onClick,16437457:doTimer,[])
}
Add(Hub,15524731,770,168)
{
link(onEvent1,1372611:doPosition,[(812,174)(812,188)])
link(onEvent2,1372611:doClick,[(812,181)(812,174)])
}
карма: 1

0
Ответов: 1379
Рейтинг: 86
#2: 2010-10-19 18:50:25 ЛС | профиль | цитата
Материть будем хотяб за то что не видишь ссылку над полем ввода
Как скопировать и вставить схему?
------------ Дoбавленo в 18.50:
[offtop]iarspider, я исправил сообщение до того, как ты написал замечание [/offtop]
[flood]зашибись. вообще в баню отправьте и тихо будет [/flood]
карма: 0

0
Ответов: 4641
Рейтинг: 334
#3: 2010-10-19 18:55:10 ЛС | профиль | цитата
Kuzya411 писал(а):
Эта программа создана на скорую руку и сделана под меня. Прошу не МАТЕРИТЬ сильно

На скорую руку не пойдет. Делать нужно с толком и растановкой элементов и со знанием дела. Программа почти бесполезна и не несет в себе почти ни какой схемологической нагрузки.
Элементов мало, а сделана тяп ляп.
Читаем правила раздела!
Перенесено в Между делом!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1376
Рейтинг: 197
#4: 2010-10-19 19:24:07 ЛС | профиль | цитата
Kuzya411, Вы, хоть, для собственного успокоения, повыкидывайте лишние компоненты из схемы...
code_21114.txt
карма: 1

0
файлы: 1code_21114.txt [1.2KB] [103]
Ответов: 16884
Рейтинг: 1239
#5: 2010-10-19 19:28:17 ЛС | профиль | цитата
Kuzya411, "на скорую руку" можно было и так
code_21115.txt
------------ Дoбавленo в 19.28:
foksov, опередил.
Правда я ему Edit-ы и надписи оставил.
Но думаем одинаково.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_21115.txt [1.9KB] [110]
Ответов: 1376
Рейтинг: 197
#6: 2010-10-19 19:31:45 ЛС | профиль | цитата
[flood]Да он, видимо, обиделся на такую встречу и вышел (наверно, на долго)[/flood]
карма: 1

0
Ответов: 1536
Рейтинг: 176
#7: 2010-10-20 11:18:30 ЛС | профиль | цитата
[flood]Ничего не могу понять, я тут из любопытства запустил схему Kuzya411-ого, так у меня "каспер" начал ругаться, мол, троян, указывая на скомпилированный файл данной схемы, "каспер" сам запустил особые средства лечения с принудительной перезагрузкой. Такого у меня не было никогда. Я ещё засомневался и проделал тоже самое, но всё повторилось. [/flood]
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 582
Рейтинг: 3
#8: 2010-10-20 20:48:38 ЛС | профиль | цитата
Kuzya411Участник, у меня то же инет от Билайна, но он у меня скорость постоянно повышает и это ощущается(сейчас 2 мб/с плачу 450)
Локалка (11 Мб/с)
карма: 0

0
Ответов: 48
Рейтинг: -1
#9: 2011-04-04 23:15:22 ЛС | профиль | цитата
Долговато конечно меня здесь не было... это связано с техническими проблемами но сейчяс не об этом...

foksov писал(а):
Да он, видимо, обиделся на такую встречу и вышел (наверно, на долго)

Вовсе нет... я начинающий программист и осваиваю это дело самостоятельно... А такая "встречя" говорит о том, что мне еще придется многому научится...

ser_davkin писал(а):
Ничего не могу понять, я тут из любопытства запустил схему Kuzya411-ого, так у меня "каспер" начал ругаться, мол, троян, указывая на скомпилированный файл данной схемы, "каспер" сам запустил особые средства лечения с принудительной перезагрузкой. Такого у меня не было никогда. Я ещё засомневался и проделал тоже самое, но всё повторилось.)

У меня каспер ругался на любую программу созданную в hiasm я просто удалил его и поставил Avast... он не ругается.

ruzik писал(а):
Kuzya411Участник, у меня то же инет от Билайна, но он у меня скорость постоянно повышает и это ощущается(сейчас 2 мб/с плачу 450)
Локалка (11 Мб/с)

Значит вам повезло и вы не живете в такой же дыре как я... Просто у вас вводят в эксплуатацию сеть 3g а мне об этом только мечтать...
карма: 1

0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)