إعـــــــلان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 26-08-2016, 10:45 PM

لكل من مر من هناااا :
01 - لماذا اساسا أضع ثلاث كلمات و كل كلمة في أنبوت ثم أجمعهم ووووو
من المرة الأولى أستعمل أنبوت 1 و أكتب فيه ما أشاء من الكلمات بدون أي رموز علما
أن إشارة + بين الكلمات أفضل عند البحث
02 - كل الكلام الذي مر لا يتلاءم مع السؤال فقد ضننت أن السؤال بتعلق بالبحث في موقع
وليس في غوغل الذي كانت المشاركة التي كتبها الأخ فرح كافية 100 بالمائة
سواء كان المعيار كلمة واحدة أم عدة معايير نجمع بينها بالاشارة +
03 - لمحبي البرمجة هاهو سؤالي أكتب كود يبحث في موقع طريق الاحتراف
عن :
1- أسماء المتصلين حاليا في الموقع ويعلن عنهم
2 - الساعة مثلا كم تشير وبعلن عنها

ويمكن طرح تساؤلات للوصول الى قيم داخلية في الموقع
مثل سنة تأسيسه , آخر مرة أجري التعديل عليه ........الخ

بالتوفيق

**فرح صالحي فرح صالحي** · 26-08-2016, 11:12 PM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

محاولة للبحث عن الثلاث كلمات في بحث واحد

كود PHP:


B1 = Input.GetText("Input1");

B2 = Input.GetText("Input2");

B3 = Input.GetText("Input3");

B = B1 ..","..B2 ..","..B3  



File.OpenURL("https://www.google.com.eg/#q="..B, SW_SHOWNORMAL);

شكرا أيها المحترف المبدع

**ياسرهتهت ياسرهتهت** · 27-08-2016, 02:22 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

لكل من مر من هناااا :
01 - لماذا اساسا أضع ثلاث كلمات و كل كلمة في أنبوت ثم أجمعهم ووووو
من المرة الأولى أستعمل أنبوت 1 و أكتب فيه ما أشاء من الكلمات بدون أي رموز علما
أن إشارة + بين الكلمات أفضل عند البحث
02 - كل الكلام الذي مر لا يتلاءم مع السؤال فقد ضننت أن السؤال بتعلق بالبحث في موقع
وليس في غوغل الذي كانت المشاركة التي كتبها الأخ فرح كافية 100 بالمائة
سواء كان المعيار كلمة واحدة أم عدة معايير نجمع بينها بالاشارة +
03 - لمحبي البرمجة هاهو سؤالي أكتب كود يبحث في موقع طريق الاحتراف
عن :
1- أسماء المتصلين حاليا في الموقع ويعلن عنهم
2 - الساعة مثلا كم تشير وبعلن عنها

ويمكن طرح تساؤلات للوصول الى قيم داخلية في الموقع
مثل سنة تأسيسه , آخر مرة أجري التعديل عليه ........الخ

بالتوفيق

---------------------------------------

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

استاذنا الكريم هذا سؤال صعب جدا ؟؟؟

موفق بإذن الله ... لك مني أجمل تحية .

**ياسرهتهت ياسرهتهت** · 27-08-2016, 02:37 AM

المشاركة الأصلية بواسطة المظلوم مشاهدة المشاركة

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

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

الي مشرفي القسم الغالين

اريد عمل برنامج بحث في وموقع ويب يتكون من ثلاث

Input1
Input2
Input3

والكل يعمل بنقره واحد وظهو النتيجه في صفحه واحده

واكون شاكر جدا

--------------------------------------------
بسم الله الرحمن الرحيم
اخونا المظلوم كنت قد وضعت سؤال قريب من سؤالك
قبل عامين او اكثر بخصوص البحث في اي موقع عن اي موضوع
واجابني استاذنا ابو بلقيس وتحصلت على المطلوب
للاسف الملف المفتوح للموضوع مفقود مني ؟
ولكن هذا الملف التنفيذي للمشروع
http://up.top4top.net/downloadf-23823e41-rar.html
اذا كان هو المطلوب ؟ ابحث لك مجددا عن الملف المفتوح
اونعيد كنابة الكود من جديد

لكن في المشروع Input1 وInput2 واحد للمطلوب والثاني للموقع المراد البحث فية
موفق بإذن الله ... لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 27-08-2016, 03:18 AM

أستاذي ياسر كود البحث في موقع محدد وفق ما أشرت له

كود PHP:


