Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Bureau à distance

Bureau à distance

3 réponses
Avatar
mlp code
Voil=E0 ce que j'aurais de besoin. N'importe quoi, lien, bouton, image,
peut-importe. On clique dessus, puis on prend le serveur en contr=F4le.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre-R
Dim MyDocuments
Dim MyExplorer
Dim GoMyDocuments

'Utilisation du wscript.shell pour lire dans la base de registre pour savoir
ou se trouve mes documents
Set WshShell = CreateObject("WScript.Shell")

MyExplorer = "c:/windows/explorer.exe "
MyDocuments =
WshShell.regread("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell
FoldersPersonal") & "Default.rdp"

GoMyDocuments = MyExplorer & MyDocuments

Shell (GoMyDocuments), vbNormalFocus

' "Default.rdp" est la conexion de bureau à distance.


End Sub
"mlp code" a écrit dans le message de news:

Voilà ce que j'aurais de besoin. N'importe quoi, lien, bouton, image,
peut-importe. On clique dessus, puis on prend le serveur en contrôle.
Avatar
Pierre-R
Désoler ce code est bon pour le Visual Basic 6

Dim MyDocuments
Dim MyExplorer
Dim GoMyDocuments

'Utilisation du wscript.shell pour lire dans la base de registre pour
savoir ou se trouve mes documents
Set WshShell = CreateObject("WScript.Shell")

MyExplorer = "c:/windows/explorer.exe "
MyDocuments =
WshShell.regread("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell
FoldersPersonal") & "Default.rdp"

GoMyDocuments = MyExplorer & MyDocuments

Shell (GoMyDocuments), vbNormalFocus

' "Default.rdp" est la conexion de bureau à distance.

End Sub



Voici ce lui pour VB.net
Dim MyDocuments: Dim MyExplorer : Dim GoMyDocuments : Dim WshShell

WshShell = CreateObject("WScript.Shell")

'Utilisation du wscript.shell pour lire dans la base de registre

WshShell = CreateObject("WScript.Shell")

MyExplorer = "c:/windows/explorer.exe "

MyDocuments =
WshShell.regread("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell
FoldersPersonal") & "Default.rdp"

GoMyDocuments = MyExplorer & MyDocuments

Shell(GoMyDocuments, AppWinStyle.MaximizedFocus)

"mlp code" a écrit dans le message de news:

Voilà ce que j'aurais de besoin. N'importe quoi, lien, bouton, image,
peut-importe. On clique dessus, puis on prend le serveur en contrôle.




Avatar
mlp code
j'avais oublier de spécifier que je suis dans le contexte d'une
application web. Je crois que ça ne fonctionne pas, car la commande
Shell s'exécute sur le serveur qui fait rouler l'application et non
sur le poste client.