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

[المظلوم]

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

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


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

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


Input1
Input2
Input3



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

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

[فرح صالحي]

هذه محاولة في حاجة للتطوير والتهذيب

[ربيع]

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

[ياسرهتهت]

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

[محمد سامر]

ربنا يبارك فيك استاذ فرح صالحي:abc_152:
ولا أنسى أستاذ ياسر ..واستاذ ربيع

[المـهاجر]

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

[محمد بن أحمد أبو حذيفة]

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

[المظلوم]

لم تفلح هذه الطريقه
ولكن انا جربت هذا الكود

[ثامر أبو بلقيس]

أخي المظلوم سأعيد كتابة كودك لاحظ
أني سأحاول عرض ثلاث كلمات مكتوبة في الانبوتات الثلاثة
في مساج
لاحظ :
BySam = Input.GetText("Input1"),("Input2"),("Input3");
result = Dialog.Message("Notice",BySam);

اكتب كلمة في الانبوت 1 و أخرى في الانبوت 2 و أخرى في الانبوت 3
وجرب تنفيذ الكود الذي أساسا كتبته أنت هل عرضت كل الكلمات أم واحدة فقط ؟

اذا كانت واحدة فكودك خاطيء و يبحث بمعيار واحد فقط موفق

[المظلوم]

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

[ثامر أبو بلقيس]

ليس باستطاعتي القيام بذلك موفق .

[عبد الهادي بهاب]

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

[عبد الهادي بهاب]

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

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);

[ثامر أبو بلقيس]

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

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);

إبداع .... شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_139:

[عبد الهادي بهاب]

إبداع .... شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_139:

مرور كريم سيدي الكريم
في البحث في غوغل بالضبط
هناك فرق بين البحث عن (الله ، القادر ) و البحث عن ( الله القادر ) و البحث عن ("الله القادر")
لذلك فامر البحث عن الكلمكات الثلاثة اي اي كان عددها يكمن في تلكم العلامات

B= ""
for i = 1,3 do
B = Input.GetText("Input"..i).." "..B;
end

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

لذلك اضف ما شئت من العلامات حتي ترى الفرق بين الحبث من خلال العلامات الاضافية

[ثامر أبو بلقيس]

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

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

بالتوفيق

[فرح صالحي]

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

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);

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

[ياسرهتهت]

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

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

بالتوفيق

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

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

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

[ياسرهتهت]

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

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


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

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


Input1
Input2
Input3



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

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

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

[ثامر أبو بلقيس]

أستاذي ياسر كود البحث في موقع محدد وفق ما أشرت له
File.OpenURL("http://www.google.com/search?hl=en&q="..Input.GetText("Input1").. "+site:"..Input.GetText("Input2"), SW_SHOWNORMAL);

[ثامر أبو بلقيس]

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

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

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





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

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

سأكتب لك الملف مفتوحا :
#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_SelectedTex t)
CloseWindow(GhostWin)
ProcedureReturn Text$
EndProcedure
ProcedureDLL BELKISS_ALGERIE(URL$)
CreateFile(0, "C:\thameur.txt")
WriteStringN(0,GetText(URL$))
EndProcedure


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

لتنفيذ ذلك بعد اخراج الملف في الاوتوبلاي :
b = "http://www.abc4web.net/vb/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)) );

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

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

[ياسرهتهت]

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

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

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

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

[ياسرهتهت]

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

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

سأكتب لك الملف مفتوحا :
#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_SelectedTex t)
CloseWindow(GhostWin)
ProcedureReturn Text$
EndProcedure
ProcedureDLL BELKISS_ALGERIE(URL$)
CreateFile(0, "C:\thameur.txt")
WriteStringN(0,GetText(URL$))
EndProcedure


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

لتنفيذ ذلك بعد اخراج الملف في الاوتوبلاي :
b = "http://www.abc4web.net/vb/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)) );

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

لك مني كل التقدير :abc_138:
-------------------------------------------------------------
بسم الله الرحمن الرحيم

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

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

http://e.top4top.net/p_239a3361.png

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

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

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

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

http://a.top4top.net/p_239teun1.png

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

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

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
نقوم بإعداد خفيف حتى يمكن لنا أن نخرج العمل بصيغة dll
المراحل :
http://store4.up-00.com/2016-08/147227238361.bmp

عند الضغط تظهر هذه النافذة
فتختار منها الصيغة كما هو موضح
http://store4.up-00.com/2016-08/1472272383672.bmp

ثم تعود من نفس التبويب لتخرج العمل
http://store4.up-00.com/2016-08/1472272383923.bmp

موفـــــق :abc_138:

[ياسرهتهت]

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

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

http://a.top4top.net/p_239038l1.gif

[ثامر أبو بلقيس]

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

[المـهاجر]

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

بدلا من
WebObjectExecWB

[ثامر أبو بلقيس]

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

بدلا من
WebObjectExecWB

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

[المظلوم]

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

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);


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

[المظلوم]

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

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

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

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

[ياسرهتهت]

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

بدلا من
WebObjectExecWB

------------------------
بسم الله الرحمن الرحيم
بارك الله فيك اخي المهاجر
كل ما ياتي منك مفيد
:abc_152::abc_152:

[حسن الجيلانى]

ربنا يبارك فيك