Visual Basic program

[Finn]

Γεια σας..θα ηθελα να ρωτησω αν εχω τη δυνατοτητα με τιν VB να κανω ενα προγραματακι στο οποιο με το πατημα ενος command button να κανει shut down ο υπολογιστης

[Bourdoulas]

Ναι μπορείς να το κάνεις αυτό μέσω API...Προσωπικά δεν γνωρίζω πως

[Dvs]

ginetai - to exo kanei se c++ . an einai i idia API tote einai i exis:

 

ExitWindowsEx (); (me tis katalliles parametrous ...)

[Finn]

Μπορεις να γινεις λιγο πιο συγκεκριμενος...

ευχαριστω για τις απαντησεις

[apoc]

'****************************************************************

'Windows API/Global Declarations

'****************************************************************

Το declaration ειναι αυτό

 

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean

 

γυρίζει ενα boolean χησιμοποιησαι την αναλογα

Δες στο MSDN για τα constants δεν ξερω αν τα παρακάτω είναι σωστά

Const EWX_LOGOFF = 0

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_FORCE = 4

 

Ελπιζω να βοήθησα!

[piosmexeri]

anixe ena new project...ke meta sto General ( (Declarations) ) grapse:

 

Private Declare Function ExitWindowsEx Lib "User32" (ByVal a As Long, ByVal b As Long) As Long

Private Const EWX_LOGOFF = 1

Private Const EWX_POWEROFF = 2

Private Const EWX_REBOOT = 3

Private Const EWX_SHUTDOWN = 4

Private Const EWX_FORCE = 5

 

afou valis ke ena koubaki sto event click tou button grapse :

 

ExitWindowsEx 1, 0 (an thes logoff)

 

ExitWindowsEx 2, 0 (an thes poweroff)

 

ExitWindowsEx 3, 0 (an thes reboot)

 

ExitWindowsEx 4, 0 (an thes shutdown)

 

ExitWindowsEx 5, 0 (an thes force shutdown)

 

(i an ta thes ola vale options)

<img border="0" title="" alt="[Cool]" src="images/icons/cool.gif" />

[Dvs]

Opos eipa exo ftiaxei to sigekrimeno se VC++ (VStudio). Ostoso to pc POTE den kataferenei na kanei shutdown! (se winXP). Mipos iparxei kapoio lathos ston kodika?

 

ExitWindowsEx (EWX_POWEROFF & EWX_FORCE, NULL);

[bandito]

Το λάθος είναι οτι τα WINXP, είναι πολυχρηστικό σύστημα και ώς εκ τούτου (καλο ε;;;; ) δεν μπορεί ο καθείς να κάνει οτι θέ στον υπολογιστή. Αν ψάξεις στο MSDN, θα βρείς κώδικα για να μπορείς να το κλείνεις και απο τα XP αν είσαι logged σαν administrator.

 

Το έχω ξαναπεί, αλλά μάλλον δεν μου έδωσε κανείς σημασία. Ότι ρωτάτε εδω σε σχέση με την VB είναι στο MSDN. Και εγώ απο εκεί τα βρίσκω. Τρία CD-ακια είναι , πάρτε τα και δεν θα χάσετε.

[Dvs]

Exo to msdn tou Visual Studio 6 alla den anaferei kati tetoio! (exallou pos allios tha mporousa na vro tin Api xoris na psaxo ekei?)

[ffilz]

Τι ειναι αυτο το MSDN????????

Πειτε και σε εμας του αμαθεις, που θελουμε να μαθουμε <img border="0" title="" alt="[Razz]" src="images/icons/tongue.gif" /> <img border="0" title="" alt="[Razz]" src="images/icons/tongue.gif" /> <img border="0" title="" alt="[Razz]" src="images/icons/tongue.gif" /> <img border="0" title="" alt="[Razz]" src="images/icons/tongue.gif" /> <img border="0" title="" alt="[Razz]" src="images/icons/tongue.gif" />

[Dvs]

eiai 2 cd me ta help files tou VStudio (C++/VB/etc..)

[sk8]

Vasika yparxei kai polli pio eykolos tropos re seis.

Min talaiporeitai adika to paidi.

 

1) Dimiourgise ena eikonidio sto desktop sou i opou allou thes (right klik sto desktop New> Shortcut)

 

2) Meta sto Command Line Box (Proorismos) grapse:

 

C:\Windows\rundll.exe user.exe,exitwindows

 

(opos einai aytofyes apla kanto c/p)

Tora apla kanontas diplo klik se ayto to eikonidio o ypologisths sou tha kleinei me tin mia kai xoris kamia proeidopihsh.

 

(Pio eykolo apo to na katseis na grapseis olokliro programma den nomizeis?) <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

[Dvs]

pio eukola alla allo na to kaneis se VB kai allo me shortcut <img border="0" title="" alt="[Razz]" src="images/icons/tongue.gif" />

[damn3]

den jero ean sas boithaei ayto mias kai einai se pascal (isos na to metatrepate;):

 

Uploader: Rimantas Petrauskas

Company: Reference: WallSoft Inc.

 

Question/Problem/Abstract:

 

How can I shutdown PC even if Windows doesn't wants to exit or NT says that you don't have privileges to shutdown?

Answer:

 

Simply use this code:

 

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">function GetWinVersion: String;

var

VersionInfo : TOSVersionInfo;

OSName : String;

begin

// set the size of the record

VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );

 

if Windows.GetVersionEx( VersionInfo ) then

begin

with VersionInfo do

begin

case dwPlatformId of

VER_PLATFORM_WIN32s : OSName := 'Win32s';

VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';

VER_PLATFORM_WIN32_NT : OSName := 'Windows NT';

end; // case dwPlatformId

Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +

#13#10' (Build ' + IntToStr( dwBuildNumber ) + ': ' + szCSDVersion + ')';

end; // with VersionInfo

end // if GetVersionEx

else

Result := '';

end;

 

procedure ShutDown;

const

SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland forgot this declaration

var

hToken : THandle;

tkp : TTokenPrivileges;

tkpo : TTokenPrivileges;

zero : DWORD;

begin

if Pos( 'Windows NT', GetWinVersion) = 1 then // we've got to do a whole buch of things

begin

zero := 0;

if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then

begin

MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );

Exit;

end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)

if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then

begin

MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );

Exit;

end; // if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)

 

 

// SE_SHUTDOWN_NAME

if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then

begin

MessageBox( 0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK );

Exit;

end; // if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid )

tkp.PrivilegeCount := 1;

tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;

 

AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero );

if Boolean( GetLastError() ) then

begin

MessageBox( 0, 'Exit Error', 'AdjustTokenPrivileges() Failed', MB_OK );

Exit;

end // if Boolean( GetLastError() )

else

ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );

end // if OSVersion = 'Windows NT'

else

begin // just shut the machine down

ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );

end; // else

end; [/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">

[vooda]

Μπορείς να κάνεις και το εξής. Βάλε ένα messagebox και όταν ο υπολογιστής θέλεις να κλείσει να γράφει... "Κλείσε τώρα την υπολογιστή μη σου σπάσω τα παΐδια"

<img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />

<img border="0" title="" alt="[smile]" src="images/icons/smile.gif" />