Dim process As New Diagnostics.Process
process.StartInfo.UseShellExecute = False
process.StartInfo.FileName = "rundll32.exe"
process.StartInfo.Arguments = "shell32.dll,Control_RunDLL inetcpl.cpl,,0"
process.Start()
process.WaitForInputIdle()

MsgBox(process.MainWindowHandle = IntPtr.Zero)

process.WaitForExit()

Option Explicit On
Option Strict On

' deze imports is nodig voor het "DllImport" attribute en toegang tot de "Marshal" class
Imports System.Runtime.InteropServices

Class EntryPoint

    Shared Sub Main()

        Const WM_LBUTTONUP As Integer = &H202
        Const WM_LBUTTONDOWN As Integer = &H201

        Dim process As New Diagnostics.Process
        process.StartInfo.UseShellExecute = False
        process.StartInfo.FileName = "rundll32.exe"
        process.StartInfo.Arguments = "shell32.dll,Control_RunDLL inetcpl.cpl,,0"
        process.Start()
        process.WaitForInputIdle()

        'MsgBox(process.MainWindowHandle = IntPtr.Zero)

        Dim hWndProperties As IntPtr
        hWndProperties = User32.FindWindow(vbNullString, "Internet Properties")
        If (hWndProperties = IntPtr.Zero) Then
            MsgBox("Properties window niet gevonden.")
            Return
        End If

        Dim hWndTabGeneral As IntPtr
        hWndTabGeneral = User32.FindWindowEx(hWndProperties, IntPtr.Zero, vbNullString, "General")
        If (hWndTabGeneral = IntPtr.Zero) Then
            MsgBox("Tab control niet gevonden.")
            Return
        End If

        Dim hWndDeleteButton As IntPtr
        hWndDeleteButton = User32.FindWindowEx(hWndTabGeneral, IntPtr.Zero, vbNullString, "&Delete...")
        If (hWndDeleteButton = IntPtr.Zero) Then
            MsgBox("Delete button niet gevonden.")
            Return
        End If

        User32.SendMessage(hWndDeleteButton, WM_LBUTTONDOWN, 0, 0)
        User32.SendMessage(hWndDeleteButton, WM_LBUTTONUP, 0, 0)

        process.WaitForExit()

    End Sub

End Class


Class User32

    ' in deze class worden de import declaraties voor User32.dll geschreven
    ' dus is het makkelijk gebruik te maken van een name

    Public Const NAME As String = "User32.dll"

    ' in de msdn staat dat GetLastError de fout terug geeft als de funcie NULL terug geeft
    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function FindWindow( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String _
        ) As IntPtr
    End Function

    ' in de msdn staat dat GetLastError de fout terug geeft als de funcie NULL terug geeft
    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function FindWindowEx( _
        ByVal hwndParent As IntPtr, _
        ByVal hwndChildAfter As IntPtr, _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String _
        ) As IntPtr
    End Function

    ' in de msdn staat dat GetLastError de fout terug geeft als de funcie NULL terug geeft
    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function SendMessage( _
        ByVal hWnd As IntPtr, _
        ByVal uMsg As UInteger, _
        ByVal wParam As Integer, _
        ByVal lParam As Integer _
        ) As IntPtr
    End Function

End Class

Option Explicit On
Option Strict On

' deze imports is nodig voor het "DllImport" attribute en toegang tot de "Marshal" class
Imports System.Runtime.InteropServices

