كود يعمل على تنفيذ اكثر من مهمة في نفس الوقت

[طارق نادر]

السلام عليكم يااصحاب الخبرة

اريد منكم كود يقوم بعدة من مهام حسب الترتيب التالي:

1. يفتح الموقع التالي (https://apps.moe.gov.jo/App/Clearance/)

2. نسخ الرقم الوزاري للموظف في المكان المخصص له في واجهة الموقع.

3.فتح الموقع تلقائيا .

4. طباعة الصفحة التي ستظهر بعد فتح الموقع اعلاه مباشرة.

مع الشكر الجزيل لكم.

ارفق لكم الملف....

رصد العقوبات طلاب الثانوية العامة (1).rar

تم تعديل يناير 26, 2023 بواسطه طارق نادر
ارفاق ملف للتعديل

[أبو إيمان]

اخي الفاضل يجيب الغاء عكل الكود الموجود في حدث المصنف الذي يعمل تلقائيا عن الفتح

[حسونة حسين]

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

1- قم بتحميل برنامج Selenium من الرابط  او من ميديا فاير ثم قم بتسطيبه كأي برنامج

2- تفتح الكروم علي هذه الصفحه
chrome://settings/help
لنعرف ما هو اصدار الكروم ولنفرض اننا وجدناه كما لدي
Version 109.0.5414.120 (Official Build) (64-bit)
نأخذ الرقم  109.0.5414.120   ثم نبحث في الصفحه  علي هذا الرقم او ما يقرب له ثم نفتح الصفحه
لدي كان اقرب رقم له هو
https://chromedriver.storage.googleapis.com/index.html?path=109.0.5414.25/

ثم نقوم بتحميل الملف المسمي chromedriver_win32.zip

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

%LOCALAPPDATA%\SeleniumBasic\
لو المسار دا مش موجود هتلاقيه في مجلد
%ProgramFiles%\SeleniumBasic\
لو المسار دا مش موجود هتلاقيه في مجلد
%ProgramFiles(x86)%\SeleniumBasic\
 

وتوافق على الاستبدال

بندخل على محرر الأكواد عن طريق Alt + F11 ..
من القائمة Tools نضغط على References ونضيف المكتبة الخاصة بالأداة Selenium  بنعلم علامة صح على Selenium Type Library ونضغط أوك  كما بالشكل التالي

ثم ضع هذا الكود في ملفك في الفورم المسماه UserForm1

Private Sub CommandButton14_Click()
    Dim bot As New WebDriver, Keys As New Selenium.Keys
    Dim i As Long, WS As Worksheet
    Set WS = ThisWorkbook.Sheets("البيانات")
    With bot
        .AddArgument "kiosk-printing"
        .Start "chrome", "https://apps.moe.gov.jo/App/Clearance/"
        For i = 2 To WS.Cells(Rows.Count, "C").End(xlUp).row
            .Get "/"
            .Wait 1000
            .FindElementById("txtNumber").SendKeys WS.Cells(i, "C")
            .FindElementById("btnSearch").Click
            .Wait 1000
            .ExecuteScript "window.print()"
        Next i
    End With
End Sub

 

[طارق نادر]

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

[حسونة حسين]

2 ساعات مضت, طارق نادر said:

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

اخى @طارق نادر

قم بقراءه المشاركه جيدا ستجد انني كاتب لك الخطوات جيدا

اين الخطوة التي بها صعوبه حتى اشرحها لك

[طارق نادر]

الصعوبة في آخر نقطة أين انسخ الكود أعلاه...في اي مكان في user form1

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

[حسونة حسين]

 

في 28‏/1‏/2023 at 12:15, حسونة حسين said:

ثم ضع هذا الكود في ملفك في الفورم المسماه UserForm1

افتح الفورم وضع هذا الكود بها

[طارق نادر]

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

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

[حسونة حسين]

الصورة التى ارفقتها لا تظهر الخطأ يوجد رساله قبلها موجود بها كلمه debug ممكن صورة لها

هل قمت بهذه الخطوة اخى

في 28‏/1‏/2023 at 12:15, حسونة حسين said:

من القائمة Tools نضغط على References ونضيف المكتبة الخاصة بالأداة Selenium  بنعلم علامة صح على Selenium Type Library ونضغط أوك  كما بالشكل

  وقمت بتفعيل الاداه ام لا

[طارق نادر]

يسعد صباحك استاذ حسين 

بالنسبة لسؤالك حول الخطوة الأداة Selenium  تمت حسب المطلوب 

وارفق لك صورة debug حسب طلبك مع الشكر لسعة صدرك

 

[حسونة حسين]

اخى قم بتفعيل نت فريم ورك 3.5 كما بالصورة

 

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

Dism /online /enable-feature /featurename:NetFX3 /All /Source:%setupdrv%:\sources\sxs

سوف يقوم بتفعيل ال نت فريم ورك 3.5 

[طارق نادر]

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

حث خطأ بعد اتمام المطلوب بكل الدقة مرفقا الخطا في الصورة مع الشكر الجزيل

[حسونة حسين]

في 28‏/1‏/2023 at 12:15, حسونة حسين said:

تفتح الكروم علي هذه الصفحه
chrome://settings/help
لنعرف ما هو اصدار الكروم ولنفرض اننا وجدناه كما لدي
Version 109.0.5414.120 (Official Build) (64-bit)
نأخذ الرقم  109.0.5414.120   ثم نبحث في الصفحه  علي هذا الرقم او ما يقرب له ثم نفتح الصفحه
لدي كان اقرب رقم له هو
https://chromedriver.storage.googleapis.com/index.html?path=109.0.5414.25/

ثم نقوم بتحميل الملف المسمي chromedriver_win32.zip

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

%LOCALAPPDATA%\SeleniumBasic\
لو المسار دا مش موجود هتلاقيه في مجلد
%ProgramFiles%\SeleniumBasic\
لو المسار دا مش موجود هتلاقيه في مجلد
%ProgramFiles(x86)%\SeleniumBasic\
 

وتوافق على الاستبدال

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

[طارق نادر]

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

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

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات