تمت الإجابة عرض كلمة في مشروعي موجوده في برنامج ما ؟

تم تحميل الصفحة في 1,8731378 ثانية
عرض كلمة في مشروعي موجوده في برنامج ما ؟
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
السلام عليكم ورحمة الله

كيفكم اخواني بالله

كل عام وانتم بألف خير ان شاء الله

اخواني لدي فقط طلب كيف ممكن اعرض كلمة موجوده في برنامج ما ؟ وعرضها في برنامجي على سبيل المثال

افتح المشروع تبعي .. وفيه textboox1 ولما افتح البرنامج الثاني وفيه مثلا كلمة الله اريدها ان تظهر في textbox1 في مشروعي

مع العلم البرنامج الثاني ليس برمجتي فقط طريقة معرفة كيف ممكن انقل الكلمة لدي

وهذا البرنامج المقصود ..




النص المطلوب عرضه في textbox1 هو فقط كلمة Connected


شكرا لكم جميعا
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
لقيت هذا الموضوع وكلشش فادني بس فيه مشكلة لا يمكن ان يصل الى الحالة اذا كان متصل او لا
الا اقوم بوضع البرنامج مفتوح على سطح المكتب لكي يتم التعرف عليه
لو نزل جنت الساعه لا يمكن ان يتعرف عليه

هذا الموضوع
Read External Program Text Using VB.Net


هذا حساب داخل الموقع

الايميل
[email protected]
الباسورد
[email protected]
 

CRYSTALBOY

Beginner Developer
rank
إنضم
18 أغسطس 2010
المشاركات
88
الإعجابات
66
النقاط
18
هذا لان البرنامج يقوم بأحضار الـ hwnd
باستخدام
FindWindow
والتي لا تعمل علي الشاشات المخفيه

يجب تعديل الكود ليعمل علي احضار الـ hwnd
عن طريق EnumWindows

او من الافضل و الايسر عن طريق
GetProcessesByName

--
هل البرنامج الخاص بك c# ام vb

وهل نوعه winfoms ام wpf
?
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
هذا لان البرنامج يقوم بأحضار الـ hwnd
باستخدام
FindWindow
والتي لا تعمل علي الشاشات المخفيه

يجب تعديل الكود ليعمل علي احضار الـ hwnd
عن طريق EnumWindows

او من الافضل و الايسر عن طريق
GetProcessesByName

--
هل البرنامج الخاص بك c# ام vb

وهل نوعه winfoms ام wpf
?
VB.net
النوعية
winfoms
 

CRYSTALBOY

Beginner Developer
rank
إنضم
18 أغسطس 2010
المشاركات
88
الإعجابات
66
النقاط
18
عليك تعديل الكود في الموقع كالتالي

السطر

كود:
 Dim Hwnd As IntPtr = SHANUEPTR.FindWindow(Nothing, txtTitle.Text) 
// الي

Dim processes As Process() = SHANUEPTR.GetProcessesByName("openvpn")// اسم الشاشه في الـ task manager
 Dim Hwnd As IntPtr=processes(0).MainWindowHandle;

/*
اذا كان لديك اكثر من proccess
بنفس الاسم مثلا
open.exe
open.exe

سيكون لديك array
لهذا قمت بعمل array
*/

// ثم بعد ذلك في الكود
// Dim ChildHandle As IntPtr = SHANUEPTR.FindWindowEx(Hwnd, IntPtr.Zero, "Edit", Nothing) 
// هنا يقوم بأحضار الكنترول الذي من نوع Edit
// الذي لديك Label
....
اعتقد ان الفكره لديك
 

CRYSTALBOY

Beginner Developer
rank
إنضم
18 أغسطس 2010
المشاركات
88
الإعجابات
66
النقاط
18
عليك تعديل الكود في الموقع كالتالي

السطر

كود:
 Dim Hwnd As IntPtr = SHANUEPTR.FindWindow(Nothing, txtTitle.Text)
// الي

Dim processes As Process() = SHANUEPTR.GetProcessesByName("openvpn")// اسم الشاشه في الـ task manager
Dim Hwnd As IntPtr=processes(0).MainWindowHandle;

/*
اذا كان لديك اكثر من proccess
بنفس الاسم مثلا
open.exe
open.exe

سيكون لديك array
لهذا قمت بعمل array
*/

