[ابو روضة]

(21-11-19, 01:28 PM)3booody كتب : الحمدلله ان الامر نجح لديك وان شاء الله انحلت مشكلتك
لدي سؤال هل جربت الكود السابق لضغط الزر؟ وهل اشتغل او لا
اذا اشتغل لاتهتم بالنسبة لمراقبة العملية لانها تنحل كلها بتايمر وشرط فقط

انا وضعته مع كود تثبيت التحديثات بهذا الشكل ولم يعمل

PHP كود :

 For Each itm As ListViewItem In Me.ListViewEx1.CheckedItems
            Process.Start(itm.Tag).WaitForExit()
            Dim hwnd = FindWindow(Nothing, "Download and Install Updates")
            If hwnd <> IntPtr.Zero Then
                Dim btn = FindWindowEx(hwnd, IntPtr.Zero, "Button", "Close")
                If btn <> IntPtr.Zero Then
                    SendMessage(btn, &HF5, 0, 0)
                Else
                    MsgBox("لم يتم ايجاد الزر")
                End If
            Else
                MsgBox("لم يتم ايجاد التحديث")
            End If
            MsgBox(" تم الانتهاء من تصطيب البرامج المحددة")
        Next 


فمن الممكن أكون وضعته بطريقة خاطئة والله أعلى واعلم