sevgilim

On 12/1/2020 at 5:46 AM, sevgilim said:

السلام عليكم 

الاخوه الكرام هل بالامكان ارسال قيمه للمتصفح المفتوح 

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

التعامل مع صفحات الويب بدون إستخدام أداة webbrowser - Copy.mdb 256 kB · 17 downloads

السلام عليكم 

استاذنا صالح اقصد نفس متصفح الانترنت اكسبلورر ارغب بتنفيذ امر اخر بنفس المتصفح بدون اغلاقه بنفس النموذج .. ولكم جزيل الشكر

 

السلام عليكم 

الاخوه الكرام هل بالامكان ارسال قيمه للمتصفح المفتوح 

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

التعامل مع صفحات الويب بدون إستخدام أداة webbrowser - Copy.mdb

السلام عليكم 

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

ولكم جزيل الشكر   

https://enjazit.com.sa/Enjaz/GetMusanedVisaInformation

imgCaptcha.bmp

اشكرك استاذنا الحبيب

ونا اتصفح شد انتباهي هئا الموضوع في احد المواقع ارجو الاطلاع وان شاء الله نحصل الحل

http://vb4arb.com/vb/showthread.php?tid=17621 

السلام عليكم

On 4/6/2020 at 2:54 AM, صالح حمادي said:

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

بعد أن أنهينا الشطر الأول الخاص بالتعامل مع الويب من الأكسس بإستخدام أداة WebBrowser و هذا رابط الموضوع:

نبدأ الآن بحول الله تعالى في الشطر الثاني و هو التعامل مع صفحات الويب بدون إستخدام أداة WebBrowser

سوف نستخدم في هذا الموضوع طريقتين الأولى التعامل المباشر مع المتصفح Internet Explorer و الثانية بإستخدام سرفر معين

الجزء الأول:  التعامل المباشر مع المتصفح Internet Explorer

في هذا الجزء إن شاء الله سوف نقوم بفتح نسخة من المتصفح Internet Explorer و نرسل لها بيانات أو نستقبل منها.

سوف نستخدم مثال الأخ @ابوآمنة للتطبيق عليه بإرسال بيانات لنموذج غوغل من خلال متصفح خارجي:

هذا هو الكود:

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.Navigate sURL
oBrowser.Visible = False

Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
 HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1
 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2
 HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click

Do
' Wait till the Browser is loaded
Loop Until oBrowser.LocationURL <> sURL

oBrowser.Quit

MsgBox "لقد تم إرسال البيانات بنجاح"
Me.n1 = ""
Me.n2 = ""
Err_Clear:
If Err <> 0 Then
   Err.Clear
   Resume Next
End If

شرح الكود:

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Dim oHTML_Element As IHTMLElement
Dim sURL As String

هنا قمنا بتعريف المتغيرات التي نحتاجها

sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform"

هذا رابط الموقع

Set oBrowser = New InternetExplorer

إسناد نسخة من جديدة من Internet Explorer للمتغير oBrowser

oBrowser.Silent = True
oBrowser.Navigate sURL
oBrowser.Visible = False

السطر الأول هو إيقاف ظهور رسائل الأخطاء من المتصفح

السطر الثاني تصفح الرابط sURL

السطر الثالث التحكم في إظهاء أو إخفاء المتصفح أثناء العمل عليه

Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

الإنتظار إلى حين تحميل الصفحة

 HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1
 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2

إرسال قيم للمربع الأول و الثاني

 HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click

الضغط على زر إرسال

Do
' Wait till the Browser is loaded
Loop Until oBrowser.LocationURL <> sURL

إجراء حلقة دورانية لا يخرج منها إلا عند تغير رابط الصفحة و ذلك عند الضغط على زر الإرسال

oBrowser.Quit

إغلاق المتصفح بعد إرسال البيانات

للتجربة افتح المرفق و ادخل بيانات في المربع الأول و المربع الثاني و اضغط على زر الإرسال و لاحظ ماذا يحدث

و للإطلاع على ظهور النتائج ادخل على هذا الرابط:

https://docs.google.com/spreadsheets/d/e/2PACX-1vSi73gAAIE9Rv8Ux43jjcvq9SSpzdVzs3M3ZEtehWqqP0pW4NLFLnkX3Iqoc9dYm_cx8vPz9S1465zd/pubhtml

ارسال بيانات لنماذج غوغل.rar 46.33 kB · 104 downloads

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

هل بالمكان ان نستهدف بمتصفح اخر مثل chrome

وممكن هذا الكود ينفعنا بشي ولكم جزيل الشكر

  Dim chromePath As String

  chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

  Shell (chromePath & "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform")

 من بحثي في بعض المواقع حصلت موضوع قريب للمطلوب ارجو من الاخوه الكرام الافاده 

فتح أداة webbrowser بإستخدام فايرفوكس أو كروم

http://vb4arb.com/vb/showthread.php?tid=32903

http://vb4arb.com/vb/showthread.php?tid=17621

الف شكر لك اخي الفاضل ابو خليل 

هل بالامكان استهداف حقل بالمتصفح .. وجزاك الله كل خير

بارك الله فيك ورحم الله والديك

استاذنا الفاضل / عبداللطيف سلوم

جزاك الله عنا خير الجزاء .. هل بالامكان ارفاق نسخه تعمل علي اوفيس 2003

السلام عليكم

تم حل المشكله من اخونا الاستاذ محمد صالح جزاه الله الف خير وهذا رابط الموضوع

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

Translator.v1.0.0.1.mdb

ونرغب في تطويره لكي يعمل علي https://www.bing.com/translator 

ولكم جزيل الشكر

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

Translator.v1.0.0.1.mdb

7 دقائق مضت, أ / محمد صالح said:

nnerText

