[Easy4ever]

أخواني عندي سؤال وإن شاء الله يكون بسيط

لدي برنامج EXE ولا أملك السورس كود أبي أضيف فيه كتابة في حقل التكس عبر برنامجي

الخاص بمعنا ان اريد ان أضيف كلمات مثلا ( OK ) في إي برنامج EXE من عبر برنامجي

أرفقت لكم برنامج EXE اريد كود حتى استطيع الكتابة فيه من عبر برنامجي

أخوكم

---

الحل في مشاركة رقم #3

[ali.alfoly]

السلام عليكم ورحمة الله
في سلسلة للاخ الكريم الشاكي لله خاصة بالتحكم في قسم مقالات السي شارب

[tariq2812]

كود :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

    Private Const WM_SETTEXT As Long = &HC


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WinWnd As Long
        Dim BtnWnd As Long
        WinWnd = FindWindow("WindowsForms10.Window.8.app.0.378734a", "ملاحظة")

        If WinWnd <> 0 Then

            BtnWnd = FindWindowEx(WinWnd, 0, vbNullString, "")
            If BtnWnd <> 0 Then

                SendMessage(BtnWnd, WM_SETTEXT, 0, "OK")

            End If
        End If
    End Sub

[Easy4ever]

الاخ ali.alfoly شكرا على ردك وسأقوم بمراجعة القسم

الأخ tariq2812 استخدمت كودك ولم يأثر على إي برنامج مفتوح
ممكن تشرح لي الكود

وشكرا على تفاعلكم

[tariq2812]

الكود يعمل على برنامجك الي ارفقت
يعني تشغل البرنامج الي باسم برنامج خارجي
ثم تشغل البرنامج ويرسل OK الى صندوق النص

تعلم كيف تتحكم في برنامج آخر من برنامجك 2

[Easy4ever]

ألف شكرا للأخ tariq2812 والأخ ali.alfoly

تم الحل كانت المشكلة من Textbox إللي في البرنامج ما كان يقبل الأمر
خذفت TextBox وضفتها من جديد أشتغل الكود

الحل في مشاركة رقم #3