منذ انتشار الإنترنت، أصبح من السهل جدًا على الأشخاص تنزيل الملفات والحصول على معلومات فورية وإرسال رسائل البريد الإلكتروني. يمكن القول أن الإنترنت هي أحد الابتكارات الرئيسية للتكنولوجيا البشرية في القرن الحادي والعشرين. وبسبب هذا التغيير الكبير، تأثرت أنماط حياة الناس أيضًا بشكل كبير؛ وانتشرت قواعد بيانات المعلومات عبر الإنترنت، ومعاملات سوق الأوراق المالية عبر الإنترنت في الوقت الفعلي. في الماضي، لم يكن Visual Basic 4.0 يقدم حلاً كاملاً لعشاق Visual Basic لتصميم برامج الإنترنت. ولحسن الحظ، يوفر لنا Visual Basic 5.0 بعض عناصر التحكم لتصميم البرامج المرتبطة بالإنترنت. في هذه المقالة، سيستخدم المؤلف InternetTransfercontrol مع WebBrowsercontrol لإخبار القراء بكيفية تصميم برامج المستعرض وFTP بسهولة باستخدام Visual Basic 5.0.
مقدمة للتحكم
التحكم في نقل الإنترنت
InternetTransfercontrol هو عنصر تحكم توفره Microsoft لتسهيل المستخدمين في تصميم تطبيقات الإنترنت. وهو يوفر اثنين من بروتوكولات الإنترنت: HTTP وFTP. عندما نستخدمه، يجب علينا أولاً تعيين طريقة الوصول الخاصة به. تنقسم طرق الوصول إلى نوعين: الاتصال المباشر بشبكة الإنترنت، أو الاتصال بشبكة الإنترنت من خلال وكيل، وهو ما يتحدد بالكامل حسب طبيعة شبكتنا. بعد أن قمنا بتعيين المعلمات ذات الصلة، يوفر InternetTransfercontrol طريقتين: OpenURL والتنفيذ للسماح لنا بتنفيذ العمليات المتعلقة بالشبكة. يمكننا استخدام هذين الأمرين لتنفيذ بعض أوامر الإنترنت. في التصميم أدناه، سوف يشرح المؤلف استخدامه.
WebBrowsercontrol
تم توفير التحكم في WebBrowser لأول مرة بواسطة IE3.0 وسيتم تحميله تلقائيًا عند تثبيت IE3.0؛ ويحوله VisualBasic5.0 إلى عنصر تحكم داخلي. فهو يوفر أسلوب Navigatemethod الذي يمكننا من الاتصال بـ WWWServer حيث نريد أن نذهب.
يجب أن يتساءل القراء: نظرًا لأن InternetTransfercontrol يمكنه الاتصال بالإنترنت من خلال HTTP وTPprotocol، فما الذي نحتاج إليه WebBrowsercontrol؟ نظرًا لأن InternetTransfercontrol لا يوفر طريقة للوصول إلى وضع الرسومات، فلا يمكن نقل الملف الناتج مرة أخرى إلا في وضع النص. إذا كان الملف الذي تم إرجاعه يحتوي على رسومات، فيجب تحويل ملف HTML الناتج باستخدام برنامج. لذلك اختار المؤلف WebBrowsercontrol لمساعدتنا في إجراء التحويل.
اسمح للمؤلف بإخبار القراء بكيفية تصميم WebBrowser وFTPclient.
برمجة متصفح الويب
الخطوة 1: قم بتعيين معلمات الشبكة
نحتاج أولاً إلى معرفة ما إذا كان نظام شبكتنا متصلاً بالإنترنت مباشرة أم متصلاً بالإنترنت من خلال وكيل. يمكننا تحديد كيفية اتصال نظامنا بالإنترنت من خلال الخطوات التالية:
انقر نقرًا مزدوجًا فوق خيار "جهاز الكمبيوتر" للدخول إلى "لوحة التحكم". انقر نقرًا مزدوجًا على خيار "الإنترنت" في خيار "لوحة التحكم". حدد الاتصال في InternetDialogBox. من خلال مربع الحوار المعروض على الشاشة، يمكنك معرفة ما إذا كان النظام متصلاً بالإنترنت من خلال الوكيل أو الاتصال. نظرًا لأن نظام المؤلف متصل بالإنترنت من خلال وكيل، فيجب علينا معرفة عنوان ومنفذ proxyServer لتسهيل إعداد البرنامج.
ثم انقر فوق خيار "الإعداد" لعرض عنوانه ومنفذه. ستعرض الشاشة بعد ذلك مربع حوار يحتوي على "عنوان الوكيل": 172.18.16.65 و"المنفذ": 8080 المسجل فيه. سجل هذا، ستحتاج إلى هذه المعلمات لاحقًا.
الخطوة الثانية: ابدأ عملية التصميم
حدد NewProject في خيار الملف لإنشاء مشروع جديد. ستشاهد العديد من الخيارات على الشاشة، مثل ActiveXDocument.EXE، وActiveXDocument.DLL، وActiveX.EXE، وActiveXControl، وما إلى ذلك. في هذا الوقت، يجب عليك تحديد Standard.EXE.
ثم ضمن Project، حدد خيار سمة الخاصية، وقم بتغيير ProjectName إلى Webrowser ضمن الخيار العام. أضف عنصر تحكم Webbrowser إلى النموذج الموجود على الشاشة وقم بتسميته web1، ثم أضف عنصر تحكم InternetTransfer وقم بتسميته Inet1.
أضف ثلاثة عناصر تحكم TextBox باسم CGISearch واسم الويب وhtmlshow على التوالي، وأضف تسمية أمام CGISearchTextBox، وقم بتغيير التسمية التوضيحية الخاصة بها إلى بحث.
أضف ثلاثة عناصر تحكم في الأزرار تسمى Search وGo وShowDoc. تغيير التسمية التوضيحية إلى Se على التوالي
القوس، غوتو وإظهار الوثيقة.
ولتسهيل على القارئ فهم العلاقة، تم توضيح ما يلي في جدول:
(مربع نص)
اسم
--------------------------------------------------
CGISearch (أدخل أمر CGI)
اسم الويب (أدخل عنوان الويب الذي تريد الانتقال إليه)
htmlshow (عرض نتائج نص html)
(زر)
NameCaption
-------------------------------------------------- --------------------------
-----
بحث (تنفيذ أمر CGI) بحث
انتقل (تنفيذ الإجراء إلى عنوان الويب) انتقل إلى
ShowDoc (عرض نتائج نص HTML)إظهار المستند
ثم قم بتعيين خصائص Inet1 المختلفة على النحو التالي:
Accesstype=2-icnamedproxy
البروتوكول=4-icHTTP
الوكيل=172.18.16.65:8080
أضف رمز البرنامج التالي إلى Go_Click(). هذا الإجراء هو الاتصال بخادم الويب الذي تريد الانتقال إليه وعرض الشاشة في المنطقة المربعة لـ web1:
PrivateSubGo_Click()
web1.Navigatewebname.Text
EndSub
يستخدم البرنامج أعلاه Navigate of web1. تقوم هذه الطريقة بتوصيل الشاشة بموقع الويب المحدد في webnameTextBox.
أضف كود البرنامج التالي إلى htmlshow_Click():
PrivateSubhtmlshow_Click()
a$=web1.LocationURL
ShowDoc.Text=Inet1.OpenURL(a$)
EndSub
يقرأ البرنامج أعلاه أولاً عنوان URL الذي يتصل به web1 من خلال خاصية LocationURL، ويخزنه مؤقتًا في السلسلة a. ثم استخدم الأمر OpenURL() لعرض كود برنامج HTML المستلم في ShowDoc TextBox.
أضف كود البرنامج التالي إلى CGIserch_Click():
PrivateSubCGIserch_Click()
Web1.Navigate"http://search.yahoo.com/bin/Search?p=" CGI.
نص
EndSub
يستخدم هذا الإجراء أوامر CGI للاستعلام عن الملف. نحدد هنا أمر الاستعلام الذي سيتم إرساله إلى موقع بحث الويب Yahoo.
بهذه الطريقة أكملنا WebBrowser صغير.
الخطوة 3: برنامج الاختبار
قم بتشغيل WebBrowser الذي صممته للتو، ثم املأ عنوان URL الذي تريد الانتقال إليه في TextBox الخاص باسم الويب. هنا قمنا بتعيينه على http://www.Microsoft.com. ثم اضغط على زر GoButton، وسترى الصفحة الرئيسية لـ Microsoft معروضة في المساحة المربعة لـ web1control.
اضغط على ShowDocButton، وستتمكن من رؤية كود برنامج HTML الخاص بـ MicrosoftHomePage في htmlshow TextBox.
لنجرب بعد ذلك وظيفة بحث CGI. بعد إضافة اتصال إلى CGIserchTextBox، وجدنا أنه تم عرض نتائج الاستعلام في منطقة مربع web1.
وبالمثل، يمكننا أيضًا الضغط على زر ShowDocButton لرؤية كود برنامج HTML الذي يتم إرجاعه بواسطة نتائج الاستعلام في htmlshow TextBox.
تهانينا على نجاحك!
برمجة بروتوكول نقل الملفات
كما ذكرنا سابقًا، يمكن لـ InternetTransfercontrol توفير بروتوكول FTP. سنخبرك هنا بكيفية استخدام InternetTransfercontrol لتصميم برنامج عميل يمكنه الاتصال بـ FTPServer وتنزيل ملف bbb.txt على FTPServer إلى النهاية المحلية.
الخطوة 1: البرمجة
حدد NewProject في خيار الملف لإنشاء مشروع جديد. ستشاهد العديد من الخيارات على الشاشة، مثل ActiveXDocument.EXE، وActiveXDocument.DLL، وActiveX.EXE، وActiveXControl، وما إلى ذلك. في هذا الوقت، حدد Standard.EXE. ثم ضمن Project، حدد خيار سمة الخاصية، وقم بتغيير ProjectName إلى FTPclient ضمن الخيار العام.
أضف عنصر تحكم InternetTransfer إلى النموذج الموجود على الشاشة وقم بتسميته Inet1. قم بتعيين معلمات Inet1property كما يلي:
Accesstype=2-icnamedproxy
اسم المستخدم = "ديفيد"
كلمة المرور = "2333334"
البروتوكول=2-icFTP
الوكيل=172.18.16.65:8080
نقوم بتعيين اسم المستخدم وكلمة المرور هنا. عندما نقوم بتسجيل الدخول إلى خادم FTP، سيتخطى الخادم مباشرة شاشة إدخال اسم المستخدم وكلمة المرور.
قم بإضافة عنصر تحكم TextBox وقم بتسميته FTPgetfile. أضف عنصري تحكم Button، وقم بتسميتهما FTPget وFTPLink، وقم بتغيير التسميات التوضيحية الخاصة بهما إلى FTPget وFTPLink على التوالي.
أضف كود البرنامج التالي إلى FTPLink_Click():
PrivateSubFTPLink_Click()
Inet1.excute "FTP128.9.200.4"
EndSub
التنفيذ هو أسلوب يوفره InternetTransfercontrol لتنفيذ أدوات FTP المساعدة، ويمكننا إضافة أوامر FTP بعده، حتى نتمكن من استخدام أي أداة FTP مألوفة لإكمال العمل. عنوان FTPServer الخاص بالمؤلف هو 128.9.200.4، لذلك نقوم بملء هذا العنوان بعد أمر FTP.
ثم قم بإضافة كود البرنامج التالي إلى FTPget_Click():
PrivateSubFTPLink_Click()
Inet1.excute"GETaaa.txtc:/bbb.txt"
EndSub
يهدف هذا الإجراء إلى نقل ملف aaa.txt الموجود على FTPServer إلى العميل.
الخطوة 2: الاختبار
قم بتنفيذ FTPclient، ثم اضغط على FTPLinkButton، ثم اتصل بـ FTPServer. اضغط على FTPgetButton لاسترداد الملف. هل لاحظت وجود ملف إضافي bbb.txt ضمن الدليل C:/؟ تهانينا على نجاحك! ->