Class EntryPoint

    ' dezelfde waarden als in de CheckState enumeration
    'Const BST_UNCHECKED As Integer = &H0
    'Const BST_CHECKED As Integer = &H1
    'Const BST_INDETERMINATE As Integer = &H2


    Const WM_LBUTTONUP As Integer = &H202
    Const WM_LBUTTONDOWN As Integer = &H201
    Const BM_GETCHECK As Integer = &HF0
    Const BM_SETCHECK As Integer = &HF1

    Shared Sub Main()

        Dim process As New Diagnostics.Process
        process.StartInfo.UseShellExecute = False
        process.StartInfo.FileName = "rundll32.exe"
        process.StartInfo.Arguments = "shell32.dll,Control_RunDLL inetcpl.cpl,,0"
        process.Start()
        process.WaitForInputIdle()

        Dim hWndProperties As IntPtr
        hWndProperties = User32.FindWindow(vbNullString, "Internet Properties")
        If (hWndProperties = IntPtr.Zero) Then
            MsgBox("Properties window niet gevonden.")
            Return
        End If

        Dim hWndTabGeneral As IntPtr
        hWndTabGeneral = User32.FindWindowEx(hWndProperties, IntPtr.Zero, vbNullString, "General")
        If (hWndTabGeneral = IntPtr.Zero) Then
            MsgBox("Tab control niet gevonden.")
            Return
        End If

        Dim hWndDeleteButton As IntPtr
        hWndDeleteButton = User32.FindWindowEx(hWndTabGeneral, IntPtr.Zero, vbNullString, "&Delete...")
        If (hWndDeleteButton = IntPtr.Zero) Then
            MsgBox("Delete button niet gevonden.")
            Return
        End If

        User32.PostMessage(hWndDeleteButton, WM_LBUTTONDOWN, 0, 0)
        User32.PostMessage(hWndDeleteButton, WM_LBUTTONUP, 0, 0)

        System.Threading.Thread.Sleep(500)

        Dim hWndBrowseHistory As IntPtr
        hWndBrowseHistory = User32.FindWindow(vbNullString, "Delete Browsing History")
        If (hWndBrowseHistory = IntPtr.Zero) Then
            MsgBox("Browse history raam niet gevonden.")
            Return
        End If

        User32.EnumChildWindows(hWndBrowseHistory, AddressOf EnumBrowseHistoryChilds, IntPtr.Zero)

        Dim hWndOkButton As IntPtr
        hWndOkButton = User32.FindWindowEx(hWndProperties, IntPtr.Zero, vbNullString, "OK")
        If (hWndOkButton = IntPtr.Zero) Then
            MsgBox("OK button niet gevonden.")
            Return
        End If

        User32.SendMessage(hWndOkButton, WM_LBUTTONDOWN, 0, 0)
        User32.SendMessage(hWndOkButton, WM_LBUTTONUP, 0, 0)

        process.WaitForExit()

    End Sub

    Shared Function EnumBrowseHistoryChilds(ByVal hWndChild As IntPtr, ByVal lParam As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
        Dim len As Integer = User32.GetWindowTextLength(hWndChild)
        If len > 0 Then
            Dim pString As IntPtr = Marshal.AllocHGlobal((len + 1) * 2)
            Try
                User32.GetWindowTextW(hWndChild, pString, len + 1)
                Dim windowText As String = Marshal.PtrToStringUni(pString, len)
                Select Case windowText
                    Case "P&reserve Favorites website data"
                        SetCheckBox(hWndChild, CheckState.Unchecked)
                    Case "&Temporary Internet files"
                        SetCheckBox(hWndChild, CheckState.Unchecked)
                    Case "C&ookies"
                        SetCheckBox(hWndChild, CheckState.Checked)
                    Case "&History"
                        SetCheckBox(hWndChild, CheckState.Unchecked)
                    Case "&Form data"
                        SetCheckBox(hWndChild, CheckState.Unchecked)
                    Case "&Passwords"
                        SetCheckBox(hWndChild, CheckState.Unchecked)
                    Case "&InPrivate Filtering data"
                        SetCheckBox(hWndChild, CheckState.Unchecked)
                    Case "&Delete"
                        User32.SendMessage(hWndChild, WM_LBUTTONDOWN, 0, 0)
                        User32.SendMessage(hWndChild, WM_LBUTTONUP, 0, 0)
                End Select
            Finally
                Marshal.FreeHGlobal(pString)
            End Try
        End If
        Return True
    End Function

    Shared Sub SetCheckBox(ByVal hWndCheckBox As IntPtr, ByVal state As CheckState)
        Dim currentState As CheckState
        currentState = CType(User32.SendMessage(hWndCheckBox, BM_GETCHECK, 0, 0), CheckState)
        If currentState <> state Then
            User32.SendMessage(hWndCheckBox, BM_SETCHECK, state, 0)
        End If
    End Sub

End Class

Class User32

    ' in deze class worden de import declaraties voor User32.dll geschreven
    ' dus is het makkelijk gebruik te maken van een name

    Public Const NAME As String = "User32.dll"

    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function FindWindow( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String _
        ) As IntPtr
    End Function

    <DllImport(NAME, SetLastError:=True)> _
     Public Shared Function FindWindowEx( _
         ByVal hwndParent As IntPtr, _
         ByVal hwndChildAfter As IntPtr, _
         ByVal lpClassName As String, _
         ByVal lpWindowName As String _
         ) As IntPtr
    End Function

    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function SendMessage( _
        ByVal hWnd As IntPtr, _
        ByVal uMsg As UInteger, _
        ByVal wParam As Integer, _
        ByVal lParam As Integer _
        ) As Integer
    End Function

    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function PostMessage( _
        ByVal hWnd As IntPtr, _
        ByVal uMsg As UInteger, _
        ByVal wParam As Integer, _
        ByVal lParam As Integer _
        ) As IntPtr
    End Function

    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function GetWindowTextLength( _
        ByVal hWnd As IntPtr _
        ) As Integer
    End Function

    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function GetWindowTextW( _
        ByVal hWnd As IntPtr, _
        ByVal lpBuffer As IntPtr, _
        ByVal bufferLen As Integer _
        ) As Integer
    End Function

    Public Delegate Function EnumChildDelegate(ByVal hwnd As IntPtr, ByVal lParam As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean

    <DllImport(NAME, SetLastError:=True)> _
    Public Shared Function EnumChildWindows( _
        ByVal hWndParent As IntPtr, _
        ByVal lpEnumFunc As EnumChildDelegate, _
        ByVal lParam As IntPtr _
        ) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

End Class

Windows.Forms.Cursor.Position = New System.Drawing.Point(269, 555)

Dim hWnd As IntPtr
hWnd = FindWindow(vbNullString, "Rockstar Games Social Club")
If hWnd = IntPtr.Zero Then
   MsgBox( "Raam niet gevonden, probeer met andere classname of windowtext, gebruik misschien spy++")
Else
   MsgBox( "Yes! Raam gevonden, we kunnen beginnen met messages te sturen, misschien door spy++ achterhalen welke, trail and loads of errors,....!")
   SendMessage(hWnd, WM_??????, ??????, ?????)
End If

        Dim hWnd As IntPtr
        hWnd = FindWindow(vbNullString, "Rockstar Games Social Club")
        If hWnd = IntPtr.Zero Then
            MsgBox("Raam niet gevonden, probeer met andere classname of windowtext, gebruik misschien spy++")
        Else
            MsgBox("Yes! Raam gevonden, we kunnen beginnen met messages te sturen, misschien door spy++ achterhalen welke, trail and loads of errors,....!")
            SendMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(92, 453))
            SendMessage(hWnd, WM_LBUTTONUP, 0, MAKELPARAM(92, 453))
        End If