🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #595

Re: Spegnere il pc

#595
From: ZonaRossa
Date: Fri, 28 Oct 2005 13:00
18 lines
1513 bytes
"Giovanni" <giovxxxx@virgilio.it> ha scritto nel messaggio 
news:43620ed8$0$13360$4fafbaef@reader2.news.tin.it...
> Esiste un comando da inserire alla fine di una routine che spegne il pc?
> Grazie
>Ecco, Puoi fare cosi...................
###########################################################
Dim objShell As Object

Set ZonaRossa = CreateObject("Shell.Application")
ZonaRossa.ShutdownWindows
Set ZonaRossa = Nothing

###########################################################


_________________________
by ZonaRossa 
Technical Details
Message-ID: <Ghp8f.6280$hC1.1170@tornado.fastwebnet.it>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!tiscali!newsfeed1.ip.tiscali.net!tornado.fastwebnet.it!53ab2750!not-for-mail
References: <43620ed8$0$13360$4fafbaef@reader2.news.tin.it>

Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,6da2bb0fbcb3dab4
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!tiscali!newsfeed1.ip.tiscali.net!tornado.fastwebnet.it!53ab2750!not-for-mail
Reply-To: "ZonaRossa" <00000@null.ci>
From: "ZonaRossa" <00000@null.ci>
Newsgroups: free.it.visual-basic
References: <43620ed8$0$13360$4fafbaef@reader2.news.tin.it>
Subject: Re: Spegnere il pc
Lines: 20
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
X-Rfc2646: Format=Flowed; Response
Message-ID: <Ghp8f.6280$hC1.1170@tornado.fastwebnet.it>
Date: Fri, 28 Oct 2005 15:00:22 +0200
NNTP-Posting-Host: 39.242.161.49
X-Complaints-To: newsmaster@fastweb.it
X-Trace: tornado.fastwebnet.it 1130504422 39.242.161.49 (Fri, 28 Oct 2005 15:00:22 CEST)
NNTP-Posting-Date: Fri, 28 Oct 2005 15:00:22 CEST