كيف يمكن أخذ أداة ما من برنامج تنفيذي إلى برنامجي,

أخي الكريم

فكرة قد تفيدك

غالباً ما تكون الادوات ملفات مرفقة

ocx dll

أو مدموجة ضمن البرنامج

حاول البحث عن ملفات الocx

لهذا البرنامج و أضفها لبرنامجك

يعني عند تنصيب برنامج ما حاول استخراج الملفات المرفقة معه

ربما تكون ملفات تستطيح ضمها لبرنامجك

بصراحة أعتقادى أنه غير ممكن , على العموم ايه هى الأداة اللى نفسك تقتنصها

السلام عليكم ورحمة الله وبركاته

قد يمكنك فعل ذلك بتشغيل البرنامج وقنص الأداة

والسلام عليكم ورحمة الله وبركاته

ياسر جمال كتب:

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

قد يمكنك فعل ذلك بتشغيل البرنامج وقنص الأداة

والسلام عليكم ورحمة الله وبركاته

ممكن توضح أكتر.

السلام عليكم

أصدقاء المنتدى

وضعت هذا الطرح في منتدى VB.Net منذ حوالي أربع أيام و لك للأسف ، قيل أن الموضوع منقول و لم أفهم شيىء

حاولت الإتصال بالإدارة و لم أفلح ، لأعرف ما المقصود بـ " الموضوع منقول"

لهذا لم أتلقى أي رد

المهم ؟

سعيد بمشاركتكم بالموضوع

ردا على الزملاء:

أخي المزمجر

نحتاج أي المكتبات الديناميكية dll و الأدوات الخاصة ocx بالنسبة الأدوات الخاصة فعلا ، لكن TextBox, Lable, ....، مكونها موجود مسبق مع تنصيب VB

أخي msayed2004

ذلك ممكن ، وقد جربت هذا في الأدوات الخاصة ببرنامجي ، وسأرفق هذا لاحقا ، علما أنني كتبته بـ VB.Net

- من خلال الصورة المرفقة تلاحظ أنني أريد قنص مربع النص الخاص بالحاسبة و وضعه بداخل نافذة برنامجي

- هل تعلم أن كل الأدوات بمفهوم نظام التشغيل وينداوز هي عبارة عن نوافذ ، يمكن وضعها على أداة حاضنة أخرى كـ Form , panel ..

- حيث عند القيام بالعمليات الحسابية على الحاسبة التي تم قنص مربع نصها الخاص بالنتائج ، يبق العرض مستمرا و لكن هذا داخل نافذة برنامجي

و تلك النتائج المتحصل عليها يمكنني الوصول إليها من خلال الكود،

- مربع النص للنتائج واحد ، يعني أن برنامج الآلة الحاسبة لن يظهر علية هذا المربع

أعتقد أخي الكريم قد فهمت

أخي ياسر جمال

قد يمكني فعل ذلك بتشغيل البرنامج وقنص الأداة ؟!!!!!

هذا هو سألي ، لكن كيف

أنا فاهم كل ده , بس على حسب علمى فى برامج كتير محمية من الموضوع ده , أزاى ما أعرفش , مثلا أنا حاولت أعمل حركات من دى كتير مع الـ Firefox و فى النهاية فشلت , وبالتالى يمكنك عمل ذلك مع البرامج اللى أنت صممتها مش مع كل البرامج.

منذ سنة و الفكرة هي برأسي ، و لم أحتمل الرجوع إلى نقطة الصفر

ولكن لابد من ثغرة ما

لنفرض أنها تكمن في أسم الأداة

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

لكن من خلال أدوات برنامجي كان التفاعل مع الأدوات من خلال المقبض

غريب هذا المشكل

فهل من يرشدنا إلى تحديد أسم الأداة

أعتقد أن أستعمال المقبض هو الوسيلة الفعالة فى التعامل مع الأدوات و فى حقن الأكواد ده حتى الـ Classname مش مفيد فى معظم الحالات.

السلام عليكم ورحمة الله وبركاته

هذا ما أقصده أن يقوم بتشغيل البرنامج الذي به الأداة وإخفإه وباستخدام hwnd يتم التحكم

والسلام عليكم ورحمة الله وبركاته

prosed75 كتب:

وضعت هذا الطرح في منتدى VB.Net منذ حوالي أربع أيام و لك للأسف ، قيل أن الموضوع منقول و لم أفهم شيىء

حاولت الإتصال بالإدارة و لم أفلح ، لأعرف ما المقصود بـ " الموضوع منقول"

لهذا لم أتلقى أي رد

هتلاقيهم فكروه VB 6 , رغم أن الصورة المرفقة توضح أنه VB.N حاول تبعت رسالة خاصة للمشرف HnHn

أين البقية لتفعيل هذا الموضوع

و لا أريد ان يكون الموضوع أكبر منا

السلام عليكم

كل عام وأنتم بخير

جرب الكود التالي

Form1

Private Sub Command1_Click()
Dim hWin As Long, cnt As Integer
start:
hWin = FindWindow(vbNullString, "Calculator")
'hWin = FindWindow("notepad", vbNullString)
If hWin = 0 Then
   If cnt < 1 Then Shell "calc.exe", vbNormalFocus
   cnt = cnt + 1
   If cnt < 2 Then GoTo start
End If
ListChildWindows hWin
End Sub

في المودل ضع الكود التالي

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function MoveWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function SetParent Lib "user32" _
  (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function EnumChildWindows Lib "user32" _
  (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
  (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long



Sub GetTextBox(ByVal hwnd As Long)
	SetParent hwnd, Form1.hwnd
End Sub

Public Sub ListChildWindows(hwnd As Long)
	 Dim bResult As Boolean
	 bResult = EnumChildWindows(hwnd, AddressOf ChildCallBack, 0&)
End Sub


Public Function ChildCallBack(ByVal hWndChild As Long, lParam As Long) As Boolean
Dim lResult As Long
Dim lpClsName As String

lpClsName = String(100, " ")
lResult = GetClassName(hWndChild, lpClsName, Len(lpClsName))
Dim NChrindex As Long
NChrindex = InStr(1, lpClsName, vbNullChar)
If NChrindex > 0 Then
	lpClsName = Left(lpClsName, NChrindex - 1)
End If

If Trim(lpClsName) = "Edit" Then
   GetTextBox hWndChild
End If
ChildCallBack = True
End Function

ارجو ان اكون افدتك

والله أعلم

السلام عليكم ورحمة الله وبركاته

هذا ما أردت قوله

والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته

هذا ما أردت قوله

جزاك الله كل خير

والسلام عليكم ورحمة الله وبركاته

ده كل اللى هيعمله أنه يفتح البرنامج كله جوه الفورم مش أداه معينه

شـــــــــكرا جزيلا أخي Mo7eb_Alrasool

قد استطعتَ قنص الأداة إلى نافذة عملي ، هذا رائع.

لكن لاحظت أنني عند العمل مع الآلة الحاسبة " طبعا التي تم قنص مربع نصها - النتائج - "

فإنها لا تستجيب العمليات الحسابية المطبقة ، و لا تعرض لا المدخلات و لا النتائج

و هذا يعني لا فائدة من قنصها بالأصل ، فهل يمكن قنصها مع خصائصها و أحداثها

لكن القنص الذي طبقته مع أدوات برامجي كان يشمل الأداة مع كل من خصائصها و أحداثها و طرقها.

فزت أخي Mo7eb_Alrasool

7/10 فمن يكمل الثــــــــــــــــــــــــــــــــلات النقاط المتبقية

طبعا هذا تقدي الشخصي

، هيا أخي ياسر جمال و لكن مع التوضيح و ليس التلميح

صديقي msayed2004

صحيح أن زميلنا Mo7eb_Alrasool ربط مثاله ببرنامج معين " الحاسبة " ثم المرور عل كل الأدوات المتواجدة بها و من ثم إنتقاء كل الأدوات من النوع TextBox و ليس لحسن الحظ أن بها سوى مربع نص واحد بل هو يعلم ذلك .

و لإختيار أي أداة من أي برنامج ، إلى كل الأصدقاء المرفق الموالي

و ما عليك إلا أن

- فتح البرنامج المراد قنص الأداة منه

- تشغيل برنامجك القناص و جعله دوما النافذة النشطة

- الضغط على المفتاح Active

- تبدأ الفأرة بقراءة مقبض الأداة التي تمر عليها

- مع جعل برنامجك القناص هو ا النافذة النشطة

- حرك الفأرة نحو الأداة الهدف

- إضغط على المفتاح Entre

- وأخير إضغط على الزر Get Control

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

Get_contenir.rar

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

أخي msayed2004

تقول "أنا عارف مواضيع قنص الأداوات "

ما تبخلنا

شوف يا سيدي ، نعطيك مثال

أنا واحد من الناس معنديش فكرة كبيرة في الإلكترونيك ،

و نفرض أن حاسوبك مربوط بجهاز آخر و ليكن قارئ كود بار مثالا

هذا الجهاز له برنامجه المدير له ، قد لا يتجاوب مع إحتياجاتك ،

و لا تعرف أنت كيف تستغله لقراءة مدخلاته من خلال برنامجك الذي تطوره لنفسك

لهذا فكرت في حيلة قنص أدة أمر القراءة و أداة عرض النتائج و من ثم أوضفها مع أدواتي

أعتقد أن الفكرة أصبحت أكثر من ملحة

:P لا تقل لي أن جهاز الكود بار سيضع النتيجة مباشرة في مربع النص النشط على النافذة الحالية ، أعلم ذلك

الجهاز أيا كان ;)

الله يعطيكم العافية يا شباب عن جد شي حلو

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

وهل من الممكن اخذها تلقائياً

أخي المزمجر

صحيح مبدئيا أن البرنامج يجب أن يكون شغالا بالذاكرة

و لكن بعد قنص الأدوات المرغوب فيها ، فإن نافذة برنامج الهدف لها مقبض أيضا و بالتالي يمكن إخفائها أو التلاعب بها مثلما نشاء

هل من خطوة إيضافية إلى الأمام يا شباب

انا بأيد كلام الاخ msayed2004 في ان الادوات التي يتم اقتناصها لا يمكن الاستفادة منها

لآن اغلبها بيكون لها كلاس تسجيلي في النظام ولكن اذا كنت تحب المحاولة اعتقد أن الكود الذي ارفقه الاخ Mo7eb_Alrasool يشير الى البدايه لعمل ذلك مع اني لا اعتقد ان المسألة ستنجح في اتمام ذلك لآننا في كل مرة ما سنتحصل عليه هي القيم فقط ولا يمكننا التكوين والاسناد ... لأنه لو كان الامر بهذه السهولة لما قاموا بتشفير هذه الاداوت :lol:

اقتباس

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

اعتقد أن عملية الاسقاط ستسبب الكثير من التعارضات لأن اغلب العملية ستكون محمله على الذاكرة .. ويمكن الاستفادة من هذه القيم عند اسنادها في الريجستري وبالتالي استدعائها لأنشائها عن طريق SetCursorPos ..

واعتقد ان الامر يستحق التجربة سأرى ما يمكنني التوصل له من خلال البحث والمتابعه معكم

السلام عليكم ورحمة الله وبركاته

إن اقتناص الأدوات له فوائد ومزايا لا يمكن انكارها ولكن من الصعب ابتكار فكرة لاستغلال هذه المزايا

عندما تم استخدام الآلة الحاسبة كمثال لم يكن المثال مثالي فإنه لا يمكن لأي من برامج الhack التعامل مع هذا الجزء إذا حاولتم ذلك ببرامج هكر مختلفة

أعتقد لإن الآلة الحاسبة تعتمد على أوامر SendKey

ولكن حاول ان تأخذ مثلاً من برنامج Paint شريط الأدوات التي على الجهة اليمنى ستنجح الفكرة

ولكن إذا كنت تريد كلاماً أو أرقاماً لماذا لا تأخذها مباشرتاً

هل المشكلة في أنهم يضعون ما تريد أخذه على هيئة صورة ولا يضعونها في textbox مثلاً

والسلام عليكم ورحمة الله وبركاته

بالفعل كما اضاف الاخ ياسر جمال

ايضا الامور التي تصعب فكرة استغلال مثل هذه الاداوت

اقتباس

تعتمد على أوامر SendKey

المشكلة في أنهم يضعون ما تريد أخذه على هيئة صورة ولا يضعونها في textbox مثلاً

prosed75 كتب:

أخي msayed2004

تقول "أنا عارف مواضيع قنص الأداوات "

ما تبخلنا

شوف يا سيدي ، نعطيك مثال

أنا واحد من الناس معنديش فكرة كبيرة في الإلكترونيك ،

و نفرض أن حاسوبك مربوط بجهاز آخر و ليكن قارئ كود بار مثالا

هذا الجهاز له برنامجه المدير له ، قد لا يتجاوب مع إحتياجاتك ،

و لا تعرف أنت كيف تستغله لقراءة مدخلاته من خلال برنامجك الذي تطوره لنفسك

لهذا فكرت في حيلة قنص أدة أمر القراءة و أداة عرض النتائج و من ثم أوضفها مع أدواتي

أعتقد أن الفكرة أصبحت أكثر من ملحة

:P لا تقل لي أن جهاز الكود بار سيضع النتيجة مباشرة في مربع النص النشط على النافذة الحالية ، أعلم ذلك

الجهاز أيا كان ;)

والله انا شايف أنها مش مستاهله تعبك , على العموم ربنا يقدرك.

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

http://www.devx.com/vb2themax/Tip/18370

http://www.thescripts.com/forum/post57944-2.html