File.OpenURL("http://www.google.com/search?hl=en&q="..Input.GetText("Input1").. "+site:"..Input.GetText("Input2"), SW_SHOWNORMAL);

**ثامر أبو بلقيس ثامر أبو بلقيس** · 27-08-2016, 03:39 AM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

---------------------------------------

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

استاذنا الكريم هذا سؤال صعب جدا ؟؟؟

موفق بإذن الله ... لك مني أجمل تحية .

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

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

سأكتب لك الملف مفتوحا :

كود PHP:


#OLECMDID_SELECTALL = 17

#OLECMDEXECOPT_DONTPROMPTUSER = 2



Procedure.s GetText(URL.s)

  GhostWin=OpenWindow(#PB_Any,0,0,600,300,"",#PB_Window_Invisible)

  WebGad=WebGadget(#PB_Any,10,10,580,280,URL.s)

  While GetGadgetAttribute(WebGad,#PB_Web_Busy)<>0

    WindowEvent()

  Wend

  

  WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(WebGad), #GWL_USERDATA)

  WebObject\ExecWB(#OLECMDID_SELECTALL, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0) 

  

  Text$=GetGadgetItemText(WebGad,#PB_Web_SelectedText)   

  CloseWindow(GhostWin)

  ProcedureReturn Text$

EndProcedure

ProcedureDLL BELKISS_ALGERIE(URL$) 

  CreateFile(0, "C:\thameur.txt") 

WriteStringN(0,GetText(URL$))

EndProcedure

طبعا البرنامج أنت من أرسله لي مشكورا Basic

لتنفيذ ذلك بعد اخراج الملف في الاوتوبلاي :

كود PHP:


b = "http://sites.ienajah.com/vb2/index.php"

DLL.CallFunction("AutoPlay\\Docs\\BELKISS_ALGERIE.dll", "BELKISS_ALGERIE", "\""..b.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);

sour = TextFile.ReadToString("C:\\thameur.txt");

result = String.Find(sour , "إحصائيات المنتدى", 1, false);

result2 = String.Find(sour , "عدد الأعضاء الذين تواجدو خلال اليوم", 1, false);

Dialog.Message("المتواجدون  حاليا",String.Mid(sour, result+144, result2-(result+144)) );

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

لك مني كل التقدير

**ياسرهتهت ياسرهتهت** · 27-08-2016, 03:55 AM

بسم الله الرحمن الرحيم
شكرا لك استاذنا الكريم
بالفعل هو هذا الكود المطلوب والمفيد بالبحث في اي موقع
بل ادق من الكود المستخدم في ملفي لانه يعطي نتائج عند البحث عن جمل عربية
حيث انا قمت بتغير en في الكود المستخدم في ملفي الي arليعطي نتائج جيدة
شكرا لك وبارك الله فيك

وهذا ملف مفتوح
http://up.top4top.net/downloadf-238j7h91-rar.html

ليستفيد منه اخونا المظلوم

موفق بإذن الله ... لك مني أجمل تحية .

**ياسرهتهت ياسرهتهت** · 27-08-2016, 05:16 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

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

سأكتب لك الملف مفتوحا :

كود PHP:


#OLECMDID_SELECTALL = 17

#OLECMDEXECOPT_DONTPROMPTUSER = 2



Procedure.s GetText(URL.s)

  GhostWin=OpenWindow(#PB_Any,0,0,600,300,"",#PB_Window_Invisible)

  WebGad=WebGadget(#PB_Any,10,10,580,280,URL.s)

  While GetGadgetAttribute(WebGad,#PB_Web_Busy)<>0

    WindowEvent()

  Wend

  

  WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(WebGad), #GWL_USERDATA)

  WebObject\ExecWB(#OLECMDID_SELECTALL, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0) 

  

  Text$=GetGadgetItemText(WebGad,#PB_Web_SelectedText)   

  CloseWindow(GhostWin)

  ProcedureReturn Text$

EndProcedure

ProcedureDLL BELKISS_ALGERIE(URL$) 

  CreateFile(0, "C:\thameur.txt") 

WriteStringN(0,GetText(URL$))

EndProcedure

طبعا البرنامج أنت من أرسله لي مشكورا Basic

لتنفيذ ذلك بعد اخراج الملف في الاوتوبلاي :

كود PHP:


b = "http://sites.ienajah.com/vb2/index.php"

DLL.CallFunction("AutoPlay\\Docs\\BELKISS_ALGERIE.dll", "BELKISS_ALGERIE", "\""..b.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);

sour = TextFile.ReadToString("C:\\thameur.txt");

result = String.Find(sour , "إحصائيات المنتدى", 1, false);

result2 = String.Find(sour , "عدد الأعضاء الذين تواجدو خلال اليوم", 1, false);

Dialog.Message("المتواجدون  حاليا",String.Mid(sour, result+144, result2-(result+144)) );

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

لك مني كل التقدير

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

ما فهمتة استاذي الكريم
ان الكود الخاص بملف DLL يمكن انتاجة بواسطة برنامج PureBasic

قمت بنسخ الكود للبرنامج والحفظ بصيغة DLL

ووضعة ملف BELKISS_ALGERIE.dll في مجلد Docs

وستخدمت الكود الثاني في زر للتعامل مع ملف dll

لا اظن ان ما فعلته صحيح ؟؟؟؟

فالنتيجة كانت

اكيد ان انتاج ملف --- عملية اعقد من الذي قمت به
والحقيقة انا لا يوجد عندي اي فكرة بخصوص ملفات dll وصناعتها او كيف تنتج ببرنامج PureBasic

موفق بإذن الله ... لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 27-08-2016, 06:42 AM

السلام عليكم ورحمة الله وبركاته
نقوم بإعداد خفيف حتى يمكن لنا أن نخرج العمل بصيغة dll
المراحل :

عند الضغط تظهر هذه النافذة
فتختار منها الصيغة كما هو موضح

ثم تعود من نفس التبويب لتخرج العمل

موفـــــق

**ياسرهتهت ياسرهتهت** · 27-08-2016, 07:36 AM

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

تظهر لي رسالة خطأ عند الحفظ

**ثامر أبو بلقيس ثامر أبو بلقيس** · 27-08-2016, 08:04 AM

هذا الخطأ تتفاداه كالاتي
1 - تمسح ملف الدل المنجز سابقا و ملفه المفتوح
2 - تغلق اللسان لهذا العمل أو تحفظه ياسم آخر في تبويب جديد
---- سيحدث معك مثل هذه الأخطاء لذلك تكون التجربة في تبويب جديد دائما ومراعاة التسمية
اذ كانت محجوزة

**المـهاجر المـهاجر** · 27-08-2016, 08:19 AM

ضع فاصلة فى سطر 12 ليصبح
WebObject\ExecWB

بدلا من
WebObjectExecWB

**ثامر أبو بلقيس ثامر أبو بلقيس** · 27-08-2016, 09:33 AM

المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة

ضع فاصلة فى سطر 12 ليصبح
WebObject\ExecWB

بدلا من
WebObjectExecWB

جزاك الله خيرا تواجدك يفيد

**المظلوم المظلوم** · 27-08-2016, 12:38 PM

جاري التجربه

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

محاولة للبحث عن الثلاث كلمات في بحث واحد

كود PHP:


B1 = Input.GetText("Input1");

B2 = Input.GetText("Input2");

B3 = Input.GetText("Input3");

B = B1 ..","..B2 ..","..B3  



File.OpenURL("https://www.google.com.eg/#q="..B, SW_SHOWNORMAL);

جـــــــــــاري التجربه ...

**المظلوم المظلوم** · 27-08-2016, 02:22 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

لكل من مر من هناااا :
01 - لماذا اساسا أضع ثلاث كلمات و كل كلمة في أنبوت ثم أجمعهم ووووو
من المرة الأولى أستعمل أنبوت 1 و أكتب فيه ما أشاء من الكلمات بدون أي رموز علما
أن إشارة + بين الكلمات أفضل عند البحث
02 - كل الكلام الذي مر لا يتلاءم مع السؤال فقد ضننت أن السؤال بتعلق بالبحث في موقع
وليس في غوغل الذي كانت المشاركة التي كتبها الأخ فرح كافية 100 بالمائة
سواء كان المعيار كلمة واحدة أم عدة معايير نجمع بينها بالاشارة +
03 - لمحبي البرمجة هاهو سؤالي أكتب كود يبحث في موقع طريق الاحتراف
عن :
1- أسماء المتصلين حاليا في الموقع ويعلن عنهم
2 - الساعة مثلا كم تشير وبعلن عنها

ويمكن طرح تساؤلات للوصول الى قيم داخلية في الموقع
مثل سنة تأسيسه , آخر مرة أجري التعديل عليه ........الخ

بالتوفيق

أخي الغالي ثامر أبو بلقيس

--------------------------------------------------------------------
سؤالي
عن البحث في موقع واحد وليس في جوجل

إعـــــــلان

برنامج بحث في وموقع ويب

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك