Есть авторы крутых прог?

← →
Роман (2004-11-02 21:11) [0]

Прив, кодера!
Есть авторы крутых программ?
Я организовываю портал по рекламе в программах, прога нужна фриварная, в нее ставиться баннер, рекламодатели платят за показы, движок уже есть, нужны стоящие программы.
Предложения шлите на мыло или на асю (лучше на асю)
RomichZ@mail.ru/296610383
http://forum.vingrad.ru/index.php?showforum=6

← →
ИМХО © (2004-11-02 21:14) [1]

есть тут автор двух крутых прог (Автошемы и Универсального Конвектора Форматов)

← →
Юрий Зотов © (2004-11-02 21:16) [2]

Гм... конечно, это личное дело каждого, но если программа действительно стоящая, так, может, лучше сделать ее не фриварной, а хотя бы шароварной? И получать за нее, а не копейки за показ баннеров (который, к тому же, уже всем надоел и только отпугнет от программы ее потенциальных юзеров)?

← →
Луарвик (2004-11-02 21:23) [3]

Точно

← →
Игорь Шевченко © (2004-11-02 21:27) [4]

> Я организовываю портал по рекламе в программах, прога нужна
> фриварная, в нее ставиться баннер, рекламодатели платят
> за показы, движок уже есть, нужны стоящие программы.

Эт все интересно, а сколько от такого мероприятия получает автор программы ?

← →
ИМХО © (2004-11-02 21:29) [5]

фриварщики ничего не получают, кроме горы восторженных и наполненных любви (благодарности) писем

← →
Mihey_temporary © (2004-11-02 22:01) [6]

> фриварщики ничего не получают, кроме горы восторженных и
> наполненных любви (благодарности) писем

О разве это не истиная плата?

← →
ИМХО © (2004-11-02 22:04) [7]

друзья познаются в беде

как только он сделает прогу шароварной, посыпятся проклятия

← →
Гарри Поттер © (2004-11-03 00:22) [8]

>>в нее ставиться баннер, рекламодатели платят за показы,

Мертвая тема. Хотя.. если удасться вставить баннер в Windows, может че и заработаешь. Поговори с Б.Г.

← →
syte_ser78 © (2004-11-03 11:22) [9]

Сто раз слышал о Автошеме. Может кто на мыло сбросит?
Я серьезно

← →
вразлет © (2004-11-03 11:25) [10]

syte_ser78 ©

Ишь чего захотел, Автошема денег стоит, и немалых

← →
ИМХО © (2004-11-03 11:25) [11]

ага, разбежался

такое чудо-творение - только за убитых енотов!

← →
syte_ser78 © (2004-11-03 11:26) [12]

ну хоть демку.

← →
ИМХО © (2004-11-03 11:26) [13]

вразлет :)

← →
Vovchik_A © (2004-11-03 11:27) [14]

Это сладкое слово "халява"...

← →
вразлет © (2004-11-03 11:29) [15]

[12] syte_ser78 © (03.11.04 11:26)
ну хоть демку.

Ну, если Дмитрий Олегович разрешит...

← →
Slider007 © (2004-11-03 11:31) [16]

вразлет © (03.11.04 11:25) [10]

> Ишь чего захотел, Автошема денег стоит, и немалых

чего она хоть делает-то ? просветите пожалуйста.

← →
syte_ser78 © (2004-11-03 11:33) [17]

Ну хоть скриншоты то можно посмотреть? Хоть чернобелые и в низком разрешении? Даже на псевдографику согласен

← →
вразлет © (2004-11-03 11:37) [18]

[17] syte_ser78 © (03.11.04 11:33)
Ну хоть скриншоты то можно посмотреть? Хоть чернобелые и в низком разрешении? Даже на псевдографику согласен

Ты это полегче, с "псевдографикой"

← →
DVM © (2004-11-03 11:39) [19]

> чего она хоть делает-то ? просветите пожалуйста.

Эта программа в недалеком будущем затмит MS VISIO.

← →
ИМХО © (2004-11-03 11:41) [20]

и это будущее - не за горами

← →
вразлет © (2004-11-03 11:42) [21]

[16] Slider007 © (03.11.04 11:31)
вразлет © (03.11.04 11:25) [10]

> Ишь чего захотел, Автошема денег стоит, и немалых

чего она хоть делает-то ? просветите пожалуйста.

Да практически все. Да вот беда, больно сложная она, из всего инстументария я пока освоил лишь конвектор графических файлов (новое слово в архивировании данных на основе законов термодинамики)

← →
syte_ser78 © (2004-11-03 11:43) [22]

> [18] вразлет © (03.11.04 11:37)
> Ты это полегче, с "псевдографикой"

в смысле?

А если серьезно, можно получить эту программу?

← →
DVM © (2004-11-03 11:44) [23]

> А если серьезно, можно получить эту программу?

набери в яндексе AvtoShema

← →
вразлет © (2004-11-03 11:45) [24]

[22] syte_ser78 © (03.11.04 11:43)

Напиши письмо автору

dmitriyo@yandex.ru

← →
вразлет © (2004-11-03 11:47) [25]

Вы искали: AvtoShema, найдено документов: 2146

← →
syte_ser78 © (2004-11-03 11:49) [26]

дык блин, инет ограничен яндекс недоступен. Ладно, потом скачаю.

← →
TUser © (2004-11-03 11:52) [27]

> Юрий Зотов © (02.11.04 21:16) [2]

FlashGet так и работает. Программа хорошая. Деньги, я так понимаю, какие-то тоже приносит. Хотя, согласен с тем, что таких мало

← →
VEG © (2004-11-03 11:56) [28]

> ИМХО © (02.11.04 21:29) [5]
> фриварщики ничего не получают, кроме горы восторженных и
> наполненных любви (благодарности) писем

Иногда ради этих писем идешь на все затраты... Но само обидно глядеть на то, когда времени на выпуск новых версий бесплатного продукта не хватает, а истинные поклонники несколько лет просят восстановить разработку и даже предлагают сделать программу плдатной (но у нас реально ее купят единицы)...

← →
Mike Kouzmine © (2004-11-03 12:33) [29]

TUser © (03.11.04 11:52) [27] Закрывается проект, не приносит денег.

← →
TUser © (2004-11-03 12:41) [30]

> Закрывается проект, не приносит денег.

Жаль. Исходники откроют? Если да - то я бы там сделал некоторые улучшения.

← →
syte_ser78 © (2004-11-03 12:50) [31]

Я скачал Автосхему 2.2!!!!!!!!!

← →
Prohodil Mimo © (2004-11-03 12:57) [32]

syte_ser78 © (03.11.04 12:50) [31]
Я скачал Автосхему 2.2!!!!!!!!!

перед первым запуском не забудь сохраниться.

← →
syte_ser78 © (2004-11-03 12:58) [33]

:)
Нормальная программа. Правда еще не совсем разобрался.

← →
TUser © (2004-11-03 12:59) [34]

> перед первым запуском не забудь сохраниться.

А также помолиться, предохраниться и застраховаться

← →
Dmitriy O. © (2004-11-03 13:04) [35]

> syte_ser78 © (03.11.04 12:50) [31]

Молодец ! Если что не ясно пиши я раскажу.

← →
вразлет © (2004-11-03 13:08) [36]

Технологии промышленного шпионажа на практике:

Из гостевой уважаемого Дмитрия Олеговича

08.06.2004 23:07
crot http://www.crot.org.ua У меня вот какой вопрос, какой вид должен иметь код , просто кода я ввожу свою програму хотябы с модулями он не может построить блок схему и выдают ошибку "Access violation at adress 0040472C in module Avtoshema.exe"

А вот ответ:

Код стандартный. Но так как я писал прогу орентируясь
на стандартное оформление кода то возможны ошибки при работе с какими то экслюзивными и необычными типами построения кода. Вышли мне свой код мне на мыло и я адаптирую прогу и к твоему типу кодирования.

← →
Dmitriy O. © (2004-11-03 13:12) [37]

> вразлет © (03.11.04 13:08) [36]

Как я уже говорил. Блок разборки синтаксиса в Атосхеме глючит т.к. написан без предварительной теоретической проработки а прямо на глаз. Поэтому особые случаи может не обрабатывать.

← →
syte_ser78 © (2004-11-03 14:03) [38]

> [35] Dmitriy O. © (03.11.04 13:04)
>
> > syte_ser78 © (03.11.04 12:50) [31]
>
> Молодец ! Если что не ясно пиши я раскажу.

Вопрос
не получается проанализировать следующий код

case a of
"1" - вызов функции из этого же pas-a
"2" - вызов процедуры из другого паса
....

вернее этот код программа вообще игнорирует

← →
Dmitriy O. © (2004-11-03 15:52) [39]

> syte_ser78 © (03.11.04 14:03) [38]

case a of
"1": - вызов функции из этого же pas-a
"2": - вызов процедуры из другого паса
end;
Вот так должно работать.
Однако тут у Автосхемы есть минус она не отражает отдельным блоком процедуры и функции.

← →
Dmitriy O. © (2004-11-03 15:52) [40]

Удалено модератором
Примечание: Дубль

← →
syte_ser78 © (2004-11-03 16:52) [41]

> case a of
> "1": - вызов функции из этого же pas-a
> "2": - вызов процедуры из другого паса
> end;
> Вот так должно работать.

:)))))))))))))
Я нашол ошибку. дело было не в недостающих двоеточиях и энде :)
просто процедуры из другого паса были без циклов, иф-ов и переходов.

← →
syte_ser78 © (2004-11-03 16:58) [42]

было бы неплохо указывать места возниковения бесконечных циклов

← →
Юрий Зотов © (2004-11-03 17:11) [43]

> Роман (02.11.04 21:11)

Вот теперь, после прочтения [31]-[42], на Ваш вопрос "Есть авторы крутых прог?" можно уверенно ответить - есть!

← →
Digitman © (2004-11-03 17:50) [44]

написан .. прямо на глаз.

редкимй глаз выдержит такое издевательство.

хотя ... мало ли мазохистов)

← →
TUser © (2004-11-03 17:56) [45]

Надо признать, что топик интересный - вы делайте крутые проги, а я вставлю туда свои банеры. На чай автору софта чего-нибудь останется?

← →
Digitman © (2004-11-03 17:57) [46]

> особые случаи может не обрабатывать

"особые" - читай "любые", которые не пришли в светлейшую голову Дмитрийолегычу, даже не сподобившегося перед сотворением Автошемы проштудировать от корки до корки правила Обжект-Паскаля.

← →
oldman © (2004-11-03 18:01) [47]

Имхо, за клик по банеру платят денюжки, если клик пришел с определенного сайта... Того, где баннер размещен.
А за выход на сайт с непонятного компа никто не получит ни копейки.
ИМХО!

← →
Digitman © (2004-11-03 18:03) [48]

Лозунги дня :
- Даешь рекламный баннер "Автошема" ! В любой мало-мальски посещаемой суб-дыре Всемирной Дыры !
- "Заколоти бабло" на рекламе "Автошемы" во Всемирной дыре ! Не заколотил еще ? Спеши ! Ибо кто не успел, тот опоздал !

← →
Digitman © (2004-11-03 18:07) [49]

> нужны стоящие

.. а так же сидящие и лежащие

> Роман

Рома ! Тебе - к Боцману...

← →
peypivo © (2004-11-03 19:34) [50]

Не понимаю чего вы к Dmitriy O. прицепились. Насколько я знаю аналогов ведь нет? Или я ошибаюсь?

← →
mike-d © (2004-11-03 19:41) [51]

> Dmitriy O. © (03.11.04 15:52) [39]

к хирургу...

← →
Delphin © (2004-11-03 19:52) [52]

Ну хватит уже на Dmitry.O наезжать, программа его весьма полезная, сам пользуюсь :)

← →
ИМХО © (2004-11-03 20:34) [53]

"Руки прочь от Dmitriy O.!"

← →
cyborg © (2004-11-03 22:31) [54]

"Руки прочь от Dmitriy O.!" V.1.0

← →
syte_ser78 © (2004-11-04 09:03) [55]

А серьезно, чего в этой проге такого смешного что ее так часто вспоминают? Или просто это скрытая реклама?
Или может завидуют?

Со своей задачей программа справляется. жаль только что весь пас проанализировать не может, а лишь попроцедурно

← →
ИМХО © (2004-11-04 09:08) [56]

> cyborg © (03.11.04 22:31) [54]
> "Руки прочь от Dmitriy O.!" V.1.0

LOL

> А серьезно, чего в этой проге такого смешного что ее так
> часто вспоминают? Или просто это скрытая реклама?
> Или может завидуют?

Наверное, Ваш стиль оформления кода не столь эксклюзивен, как у большинства форумчан. Попробуйте загнять туда например VCL - и Вы не будуте считать, что Со своей задачей программа справляется

> Или может завидуют?

Однозначно.
> Попробуйте загнять туда например VCL

Как раз обрабатывает в большинстве случаев нормально.

2Dmitriy O. © (04.11.04 11:44) [58]

> Или может завидуют?

Однозначно.

Дима, срочно к Ломброзо - ДНК править. Ну... И руки можно заодно, если он возьмется...

а мою прогу на суд общественности можно вынести?

http://www.sergey.h1.ru/download

[61] syte_ser78 © (04.11.04 12:11)
Ой что-то страшно. Вдруг она решит, что у меня все файлы "мусорные". :))
Уж лучше я сам, ручками..

она по маске решает

и создает бат-файл который можно подредактирвоать. Сама не удаляет ничего.
Скорость сканирования намного выше чем у аналогов

Вобще что такое мусор ? Т.е. есть ли научное определение электронного мусора ?

В моем случае это временные файлы, копии, и т.д. которые не были подтерты в ходе работы других программ. Тоесть бестолку занятое место которое можно бесболезненно занять под чтото более полезное.

К стати - ответ автору топика.
Дописываю программу "СверКеш-атор"
Описание программы - браузер сохраняющий посещенные страници. При повторном вводе адреса он грузится с винта.
Могу втулить банер.
Только он тоже прокешируется и для того чтобы кличество показов щелкало его нужно будет периодически "обновлять" :)

Виндоза 98 часто оставляла такой мусор и приходилоси переодически чистить ручками. А вот NT уже такого не допускает
даже при аварийном завершении работы. И потом ф-ция очиски диска роботает хорошо все тмп файлы убирает. Да и при том какое значение при современных обьмах диска будут иметь пару тройку мег случайно не потертых файлов тмп. Настоящий мусор это тот который скапливается во время работы всякие Вордовские и Эксель файлы презентации картинки для презентации и проч. Вот они весят гигабайты (У меня папка "Мои документы"- 1 гиг) Но тут уже только ручками и желательно только в архив.

я прошу заценить не идею а реализацию

> не идею а реализацию

Тогда давай исходники.

Могу и исходник дать.
Сюда писать?

Uses Crt,DOS,Sergey,MusText; //Sergey и Mustext - мои библиотеки
Var i:integer;
NML:Integer; //Счетчик файлов которые нельзя удалять!!!
Vibor_deystviya:Char;
F,filter_ini:text;
filter:string;
Kolvo_musora:integer;
Drive_for_work:Char; //Диск который чистим. По умолчанию - С
Dir_for_work:string; //Папка которую чистим
Laptop_Text:integer;
Laptop_background:integer;
Laptop_symbol:Char;

