المحتوى
يمكن أن يوفر لك التنفيذ التلقائي وقت الكتابة بجعل الكمبيوتر يعمل بمفرده. "Sendkeys" هي أداة مضمّنة في Windows تمنحك إمكانية تجربة أتمتة النظام في الوقت الفعلي. يمكنك حتى استخدام "SendKeys" لملء نماذج الويب تلقائيًا. بدلاً من كتابة معرفات المستخدمين ومعلومات العنوان وكلمات المرور ، اسمح للكمبيوتر بالقيام بالعمل نيابة عنك. ليس من الضروري أن تكون مبرمجًا لإنشاء برنامج نصي بسيط يعمل على أي شكل يمكنك العثور عليه على الإنترنت.
الاتجاهات
-
ابدأ تشغيل مستعرض ويب وانتقل إلى صفحة تحتوي على نموذج ترغب في تعبئته. اضغط على المفتاح "Tab" بشكل متكرر حتى يصل مؤشر الماوس إلى مربع النص الأول في النموذج. تذكر عدد مرات الضغط على المفتاح حتى يصل إلى مربع النص هذا.
-
افتح المفكرة أو محرر نصوص وفي مستند جديد قم بلصق التعليمة البرمجية التالية:
تعيين Shell = WScript.CreateObject ("WScript.Shell")
ينشئ السطر الأول كائن "Windows Script Host". يسمح لك "مضيف Windows Script Host" بالتواصل مع Windows.
-
أضف السطر الموضح أدناه بعد السطر الموضح في الخطوة السابقة:
Shell.AppActivate ("عنوان Windows")
ينشط هذا الرمز النافذة التي تحتوي على العنوان ، "عنوان Windows". استبدل "عنوان Windows" بالعنوان الذي يظهر في شريط العنوان في متصفحك.
-
الصق الكود التالي أسفل الكود المدرج في الخطوة الأخيرة:
Shell.SendKeys "{TAB}"
تؤدي هذه الجملة إلى قيام جهاز الكمبيوتر الخاص بك بإرسال مفتاح "Tab" إلى نافذة المتصفح. تكرار هذا البيان عدة مرات كما كنت لتوجيهه إلى الحقل الأول من النموذج. على سبيل المثال ، إذا قمت بالضغط عليه ثلاث مرات ، الصق هذا الرمز في المستند:
Shell.SendKeys "{TAB}" Shell.SendKeys "{TAB}" Shell.SendKeys "{TAB}"
-
أضف سطور الكود الموضحة أدناه بعد الكود الذي قمت بإنشائه في الخطوة السابقة:
Shell.SendKeys "النص 1" Shell.SendKeys "{TAB}"
استبدل "النص 1" بالقيمة التي تدخل النموذج عادةً. على سبيل المثال ، إذا كان نموذج تسجيل الدخول ، استبدل "النص 1" بالقيمة التي وضعتها في مربع النص الأول. والسطر الثاني من "تبويب" في مربع النص التالي.
-
تكرار السطرين السابقين لكل مربع نص موجود في النموذج. إذا كان النموذج يحتوي على صندوقين آخرين للنص ، أضف الكود التالي بعد الكود المدرج في الخطوة الأخيرة:
Shell.SendKeys "النص 1" Shell.SendKeys "{TAB}"
Shell.SendKeys "النص 1" Shell.SendKeys "{TAB}"
عندما تصل "علامات التبويب" إلى نهاية مربع النص ، ستجد عادةً زر "إرسال" في النموذج.
-
الصق هذا البيان الأخير بعد الكود الذي قمت بإنشائه في الخطوة السابقة:
Shell.SendKeys "{ENTER}"
يرسل هذا الرمز مفتاح "Enter" الذي يضغط على الزر الموجود في النموذج. يوضح المثال التالي كيف سيكون هذا المستند إذا ضغطت على "علامتي تبويب" للوصول إلى مربع النص الأول في نموذج به مربعي نص وزر:
تعيين Shell = WScript.CreateObject ("WScript.Shell") Shell.AppActivate ("Title 1")
'علامة التبويب إلى حقل الإدخال الأول Shell.SendKeys "{TAB}" Shell.SendKeys "{TAB}"
'إرسال الإدخال Shell.SendKeys "النص 1" Shell.SendKeys "{TAB}" Shell.SendKeys "النص 2" Shell.SendKeys "{TAB}"
"علامة التبويب" زر الإرسال "واضغط على" أدخل "Shell.SendKeys" {ENTER} "
احفظ المستند بملحق الملف "vbs". يؤدي هذا إلى إنشاء ملف "VBScript".
-
ابدأ تشغيل مستكشف Windows وحدد موقع الملف. انتقل إلى صفحة الويب التي تحتوي على النموذج وانقر نقرًا مزدوجًا فوق ملف "VBScript". سينتقل المستعرض الخاص بك إلى الحقل الأول ، وسيقوم البرنامج النصي الذي قمت بإنشائه بملء النموذج وإرساله.
نصائح
- من الأفضل استخدام العنوان الكامل لصفحة ويب في أمر "Shell.AppActivate" ، لكنه سيعمل أيضًا إذا قمت بإدخال جزء فقط من العنوان الذي يظهر في نافذة المتصفح.
- بعد إنشاء برنامج "VBScript" ، يمكنك تعديله للعمل على نماذج أخرى عن طريق ضبط عدد مفاتيح "Tab" المطلوبة لهذا النموذج الجديد.
- في بعض الأحيان ، قد تحتاج إلى أكثر من مفتاح "Tab" للانتقال من حقل النص النهائي للنموذج إلى الزر الذي يرسل النموذج. إذا كانت هذه هي الحالة ، فقم بإعطاء "علامات التبويب" الإضافية باستخدام "SendKeys" كما هو موضح في الخطوات السابقة.