posted by crystalbit filed under Софт
Да, и такое бывает. Программа весит 33Кб и не имеет окон, то есть музыка пойдёт сразу после запуска.
Если у Вас нет внутреннего динамика, что встречается, то ничего не произойдёт.
Язык написания как обычно, delphi 7, используется только модуль windows.
скачать
Немного информации:
используется api функция Beep из библиотеки kernel32, синтаксис:
function Beep(dwFreq, dwDuration: DWORD): BOOL;
dwFreq - частота в герцах, dwDuration - длина в миллисекундах.
Звуки
...more»
posted by faza02 filed under Кодинг,
Софт
DirSearcher - это сканер директорий.
Логи сайта ведет в c:/сайт_log.txt
#!/usr/bin/python
#header scan
#http://sql.parsers.info/
#faza02gmailcom
import urllib
def scan():
print ' ____________________________ '
print ' / /\ '
print ' /
...more»
posted by crystalbit filed under Статьи
Как ни странно, данный пост не касается ни delphi, ни программирования в целом, но очень хочется рассказать, как склеить много отдельных кадров-картинок в видео. В предыдущем посту, где мы на 401 картинке ставили одну и ту же надпись, ты наверняка и не догадывался, зачем мне на столько картинок ставить одно и то же, а вот зачем: мой друг, goldriver, неким
...more»
posted by crystalbit filed under Кодинг,
Статьи
Сегодня встала такая задача - отредактировать картинки. Дописать текст в верхний левый угол, проставить некие копирайты на каждую картинку.
Всё бы ничего, если бы не количество изображений - более 400. Брррр, вручную конечно можно, но долго и неинтересно. Можно поискать готовое решение, но небезопасно и тоже неинтересно.
Итак, будем писать на дельфи. Оформлять как готовую программу не буду, так как писал только
...more»
posted by crystalbit filed under Кодинг
Выкладываю просто функцию *_*
function PosCount(substr, str: string): integer;
var
p, i: integer;
begin
i:=-1;
p:=0;
repeat
i:=i+1;
p:=PosEx(substr, str, p + Length(substr));
until p=0;
Result:=i;
end;
Количество подстрок определяет на ура, писал для просто символов.
(c) crystalbit, http://parsers.info
Функции, функции, как мило. А сейчас весна, между прочим. Помимо функций думаю купить кое-кому цветы, даже
...more»
posted by crystalbit filed under Софт
Небольшое изменение, как отдельная версия, добавлен один интересный фильтр.
Суть вот в чем: указываем символ и указываем количество - от и до. В файл будут записаны все пароли, в которых количество таких символов входит в указанный диапазон. Для конкретного количества указываем одинаковые значения от и до.
скачать
(c) crystalbit, http://parsers.info
если не требуется такой фильтр, рекомендую обычную версию - mr.gen v01. А если, к
...more»
posted by crystalbit filed under Новости
В марте поставил код google analytics, с тех пор достаточно много интересной статистики, например, браузеры, с которых заходили.
Браузеры.
Топ браузеров, с которых посещали http://parsers.info:
БраузерПосещенийПроцент
Opera44246.34%
Firefox29827.15%
Internet Explorer13513.21%
Chrome598.94%
Opera Mini362.83%
Safari80.90%
Остальные60.62%
Как мы видим, опера рулит)
Про операционки всё как всегда: 93% - windows, 4% - not set (скорее всего тоже windows *_*), 2% - Линукс, остальное - мак и симбиан.
Это был своеобразный анализ посетителей моего сайта, также
...more»
posted by crystalbit filed under Кодинг,
Статьи
В комментарии к IntToStr, StrToInt, TryStrToInt без использования SysUtils пользователь с ником fry предложил мне функцию FileExists.
Я позволил себе её немного сократить, но смысл остался - мы пытаемся открыть файл, если возвращается ошибка (HFILE_ERROR, что есть -1), то скорее всего это из-за того, что файла нет. Если не ошибка, то возвращается handle открытого файла - для дальнейшей с ним работы.
Итак,
function
...more»
posted by crystalbit filed under Софт
mr.gen v0 - если кто не видел.
В той теме оставил сообщение человек, которому нужно сгенерировать большой список. Программа вылетала с ошибкой out of memory, что неудивительно - все комбинации записывались в массив. Это моя оплошность, следовало предвидеть такую необходимость, даже учитывая то, что данный генератор призван работать с большими списками.
Я, как очень крутой и отзывчивый чел, исправил свою ужасающую и
...more»
posted by crystalbit filed under Кодинг
Многие пользуются функциями StrToInt, TryStrToInt и IntToStr из модуля SysUtils для преобразования типов. Это удобно, но когда встает вопрос об отключении лишних модулей (когда пишем на api), непрактично.
Для таких же целей есть стандартные функции val и str из pascal, которые перекочевали в delphi, но о наличии которых в нём многие не подозревают. Писал я как-то одну консольную программу, вот и
...more»
Меня часто спрашивают: как отомстить человеку, какую программу ему переслать, чтобы как-то что-то? Некоторые люди доходят до того, что посылают вирусы, которые чуть ли не сносят систему, форматируют диски... Я противник таких действий, поэтому я буду описывать невинные шутки, которые ничего не удаляют и не воруют. Пройдёмте.
Итак. У жертвы стоит qip. Наша задача: написать простую программу-шутку, которая не навредит пользователю,
...more»
