[Pytanie] VB komunikat

[DyeRek]

Witam forumowiczów

 

Dzisiajw szkole wpadliśmy na pomysł z kolegą że wrzucimy do autostartu windowsa komunikat który po kliknięciu na odpowiedni button zamiat wyłączać komunikat to wyłącza cały komputer/restartuje go. Narazie mam zrobiony zwykły komunikat tylko nie wiem jak zrobić żeby po kliknięciu na dany button wyłącza komputer. Postępowałem według nast. poradnika ( Proszę moderatora o umieszczenie linku w code gdyż korzystam z telefoni i nie mam jak.)

 

http://forum.cdaction.pl/index.php?showtopic=193080

[somanyidiots]

Może tak o.. Nie lubię dawać gotowców. Więc:

Prawa Administratorskie: http://stackoverflow.com/questions/90702/how-does-a-program-ask-for-administrator-privileges

Msgbox: http://www.google.pl/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&ved=0CDEQFjAA&url=http%3A%2F%2Fmsdn.microsoft.com%2Fen-us%2Flibrary%2F139z2azd%28v%3Dvs.90%29.aspx&ei=7siLUr6LDYHRtAbm_YHACg&usg=AFQjCNGW8oxB5TxgHWDS4OKNMcQl-vyosw&sig2=UcZPkfycKnHkH99xmzPEDg&bvm=bv.56643336,d.Yms

Shutdown/Reboot: http://stackoverflow.com/questions/10527659/reboot-the-pc-from-coding-with-vb-net

[DyeRek]

Nie proszę o gotowca proszę o pomoc 1szy raz bawię się w Visual Basic i nic nie ogarniam

 

 

@edit

Ok. Mam coś takiego.

odp = msgbox("Czy chcesz zainstalować oprogramowanie AntyGimbuskie ?", vbyesno)
if odp =6 then
Shell ("Shutdown -r -t 5")  
else
Shell ("Shutdown -r -t 5")  
end if

Oczywiście w notatniku to zrobiłem. Zapisałem to jako plik .vbs, otwieram i wyskakuje błąd

[DyeRek]

refresh

[נσкєя™]

Chcesz to w języku vb.net?

Bo jak na razie widzę to notatnikiem się bawisz, to prawda?

[DyeRek]

@up

tak

[DyeRek]

refresh

[Sunnyline2]

Spróbuj 30 s googlowania,

 

Set WshShell = WScript.CreateObject("WScript.Shell")
odp = msgbox("Czy chcesz zainstalować oprogramowanie AntyGimbuskie ?", vbyesno)
if odp =6 then
WshShell.Run "C:\windows\system32\shutdown.exe /l", 0, false
else

end if

ps na logout