كيف ابحث عن رقم في الأداة WebBrowser

ما معنى ارسل للموقع رقم واحد

هل تقصد ان رقم واحد هو مثلا رقم الصفحة

بالتوفيق

A7med_prof

مش فاهمك أخي أرجو الإيضاح

السلام عليكم

webbrowser.document.body.innerhtml
webbrowser.document.body.innertext

والله أعلم

الأخ الفاضل ...

WebSearch.zip

يمكنك عمل بحث بنفسك داخل النص بأستخدام الدالة InStr أو أستخدام امكانية البحث الموجودة مع الأداة WebBrowser

	WebBrowser.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT, vbNullString

شكراً

جزاك الله خير على ردودكم

شكراً لك اخي Eng. Usama El-Mokadem

المثال الذي ارفقته كان فيه ما أريد وفقك الله لكل خير وجعله في ميزان حسناتك

عندى اسئلة اذا سمحتولي

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

2 اذا كنت ابحث عن الرقم 10 وكان موجود في الأداة الرقم 1012 فالبرنامج يخبرني بأن الرقم عشرة موجود

والحقيقة الرقم عشرة غير موجود والموجود 1012

هل من حل؟

3 اذا كانت الأداة فارغة من المعلومات

ثم ظهرت فيها معلومات

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

4 الكود InStr(1, wText, fStr) ماذا يعني الرقم 1 ، وماذا يعني wText

الأخ الفاضل ...

اقتباس

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

Private Sub Form_Load()
	WebBrowser.Navigate2 "about:blank"
End Sub

اقتباس

2 اذا كنت ابحث عن الرقم 10 وكان موجود في الأداة الرقم 1012 فالبرنامج يخبرني بأن الرقم عشرة موجود

والحقيقة الرقم عشرة غير موجود والموجود 1012

هل من حل؟

Private Sub cmdCustomSearch_Click()
	Dim Doc As HTMLDocument
	Dim fStr As String
	Dim wText As String
	Dim ch As String
	Dim wPos As Long

	Set Doc = WebBrowser.Document
	wText = Doc.body.innerText
	fStr = InputBox$("Enter search string:", "Find")
	If Len(fStr) > 0 Then
		wPos = InStr(1, wText, fStr, vbTextCompare)
		If wPos Then
			ch = Mid$(wText, wPos + Len(fStr), 1)
			If ch = " " Or ch = vbCr Or ch = vbLf Or ch = vbTab Then
				MsgBox "Find text: " & fStr
			Else
				MsgBox "Text not found"
			End If
		End If
	End If
End Sub

اقتباس

3 اذا كانت الأداة فارغة من المعلومات

ثم ظهرت فيها معلومات

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

Private Sub cmdGo_Click()
	cmdBrowserSearch.Enabled = False
	cmdCustomSearch.Enabled = False
	WebBrowser.Navigate2 Trim(txtURL.Text)
End Sub

وأضف

Private Sub WebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
	cmdBrowserSearch.Enabled = True
	cmdCustomSearch.Enabled = True
End Sub

اقتباس

الكود InStr(1, wText, fStr) ماذا يعني الرقم 1 ، وماذا يعني wText

شكراً

WebSearch_up1.rar

أسأل الله العظيم رب العرش الكريم ان يسكنك الجنة وان يفرج عنك كرب الدنيا والآخرة وان يفتح لك رزقاً واسعاً وحلالاً طيباً

السلام عليكم

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

ووجدت انه عندما يكون في الأداة رقم 1010

واردت البحث عن الرقم 10 تظهر رسالة عدم وجود الرقم

اذا اردت البحث عن الرقم 1010 تظهر رسالة عدم وجود الرقم ما الحل ؟

سؤال/ الموقع يرسل ارقام فقط

هل توجد طريقة لمعرفة كل هذا الرقم

اقتباس

2 اذا كنت ابحث عن الرقم 10 وكان موجود في الأداة الرقم 1012 فالبرنامج يخبرني بأن الرقم عشرة موجود

والحقيقة الرقم عشرة غير موجود والموجود 1012

هل من حل؟

اقتباس

ووجدت انه عندما يكون في الأداة رقم 1010

واردت البحث عن الرقم 10 تظهر رسالة عدم وجود الرقم

اذا اردت البحث عن الرقم 1010 تظهر رسالة عدم وجود الرقم ما الحل ؟

البرنامج الأول يحقق طلبك WebSearch.zip الثانى :)

اخي الكريم Eng. Usama El-Mokadem...

هل من طريقة لجعل الموقع الذي تصفحته عن طريق الأداة لايظهر في المحفوظات

للرفع