المحاضرة 2: كيفية استخدام متصفح الويب الخاص بـ VB لإرسال صفحة ويب تحتوي على اسم مستخدم وكلمة مرور
آخر مرة عرفنا فيها كيفية فتح صفحة ويب، سنلقي اليوم نظرة على كيفية اتخاذ الخطوة الأولى لكسب المال.
وهنا نبدأ باتخاذ الخطوات:
1. افتح VB أولاً وقم بإنشاء مشروع جديد.
2. انقر بزر الماوس الأيمن على شريط الأدوات وحدد المكونات (أنا أستخدم الإصدار الصيني من VB) أو حدد قائمة المشروع وانقر فوق المكونات
3. ابحث عن عناصر التحكم في الإنترنت لـ Microsoft، وحددها في المقدمة، ثم قم بتأكيدها. ستشاهد رمزًا إضافيًا يشبه الأرض على شريط الأدوات. وسيتمحور تنفيذنا المستقبلي حوله.
4. قم بإضافة WebBrowser1 إلى Form1، ثم قم بإضافة أمر1 إلى Form1.
5. أضف الكود التالي إلى Form1: (كل ما ورد أعلاه مذكور في محاضرتنا السابقة، لذا يجب أن تكون على دراية به)
'----------يبدأ-----------
أمر فرعي خاص1_Click()
خافت vDoc، vTag
خافت ط كعدد صحيح
قم بتعيين vDoc = WebBrowser1.Document
For i = 0 إلى vDoc.All.length - 1 'اكتشف كافة العلامات
إذا كان UCase(vDoc.All(i).tagName) = "INPUT" ثم "ابحث عن علامة الإدخال"
تعيين vTag = vDoc.All(i)
إذا كان vTag.Type = "text" أو vTag.Type = "password" فتأكد مما إذا كان هذا هو ما نحتاج إليه
حدد حالة vTag.Name 'وفقًا لاسم العلامة، قم بتفعيل علامة الاختيار
الحالة "EMAILADD"
vTag.Value = "[email protected]" 'اكتب بريدك الإلكتروني هنا
الحالة "PASSWD"
vTag.Value = "password" 'اكتب كلمة المرور الخاصة بك هنا
إنهاء التحديد
ElseIf vTag.Type = "إرسال" وvTag.Name = "SUB" وvTag.Value = "اشتراك" ثم
"ابحث عن زر الإرسال."
vTag.Select "يمكنك أيضًا الاستغناء عن هذا."
vTag.انقر فوق "انقر للإرسال، كل شيء على ما يرام".
نهاية إذا
نهاية إذا
التالي ط
نهاية الفرعية
نموذج فرعي خاص_تحميل()
WebBrowser1.Navigate "http://dhunter.51.net"
نهاية الفرعية
'----------ينهي-----------
6. بالطبع هو اختبار. انقر فوق زر التشغيل. يمكننا أن نرى أن متصفح الويب الخاص بنا قد فتح http://dhunter.51.net. انتظر حتى يكتمل التنزيل الأساسي لصفحة الويب، ثم انقر فوق زر Command1. سيقوم متصفح الويب الجميل الخاص بنا بإدخال ما أدخلناه للتو من بريدك الإلكتروني وكلمة المرور إلى صفحة الويب. هل لاحظت أن الاشتراك كان ناجحًا؟ تلك علامة النصر.
حسنًا، دعنا نكتب هذا كثيرًا في الوقت الحالي، في المرة القادمة سنلقي نظرة على كيفية استخدام متصفح الويب للعثور على الارتباط التشعبي في صفحة الويب، والذي يتوافق مع رابط كسب المال.
الملحق (المعلومات ذات الصلة):
كما ترون، هذه المرة نستخدم القائمة البريدية للاشتراك على http://dhunter.51.net، وإليك الكود المصدري لصفحة الويب هذه:
<طريقة النموذج = "نشر" الإجراء = "http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<نوع الإدخال = "مخفي" اسم = "معرف المستخدم" القيمة = "dhunter">
بريد إلكتروني:
<input type = "text" name = "EMAILADD" value = "your email">
<ر>
كلمة المرور:
<نوع الإدخال = "كلمة المرور" الاسم = "PASSWD" القيمة = "******">
<ر>
</font><font size="2">
<نوع الإدخال = "إرسال" القيمة = "الاشتراك" الاسم = "SUB">
<نوع الإدخال = "إرسال" القيمة = "إلغاء الاشتراك" الاسم = "UNSUB">
</font></p>
</النموذج>
جميع العلامات التي تحتوي على إدخالات تقبل الإدخال، ومهمتنا الرئيسية هنا هي العثور عليها والعمل عليها.