Make your own free website on Tripod.com

معالجة الويب

مقدمة :

 

دعنا نعرف بعض المصطلحات التي نستخدمها قبل أن نبدا هذا الموضوع :

1-     عنوان انترنت URL :

هي اختصار للكلمات Uniform Resource Locator و تعرف أيضاُ باسم عناوين صفحة الويب و هي وسيلة لمستخدمي الانترنت لإيجاد صفحات الويب ، وقد تم التصميم الأصلي في معمل الفيزياء الدقيقة الأوربي ويشار إليه بـ CERN في عام 1990م ويعبر عن طريقة لتضمين وثيقة HTML عنوان وثيقة أخري ، و العنوان يحدد عناصر هامة للسرفر :

-         البروتوكول المستخدم .

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

-         اسم الفهرس الحاوي للوثيقة مقرونا باسم الفهرس الأب .

-         اسم الوثيقة .

والصيغة هي :

Protocol:// [usernamw][:password][@]host[:port]/[directorypath/][filename]

2-   TCP هو اختصار للكلمات Transmission Control Protocol و تعني بروتوكول التحكم في النقل ، ويشير المصطلح TCP/IP إلي تجمع من البروتوكولات –IP تعني بروتوكول انترنت Internet Protocol – و IP يستخدم عناوين خاصة من 8 بت  فمثلاً : 206.210.64.181 يحدد اسم موقع ، وما ينبغي ملاحظته هو وجود 4 أرقام تفصل بينهم ثلاثة نقاط وأقصي قيمة هي 255 ولكن نظراً لوجود صعوبة لتذكر تلك الأرقام استخدم كلمات تسمي Top-level domain وقد نظمت الامتدادات لتشير لمؤسسات أو أهداف معينة مثلاُ

government

Gov

Commercial

Com

 Educational

institution

edu

network

net

Noncategorized organization

org

 

وهكذا

 

وخارج الولايات المتحدة تضاف رمز الدولة مثلا eg لمصر و sa للسعودية ، jp لليابان uk للمملكة المتحدة

 

ويستخدم البروتوكول TCP ما يعرف باللوحة TCP/IP لتشغيل تطبيقات محددة علي كمبيوتر معين ، وكل مقبس socket ينسب لرقم لوحة port (فيما عدا المقبسين المشتركين في لوحة) ، وعندما يطلب تطبيق موضوع علي كمبيوتر تابع أو عادي  Client  الاتصال بتطبيق باستخدام مقبس علي لوحة معينة ، فإن السرفر server يبحث  في التطبيقات عن المقابس المفتوحة التي تصغي listening لطلب الاتصال حتي يجد التطبيق باستخدام اللوحة port التي تم تحديدها من جانب الكمبيوتر التابع ومن ثم يمر الطلب للتطبيق ، ومعظم تطبيقات  السرفرات تحدد أرقام معينة للوحات ports لديها ، وهذا يتيح للمستعرض – فيما عدا أن اللوحة تكون مستخدمة- مثلا الاتصال علي اللوحة 80 بالنسبة HTTP  :

80

HTTP(WWW)

20

FTP

21

FTP

70

Gopher

25

SMTP(e-mail)

110

POP3

23

Telnet

43

Whois

79

Finger

 

وعلي ذلك IP يحدد الآلة و تحدد لوحة IP تحدد التطبيق الذي يعمل علي الألة المضيفة host -  هذا يختلف عن لوحات الحاسب الذي العادي فاللوحة مجرد رقم – فهو ببساطة يحدد التطبيق .

 

حل شفرة الاسم Name Resolution :

