ďťż

Ładny brzuch

Czy możecie mi podać kod vbs odpowiedzialny za wyłączenie kompa?

----------------
Kamil Wajda
GG:4498354


Wpisuje się coś takiego:rundll32 shell32,SHExitWindowsEx 1

GG 2370024 | Tlen blackmesa | Skype! blackmesa47 | ICQ 343895232
⇒ NIE dla Internet Explorera ⇐
Nawracanie z IE na Operę to jest jak nawracanie dzieci z arszeniku na lizaki

Próbowałem ale nie działa. Pojawia się błąd: Skrypt: "C:...; Wiersz 1; Znak 34; Błąd: Oczekiwano końca instrukcji; Kod: 800A0401; Źródło: Microsoft VBScript - błąd kompilacji

----------------
Kamil Wajda
GG:4498354

Dość fajny skrypcik na to:Dim q Set WshShell=Wscript.CreateObject("WScript.Shell") q=MsgBox("Czy chcesz zamknąć system?",vbQuestion+vbOkCancel,"BlackMesa") If q=vbOk Then   WshShell.Run ("rundll32 shell32.dll,SHExitWindowsEx 5") End If

GG 2370024 | Tlen blackmesa | Skype! blackmesa47 | ICQ 343895232
⇒ NIE dla Internet Explorera ⇐
Używasz IE? Powiedz NIE!


cytat:BlackMesa napisał:

Dość fajny skrypcik na to:Dim q Set WshShell=Wscript.CreateObject("WScript.Shell") q=MsgBox("Czy chcesz zamknąć system?",vbQuestion+vbOkCancel,"BlackMesa") If q=vbOk Then   WshShell.Run ("rundll32 shell32.dll,SHExitWindowsEx 5") End If

GG 2370024 | Tlen blackmesa | Skype! blackmesa47 | ICQ 343895232
#8658; NIE dla Internet Explorera #8656;
Używasz IE? Powiedz NIE!

A po co ten komunikat "czy chcesz zamknąć system"? Nie lubisz "niespodzianek?

Rizo ®
GG: 1155764
_________________________
Skasuj Winsows, będzie przeciąg :)

To jest dział "Programowanie" a nie "Programowanie niespodzianek" :) Srypt podałem taki, bo jest to kawałek skryptu obsługującego GG jak siadam na kompa w szkole (ściąga GG na dysk, instaluje mój profil, czyści ikonki na pulpicie, ustawia moje tło, czeka na nacośnięcie OK, kasuje profil GG, zamyka system)

GG 2370024 | Tlen blackmesa | Skype! blackmesa47 | ICQ 343895232
⇒ NIE dla Internet Explorera ⇐
Nowy komputer? NIE daj go sobie popsuć!

cytat:BlackMesa napisał:

Dość fajny skrypcik na to:Dim q Set WshShell=Wscript.CreateObject("WScript.Shell") q=MsgBox("Czy chcesz zamknąć system?",vbQuestion+vbOkCancel,"BlackMesa") If q=vbOk Then   WshShell.Run ("rundll32 shell32.dll,SHExitWindowsEx 5") End If

GG 2370024 | Tlen blackmesa | Skype! blackmesa47 | ICQ 343895232
#8658; NIE dla Internet Explorera #8656;
Używasz IE? Powiedz NIE!

Nie działa! Mam Windows XP Pro.

----------------
Kamil Wajda
GG:4498354

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •