اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نقل قيمة حقل من النموذج لصفحة ويب


الردود الموصى بها

أخي العزيز

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

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

هذه مسألة مهمة لا بد من مراعاتها ، وعليك - ربما تعديل الكود (جزء منه) للوصول للنتيجة التي تريد لكل موقع - تقريبا - .

استمهلك لحين الانتهاء....

.............

رابط هذا التعليق
شارك

أخي العزيز

تم بعون الله

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

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

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

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

ثم ضغطنا زر الامر 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

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

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

post-12714-0-56771000-1316555552_thumb.j

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

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

والسلام ختام

NA_ActivateWebpage.rar

  • Like 2
رابط هذا التعليق
شارك

ياسلام ... تسلم .. تسلم .. تسلم

يعني يمكن عمل برنامج صغير احتفظ فيه بأسماء المواقع وارقام التسجيل الخاصة بها ، ويكون دليل وقت الحاجة

صدقوني : عشرات المواقع قد اشتركت فيها بأسما وارقام للدخول ولكني أنسيتها

أستاذنا الكريم :

حاولت تعديل اسم الموقع من قوقل الى اوفيسنا ولكني لم انجح

فكل موقع له خصوصيته والطريقة التي تمت برمجته بها

هذه مسألة مهمة لا بد من مراعاتها ، وعليك - ربما تعديل الكود (جزء منه) للوصول للنتيجة التي تريد لكل موقع - تقريبا - .

فأين هذه الجزئية وكيف يتم تعديلها أقصد هل هناك قانون منضبط

فلو تفضلت كرما منك وتفضلا باعادة ارفاق المثال متضمنا قائمة منسدلة يتم الاختيار منها

فتضيف مثلا موقع اوفيسنا وموقع الفريق العربي الى الموجود

رابط هذا التعليق
شارك

أخي الرايق بيك

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

أخي أبا ياسر

سلمك الله ورعاك ...

أبشر بما أستطيع ، فالطيبون أمثالك لا ترد مطالبهم (إن أذن الله بقضائها) ...

سهرت ليلة أمس وانا أحاول اقناع google بقصة أخونا الرايق بيك ، فأمهلني لعل سهرة الليلة تكفي لإقناع بقية القائمة

ولنا بإذن الله لقاء قريب

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

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

..........

  • Like 1
رابط هذا التعليق
شارك

اخي العزيز / الاستاذ المشرف " نــــــــــــــــارت "

سأقول لك شيئا لم اكتبه من قبل :

عندما اقرأ اسمك على موضوع اكسس ما ادخل لاستمتع بقراءة ردك ( او ردودك )

في بعض الاحيان ادخل على موضوعات الاكسس ( بدون اهتمامي بالمادة العلمية بحد ذاتها ) !!! وهذا غريب اليس كذلك

ادخل اليه لكي اقرأ الرد ... واستمتع بطريقة ردك ... وبنفس الوقت اطمئن عليك

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

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

يكون دخولنا للاطمئنان

وفقك الله

ابو الحارث

  • Like 1
رابط هذا التعليق
شارك

  • 3 years later...

بارك الله فيك اخى ابو آدم وطال عمرك وبشرك بالخير واراحك من الهم والغم كما تريح السائلين

وفقكم الله  وكل اخوانى واخواتى اللذين احببتهم هنا وهناك عن ظهر الغيب لا يعلمهم الا الله سبحانه

رابط هذا التعليق
شارك

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

أخي العزيز

 

تم بعون الله

 

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

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

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

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

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

 

 

 

Private Sub &#195;&#227;&#209;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

 

 

 

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

 

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

 

post-12714-0-56771000-1316555552_thumb.j

 

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

 

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

 

والسلام ختام

NA_ActivateWebpage.rar

السلام عليكم 

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

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

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

تم تعديل بواسطه sevgilim
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information