وكما علمنا IP قد يكون رقم أو اسم والاسم هو الغطاء الخارجي للرقم ولا تفهمه الآلة وتوجد طريقتين لتحويل الأسماء للأرقام الرباعية السابقة القديمة  وهي تخزين كل في ملف عناوين نصي يسمي HOSTS وفي نظام Unix يوجد هذا الملف في فهرس مشاركة ، وفي ويندوز 95 يوجد هذا الملف في فهرس ويندوز في كل آلة علي الشبكة وفي وينوز الشبكات Windows NT وضع resides في Winnt\system32\drivers\etc ولهذه الطريقة عيب أظنك عرفته لأنه يتصف بالمحلية وبالتالي يحتاج للتحديث ، والطريقة المتبعة تستخدم نظام يسمي Domain Name System ويشار إليه بـ DNS وهي قاعدة بيانات توزع تحوي كل عناوين الإنترنت المسجلة .

 

المقبس Shocket :

المقبس هو عبارة عن كل من عناوين IP و اللوحة port .

 

أنتجت ميكروسوفت أداتين هامتين للتعامل مع الإنترنت هما

أ- أداة الإنترنت Inet

ب- أداة WinSockt

 

أداة الإنترنت Inet

لعل الترجمة الحرفية لاسم الأداة يشير لوظيفة الأداة ، فالأداة تسمي أداة نقل الإنترنت ، و تستخدم العديد من بروتوكلات الإنترنت مثل Ftp و Http و Gopher ، وتتمتع بالقدرة علي الضبط التلقائي للبروتوكول ، كما يمكنك أن الاتصال بآي موقع يعتمد تلك البروتوكولات واستدعاء retrieve  الملفات باستخدام آي من الأمرين Excute  أو OpenURL  و هي تمكنك من :

-         إضافة آي مستعرض من نوع FTP

-         إنشاء تطبيق يحمل الملفات أوتوماتيكياً من مواقع FTP .

-         اسناد الموقع للرسوم و تحميل الرسوم فقط .

-         تقديم عرض لبيانات تفاعلية يمكن استدعائها – Retrieve – أو استردادها من الموقع .

العملية الاساسية :

تعتمد وظيفة الأداة علي البروتوكول الذي تستخدمه ، لأن البروتوكلين يختلفان بعض الشئ ، فمثلاً الأمر GetHeader يعمل فقط مع البروتوكول من النوع  HTTP ، بينما توجد بعض الإجراءات المشتركة بين كل البروتوكولين الشائعين  ( FTPو HTTP) هم :

-         ضبط الخاصية AccessType علي سرفر بروكسي صحيح Proxy Server .

-         استخدام الأمر أو الطريقة OpenURL للولوج لعنوان انترنت URL صحيح .

-         استخدام الأمر Execute   مع عنوان انترنت صحيح وأمر يتناسب مع البروتوكول.

-         استخدام الأمر GetChunk لاستدعاء بيانات الذاكرة البينية Buffer .

 

و إذا رغب المستخدم في الولوج إلي موقع فينبغي أن يضبط خاصية اسم المستخدم  UserName و خاصية كلمة المرور Password ، ولكن العديد من المواقع تسمح بالولوج المجهول anonymous مثل موقع ميكروسوف ftp.microsoft.com حيث يكتب anonymous  لاسم المستخدم  و بريده الاليكتروني ككلمة مرور

الطرق أو الأوامر Methods :

الوصف

الأمر أو الطريقة

Inet1.OpenUrl url ,datatype

والبارامتر datatype يأخذ قيمتين الأولي وهي الحرفية icString و الثانية الثائية icByteArray والأولي هي الفعالة وتستخدم مع  البيانات النصية  مثل الملفات التي امتداها txt أو الملفات التي امتدادها htm ...... أما ملفات الصور و الملفات التنفيذية  فتحمل علي أنها icByteArray ، وفي حالة عدم استخدام url فإنه يستخدام آخر url أدخل للخاصية  .

 

Inet1.OpenURL("ftp.microsoft.com")

ولكن لاحظ أنه ينبغي لفك من وعاء تضع فيه البيانات مثل صنوق  نص و تصبح الصيغة الصحيحة هي :

Text1.Text= Inet1.OpenURL("ftp.microsoft.com")

وبالطبع تعتبر الأداة أن نوع البيانات هي بيانات حرفية  لأننا لم نكتب قيمتها فتستخدم القيمة الابتدائية لها أما إذا كنت تحمل صورة فيجب أن تكتب الصيغة كما يلي :

Pictur1.Picture= Inet1.OpenURL("ftp.microsoft.com"\ pic.gif)

ويمكنك أن تستخدم الطريقة OpenURL مع عنوان انترنت يسمح بإلحاق البيانات ، مثل عناوين الانترنت التي تسمح بالبحث القياسي ، فمثلاُ الشفرة التالية تستخدم محرك بحث اسمه search.exe مع تنفيذ الشرط “find=Maui  

strURL = "http://www.howzit.com/cgi-bin/search.exe?find=mui"

If Inet1.StillExecuting Then

Text1.Text = Inet1.OpenURL(strURL)

 

End If

 

 

OpenURL

تستخدم الطريقة Execute مع كل من البروتوكلولين FTP و HTTP

أ‌-         مع البروتوكول FTP

Inet1.Execute URL ,Operation ,Data , RequestHeaders

البارامتر URL يشير إلي عنوان الانترنت

البارامتر operation و يشير لأحد الأوامر المطلوب تنفيذها وهي تشبه أوامر دوس  وهي

Execute

وتستخدم  لتغيير الفهرس الحالي – السرفر – إلي فهرس آخر

Inet1.Execute  “ftp.microsoft.com” , “CD  “ & “softlib

 

لاحظ أ ضرورة وجود فراغ  بعد الأمر CD

bussys/

deskapps/

developr/

dirmap.htm

kbhelp/

misc/

peropsys/

products/

reskit/

services/

softlib/

 

 Inet1.Execute  “ftp.microsoft.com” , “CD  “ & “kbhelp

moneyswitcher.exe

npdck.exe

 

 

 

CD

 

يتراجع عن الفهرس الحالي للفهرس الأب الحاوي له – علي السرفر – و بالطبع ليس له بارامترات

Inet1.Execute   CDUP” 

وهو يشبه أمر دوس CD..

CDPU

 

ويستخدم لحذف ملف من علي الفهرس النشط حالياُ علي السرفر

Inet1.Execute  DELETE “ & “MyFile.txt”

DELETE

 

يبحث عن الملفا الموجودة في الفهرس النشط حالياًُ علي السرفر – يقصد بذلك الفهرس الذي تم التوجه إليه بالأمر CD ،  ويمكنك أن تحدد اسم الفهرس المطلوب استعراض محتوياته بكتابة اسم الفهرس بعد من الأمر

Inet1.Execute  DIR “ & “mydocs”

 

وهو يستعرض الملفات الموجودة بالسرفر علي الفهرس  mydocs

DIR

 

ويستخدم  في تحميل أو استيراد ملف موجود علي السرفر وحفظه علي القرص الثابت و صيغته

Inet1.Execute  “GET    file1 file2”

وهو يقوم بتحميل الملف file1 من علي الفهرس النشط بالسرفر إلي القرص الثابت بجهازك فمثلاً :

Inet1.Execute  “GET   ServerFile  LocalFile”

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

GET

 

يقوم بإنشاء فهرس  في الفهرس النشط علي السرفر فمثللاً :

Inet1.Execute  “MKDIR  myDirName “ 

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

MKDIR

 

ويستخدم في نسخ ملفUpload   - Publish من القرص الثابت إلي الفهرس النشط علي السرفر  وهو يعمل عكس الأمر GET 

Inet1.Execute  “GET    LocalFile  ServerFile “ 

 

PUT

 

وهو يشبه الأمر DIR

LS

 

يقوم بعرض أو استعراض  محتويات الفهرس الحالي مع اسم الفهرس

Inet1.Execute   PWD” 

PWD

 

يغلق الاتصال الحالي

Inet1.Execute   QUIT” 

QUIT

 

تشبه تما الأمر GET

RECV

 

ويقوم بإعادة تسمية ملف موجود فعلاُ علي السرفر بأسم جديد مثلاً:

Inet1.Execute  RENAME  OldFileName  NewFileName “ 

 

RENAME

 

ويستخدم في حذف ملف من علي السرفر وهذا يتوقف علي مدي الصلاحية الممنوحة  للمستخدم

Inet1.Execute  RMDIR  myDirName “   

 

RMDIR

 

وهو يشبه الأمر PUT

SEND

 

يستعلم عن حجم ملف مثلأ

Inet1.Execute  SIZE  largefile.txy “   

SIZE

 

مع ملاحظة أنه إذا كان بروكسي السرفر  CERN فإن الأمر Execute لن يكون متاحاً

يستخدم البروتوكول HTTP اربع أوامر للتعامل مع البيانات

استخدام الأمر Execute مع البروتوكول HTTP

ويستخدم في استيراد أو تحميل ملف من عنوان انترنت مثلاً :

Inet1.Execute  “http://www.microsoft.com”   & “/default.thm” ,“GET"      

 

GET

 

ويستخدم في استيراد عناوين الملف الموجود العنوان

Inet1.Execute  HEAD

 

 

HEAD

 

يقدم بيانات إضافية تدعم الطلب من السرفر

Inet1.Execute  ,POST "    ,strFormData

 

POST

 

ويستخدم في استبدال ملف بآخر

Inet1.Execute  ,POST "    ,”replace.htm”

 

PUT

 

 

باقي طرق الأداة :

وتستخدم في فتح اتصال مع  عنوان انترنت ويمكن أن يكون العنوان بارامتر

Text1.Text = Inet1.OpenURL(strURL)

OpenURL

ويستخدم في استيراد إما كامل العنونة أو أو عنونة محددة ، فإذا لم تستخدم أى عنونة محددة فيستعيد أشياء مثل التاريخ و Content-type و Server ...."

GETHeader

وتستخدم في استيراد البيانات من السرفر وتتطلب بارامترين الأول يحدد حجم البيانات المستوردة و الثاني يحدد نوع البيانات و عادة تستخدم مع  StateChanged للاستدلال علي بدء عملها

GetChunk

وتستخدم لإلغاء الاتصال ووقف العملية المتداولة .

Cancel

 

 

مشروع  :

أبدا مشروع جديد و ضع عليه أربع أزرار و أداة Internet  وأداة قائمة وأداة نصي غني ، ونظمهم  كما بالشكل التالي:

 

 

 

 

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

 

Private Sub Command1_Click()

Dim strDirString, strFilename As String

Dim intStart, intEnd As Integer

Inet1.UserName = "anonymous"

Inet1.Password = "بريدك الاليكتروني"

strDirString = Inet1.OpenURL("http://also.as/mbadr/index.html")

