Discussion :

[Poulain]

Bonjour à tous et à toutes!!!

J'expose mon problmèe, je voudrais créer un servcie, qui affiche un notify icon, à partir duquel j'ai un prog à faire tourner, enfin bref revenons au problème.

Mon problème, c'est que pour que mon service puisse afficher le notifyicon, je dois aller dans outils d'administration et faire propriétés sur mon service, dans l'onglet connection cocher la case: Autoriser intéraction avec le bureau.

J'ai trouvé sur le net un bout de code, pour régler ce problème, mais je n'arrive pas a le traduire en VB.Net:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
// Here is where we set the bit on the value in the registry.
// Grab the subkey to our service
RegistryKey ckey = Registry.LocalMachine.OpenSubKey(@"SYSTEM\CurrentControlSet\Services\WindowsService1",true);
// Good to always do error checking!
if(ckey != null)
{
// Ok now lets make sure the "Type" value is there,
//and then do our bitwise operation on it.
if(ckey.GetValue("Type") != null)
{
ckey.SetValue("Type", ((int)ckey.GetValue("Type") | 256));
}
}

Si vous pouviez m'aider. Merci!

[Poulain]

Cette réponse peut servir à d'autres personnes que moi.

Alors, je ne met pas en résolu, tant qu'il n'y a pas de réponse, même si ça ne me sert pas.

[Gdal]

Salut,

Réponse en 3 clic
1- http://www.kamalpatel.net/ConvertCSharp2VB.aspx
2 - Ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
// Here is where we set the bit on the value in the registry.
// Grab the subkey to our service
RegistryKey ckey = Registry.LocalMachine.OpenSubKey(@"SYSTEM\CurrentControlSet\Services\WindowsService1",true);
// Good to always do error checking!
if(ckey != null)
{
// Ok now lets make sure the "Type" value is there,
//and then do our bitwise operation on it.
if(ckey.GetValue("Type") != null)
{
ckey.SetValue("Type", ((int)ckey.GetValue("Type") | 256));
}
}

3- Generate Vb.net Code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' Here is where we set the bit on the value in the registry.
' Grab the subkey to our service
Dim ckey As RegisTryKey =  RegisTry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\WindowsService1",True) 
' Good to always do error checking!
If Not ckey Is Nothing Then
' Ok now lets make sure the "Type" value is there,
'and then do our bitwise operation on it.
If Not ckey.GetValue("Type") Is Nothing Then
ckey.SetValue("Type", (CType(ckey.GetValue("Type") | 256, Integer)))
End If
End If
 
'----------------------------------------------------------------
' Converted from C# to VB .NET using CSharpToVBConverter(1.2).
' Developed by: Kamal Patel (http://www.KamalPatel.net) 
'----------------------------------------------------------------

Voilà...

D'ailleur il y a une version offline.

Gwendal

[olsimare]

Bonjour.

Mettre à jour la base de registre c'est un peu violent non ?

Jette un oeil sur ce post : http://www.developpez.net/forums/sho...d.php?t=314711

Cdt.