Как стартовать программой до загрузки Рабочего стола в WIN98

[SSecurity]

привет всем, вопрос прост до невозможности, в теме он задан.

Условия:
- это не просто изменение в СИСТЕМ.ИНИ, иначе по завершению работы программы не грузится далее РС и панель управления с таском.
- это не изменение реестра, поскольку там запуск идт после загрузки эксплорера.
- и ето не изменение ЕХЕ ветви реестра, с проведением запуска всех програм через Нашу прогу. Иначе, система не доступна, по причине отсутствия системы.
- и уж тем более не выключение, путем снятия провода питания.
- ПРОГРАММА ДОЛЖНА быть VB-шной.

Вроде всё ясно, но как реализовать?

[Amed]

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

[SSecurity]

Спасибо, но ета тема была полностью мной скопированна ещё в те времена когда сам её начинал. Ни один из методов не позволяет стартануть до РАБОЧЕГО СТОЛА. Либо он не грузится (РС), либо возникает интересная ситуация когда ты спрашиваешь пароль у пользователя а он давно в твоей системе

[RayShade]

Хм..... интересно что разумеется под "запуском рабочего стола"

[Amed]

ИМХО запуск explorer.exe, т.к. он и есть "Рабочий стол"

[RayShade]

Ха!

Ну так до него грузятся только дрова и больше ничего

Это не сфера влияния ВБ - дрова писать.

Единственное что могу посоветовать - написать прогу, прописать ее как Shell а из нее запускать потом Exploer.

[Cyrax]

Ха!
Ну так до него грузятся только дрова и больше ничего
Это не сфера влияния ВБ - дрова писать.
Единственное что могу посоветовать - написать прогу, прописать ее как Shell а из нее запускать потом Exploer.

дело в том, что если прописать в качестве shell другую программу, то после этого, если запустить Explorer.exe, запустится проводник с содержимым "Моего компьютера", а процесс рабочего стола (и всего прилагающегося) создан не будет... хотя... я могу ошибаться...
нет, не ошибаюсь... именно так и есть.
сам пользуюсь оболочкой LiteStep. соответственно она прописана у меня как shell. только что вышел из нее и через Диспетчер задачь запустил Explorer.exe - выскочил проводник с содержимым диска E:

[klop086]

2 в своей программе добавь функцию что при загрузке отменяеться рабочий стол и таск бар ( скрываются )

? как это сделать?

[Dagobert]

Если хочешь скрыть рабочий стол, можешь развернуть форму на весь экран (BorderStyle = None).
Насчёт TaskBar не помню точно, по-моему его класс Shell_TrayWnd. Поищи по классу через FindWindowEx, а потом спрячь (ShowWindow)

[klop086]

я тут подумал, можно спрятать всё гораздо проще - "сделать Alt+Print Screen" в начале загрузки, и сделать этот рисунок фоном моеё формы, а форму соответственно развернуть на весь экран, и сделать, чтобы её нельзя было свернуть и заблочить alt+tab и вообще все стандартные функции.
Но, может кто подскажет
1 как програмно сделать alt+print screen
2 запретить клавишу Win

[SSecurity]

а проще наверно прописать свою программу в реестре в разделе .exefiles так, чтобы все программы пускались через свою собственную структуру .... так как енто будет в ВИН98, то используя нехитрую функцию можно спрятать прогу от ДИСПЕЙЧЕРА ПРОГРАММ, а любой доступ определять в соответствии с введеными паролем и логином. тока вот юзер сможет поудалять всё да и скажет пару ласковых

[SSecurity]

Ещё одна мысль.
Делал программу, типа стартуем так, что ФОРМА МАКСИМАЛЬНА, и как фон получается, если сверху попытаться вывести новую форму, она не выводится ..... такая вот нехорошая, может тока у меня конечно, но тем не менее.
Как вариант можно сделать интерпритацию системы. Т.е. допустим надо пользователю разрешить тока вордом пользоваться. Ни и разместить в своей программе аналог РС на котором тока иконка Ворда, или список доступных программ.

Остается такие проблемы как
- убить ПУСК.
- даже в Ворде мложно снести систему виндовс (например, открываем "Открыть..." выбираем, все файлы и удаляем, что нам не нравится)

[klop086]

Ещё одна мысль.
Как вариант можно сделать интерпритацию системы. Т.е. допустим надо пользователю разрешить тока вордом пользоваться. Ни и разместить в своей программе аналог РС на котором тока иконка Ворда, или список доступных программ.

Остается такие проблемы как
- убить ПУСК.
- даже в Ворде мложно снести систему виндовс (например, открываем "Открыть..." выбираем, все файлы и удаляем, что нам не нравится)

Не понял - как можно провести эту интерпритацию, и вторую проблемму тоже...

а убить пуск - эт можно, только останется горячая финская клавиша Win, которую надо заблочить???

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

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Dim tWnd As Long, bWnd As Long, sSave As String * 250
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    'This code will hide the Start-button
    'Find the taskbar's handle
    tWnd = FindWindow("Shell_traywnd", vbNullString)
    'Search for a child window
    bWnd = GetWindow(tWnd, GW_CHILD)
    Do
        'get the child window's classname
        GetClassName bWnd, sSave, 250
        'We have the handle of the Start button If the classname is 'button'
        If LCase(Left$(sSave, 6)) = "button" Then Exit Do
        'Search the next child
        bWnd = GetWindow(bWnd, GW_HWNDNEXT)
    Loop
    'Hide the start button
    SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Show the start button
    SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub


[alibek]

Где-то дока была о всех способах загрузки программ и порядке их загрузки, надо бы поискать.
А в общих чертах это так:
До shell'а грузиться Run из HKLM.
Потом грузится HKCU\Software\Microsoft\Windows\CurrentVersion\RunService(Ex), но это в Win9x

В NT-системах до logon'а загружаются службы.

[SSecurity]

под "интерпритацию системы" я имел в виду следующее:
Когда мы заблочили рабочий стол своей программой, надо же пользователю к прогам добираться, если ему разрешить юзать ЭКСПЛОРЕР. боюсь без ведома "АДМИНА" ключевые файлы пропадут.
Хотя выход безусловно есть ... сегодня сидел на работе и игрался в ВБ .... программно находл на диске папки и делал их невидимыми (vbFileAttrebute = 18 ), затем эксплорер пускал ... там их не видно было .... потому как ОПЦИИ видимости папок отключены были ... (включить их из проводника... наверняка можно или низя) ... но зверь простой там в принапи ничего не найдет, кроме того что нужно нам, т.е. того, что мы оставили не скрытым.

А всё что в системе новое - можно просто запрещать запускать.

[SSecurity]

А в общих чертах это так:
До shell'а грузиться Run из HKLM.
Потом грузится HKCU\Software\Microsoft\Windows\CurrentVersion\RunService(Ex), но это в Win9x

Это весьма полезно, потому как можно прогу вписать, но ведь загрузка прекратится на программе твоей(в ожидании окончания процесса выгрузки программы) или параллельно начнет грузится РС???

[klop086]

Ssecurity - я тоже хотел бы это узнать. Т.К. если просто заменять explorer моей прогой и делать на него ссылку в ней, то windows просто грузит мою прогу и продолжает загрузку (не ждёт, пока она закончит своё выполнение).

[klop086]

Хочется поподробнее - после вставки в реестр (в это место HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SessionMan...)
Windows Me подождёт её (проги) завершения или нет?

[SSecurity]

Рульно-кульно .... эксперементы имеют свои плоды и похоже то винда меня имеет то я её ... результаты испытаний - 5 сносов WIN98; 2 - WIN2000; 2 дня без интернета, апгрейд памяти, и похоже повреждение винта, пока на гарантии снесу-ка его типа поменять

Я тут способ придумал. Чтобы голову не ломать моджно заставить зверя авторизоваться уже и после загрузки РС

Реализация: Клиент-Сервер
Описание:
1. Стартует винда, загружается программка например "MyProg.exe" с ключем "/password".
назначение:
- проверить запущен ли сервер"server.exe" если нет, то запустить его;
- отправить серверу пару логин-пароль;
- отключиться.
2. Сервер "server.exe" хранит в себе информацию о пользователе и о программах, разрешаемых ему.
Он:
- принимает запрос по TCP-IP от "MyProg.exe" на локальный порт.
- определяет вид работы
а) авторизация
б) проверка прав доступа к файловой системе
- при выявлении попытки повторной авторизации перезагружает систему.
- авторизовав юзера, записывает себе данные локалные переменные и хранит до окончания работы.
- ведет лог всех запросов и авторизаций.
- обрабатывает запрос на доступ.
- сверяет запрос на программу с полученным из БД (по ехе-файлам) записями и в зависимости от того есть ли права на запуск или нет, принимает решение. (новые проги по отсутствию в БД не принимаются к запуску, даже на уровне установки).
3. Приложение "MyProg.exe" является проводником и при обычном запуске лишь передает серверу командную строку (нормальная работа) а сервер принимает решениечто делать пользователю. а если сервер не запущен, то усе прошло детство .... рестарт

[Eduard]

Скрыть иконки на рабочем столе[url]
http://vbnet.ru/faq/showtopic.asp?id=87[/url]
заблокировать кнопку ПУСК
http://vbnet.ru/faq/showtopic.asp?id=92
скрыть taskbar
http://www.sources.ru/vb/system/hiding_showing_taskbar.shtml

читаем налетаем

Я извеняюсь... Но вот когда используешь Скрытие иконок на Рабочем столе. То если зделать двойноё клик мышью по Рабочему Столу, то вылезает СТАРТ Меню! И вылезает, даже если скрвть еще и Taskbar!
Помогите скрыть Desktop, так чтобы менюшка не вылезала после двойного клика, очень нужно имменно так!

[SSecurity]

ну не знаю ... наверно можно просто ... не грузить винду ...
и ужет ам поппытаться авторизовать:)

[klop086]

А если эту прогу в autoexec.bat прописать - он будет ждать её завершения?

[SSecurity]

да будет но под досом%)

[Tamahawk]

В ХРюше Я могу стартовать прогой до рабочего стола, но надо ли тебе

[SSecurity]

а надо бы под 98й...