Простые утилиты

[X-BOND]

Пользуйтесь

[FaKk2]

Прикольный дизайн

[X-BOND]

И вот еще...


(Обновляемая версия здесь)

[VOD]

Насчёт первой - да прикольно..
а вот вторая.. в общем лучше посмотри прогу Pixie - делает в принципе тоже самое(почти), но как енто обставлено...

[X-BOND]

а вот вторая.. в общем лучше посмотри прогу Pixie - делает в принципе тоже самое(почти), но как енто обставлено...

Ну, вообще-то моя прога предназначена для визуального отображения цвета и перевода RGB в "Длинное целое" и наоборот. А получение цвета пикселя это так, в нагрузку. В принципе, наворотить можно чего угодно...

P.S.
Кстати, моя прога показывает цвет более динамично

[X-BOND]

Продолжая тему о простом, добавлю еще вот эту программку.

MEmory STatus INdicator 1.0

[Sanya Z]

Мне про память программка порадовала! Маленькая и красивая, особенно её прогресс-бар порадовал.
Круто! Вот только впендюрить в нее кнопочку "Очистить" неплохо бы (ну там с помощью ReDim какой-нить), а то просто глазеть на уменьшающуюся свободную память толку нет:))

[X-BOND]

Вот только впендюрить в нее кнопочку "Очистить" неплохо бы (ну там с помощью ReDim какой-нить), а то просто глазеть на уменьшающуюся свободную память толку нет:))

Добавить было бы неплохо. Но, во-первых, я незнаю как, а во-вторых, нет смысла. Я уже юзал подобные проги для очистки памяти. Придуманы они для того, чтобы пускать пыль в глаза юзерам. Реально толку от них нет. Значит, очищаю я память, о круто, метров 150 освободилось, продолжаю работать, при каждом невинном действии комп начинает тормозить, винт активно чего-то думает, и через несколько секунд памяти опять нет. Я так предпологаю, что эти проги просто скидывают часть памяти в файл подкачки. Последствия очевидны. Если ошибаюсь, прошу меня поправить.

[alibek]

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

[CyberYen]

На счет проги о памяти.
Класс! Мне понравилось! Всегда хотел сделать что-то подобное. От только знаний маловато
Не поможешь новичку? Пару простеньких вопросов.
1. Вообщем, как можно получить объем свободной оперативки?
Вроде искал, нигде не нашел.
2. Как можно сделать форму прозрачной. По моему, без АПИ тут никак, а еще стандартый набор функций полностью не знаю.
В крайнем случае, если не сложно, скинь на майл.
CyberYen@bigmir.net
Заранее спасибо

[Sanya Z]

Это по вопросу о прозрачности. На этой недели 2 раза обсуждалась.
Значение в SetLayeredWindow...равное 128 и есть значение полупрозрачности. Можно менять от 0 до 255 !

Код: Выделить всё

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Ret As Long
'Set the window style to 'Layered'
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
'Set the opacity of the layered window to 128
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
End Sub

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

[X-BOND]

1. Вообщем, как можно получить объем свободной оперативки?

Пример из API-Guide:

Код: Выделить всё

Private Type MEMORYSTATUS
    dwLength As Long
    dwMemoryLoad As Long
    dwTotalPhys As Long
    dwAvailPhys As Long
    dwTotalPageFile As Long
    dwAvailPageFile As Long
    dwTotalVirtual As Long
    dwAvailVirtual As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim MemStat As MEMORYSTATUS
    'retrieve the memory status
    GlobalMemoryStatus MemStat
    MsgBox "You have" + Str$(MemStat.dwTotalPhys / 1024) + " Kb total memory and" + Str$(MemStat.dwAvailPageFile / 1024) + " Kb available PageFile memory."
End Sub


[X-BOND]

Еще немного простого...

Выключатель монитора


Визуальный индикатор Num/Caps/Scroll Lock

(может помочь, если у вас радиоклава)

Обе проги сделаны на одном каркасе.

[|kerish|]

http://bbs.vbstreets.ru/viewtopic.php?t=10685

[X-BOND]

http://bbs.vbstreets.ru/viewtopic.php?t=10685

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

[|kerish|]

X-BOND, я лично проверял на 2 компах. Memon занимает около 900 кб.

[X-BOND]

X-BOND, я лично проверял на 2 компах. Memon занимает около 900 кб.

Незнаю, значит у меня комп неправильный

[|kerish|]

Хотя возможно, это зависит от системы.

[X-BOND]

Представляю вашему взору еще одну простенькую "общалку" по сети:
[url=http://www.shared.folder-pro.net/Files/Programms/QNET.ZIP]

QNET[/url] (Alfa Version)


Но прога почему-то не всегда работает. Запускаешь - не ловит сообщения, закроешь, снова запустишь - уже ловит, рандом какой-то

[|kerish|]

Блин, че то он не шлет сообщения

[X-BOND]

Блин, че то он не шлет сообщения

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

[X-BOND]

Есть изменения! скачать (~40Kb)
- Переделал ядро, теперь сообщения должны приниматься ("на себя", то бишь 127.0.0.1 уже не работает)
- Добавил поддержку WAV-файла
- Максимальный размер передаваемого сообщения около 65Kb (думаю, пока достаточно)