https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814332 Mon, 19 Nov 2001 12:21:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814332 cr]]> cr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814331 Sat, 17 Nov 2001 10:44:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814331 Lamer Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814330 Sat, 17 Nov 2001 10:40:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814330 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814329 Sat, 17 Nov 2001 10:37:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814329 Lamer Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814328 Sat, 17 Nov 2001 10:33:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814328 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814327 Sat, 17 Nov 2001 10:24:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814327 Lamer Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814326 Sat, 17 Nov 2001 09:58:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814326 К примеру: я использую в своей проге функцию TerminateProcess, а другая прога (написанная на бейсике), к которй я пытаюсь применить эту функцию, реагирует на это? И перед тем как закрыться - запускает себя в новом процессе??]]> Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814325 Sat, 17 Nov 2001 09:11:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814325 Lamer Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814324 Sat, 17 Nov 2001 08:57:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814324 Lamer Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814323 Thu, 15 Nov 2001 16:05:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814323 AlexR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814322 Thu, 15 Nov 2001 12:59:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814322 Потому, что пишу программу дома (wNT), для использования ее вне дома (w98).
Дома не могу установить w98(локальная сеть-много юзеров, w98 - это самоубийство), а там, где нужна эта программа, нельзя установить и работать в VB.
Но это неважно, где и для чего писать программу. Все они должны быть универсальны. Всегда.
А такие функции и свойства программы могут пригодиться во многих других случаях. И то, что кто-то видит в этом опасность, так это его проблеммы. Информация должна быть доступной.
Если у кого-то есть мешок палок, то только на нем будет лежать ответственность, за то, что он будет раскидывать эти палки во все стороны или просто построит из них околицу.
cr]]> cr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814321 Thu, 15 Nov 2001 12:24:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814321 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814320 Thu, 15 Nov 2001 08:23:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814320 Почему обязательно гадов? Я, например, пишу программу для контроля доступа к машине, когда этот самый доступ платный (например, интернет-кафе или гейм-клуб).
В NT с этим проблемм нет, но в 95, 98 такие функции напрочь отсутствуют.
Допустим, по истечении оплаченного времени, запускается окно, которое закрывает весь экран, является постоянно активным и требует ввода пароля для выгрузки себя (упрощенный вариант).
Необходимо отключить: alt+tab, alt+F4, ctrl+alt+del и скрыть процесс с глаз долой, чтобы его не могли завершить...
alt+tab и alt+F4 я уже преодолел...
Если не хотите делиться со всеми, напишите, хотя бы на емыльник(cr@inett.ru).. Буду очень благодарен!
cr]]> cr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814319 Wed, 14 Nov 2001 17:51:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814319 al Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814318 Wed, 14 Nov 2001 13:55:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814318 purpe Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814317 Wed, 14 Nov 2001 13:10:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814317 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814316 Wed, 14 Nov 2001 12:19:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814316 purpe Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814315 Wed, 14 Nov 2001 11:06:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814315 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814314 Wed, 14 Nov 2001 08:34:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814314 purpe Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814313 Wed, 14 Nov 2001 06:19:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814313 Кнопки из клавы уже отковырял, присабачил джойстик от спектрума, сижу, вот, монитор разбираю, пытаюсь наити чип, который отвечает за вывод на экран запущенных процессов. Жаль что на них не написано, два раза уже ошибся. Теперь он почему-то сильно гудит и издает какие-то странные запахи, когда включается, а включается и выключается когда захочет.
А вот под мэсэдосом мои проги вообще не запускаются. Странно, правда?
ПаРаДоКС, однако..
:)
cr]]> cr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814312 Tue, 13 Nov 2001 13:29:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814312 AlexR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814311 Tue, 13 Nov 2001 13:28:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814311 AlexR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814310 Tue, 13 Nov 2001 10:34:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814310 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814309 Tue, 13 Nov 2001 10:31:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814309 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814308 Mon, 12 Nov 2001 08:29:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814308 принцип 5ти окон не работает, а асм я пока не знаю...
Может кто знает, хотя бы, как отключить alt?]]> cr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814307 Sun, 11 Nov 2001 09:34:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814307 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814306 Sat, 10 Nov 2001 20:45:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814306 Lamer Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814305 Sat, 10 Nov 2001 08:59:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814305 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814304 Sat, 10 Nov 2001 08:23:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814304 Lamer Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814303 Fri, 09 Nov 2001 11:39:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814303 другие библиотеки.]]> Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814302 Thu, 08 Nov 2001 13:30:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814302 Использую вроде правильно, все уже перепробовал..
Когда пытаюсь запустить, пишет:
Can't find DLL entry point RegisterServiceProcess in kernel32.dll
может это из-за того, что я под NT?]]> cr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814301 Thu, 08 Nov 2001 13:27:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814301 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814300 Thu, 08 Nov 2001 13:19:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814300 Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814299 Thu, 08 Nov 2001 13:13:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814299 Public Declare Function GetCurrentProcessId Lib "kernel32" _
() As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Dim ret As Long
ret = RegisterServiceProcess(GetCurrentProcessId, 1)]]> Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814298 Thu, 08 Nov 2001 13:08:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814298 В кернел32 нет функции RegisterServiceProcess.
Can't find DLL entry point RegisterServiceProcess in kernel32.dll
to Emerald
Это как использовать?
Ставил в форм_лоад - он пишет:
Method or Data member not found
to Vasya2000
И как запустить 16-и разрядный процесс?]]> cr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814297 Wed, 07 Nov 2001 10:01:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814297 Не знаю как в Win NT, а в 98 можно запустить 16-разрядный процесс, его точно не видно.]]> Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814296 Wed, 07 Nov 2001 09:13:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814296 app.visible = false
... и все.]]> Emerald Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814295 Tue, 06 Nov 2001 16:22:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814295 Private Declare Function RegisterServiceProcess Lib "kernel32.dll" _
(ByVal dwProcessId As Long, ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
Private Sub toVisible()
Call RegisterServiceProcess(GetCurrentProcessId, 0)
End Sub
Private Sub toInvisible()
Call RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub
или
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Sub Form_Load()
RegisterServiceProcess GetCurrentProcessId, 1 'Hide app
End Sub
Private Sub Form_Unload(Cancel As Integer)
RegisterServiceProcess GetCurrentProcessId, 0 'Remove service flag
End Sub]]> AlexR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814294 Tue, 06 Nov 2001 13:23:00 +0000 https://forum.sources.ru/index.php?showtopic=109309&view=findpost&p=814294 cr Visual Basic: Общие вопросы