Probleme d'adaptation entre l'ecriture d'une api sous VB6 et VB2008

Question

Bonjour a tous,
Voila plusieur jours que je cherche comment bloquer quelque fonctionnalité de windows, du genre gestionnaire de tache par appuie sur ctrl+alt+suppr, la combinaison de touche ctrl+tab,alt+F4 .... ainsi que rendre la barre de tache invisble afin que tout acces a windows soient bannie durant l'execution de l'appli.
J'ai finalement réussie par trouver une source me permettant de faire tout ce-ci, le probleme est qu'elle est ecrite sou VB6,que la conversion ne marche pas et que le code ne marche pas en VB2008.
le code est le suivant:
Public

 PWD1, PWD2 
As
StringPrivate

Structure RECT

Dim Left 
As
Long
Dim Top 
As
Long
Dim Right 
As
Long
Dim Bottom 
As
Long
End
Structure

Private
Const HWND_TOPMOST = -1

Private
Const SW_HIDE = &H0

Private
Const SW_SHOW = &H5

Private
Const SWP_SHOWWINDOW = &H40

Private
Const SWP_HIDEWINDOW = &H80

Private
Declare
Function FindWindow 
Lib
"user32"
Alias
"FindWindowA" (
ByVal lpClassName 
As
String, 
ByVal lpWindowName 
As
String) 
As
Long
Private
Declare
Function FindWindowEx 
Lib
"user32"
Alias
"FindWindowExA" (
ByVal hWnd1 
As
Long, 
ByVal hWnd2 
As
Long, 
ByVal lpsz1 
As
String, 
ByVal lpsz2 
As
String) 
As
Long
Private
Declare
Function SetWindowPos 
Lib
"user32" (
ByVal hwnd 
As
Long, 
ByVal hWndInsertAfter 
As
Long, 
ByVal X 
As
Long, 
ByVal Y 
As
Long, 
ByVal cx 
As
Long, 
ByVal cy 
As
Long, 
ByVal wFlags 
As
Long) 
As
Long
Private
Declare
Function ShowWindow 
Lib
"user32" (
ByVal hwnd 
As
Long, 
ByVal nCmdShow 
As
Long) 
As
LongPrivate
Declare
Function SystemParametersInfo 
Lib
"user32"
Alias
"SystemParametersInfoA" (
ByVal uAction 
As
Long, 
ByVal uParam 
As
Long, 
ByVal lpvParam 
As Any, 
ByVal fuWinIni 
As
Long) 
As
Long
Private
Declare
Function GetComputerName 
Lib
"kernel32"
Alias
"GetComputerNameA" (
ByVal lpBuffer 
As
String, nSize 
As
Long) 
As
Long
Private
Declare
Function ClipCursor 
Lib
"user32" (lpRect 
As Any) 
As
Long
Private
Declare
Function GetWindowRect 
Lib
"user32" (
ByVal hwnd 
As
Long, lpRect 
As RECT) 
As
Long
Private
Declare
Function ShowCursor 
Lib
"user32" (
ByVal bShow 
As
Long) 
As
Long
Private
Declare
Function GetWindowsDirectory 
Lib
"kernel32"
Alias
"GetWindowsDirectoryA" (
ByVal lpBuffer 
As
String, 
ByVal nSize 
As
Long) 
As
Long
Public
Sub p_Bloquer(v 
As
Boolean)

Dim RetVal, hWin, lFlag 
As
Long
Dim R 
As RECT

'Blocage de Alt+Ctrl+Suppr
SystemParametersInfo(97, v, 
CStr(1), 0)

'Blocage de la barre des tâches
hWin = FindWindow(
"Shell_traywnd", 
"")

If v 
Then SetWindowPos(hWin, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 
Else SetWindowPos(hWin, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

'Effacement des icônes du bureau
hWin = FindWindowEx(0&, 0&, 
"Progman", vbNullString)

If v 
Then ShowWindow(hWin, SW_HIDE) 
Else ShowWindow(hWin, SW_SHOW)

'Effacement du curseur de la souris
If v 
Then ShowCursor(0) 
Else ShowCursor(1)

End
Sub

Ma question est donc: Que dois-je faire pour adapter ce code en vb2008, ou quel code puis je utiliser pour arriver a mes fin.

Merci d'avance!!!

Renfield · Answer

VB6  => .NET
Long => Integer

cs_jojac · Answer

Ok, j'etais au courant et j'avais essayer mais en faite je m'en rend compte seulement maintenant, ca marche a moitié,je précise;
pour cacher la barre de tache et les icones pas de pb ca marche mais en réalité ce ki m'interesse le plus est de bloquer les combinaisons de touches genres ctrl+alt+suppr, assuré par:
SystemParametersInfo(97, v, CStr(1), 0)

et c'est finalement que ca qui ne marche pas, alors que dois je faire pour y arriver

Renfield · Answer

cette astuce marche quand ca lui chante et ne garantie en rien la réussite de la chose.

j'ai jamais trop compris le but de cette manoeuvre.

voir la source de BruNews, seule vraie solution

cs_jojac · Answer

j'ai chercher et j'ai rien trouver de ses source ki ressemble a ce ke je cherche peu tu me filer un lier stp

Renfield · Answer

par exemple:

http://www.vbfrance.com/codes/CTRL-ALT-SUPPR-INTERCEPTION-SUR-XP_17289.aspx

Probleme d'adaptation entre l'ecriture d'une api sous VB6 et VB2008

5 réponses

Votre réponse

Discussions similaires