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

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

شاطر | 
 

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

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

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

مُساهمةموضوع: أساسيات برمجة الإنترنت   الأحد يونيو 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://libyon.yoo7.com
 
أساسيات برمجة الإنترنت
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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