|
Jak zamkn±æ Windows z poziomu VB. |
|
|
|
Napisa³ Administrator
|
|
niedziela, 02 pa¼dziernik 2005 |
1. Umie?? kod w sekcji Declarations formularza:
Const EWX_LogOff As Long = 0
Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" (ByVal dwOptions As
Long, ByVal dwReserved As Long) As Long
Dodaj ten kod np: do przycisku:
ExitWindows EWX_LogOff, &HFFFFFFFF
W sumie banalne, ale je?eli kto? nie wie nic o API to z tego nic nie kapuje.
Ja o API ma?o wiem (wierzcie mi, bardzo ma?o), wi?c nie próbuj? nawet t?umaczy? co to za
funkcja.
W ka?dym razie w ten sposób mo?esz zamkn?? windoz? z poziomu aplikacji VB.
Uzupe³nienie
przyk³ad
Opis do przyk?adu.
ReStart.inf - Informacje Instalatora (Windows)
[version] - nag?ówek skryptu
signature
="$chicago$" - wersja Windows dla której skrypt jest przeznaczony
Tyle wystarczy do restartu ;-)
Ogólnie o tych skryptach wiem niewiele ( Microsoft nie udost?pnia specyfikacji )
A teraz pora na ?ród?o:
Sub ReStart()
Dim Start As Integer, AppStart As Integer
T? linijk? "potargam" na kawa?ki:
1. Start = " - przypisuje zmiennej Start ...
2. ... rundll32.exe - program który umie uruchomi? funkcj? z DLLa
3. setupx.dll - DLL zawieraj?cy funkcj? ...
4. ... InstallHinfSection - nazwa funkcji
5. DefaultInstall 130 - parametry funkcji*
6. & App.Path & - ?cie?ka do INFa
7. "\ReStart.inf" - nazwa INFa
AppStart = Shell(Start) - wykonuje polecenie zawarte w zmiennej Start
End Sub
* - polecenie zainstaluj z menu kontekstowego( z
obacz w skojarzeniach plików ):
C:\WINDOWS\rundll.exe setupx.dll,InstallHinfSection DefaultInstall 132
130 - pytaj czy restartowa? po wykonaniu skryptu
132 - NIE restartuj po wykonaniu skryptu
Aby dodaæ komentarz zaloguj siê. Je¶li nie masz konta, za³ó¿ je sobie.
Tylko zarejestrowani u¿ytkownicy mog± pisaæ komentarze. Powered by AkoComment 2.0! |
