Современные решения

для защиты Windows приложений

и восстановления исходного кода

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


событие, происходящее при наведении мыши на часы в трее

RY>> именно у ЧАСОВ.
DK> Мда, это плохо. Hасколько я помню, стандартными методами
DK> (SetWindowLong) сабклассить окна чужих процессов нельзя. :(
Это единственный способ перехватить появление там мыши?


DK> Т.е. придется писать хук на сях (или воспользоваться уже готовым,
DK> например, видел что-то подобное на vbrussian).
ps. А нельзя ли сделать так -

(a) определить местоположение часов в трее и их там наличие
(b) определить, когда там появится мышка

пока больше интересно А


DK>>> А ты это хочешь сделать случаем не для показа своей всплывающей
DK>>> подсказки?
RY>> Ты будешь смеяться, но вот тут ты прав. ;)
DK> Раз уж пошла такая пьянка, то можно вместо стандартного прямоугольника
DK> воспользоваться balloon - тултипами а-ля офис из набора comctl. С ними
DK> разбирался Аркадий Оловянников, кажется, на том же сайте был его
DK> пример.
доп. контролы не люблю черной ненавистью, квадратик и сам нарисую думаю... :)


* Origin: 1134 (2:5045/44.13)


RVB.FAQ

RY>> Как в vb работать с числами длиннее 14 знаков, именно как с
RY>> числами, а не как single или double?
DK> Double и Currency могут содержать целочисленное значение размером до
DK> восьми байт; это где-то 20 символов. Правда, в коде константы типа
DK> double почему-то ограничены в длине 14 символами; зато для Currency
DK> такого ограничения нет (максимальное значение составляет
DK> 922337203685477.5807 [@] ).
да, currency я уже заюзал. а как работать с типом decmical - variant в упор не отображает более 14 цифр. [Visual Basic 5]


RY>> А если серьезно, то я всегда говорил, что все беды в эхе от
RY>> [голубка], а весь разум от тебя и еще некоторых. И поэтому когда
RY>> ты его сменил на посту, эха стала... умнее, чтоли. ;)
DK> Подхалим... :(
Hе дождетесь! Просто почти 4 года тут сижу, и наконец-то вижу, что дела делаются так, что мне стало удобнее. А я люблю, когда мне становится удобнее.


ps. Дима, all right$. ;-)


* Origin: 1134 (2:5045/44.13)


Preloader

AA>> Классически: показать фоpму еще до того, как начнутся длительные
AA>> опеpации
AA> Фоpма-то главная.
Кто, что? Что не разрешает? Что сделать-то хочешь?

* Origin: 1134 (2:5045/44.13)


смена обоев посредством эхотага

Привет All!

в реестре есть раздел HKEY_CURRENT_USER\Control Panel\Desktop
в котором прописываются параметры рабочего стола и Wallpaper

подскажите, как с ним работать что бы осуществить сабж.

ссылки приветствуются.


С уважением Vadim.

WinAMP: Соседи вешаются под - Гpажданская обоpона - Всё идёт по плану
* Origin: Hичего хорошего из тебя не выйдет... (2:5055/150.57)


событие, происходящее при наведении мыши на часы в трее

RY>>>> Угу. Может где примеры есть использования?
AS>>> Hа Русском_Проекте (rusproject.narod.ru) был пример замены часов
AS>>> своими. Там находилось это окно (с классом TrayClockWClass) и
AS>>> SetParent-ом запихивалось туда своё.
RY>> О, спасибо!
AS> Вот сэмпл "часики в трее", по мотивам Русского_Проекта, специально
AS> для тебя:
спасибо большое, но специально для меня хватило и указания где взять ;)


AS> =========The end of the citation================
AS> Hадеюсь, оценишь мой посильный труд :-)
AS> А примерами можешь закидывать, мне всегда приятно ;-)
вотъ ;)

====
Option Explicit

Dim OnClock As Boolean
Dim OCTimer As Byte

Private Type POINTAPI
x As Long
y As Long
End Type

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Dim rctemp As RECT

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

Private Sub Form_Load()
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", vbNullString)
hWnd = FindWindowEx(hWnd, 0, "TrayNotifyWnd", vbNullString)
hWnd = FindWindowEx(hWnd, 0, "TrayClockWClass", vbNullString)
GetWindowRect hWnd, rctemp
End Sub

Private Sub Timer1_Timer()
OnClock = True
Dim z As POINTAPI
GetCursorPos z
If z.x < rctemp.Left Or z.x > rctemp.Right Then OnClock = False
If z.y < rctemp.Top Or z.y > rctemp.Bottom Then OnClock = False
If OnClock = True Then
OCTimer = OCTimer - 1
Else
OCTimer = 3
'MsgBox ""
End If

If OCTimer = 0 Then MsgBox "": OCTimer = 3

End Sub
====



* Origin: 1134 (2:5045/44.13)


обработка метода post

Как реализовать на visual basic обработку метода post от браузеров (хотя можно и get).

т.е. есть .html



Как поймать командные параметры, и в какой поток, и самое главное как, перенаправлять вывод?


* Origin: 1134 (2:5045/44.13)


Re: Пользователи и паpоли

From: Alexander Trishin

Maxim Lanovoy wrote on Sat, 27 Mar 2004 18:59:52 +0300:

> AT> Присылай свой system.mdw - я тебе расскажу все твои пароли, грамотей
> AT> :)
> Hу давай, грамотей, расскажи мне об этом пароле:
>
>
> hash="urgr1W8cm1iSmQHJ/EfO5qpgWdwmnkj0qIbVdq4moEk="/>

Попробуй прочитать о чем идет речь. О безопасности базы данных формата MS
Access на уровни пользователей. Ты же заладил со своим SHA256. Странные
люди :)

--
AT
* Origin: Demos online service (2:5020/400)


Password

H!, _[A.]_!
AS> Когда я писал такую пpогу, то писался в RunOnce пpи каждом запуске.
AS> Пpоги из RunOnce гpузятся до шелла.
Это ветка pеестpа винды так я понимаю. Пpописываю туда стpоковой паpаметp Project и значение c:\program\project1.exe. Пpи след. запуске мастдая, паpаметp уходит и ничего не запускается пpи этом.
to All: Как убpать Пуск, окно Выполнить пpи Form1.WindowState=Maximized?

g'bye and g'luck, _[A.]_!
* Origin: Down/Upload Soft - [SVALKA.TK] (2:5054/29.33)


если кто не знает вышел 6й сервиспак на MS VS

Приветствую в нашем подземелье, Alex ?

Эхо подземелий донесло, что в Суббота Апрель 03 2004 20:17, Alex Antov писал Roman Yuakovlev:

GR>>> адрес для скачивания английской версии
GR>>> http://download.microsoft.com/download/1/9/f/19fe4660-5792-4683-
GR>>> 99e0-

RY>> Случаем не 1апрельская шутка? ;)
злые вы - уйду я от вас :)

RY>> ps. Если нет, то what's new для эхотага?
да как всегда от MS мы вам все поправим и улучшим
визуально только на заставке VB надпись поменялась с SP5 на SP6
а так описание в инсталяции достаточно большое - изменений
в основном убивание всяких ошибок

AA> Да вроде качается :) Сейчас инфу поищу на сайте мелкомягких....
а что там искать - выбираешь VB в разделе download и там сортируешь по времени

Я взял бы частями, но мне нужно сразу. Genrih Rudenok.
* Origin: Genrih Cool! (2:452/25.115)


Password

From: "A. Skrobov"

Sun Apr 04 2004 11:58, Alexander Abramencov wrote to A. Skrobov:

AS>> Когда я писал такую пpогу, то писался в RunOnce пpи каждом запуске.
AS>> Пpоги из RunOnce гpузятся до шелла.
AA> Это ветка pеестpа винды так я понимаю. Пpописываю туда стpоковой паpаметp
AA> Project и значение c:\program\project1.exe. Пpи след. запуске мастдая,
AA> паpаметp уходит и ничего не запускается пpи этом.
То, что уходит - это правильно, а если ничего не запускается, значит криво
задал путь. _Совершенно_точно_ должно запускаться.

AA> to All: Как убpать Пуск, окно Выполнить пpи Form1.WindowState=Maximized?
Послать WM_CLOSE кнопке Пуск ;-)
(Окно с классом Button, потомок окна с классом Shell_TrayWnd, как искать окно
см. в теме про часики в трее)

Только если реализуешь это через RunOnce, тогда и с кнопкой Пуск делать ничего
не надо будет.

* Origin: FidoNet Online (2:5020/175.2)



Назад Содержание Вперед