منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(20-11-19, 11:38 PM)3booody كتب : [ -> ]السلام عليكم ورحمة الله وبركاته

اظن انه موضوع سيتعبك كثيرآ اذا اردت له الحل اخي ابو روضةوالسبب بما ان هذه الملفات عبارة عن تحديثات وبالتالي التحديثات تتغير دائمآ ,, وانته تحتاج حقن injection للبرنامج داخل عمليات التنصيب وبأختلاف العملية اظن تختلف الاكواد.

ربما يوجد حلول أخرى كما نرى ببعض التطبيقات وهي تحريك مؤشر الماوس على الازرار وارسال امر الضغط بالماوس لكن اجدها لاتنفع بصراحة لان لديك العديد من ملفات التنصيب.


عذرآ فلا اريد احباطك اخي ولكن هذا رأيي فقط

لا يا غالى ولا إحباط ولا شيئ من هذا القبيل...

التحديثات بالفعل موجودة عندى وجاهزة للتنصيب وبقوم بإختيارهم من البرنامج الذى أنشأته

لكن المشكلة اننى أريد الضغط على زر إنتر حينما تظهر  هذه الأزرار لكن لو الموضوع مُعقد 

فلا عليك يا غالى 

(21-11-19, 11:57 AM)3booody كتب : [ -> ]حتى زر انتر مافيه مشكلة انك تطلق الزر لكن المشكلة متى تطلق الزر؟ بمعنى تعمل مراقبة على العملية الجارية وهي التنصيب
جرب مراقبة ال Process لملف تنصيب واحد وحاول تشوف الفرق بين عملية التنصيب الى الاكتمال ان شاء الله تصل الى نتيجة
لكن قبل ماتجرب اول شي جرب الضغط على الزر وتأكد اذا ينجح الامر
بعد انتهاء عملية التنصيب اعمل هالتجربة وهي هالكود يضغط على زر Close او لا 

PHP كود :

Imports System.Runtime.InteropServices
Public Class Form1
    <DllImport("user32.dll", CharSet:=CharSet.Auto, EntryPoint:="FindWindow")> _
    Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, ByVal lclassName As String, ByVal windowTitle As String) As IntPtr
    End Function

    <DllImport("user32.dll", EntryPoint:="SendMessage")> _
    Private Shared Function SendMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        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
    End Sub

End Class 


اذا حليت هالمشكلة تبقى فقط عملية المراقبة وان شاء الله نقدر نتلاعب بالكود بدون مانحتاج المراقبة

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

(21-11-19, 01:51 PM)3booody كتب : [ -> ]

اذا ظهر عندك اول مسج بمعنى التحديث موجود لكن اسم الزر خطأ

اما اذا ظهر ثاني مسج بمعنى ان اسم العملية به خطأ

كود :

 MsgBox("لم يتم ايجاد الزر")
              
                MsgBox("لم يتم ايجاد التحديث")

ومكان الكود انا فكرت نضعه بتايمر اذا وجد الزر يضغطه
لكن اذا نحلت المشكلة لديك لاداعي لتقوم بالامر انا سألتك للفائدة لان بصراحة افكر اتعمق كثير ب Api لفائدتها
تحياتي لك اخي الفاضل