منتديات ليبيون
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


سجل الآن معنا وشارك بكل جديد
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
أفضل 10 أعضاء في هذا المنتدى
ميلاد 99
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
المدير العام : الطربان
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
عبدو
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
*** افضل عضو***
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
نوال
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
العلاقية
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
petra2
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
**طير السلام**
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
عميد
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 
عاطف العبيدى
أساسيات برمجة الإنترنت Vote_rcapأساسيات برمجة الإنترنت Voting_barأساسيات برمجة الإنترنت Vote_lcap 

 

 أساسيات برمجة الإنترنت

اذهب الى الأسفل 
كاتب الموضوعرسالة
المدير العام : الطربان
Admin
المدير العام : الطربان


المساهمات : 36
تاريخ التسجيل : 18/06/2009
العمر : 31
الموقع : omar89.hyperphp.com

أساسيات برمجة الإنترنت Empty
مُساهمةموضوع: أساسيات برمجة الإنترنت   أساسيات برمجة الإنترنت I_icon_minitimeالأحد يونيو 28, 2009 8:10 pm

اخواني اعضاء ومشرفي منتدى مبرمجي لغة Microsoft Visual Basic ... السلام عليكم ورحمة الله...
سوف اقدم لكم مجموعة دروس اساسية في برمجة الإنترنت .. إن شاء الله تحوز على اعجابكم...

سوف اقوم بشرح ثلاث اقسام اساسية في برمجة الإنترنت بواسطة الفيجوال بيسك...
تحميل الملفات بواسطة الأداة Internet Transfer
عرض صفحات HTML في البرنامج Internet Explorer
تصميم صفحات DHTML للويب (برامج الويب)

لن أطيل عليكم سنبدأ الآن....

تحميل الملفات بواسطة الأداة Internet Transfer (الجزء الأول)
== تحميل ملفات HTML من شبكة الإنترنت ==

نبدأ الآن بعون الله مع الجزء الأول من القسم الاول من أساسيات برمجة الإنترنت...
-------------------------------------------------------------------------------------------------------
.:. سنقوم في هذا القسم بتحميل ملفات من الإنترنت بواسطة اكثر البروتوكولات استعمالاَ HTTP و FTP. .:.
-------------------------------------------------------------------------------------------------------
ان تحميل ملفات HTML من الويب عملية سهله بل ان استخدام الأداة Internet Transfer ليس بالأمر الصعب... قم بإضافة الأداة الى مشروعك مع الأداة Common Dialog لكي نبدأ بعمل برنامج تحميل صفحات الإنترنت....(Common Dialog = digSave)

بالإضافة الى:
مربعي نص txtURL, txtPage مع ضبط الخصائص التالية لـ txtPage
MultiLine = True
ScrollBar = 3- Both
زري أمر cmdDownload, cmdSaveHTML

في البداية قم بتصريح المتغير URL:
كودDim URL ِAs String

اضف الكود التالي في الحدث Click التابع لزر الأمر cmdDownload:

كودPrivate Sub cmdDownload_Click()
On Error GoTo errorhandler
URL = txtURL.Text
txtPage.Text = Inet1.OpenURL(URL)
Exit Sub
errorhandler:
MsgBox "Error opening URL", , Err.Description
End Sub

توضيح الكود: يتم في هذا الكود استدعاء الطريقة OpenURL التابعة للكائن (الأداة) Internet Transfer التي تقوم بنسخ الملف الموجود في المتغير URL الى مربع النص txtPage.
واذا فشل التحميل يعرض رسالة بالخطأ الحاصل باستخدام الخاصية Description التابعة للكائن Err

-------------------------------------------------------------------------------------------------------
.:. الأداة Internet Transfer تمتلك خاصية SetTimeOut لتحديد الوقت المفترض لإنهاء التحميل .:.
-------------------------------------------------------------------------------------------------------

وهذا الكود في الحدث Click التابع لزر الأمر cmdSaveHTML

كودPrivate Sub cmdSaveHTML Click()
digSave.DefaultExt = "HTM"
digSave.Filter = "HTML files (*.HTML;*.HTM)|*.HTML;HTM"
digSave.ShowSave
If digSave.FileName <> "" Then
Open digSave.FileName For Output As #1
Print #1, txtPage.Text
Close #1
End If
End Sub

لا أعتقد انه من الضروري توضيح هذا الكود


الآن وقد حصلت على مقدمة حول كيفية تحميل ملفات الـ HTML بواسطة الأداة Internet Transfer.
في الجزء الثاني سوف نقوم بعمل برنامج لتحميل الملفات من الشبكة عن طريق البروتوكول FTP
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://libyon.yoo7.com
 
أساسيات برمجة الإنترنت
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» أساسيات برمجة الإنترنت

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات ليبيون :: منتدي البرامج والبرمجة والانترنت :: منتدي البرمجة-
انتقل الى: