Конференция VBStreets

**--=GAMER=--** » 20.11.2004 (Сб) 5:17

Накопал несколько полезных строк но как их использовать в VB не знаю ....

Код: Выделить всё: rundll32 user.exe,ExitWindows Завершение работы Виндоуз rundll32 user.exe,ExitWindowsExec Перезагрузка Виндоуз rundll32 shell32.dll,SHExitWindowsExec Завершение сеанса Виндоуз rundll32 user,RepaintScreen Обновить экран (F5) rundll32 user,WNetDisconnectDialog Вызвать окно "Отключение сетевого диска" rundll32 user,disableoemlayer Спровоцировать сбой (чёрный экран, мигающий курсор) rundll32 user,WNetConnectDialog Вызвать окно "Подключение сетевого диска" rundll32 user,SetCursorPos Переместить курсор мыши в левый верхний угол rundll32 diskcopy,DiskCopyRunDll Вызвать окно "Копирование диска" rundll32 shell,ShellExecute Открать корневой каталог в проводнике rundll32 shell32,SHFormatDrive Вызвать окно формотирования диска rundll32 shell32,ShellAboutA Показать окно AboutWindows rundll32 shell32,Control_RunDll Открать панель управления rundll32 krnl386.exe,exitkernel Выход из Виздоуз без любых сообщений и вопросов rundll32 user,SwapMouseButton Поменять местами клавиши мыши (РАБОТАЕТ ТОЛЬКО В ОДНУ СТОРОНУ!) rundll32 keyboard,disable Откл. клавиатуру rundll32 mouse,disable Откл. мышь rundll32 user,TitleСhildWindows Расположить все несвёрнутые окна по вертикали rundll32 user,CascadeChildWindows Расположить все несвёрнутые окна каскадом rundll32 msprint2.dll,RUNDLL_PrintTestPage Выбрать принтер и распечатать пробную страницу rundll32 user,SetCaretBlinkTime Сильно увеличить частоту мигпния курсора rundll32 rnaui.dll,RnaWizard Изменить скорость двойного щелчка rundll32 sysdm.cpl,InstallDevice_Rundll Вызвать диалог "Установка связи" rundll32 shell32,SHExitWindowsEx 0 Перезагрузить Виндоуз без перезагрузки компьютера rundll32 shell32,SHExitWindowsEx 1 Завершить работу Виндоуз rundll32 shell32,SHExitWindowsEx 2 Перезагрузить компьютер

**Ruslan Demidow** » 20.11.2004 (Сб) 8:48

Shell(CommandLine)

**tyomitch** » 20.11.2004 (Сб) 12:25

Или объявить эти функции через Declare, и вызывать как обычно.

**--=GAMER=--** » 22.11.2004 (Пн) 11:02

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

**Ruslan Demidow** » 22.11.2004 (Пн) 12:28

--=GAMER=-- писал(а):Конкретные примеры пожалуйста, а то понять не могу как должна выглядеть строка.

Код: Выделить всё: Sub Command1_Click() Shell("rundll32 shell32,Control_RunDll") End Sub

**ANDLL** » 22.11.2004 (Пн) 19:00

Код: Выделить всё: Public declare function Control_RunDll lib "shell32.dll" () as long

**--=GAMER=--** » 23.11.2004 (Вт) 8:42

Ошибка: Только комментарии могут появляться после End sub,End Funcshion, и End Propety ......

Код: Выделить всё: Private Sub Command1_Click() Public Declare Function Control_RunDll Lib "shell32.dll" () As Long Shell ("rundll32 shell32,Control_RunDll") End Sub

**--=GAMER=--** » 23.11.2004 (Вт) 8:52

Этокод который я писал и ошибка аоторая мешает запуску

**ANDLL** » 23.11.2004 (Вт) 11:12

Код: Выделить всё: Private Declare Function Control_RunDll Lib "shell32.dll" () As Long Private Sub Command1_Click() Call Control_RunDll() End Sub

**--=GAMER=--** » 28.11.2004 (Вс) 6:35

Не может найти DLL точку входа Control_rundll в shell32.dll - ошибка

**tyomitch** » 28.11.2004 (Вс) 10:47

может быть, Control_RunDllA :?:

или с регистром какие-нибудь траблы?

[edit]ага, точно. Надо Control_RunDLL[/edit]

**xolod** » 28.11.2004 (Вс) 21:27

А есть такая функция Control_RunDll

?

**tyomitch** » 29.11.2004 (Пн) 5:05

Нету, есть только Control_RunDLL :-)

**xolod** » 29.11.2004 (Пн) 5:38

Твоя правда, есть :lol:

..
Тока зачем ее юзать, не понятно, не проще объявлять непосредственно сами функции :wink:

**tyomitch** » 29.11.2004 (Пн) 5:43

1. Она делает не то, что ты думаешь - она принимает имя cpl-файла и номер апплета, и выводит его.
Пример: Windows-R -> rundll32 shell32,Control_RunDLL appwiz.cpl
Выведется "установка и удаление программ".
2. Существует она именно для этого же: для вызова по rundll. А для декларации в VB лучше подходит SHRunControlPanel ( http://bbs.vbstreets.ru/viewtopic.php?p=70673#70673 )

**--=GAMER=--** » 29.11.2004 (Пн) 5:51

Пробовал и Control_RunDLL
Вообще вылетает и хочет отправить "отзыв"....

**tyomitch** » 29.11.2004 (Пн) 7:18

У меня всё работает... Проверяй код:

Код: Выделить всё: Option Explicit Private Declare Sub Control_RunDLL Lib "shell32" (ByVal hwndStub As Long, ByVal hAppInstance As Long, ByVal pszCmdLine As String, ByVal nCmdShow As Long) Sub Form_DblClick() Control_RunDLL hWnd, 0, "appwiz.cpl", 0 End Sub

Но стой - зачем тебе это всё? :-?

**--=GAMER=--** » 30.11.2004 (Вт) 12:04

А откуда "appwiz.cpl", 0:?:

Конференция VBStreets

rundll32 и с чем его едят...

rundll32 и с чем его едят...

Кто сейчас на конференции