منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود الكتابة على برنامج خارجي ( EXE ) [تم الحل] - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود الكتابة على برنامج خارجي ( EXE ) [تم الحل] (/showthread.php?tid=1175)



كود الكتابة على برنامج خارجي ( EXE ) [تم الحل] - Easy4ever - 04-12-13



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

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

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

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

أخوكم






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




RE: كود الكتابة على برنامج خارجي ( EXE ) - ali.alfoly - 04-12-13

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



RE: كود الكتابة على برنامج خارجي ( EXE ) - tariq2812 - 05-12-13

كود :
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



RE: كود الكتابة على برنامج خارجي ( EXE ) - Easy4ever - 05-12-13

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

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

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


RE: كود الكتابة على برنامج خارجي ( EXE ) - tariq2812 - 05-12-13

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

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


RE: كود الكتابة على برنامج خارجي ( EXE ) - Easy4ever - 06-12-13

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

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

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