// ثم بعد ذلك في الكود
// Dim ChildHandle As IntPtr = SHANUEPTR.FindWindowEx(Hwnd, IntPtr.Zero, "Edit", Nothing)
// هنا يقوم بأحضار الكنترول الذي من نوع Edit
// الذي لديك Label
....
اعتقد ان الفكره لديك

للاسف لا ادري لماذا لا يمكنني تحرير مشاركاتي

تعديل في السطر
الي
كود:
Dim processes As Process() = Process.GetProcessesByName("openvpn")// اسم الشاشه في الـ task manager
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
للاسف لا ادري لماذا لا يمكنني تحرير مشاركاتي

تعديل في السطر
الي
كود:
Dim processes As Process() = Process.GetProcessesByName("openvpn")// اسم الشاشه في الـ task manager
لم يعمل
شكرا لك
 
إنضم
18 يوليو 2015
المشاركات
4,828
الإعجابات
8,639
النقاط
133
الإقامة
Republic Of Bahrain
كل الحلول الي كانت بالموضوع غير كجدية في معرفة الاتصال لهذا اتجهت لمعرفة ليبل موجد داخل البرنامج ولو في شرح فديو كان افضل

شكرا لك اخي
كتبت لك الكود انا اخي في موضوعك هذا ولكنك تكاسلت في نسخه في مشروع !
غير مُجاب - طلب كود تحقق شرط واظهار مسج بوكس
وهذا اثبات على ان الكود الي كتبته شغال :
 
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
إنضم
19 نوفمبر 2016
المشاركات
43
الإعجابات
13
النقاط
8
العمر
26
كتبت لك الكود انا اخي في موضوعك هذا ولكنك تكاسلت في نسخه في مشروع !
غير مُجاب - طلب كود تحقق شرط واظهار مسج بوكس
وهذا اثبات على ان الكود الي كتبته شغال :

شوف أخي الغالي ما هو الخطأ



وهذا الكود كامل ماهو الحطأ
C#:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Net;
using System.Net.NetworkInformation;

namespace ConsoleApp1
{
    public class HConnection
    {
        private IPAddress AunicastIpAddress;

        public HConnection()
        {
            AunicastIpAddress = IPAddress.Parse("Open Vpn IPv4");
        }
        public bool IsOpenVpn()
        {
            if (!NetworkInterface.GetIsNetworkAvailable())
                return false;
            foreach (NetworkInterface ALITest in NetworkInterface.GetAllNetworkInterfaces())
            {
                if (ALITest.OperationalStatus != OperationalStatus.Up) continue;
                if (ALITest.NetworkInterfaceType == NetworkInterfaceType.Loopback) continue;
                if (HallajGetIp(ALITest).Contains(AunicastIpAddress)) return true;
            }
            return false;
        }
        private static IEnumerable<IPAddress> HallajGetIp(NetworkInterface nic)
        {
            return nic.GetIPProperties().UnicastAddresses
                .Where(ip => ip.Address.AddressFamily == System.Net.Sockets.AddressFamily.InterNetwork)
                .Select(ip => ip.Address);
        }
    }
    class Program
    {
        public class HConnection
{
    private IPAddress AunicastIpAddress;
 
    public HConnection(){
        AunicastIpAddress = IPAddress.Parse("Open Vpn IPv4");
    }
    public bool IsOpenVpn(){
        if (!NetworkInterface.GetIsNetworkAvailable())
            return false;
        foreach (NetworkInterface ALITest in NetworkInterface.GetAllNetworkInterfaces()){
            if (ALITest.OperationalStatus != OperationalStatus.Up) continue;
            if (ALITest.NetworkInterfaceType == NetworkInterfaceType.Loopback) continue;
            if (HallajGetIp(ALITest).Contains(AunicastIpAddress)) return true;
        }
        return false;
    }
    private static IEnumerable<IPAddress> HallajGetIp(NetworkInterface nic){
        return nic.GetIPProperties().UnicastAddresses
            .Where(ip => ip.Address.AddressFamily == System.Net.Sockets.AddressFamily.InterNetwork)
            .Select(ip => ip.Address);
    }
}
        static void Main(string[] args)
        {
           var TestVpn = new HConnection();
      bool ItsOnline = TestVpn.IsOpenVpn();
      if (ItsOnline){
          Console.WriteLine("OpenVpn Connected");
      }
      else {
          Console.WriteLine("OpenVpn Disconnected");
      }
        }
    }
}
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل