Salut,

"SendMessage" est aussi utilisable en VB.NET.
L'utilisation doit être plus ou moins similaire à VB6.

Ok, merci pour ton travail.

Quand je pense que j'ai déposé cette source il y a plus de 5 ans...  
Et un heureux de plus ;O)

Si mes souvenirs sont bons il faut aussi enregistrer ssubtmr6.dll.

Ben oui, c'est un code pour VB6 et non VB.NET.  Il faut toujours le préciser...
pour .NET je ne peux t'aider...

Salut ;O)

Imagine un bouton nommé MyButton sur un formulaire nommé MyForm1.  Ce bouton ouvre un autre formulaire nommé MyForm2 qui sera intégré dans MyForm1.

Sur l'événement Click de MyButton, place le code suivant :
MyForm2.Show
FormWithinForm Me, MyForm2

Concernant le code tout au dessus, place-le soit dans un formulaire ou dans un module.

Guy

vbPink >  Avec toutes ces lignes de codes, c'est toi qui gère le processus en entier sans devoir passer par une façon de faire dont on est dépendant.
L'intêret principal est de pouvoir gérer les codes de retour.

Salut à tous

Voici le code full API à placer dans un module.  Ce code n'est pas de moi.

Utilisation pour l'enregistrement : Retval = RegisterComponent("C:\WINNT\SYSTEM32\monocx.ocx", DllRegisterServer)
Utilisation pour le 'désenregistrement' : Retval = RegisterComponent("C:\WINNT\SYSTEM32\monocx.ocx", DllUnRegisterServer)

Retval étant de type long retournant un code de status

File Could Not Be Loaded Into Memory Space = 1
Not A Valid ActiveX Component = 2
ActiveX Component Registration Failed = 3
ActiveX Component Registered Successfully = 4
ActiveX Component UnRegistered Successfully = 5



Option Explicit

Private Declare Function LoadLibraryRegister Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibraryRegister Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetProcAddressRegister Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CreateThreadForRegister Lib "kernel32" Alias "CreateThread" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpparameter As Long, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As Long
Private Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)

Private Const STATUS_WAIT_0 = &H0
Private Const WAIT_OBJECT_0 = ((STATUS_WAIT_0) + 0)

Public Enum REGISTER_FUNCTIONS
    DllRegisterServer = 1
    DllUnRegisterServer = 2
End Enum

Public Enum STATUS
     [File Could Not Be Loaded Into Memory Space] = 1
     [Not A Valid ActiveX Component] = 2
     [ActiveX Component Registration Failed] = 3
     [ActiveX Component Registered Successfully] = 4
     [ActiveX Component UnRegistered Successfully] = 5
End Enum

Public Function RegisterComponent(ByVal Filename As String, ByVal RegFunction As REGISTER_FUNCTIONS) As STATUS

'**********************************************************************************
'Author: Vasudevan S
'Helena, MT
'Function: RegisterComponent
'Purpose: Registers/Unregisters any ActiveX DLL/EXE/OCX component
         'Entry Points in ActiveX DLL/EXE/OCX are DllRegisterServer and DllUnRegisterServer
'Input: FileName:       Any valid file with complete path
        'RegFunction:   Enumerated Type(DllRegisterServer, DllUnregisterServer)
'Returns: Returns the status of the call in a enumerated type
'Comments: The utility REGSVR32.EXE need not be used to register/unregister ActiveX
           'components. This code can be embedded inside any application that needs
           'to register/unregister any ActiveX component from within the code base
'SAMPLE FORM IS INCLUDED
'WORKS IN VB5.0/6.0
          
'HOW TO CALL:
'-----------
'Dim mEnum As STATUS
'
'TO REGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:\windows\system\filename.dll", DllRegisterServer) 'to Register
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registered Successfully] Then
'   MsgBox "Your Message Here", vbExclamation
'End If
'
'TO UNREGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:\windows\system\filename.dll", DllUnRegisterServer) 'to UnRegister
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] Then
'   MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component UnRegistered Successfully] Then
'   MsgBox "Your Message Here", vbExclamation
'End If
'************************************************************************************


Dim lngLib&, lngProcAddress&, lpThreadID&, fSuccess&, dwExitCode&, hThread&

If Filename = "" Then Exit Function

lngLib = LoadLibraryRegister(Filename)
If lngLib = 0 Then
    RegisterComponent = [File Could Not Be Loaded Into Memory Space]    'Couldn't load component
Exit Function
End If

Select Case RegFunction
Case REGISTER_FUNCTIONS.DllRegisterServer
    lngProcAddress = GetProcAddressRegister(lngLib, "DllRegisterServer")
Case REGISTER_FUNCTIONS.DllUnRegisterServer
    lngProcAddress = GetProcAddressRegister(lngLib, "DllUnregisterServer")
Case Else
End Select

If lngProcAddress = 0 Then
   RegisterComponent = [Not A Valid ActiveX Component]               'Not a Valid ActiveX Component
   If lngLib Then Call FreeLibraryRegister(lngLib)
   Exit Function
Else
   hThread = CreateThreadForRegister(ByVal 0&, 0&, ByVal lngProcAddress, ByVal 0&, 0&, lpThreadID)
   If hThread Then
        fSuccess = (WaitForSingleObject(hThread, 10000) = WAIT_OBJECT_0)
        If Not fSuccess Then
           Call GetExitCodeThread(hThread, dwExitCode)
           Call ExitThread(dwExitCode)
           RegisterComponent = [ActiveX Component Registration Failed]        'Couldn't Register.
           If lngLib Then Call FreeLibraryRegister(lngLib)
           Exit Function
        Else
            If RegFunction = DllRegisterServer Then
                RegisterComponent = [ActiveX Component Registered Successfully]         'Success. OK
            ElseIf RegFunction = DllUnRegisterServer Then
                RegisterComponent = [ActiveX Component UnRegistered Successfully]         'Success. OK
            End If
        End If
        Call CloseHandle(hThread)
        If lngLib Then Call FreeLibraryRegister(lngLib)
   End If
End If
End Function

Que dire...  du très grand art !  Bravo !

Lancer une commande (ici un net Send) via un Shell est un bricolage.  Certes ca marche mais comment sais-tu si ta commande a échoué ou pas ?  La seule et unique méthode valable reste l'utilisation de l'API NetMessageBufferSend de la DLL netapi32.dll qui est utilisée pour un Net Send.

Un exemple VB ici :
http://www.ostrosoft.com/vb/projects/net_send/index.asp