عجزت الكلمات تعبر عن مدى الجميل و العرفان اللي بدر منك تجاهي كلمة شكراً ما تكفي و المعنى أكبر ما توفيه أعبر لك عن مدى شكري و جزاك الله الف خير لك والاخوه الاعضاء 

14 دقائق مضت, ali mohamed ali said:

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

 

 

القاموس الشخصي بحث استماع اضافة تعديل حذف.xls

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

السلام عليكم

السلام عليكم

اشكرك اخي الكريم لم اجد الكود الموجود في الشرح result_box في نفس موقع جوجل لان الموقع غير في الاكواد ويحتاج ان نجد لها طريقه وافضل ان نعمل علي موقع

bing microsoft translator ... https://www.bing.com/translator  لانه ادق من جوجل في الترجمه وخاصه في ترجمه الاسماء لذي ارجو منك والاخوه الكرام مساعدتي وايجاد حل ليستفاد منه الجميع ولكم جزيل الشكر والعرفان

السلام عليكم اخي qathi 

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

ولكم جزيل الشكر

السلام عليكم 

الاخوه الكرام لدي مثال اجنبي عباره عن ترجمه كان شغال معاي من فتره وقبل يومين اصبح لايترجم ويضهر خطاء بالكود اتوقع ان موقع الجوجل للترجمه غير الاكواد الخاصه به .

فارجو منكم المساعدة لكي يفيدنا جميعا 

ولكم جزيل الشكر وفائق الاحترام

Google Translate.mdb

في ١٦‏/٣‏/٢٠١٨ at 04:24, ابوخليل said:

اكتب هذا تحت زر  الدخول

Private Sub log_Click()
Me.WebBrowser0.Document.Forms(0).Save.Click
End Sub

 

السلام عليكم ابو خليل جربت الكود مع الموقع ادناه ةلاكن للاسف لم يعمل ارجو المساعده ولكم جزيل الشكر

https://et.musaned.com.sa/employers

في ٢١‏/٩‏/٢٠١١ at 05:55, أبو آدم said:

أخي العزيز

 

تم بعون الله

 

كل ما فعلناه ، بعد التعريفات والسلام والكلام ...

انتقلنا للصفحة الالكترونية حسب السجل في الجدول

ثم تفاهمنا معها لنقل اسم المستخدم

ثم اقنعناها بقبول كلمة السر

ثم ضغطنا زر الامر signed in

 

 

 

Private Sub ÃãÑ36_Click()

Dim sURL As String

    Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library

    Dim htmlInput As MSHTML.HTMLInputElement

    Dim htmlColl As MSHTML.IHTMLElementCollection


    With wbbWebsite

	    .Navigate Me!CompanyWebsite ' Main page

	    .Visible = 1

	    Do While .ReadyState <> 4: DoEvents: Loop


			 'set user name and password

		    Set htmlDoc = .Document

		    Set htmlColl = htmlDoc.getElementsByTagName("INPUT")

		    Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop

			    For Each htmlInput In htmlColl

				    If htmlInput.Name = "Email" Then

					    htmlInput.Value = Me.MName

				    Else

					    If htmlInput.Name = "passwd" Then

						    htmlInput.Value = Me.Pass

					    End If

				    End If

			    Next htmlInput


				 'click login

			    Set htmlDoc = .Document

			    Set htmlColl = htmlDoc.getElementsByTagName("input")

			    Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop

				    For Each htmlInput In htmlColl

					    If Trim(htmlInput.Type) = "submit" Then

						    htmlInput.Click

						    Exit For

					    End If

				    Next htmlInput

			    End With


End Sub

 

 

 

فقط لا غير .... ببساطة ... قضيت الحاجة بإذن الله وفضله

 

وهكذا أصبح التطبيق

 

 

ولي عندكم دعوة خير طيبة بظهر الغيب

 

والله من وراء القصد .....

 

والسلام ختام

NA_ActivateWebpage.rar

السلام عليكم 

بارك الله فيك اخى ابو آدم و اشكر الجميع علي المثال وجعله الله في ميزان حسناتكم افادنا جميع واشكر كل من ساهم بعمل الخير 

لدي استفسار بخصوص الكود اريد ينقل في الحقول بدون تحديث الصفحه او الضغط علي زر الامر signed in 

ولكم جزيل الشكر 

السلام عليكم

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

في حاله النقد لايوجد بيانات يظهر خطا ارغب بان تكون صفر لكي تتم عمليه الجمع ... ولكم الشكر الجزيل

test.mdb

57 minutes ago, kanory said:

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

أخي الكريم أهلا بك :

أولا : ربما كما تفضل اجريت بعض التحديثات في حقول الموقع فلذلك فقدت عملية الربط مع برنامج .... لذا يجب تتبع تلك التحديثات حتى تحدث أنت أيضا برنامج

ثانيا : الرابط المدرج في الموضوع لايعمل 

السلام عليكم اخي kanory

الرابط يعمل ولدي مثال كنت اعمل عليه من 6 سنوات ارجو الاطلاع عليه

WebAppFiller (1).mdb

مثال

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

https://enjazit.com.sa/VisaPerson

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

القلب ينشر عبير الشكر والوفاء والعرفان لكم على كل ما بذلتموه في سبيل مساعدتي ومساعده الإخوان الكرام أن نصل إلى ما طمحنا إليه جميعًا، فقد كان نجاحنا اليوم ثمرة العمل المشترك الذي لم يكن ليتحقق لولا عملنا جميعًا ، فكل الشكر والعرفان لكم أيها الأحبة. وأتمنى من الله عز وجل أن يعطيكم الصحة والعافية، شكراً لكم على ما قدمتموه لنا ودام الله عزّكم ودام عطائكم..😘

السلام عليكم kanory 

ارفقت الملف

اشكرك

pass.mdb