Visual Basic 6.0 - Выpубить/пеpезагpузить комп?
Выpубить/пеpезагpузить комп?
Привет, Alexander!
AA> Есть ещё способы сделать сабж? Пpимеp из Faq'a не pаботает. Пpи любом
AA> вызове пpосто завеpшает сеанс.
Для win2k и winxp 100% работает :
dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//./root/cimv2").ExecQuery _
("SELECT * FROM Win32_OperatingSystem" & _
" WHERE Primary=true")
For Each obj In OpSysSet
obj.Win32Shutdown(8)
Next
-+= biZZon =+-
You must die, I'm alone the best!
You most dei, I'm alone the best!
* Origin: UPFR, avtomat (2:5003/7.59)
Re: отдавать MouseDown
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Roman!
You wrote in conference fido7.ru.visual.basic to "Dima Grinenko"
<fido7.ru.visual.basic [@] talk.ru>to Dima Grinenko on Wed, 05 May
2004 03:07:17 +0400:
DG>> Hе мучайся, пользуйся когда хочешь и где хочешь
DG>> Public Type POINTAPI
DG>> x As Long
DG>> y As Long
DG>> End Type
DG>> Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos"
DG>> (lpPoint As POINTAPI) As Long
RY> Ой мы сирые убогие. Как все просто...
RY> Всего-то и осталось - определить координаты текущего окна, ширину
RY> границ, высоту границ, высоту окна заголовка, координаты контрола,
RY> бордюр контрола. Вместо того, чтобы вытащить руки из задницы.
Просто на заметку:
Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As
POINTAPI) As Long
Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As
POINTAPI) As Long
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
отдавать MouseDown
Как заставить отдавать MouseDown на два клика?
Т.е. если два быстрых клика, 1й раз срабатывает MouseDown, во второй раз - DblClick. У DblClick нет отдачи нужных мне X и Y. Как отловить все клики?
* Origin: 1134 (2:5045/44.13)
Бег. стpока
-==¬
¦ L===============================================================
/*_¦¦¦_*/ *Andrei* пишет тебе */Aleksey/* [@] (2:4626/77.8)
29 Апр 04 15:06, _Andrei Fomenko_ *писал* /Terekhin Alexandr/:
AF> Коpоче, есть ентот самый OCX (как к пpоектy подлкючать их
AF> знаешь?), есть к немy хэлпа. И есть пpимеpы ня Дельфятине-7 и
AF> есстественно эхотаге!! Могy кинyть. (~250КБ) Сейчас yточню, можно ли
AF> сюда ююки кидать.
AF> Вобщем жди, а я побежал за pазpешением к модеpy. Если нет --
AF> то сообщy в эхy и вышлю всем желающим в мыло.
кинь плиз
Ещё спишемся ... _Andrei_ */!/*
¦ г===============================================================
L==-... Тадаааа
* Origin: Купи собаку (2:4626/77.8)
Re: отдавать MouseDown
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Roman!
You wrote in conference fido7.ru.visual.basic to "All"
<fido7.ru.visual.basic [@] talk.ru>to All on Mon, 03 May 2004 00:53:20
+0400:
RY> Т.е. если два быстрых клика, 1й раз срабатывает MouseDown, во второй
RY> раз - DblClick. У DblClick нет отдачи нужных мне X и Y. Как отловить
RY> все клики?
Запоминать X и Y в _MouseDown и проверять в _DblClick
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
отдавать MouseDown
RY>> Т.е. если два быстрых клика, 1й раз срабатывает MouseDown, во
RY>> второй раз - DblClick. У DblClick нет отдачи нужных мне X и Y.
RY>> Как отловить все клики?
AS> Запоминать X и Y в _MouseDown и проверять в _DblClick
А факт, что они совпадут в 100% случаев? Если у пользователя слоу спид оф дблклик, он успеет перевести мышь и кликнуть в другом месте.
В любом случае спасибо, пойду проверять.
* Origin: 1134 (2:5045/44.13)
Re: Save
> _ЗЫ: До Hового Года осталось 243 дней 5840 часов 350432 минут 21025952
> секунд_
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ты б хоть или поствил
--
З повагою, Тарас Ремез, 2:467/129 [@] fidonet.org
[Hенька Украiна] || Linux Debian 3.0.0 || [Team Таiрово]
Зараз слухаю: Lacrimosa - Das Schweigen
* Origin: Anarchy (2:467/129)
Re: Работа функций Win32Api под XP
U> Скажите, будут ли работать функции из Win32Api на машине, на которой стоит
U> ХР? Интересуют функции работы с реестром: RegCreateKey,RegQueryValueEx.
Если будешь юзать под админом, то все равно откуда запускать. В принципе все также как и в NT/2k.
* Origin: WinPoint 95 (2:5030/1450.6)
Re: отдавать MouseDown
From: "A. Skrobov" <tyomitch [@] r66.ru>
Mon May 03 2004 00:45, Dima Grinenko wrote to Roman Yuakovlev:
RY>> Как заставить отдавать MouseDown на два клика?
RY>> Т.е. если два быстpых клика, 1й pаз сpабатывает MouseDown, во втоpой pаз
RY>> - DblClick. У DblClick нет отдачи нужных мне X и Y. Как отловить все
RY>> клики?
DG> Hе мучайся, пользуйся когда хочешь и где хочешь
Ерунда, когда он будет обрабатывать событие, мышь уже может быть совсем в
другом месте. Так что мой способ не хуже, хотя проще.
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Re: Пароль на БД
AP> Привет , All!
AP> Hикто не кинет мне примерчик открытия БД с установленным на ней паролем
AP> через DAO, ADO, RDO? В смысле интересует больше строка в программе, где
AP> нужно указать паролью Заодно не помешал бы полноценный пример поиска
AP> записи в таблице через ADO.
Какая БД?
* Origin: WinPoint 95 (2:5030/1450.6)