intStart = InStr(strDirString, """/")

While (intStart <> 0)

intEnd = InStr(intStart + 4, strDirString, """")

strFilename = Mid(strDirString, intStart + 2, intEnd - intStart - 2)

If InStr(strFilename, "/") = 0 Then

List1.AddItem strFilename

End If

intStart = InStr(intEnd + 4, strDirString, """/")

Wend

End Sub

 

Private Sub Command2_Click()

List1_DblClick

End Sub

 

Private Sub Command3_Click()

RichTextBox1.Text = Inet1.OpenURL("http://mbadr3630.bizland.com")

 

End Sub

 

Private Sub Command4_Click()

Dim bytData() As Byte

bytData() = Inet1.OpenURL("http://mbadr3630.bizland.com", icByteArray)

Open "e:\vb98\http\index.html" For Binary As #1

Put #1, , bytData()

Close #1

MsgBox "تم تنفيذ المهمة"

 

End Sub

 

Private Sub List1_DblClick()

Dim bytData() As Byte

If InStr(List1.Text, ".txt") <> 0 Then

RichTextBox1.Text = Inet1.OpenURL("ftp://http://also.as/mbadr/" & List1.Text)

Else

bytData() = Inet1.OpenURL("ftp://http://also.as/mbadr/" & List1.Text, icByteArray)

Open "e:\vb98\ftp\" & List1.Text For Binary Access Write As #1

Put #1, , bytData()

Close #1

MsgBox "تم التحميل يا صديقي"

End If

 

End Sub

مقترحات لتطوير البرنامج :

-     أضف مربع نص يستقبل منك عنوان الإنترنت وضعه في متغير معرف حرفياً – string – استخدم مثلاً التعريف Dim MyURL As String

-     اجعل البرنامج يتعرف علي البرتوكول باستخدام الدالة InStr لتحديد “//” الموجودتين في كل عنوان وهي دالة تحدد رقم أول ظهور للحرفية و بالتالي اقرأ الجزء الموجود إلي يسار العنوان بالدالة left أو الدالة mid ثم حدد نوع البروتوكول .

-     طور البرنامج لينشر ملف من نوع FTP (ضروري تحديد اسم المستخدم وكلمة المرور لأنك سوف تغير في الموقع يمكنك أن تفتح موقع مجاني علي السرفر www.topcites.com

 

الأداة WinSock :

 

تتيح لك الأداة WinSock الاتصال بكمبيوتر بعيد Remote أو سرفر و تبادل المعلومات معه باستخدم بروتوكول TCP أو البروتوكول UDP (User Datagram Protocol) ، وكليهما يمكنه إنشاء تطبيقات لكل من الكمبيوتر التابع client والكمبيوتر البعيد Server

استخدامات الأداة :

-         إنشاء تطبيقات محلية تجمع معلومات المستخدم قبل إرسالها للسرفر المركزي.

-         إنشاء تطبيقات سرفر تعالج معلومات المستخدم.

-         إنشاء تطبيقات المحادثة Chat .

 

اختيار البروتوكول :

إذا كنت تريد موافقة السرفر علي عمليتك أو تبادل معلومات كبيرة مثل صورة ، فاختر البروتوكول FTP ، أما إذا كنت تريد  متقطع intermittently  أو علي مراحل أو يشعر كمبيوتر معين عندما يتم إنجاز المهام استخدم البروتوكول UDP ، فهو يشبه إرسال بريد وليس تفاعل متواصل  بينما TCP لا يوجد سقف للرسالة ، حيث يتم تقسيم الرسائل الكبيرة لأجزاء و إرسالها حتي تكتمل ..

 

خواص الأداة :

هذه الخاصية تخبرك بعدد البايتات المستقبلة حالياً في الذاكرة Buffer وهي خاصية تقرأ فقط – آى لا يمكن تغييرها –  والعدد الذي يعبر عن البياتات يكون من نوع Long Integer  فمثلاً :

Myvar=MyWinsockControl.BytesReceived

وهذا يساعدك علي معرفة المعلومات الموجودة بالذاكرة .

BytesReceived

هذه الخاصية تسترجع returns اسم نظام المضيف المحلي وهي للقراءة فقط وفي الظروف العادية تجد تلك الخاصية تستعيد اسم الكمبيوتر وهو الاسم الذي اخترته لجهازك عند تركيب أو تنصيب ويندوز ، ويمكنك معرفته بفتح لوحة التحكم واختيار شبكة الاتصال – تعريف .

LocalHostName

وهي تستعيد IP لجهازك في صيغته الرقمية وهي للقراءة فقط ونوع ما تستعيده هو حرفي .

Myvar= MyWinsockControl.LocalIP

LocalIP

تستعيد و تضبط set رقم اللوحة المحلية وهي خاصية (قراءة – كتابة) ونوع ما تسترجعه Long Integer  :

Myvar= MyWinsockControl.LocalPort

ولضبط الخاصية  علي رقم اللوحة أو المنفذ port رقم 1001 نكتب :

MyWinsockControl.LocalPort=1001

LocalPort

هذه الخاصية تضبط البروتوكول فلضبط الأداة علي البروتوكول FTP نكتب :

MyWinsockontrol.Protocol=sckTCPProtocpl

ولضبطها علي UDP نكتب :

MyWinsockControl.Protocol=sckUDPProtocol

ولمعرفة البروتوكول المستخدم

Myvar=MyWinsockControl.Protocol

Protocol

وهي تستعيد و تضبط الكمبيوتر البعيد أو عنوانه ويمكن أن تكون رقمية أو ودية –علي شكل اسم معروف – (www.microsoft.com) أو في صورة رقمية 192.143.29.47 ، مثلاً :

Myvar= MyWinsockControl.RemoteHost

ولضبطها علي عنوان معين :

MyWinsockControl.RemoteHost=”www.bizland.com”

MyWinsockControl.RemoteHost=”192.143.29.47”

RemoteHost

وهو يستعيد ويضبط رقم اللوحة أو المنفذ و القيمة المستعادة من نوع long integer

فلقراءة رقم لوحة السرفر

Myvar= MyWinsockControl.RemotePort

ولضبط لوحة السرفر أو منفذه

MyWinsockControl.RemotePort=1001

وبذلك يمكنك اختيار التطبيق الذي ترغب في الاتصال به علي السرفر .

RemotePort

تستعيد حالة الأداة علي هيئة عدد صحيح  يعبر عن حالة الأداة:

State

مغلق

sckClosed

0

 

مفتوح

sckOpen

1

 

إصغاء

sckListening

2

 

ربط الاتصال

sckConnetionPending

3

 

جاري فك شفرة المضيف

sckResolvingHost

4

 

تم فك شفرة المضيف

sckHostResolved

5

 

جاري الاتصال

SckConnecting

6

 

تم الاتصال

sckConnected

7

 

الكمبيوتر المرافق أغلق الاتصال

sckClosing

8

 

يوجد خطأ

sckError

9

 

 

الطرق Method  :

الطرق هي دوال معدة سلفاً تؤدي وظائف خاصة علي الأداة  وسوف نناقش أهم تلك الخواص :

 

تستخدم تلك الخاصية مع  فقط مع تطبيق السرفر FTP ، حيث تقبل طلب الاتصال من الكمبيوتر التابع ، وحتي تستخدم تلك الخاصية يجب أن تكون الأداة في حدث الاتصال ConnectionRequest  وصيغته:

Private Sub MyWinsockControl ConnectionRequest(ByVal requestedID as Long)

MyWinsockControl.Accept

End Sub

Accept

و تستخدم لغلق الاتصال بين السرفر والتابع :

MyWinsockControl.Close

Close

وتستخدم في استعادة Retrieve  بلوك البيانات الموجود حالياً في الذاكرة Buffer و اختزانه في متعير من نوع variant

MyWinsockControl.GetData myvar

GetData

وتستخدم علي تطبيق السرفر لجعله ينتظر لطلب الاتصال TCP من الكمبيوتر التابع

MyWinsockControl.Listen

Listen

وتستخدم لإرسال بيانات للكمبيوتر البعيد ويستخدم في حالة السرفر والتابع معاً .

MyWinsockControl.SendData myvar

SendData

 

 

الأحداث Events :

الأحداث هي الشرارة التي تبدأ تشغيل الطرق

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

Close

ويقع لدي حدوث الاتصال بالكمبيوتر البعيد.

Connect

ويقع لدي يستقبل السرفر الاتصال من الكمبيوتر التابع .

ConnectionRequest

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

DataArrival

 

   ملحوظة :  في حالة الأداة WinSocket عندما يرسل جهازك بيانات يسمي سرفر وعندما يستقبل يكون تابع . أما لفظ سرفر في حالة الأداة INET فهو الكمبيوتر البعيد الذي ترسل له أو تستقبل البيانات منه.

و الآن حمل:

 برنامج معد بفيجوال بيسك للأداة WinSocket يعمل كسرفر وكتابع  وفك شفرته

ملحوظة: هذا البرنامج ليس من عملي

 

 

فيجوال بيسك متقدم

صفحة البداية