Dir_Drive:String;

Const
Kolvo_Ext_NoMusor=1;
TC=Yellow; //Цвет тектса в окне
BC=Blue; //Цвет окна
//Маски немусорных файлов. Файлы которые "мусорные" но удалять их низя!!!
Not_Musor_list: array[1..Kolvo_Ext_NoMusor] of string =
("DATA.BAK");
Filter_File="filter.ini"; //Файл в котором храним мусорные маски файлов
Clear_File="clear.bat"; //Батник для записи команд на удаление
version="0.3.0.1"; //Версия программы

Procedure PrintFiles(path,mask:string);
var sr:searchrec;
begin
findfirst(path+mask,anyfile-directory,sr);
while doserror=0 do begin
for NML:=1 to Kolvo_Ext_NoMusor do
begin
if sr.name<>Not_Musor_List[NML] then
begin
writeln(path+sr.name);
writeln(F,"attrib -r -a -s -h "",path+sr.name,""");
writeln(F,"del "",path+sr.name,""");
Kolvo_musora:=Kolvo_musora+1;
end;
end;
findnext(sr);
end;
end;

Procedure SearchFiles(path,mask:string);
var sr:searchrec;

begin
PrintFiles(path,mask);
findfirst(path+"*.*",anyfile,sr);
while doserror=0 do begin
if (sr.attr and directory=directory) and
(sr.name<>".") and (sr.name<>"..") then
SearchFiles(path+sr.name+"\",mask);
findnext(sr);
end;
end;

Procedure menu;
begin
Window_my(20,5,40,14,TC,BC);
TextColor(White);
WriteLn (" ИРЁНКА (",version,")");
TextColor(TC);
WriteLn;
WriteLn (" 1 - Помощь");
WriteLn (" 2 - Выбор диска");
WriteLn (" 3 - Поиск мусора");
WriteLn (" 4 - Выход");
WriteLn (" 5 - О программе...");
WriteLn (" 8 - Выбор папки");
WriteLn (" 0 - Главное меню");
end;

procedure Vibor_diska;
begin
Window_my(10,5,60,3,TC,BC);
Write (" Введите имя диска который хотите почистить: ");
CursorOn;
ReadLn(Drive_for_work);
CursorOff;
menu;
end;

procedure Vibor_papki;
begin
Window_my(10,5,60,3,TC,BC);
Write (" Укажите папку в которой будем искать "мусор": ");
CursorOn;
ReadLn(Dir_for_work);
CursorOff;
menu;
end;

Procedure Search_musor(dir_drive:string);
var
time_sec:longint;
h, m, s, hund : Word;
h2, m2, s2, hund2 : Word;
begin
GetTime(h,m,s,hund);

Window_my(3,2,75,21,TC,BC);
Assign(filter_ini,Filter_File);
reset(filter_ini);
if dir_drive="drive"then
begin
while not Eof(filter_ini) do
begin
Readln(filter_ini,filter);
SearchFiles(Drive_for_work+":\",filter);
end;
end;
if dir_drive="dir"then
begin
while not Eof(filter_ini) do
begin
Readln(filter_ini,filter);
SearchFiles(Dir_for_work+"\",filter);
end;
end;
Close(filter_ini);
TextColor(LightRed);
GetTime(h2,m2,s2,hund2);
time_sec:=(h2-h)*3600+(m2-m)*60+(s2-s);
Writeln("Найдено ",Kolvo_musora," мусорных файлов");
Writeln("На поиск мусора затрачено - ",time_sec," секунд");
Writeln("Готово!!! Нажмите любую кнопку!!!");
TextColor(TC);
Repeat
Until Keypressed;
end;

Procedure Init;
begin
clrscr;
fullscreen;
laptop(laptop_text,laptop_background);
CursorOff;
menu;
end;

Procedure main;
begin
repeat
if keypressed then
begin
case ReadKey of
"1": begin
fullscreen;
Laptop(laptop_text,laptop_background);
Help(TC,BC);
repeat;
until keypressed;
Init;
end;
"2": begin
fullscreen;
Laptop(laptop_text,laptop_background);
vibor_diska;
fullscreen;
Laptop(laptop_text,laptop_background);
menu;
dir_drive:="drive";
end;
"3": begin
Kolvo_musora:=0;
fullscreen;
Laptop(laptop_text,laptop_background);
Search_musor(dir_drive);
fullscreen;
Laptop(laptop_text,laptop_background);
menu;
end;
"5": begin
fullscreen;
Laptop(laptop_text,laptop_background);
About(TC,BC,version);
repeat;
until keypressed;
Init;
end;
"0": begin
fullscreen;
laptop(laptop_text,laptop_background);
menu;
end;
"4": break;
"8": begin
fullscreen;
Laptop(laptop_text,laptop_background);
vibor_papki;
fullscreen;
Laptop(laptop_text,laptop_background);
menu;
dir_drive:="dir";
end;
end;
end;
fullscreen;
Show_Time(72,25);
GotoXY(46,25);
TextColor(LightBlue);
TextBackGround(LightGray);
Write("| Активный диск - ",UpCase(Drive_for_work)," |");
until (Vibor_deystviya="4");
end;

begin
Laptop_Text:=52; //цвет текста лаптопа
Laptop_background:=3; // цвет фона лаптопа
Laptop_symbol:="-";
Drive_for_work:="c"; //по умолчанию чистим С
Assign(F, Clear_File);
ReWrite(F);
Init;
main;
Close(F);
end.

syte_ser78 © (04.11.04 9:03) [55]
А серьезно, чего в этой проге такого смешного что ее так часто вспоминают?
Ты посмотри на её исходники :)) Да и наверное не вспоминали бы так если бы не её автор :)) Индивид каких больше не бывает. =)))

> Procedure SearchFiles(path,mask:string);
> var sr:searchrec;
>
> begin
> PrintFiles(path,mask);
> findfirst(path+"*.*",anyfile,sr);
> while doserror=0 do begin
> if (sr.attr and directory=directory) and
> (sr.name<>".") and (sr.name<>"..") then
> SearchFiles(path+sr.name+"\",mask);
> findnext(sr);
> end;
> end;

Извини, но я у себя такое не запущу. Да и не заработает, наверное - где описаны anyfile и directory?

> Извини, но я у себя такое не запущу. Да и не заработает,
> наверное - где описаны anyfile и directory?

В библиотее DOS
....
These constants test, set, and clear
file-attribute bits in connection with the
GetFAttr, SetFAttr, FindFirst, and FindNext
procedures.

These constants are additive. The faAnyFile
constant is the sum of all attributes.

DosConstant Value
ReadOnly $01
Hidden $02
SysFile $04
VolumeID $08
Directory $10
Archive $20
AnyFile $3F

1. что есть Yellow ? Я зная только clYellow.
2. что за цвет Laptop_Text:=52 ? Типа, догадайся сам ?
3. что такое while doserror=0 do begin ? Неужели функции findfirst не достаточно ?

Это так, бросив взгляд...:)

> Я зная только clYellow.

А я только faAnyFile, faDirectory

И FindClose потерялся.

Johnmen © (04.11.04 13:59) [77]
TUser © (04.11.04 14:04) [78]

Так программа не на Delphi и не для Win32

> Uses Crt,DOS

> 1. что есть Yellow ? Я зная только clYellow.

Yellow - жолтый.
Программа написана на turbo pascal 7.0/ Работает в текстовом режиме.

> 2. что за цвет Laptop_Text:=52 ? Типа, догадайся сам ?

Скен код символа из которого состоит заполнение рабочего стола равен 52

> 3. что такое while doserror=0 do begin ? Неужели функции
> findfirst не достаточно ?

???

Есть авторы крутых прог? Найти похожие ветки