الرايق بيك قام بنشر سبتمبر 20, 2011 مشاركة قام بنشر سبتمبر 20, 2011 السلام عليكم ورحمة الله المطلوب في المرفقات وهو تقل قيمة حقل اسم المستخدم للموقع db1.rar رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر سبتمبر 20, 2011 مشاركة قام بنشر سبتمبر 20, 2011 أخي العزيز التطبيق بمراحله الاخيرة من التعديل ، فقد تم بعون الله وفضله ولكن من المهم جدا أن تعرف أن الموضوع ليس سهلا بالطريقة التي قد تتخيلها ، فكل موقع له خصوصيته والطريقة التي تمت برمجته بها هذه مسألة مهمة لا بد من مراعاتها ، وعليك - ربما تعديل الكود (جزء منه) للوصول للنتيجة التي تريد لكل موقع - تقريبا - . استمهلك لحين الانتهاء.... ............. رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر سبتمبر 20, 2011 مشاركة قام بنشر سبتمبر 20, 2011 أخي العزيز تم بعون الله كل ما فعلناه ، بعد التعريفات والسلام والكلام ... انتقلنا للصفحة الالكترونية حسب السجل في الجدول ثم تفاهمنا معها لنقل اسم المستخدم ثم اقنعناها بقبول كلمة السر ثم ضغطنا زر الامر 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 2 رابط هذا التعليق شارك More sharing options...
youssef103 قام بنشر سبتمبر 20, 2011 مشاركة قام بنشر سبتمبر 20, 2011 استاذ نارت بسم الله و ما شاء الله للابداع وطن اسمه نارت فكل يوم نتعلم منك شئ جديد و مميز بارك الله فيك رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر سبتمبر 21, 2011 مشاركة قام بنشر سبتمبر 21, 2011 بارك الله بك ولك ونفعنا و اياك بما علمنا ، وفتح بالخيرات علينا وعليكم شكرا لمرورك ولكلماتك الطيبة .......... رابط هذا التعليق شارك More sharing options...
ابو ياسر قام بنشر سبتمبر 21, 2011 مشاركة قام بنشر سبتمبر 21, 2011 ياسلام ... تسلم .. تسلم .. تسلم يعني يمكن عمل برنامج صغير احتفظ فيه بأسماء المواقع وارقام التسجيل الخاصة بها ، ويكون دليل وقت الحاجة صدقوني : عشرات المواقع قد اشتركت فيها بأسما وارقام للدخول ولكني أنسيتها أستاذنا الكريم : حاولت تعديل اسم الموقع من قوقل الى اوفيسنا ولكني لم انجح فكل موقع له خصوصيته والطريقة التي تمت برمجته بها هذه مسألة مهمة لا بد من مراعاتها ، وعليك - ربما تعديل الكود (جزء منه) للوصول للنتيجة التي تريد لكل موقع - تقريبا - . فأين هذه الجزئية وكيف يتم تعديلها أقصد هل هناك قانون منضبط فلو تفضلت كرما منك وتفضلا باعادة ارفاق المثال متضمنا قائمة منسدلة يتم الاختيار منها فتضيف مثلا موقع اوفيسنا وموقع الفريق العربي الى الموجود رابط هذا التعليق شارك More sharing options...
الرايق بيك قام بنشر سبتمبر 21, 2011 الكاتب مشاركة قام بنشر سبتمبر 21, 2011 جزاك الله كل خير أخي الكريم nart lebzo جهد تشكر عليه وفقك الله ومن تحب رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر سبتمبر 21, 2011 مشاركة قام بنشر سبتمبر 21, 2011 أخي الرايق بيك شكرا على دعائك الطيب ، وسرني قضاء حاجتك ، ويشرفنا تواجدك معنا ... فحياك الله أخي أبا ياسر سلمك الله ورعاك ... أبشر بما أستطيع ، فالطيبون أمثالك لا ترد مطالبهم (إن أذن الله بقضائها) ... سهرت ليلة أمس وانا أحاول اقناع google بقصة أخونا الرايق بيك ، فأمهلني لعل سهرة الليلة تكفي لإقناع بقية القائمة ولنا بإذن الله لقاء قريب وهذه دعوة مفتوحة للإخوة ، لتقليب خبراتهم الطيبة ، علهم يسعفوني وإياك بحل ذهبي والله من وراء القصد ... .......... 1 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر سبتمبر 21, 2011 مشاركة قام بنشر سبتمبر 21, 2011 اخي العزيز / الاستاذ المشرف " نــــــــــــــــارت " سأقول لك شيئا لم اكتبه من قبل : عندما اقرأ اسمك على موضوع اكسس ما ادخل لاستمتع بقراءة ردك ( او ردودك ) في بعض الاحيان ادخل على موضوعات الاكسس ( بدون اهتمامي بالمادة العلمية بحد ذاتها ) !!! وهذا غريب اليس كذلك ادخل اليه لكي اقرأ الرد ... واستمتع بطريقة ردك ... وبنفس الوقت اطمئن عليك كتب هذا ونا خجل من نفسي ... ولكن هي حقيقة اردت ان اوصلها لحضرتك .... فعندما ندخل موضوع معين ونقرأ ردود اخوتنا وحتى لو لم يكن لنا دور او حتى لو لم نكتب اية كلمة يكون دخولنا للاطمئنان وفقك الله ابو الحارث 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 24, 2015 مشاركة قام بنشر يناير 24, 2015 بارك الله فيك اخى ابو آدم وطال عمرك وبشرك بالخير واراحك من الهم والغم كما تريح السائلين وفقكم الله وكل اخوانى واخواتى اللذين احببتهم هنا وهناك عن ظهر الغيب لا يعلمهم الا الله سبحانه رابط هذا التعليق شارك More sharing options...
sevgilim قام بنشر أكتوبر 15, 2018 مشاركة قام بنشر أكتوبر 15, 2018 (معدل) في ٢١/٩/٢٠١١ 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 ولكم جزيل الشكر تم تعديل أكتوبر 15, 2018 بواسطه sevgilim رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.