hamata00
12-08-2006, 11:25 AM
بسم الله الرحمن الرحيم
اخواني اعضاء ومشرفي منتدى مبرمجي لغة 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.De******ion
End Sub
توضيح الكود: يتم في هذا الكود استدعاء الطريقة OpenURL التابعة للكائن (الأداة) Internet Transfer التي تقوم بنسخ الملف الموجود في المتغير URL الى مربع النص txtPage.
واذا فشل التحميل يعرض رسالة بالخطأ الحاصل باستخدام الخاصية De******ion التابعة للكائن 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
وفيه ملف مرفق فيه يمكن معرفه كود الموقع
البرنامج برعايه:0
1.hamata00
2.Ahmed Ksnv
اخواني اعضاء ومشرفي منتدى مبرمجي لغة 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.De******ion
End Sub
توضيح الكود: يتم في هذا الكود استدعاء الطريقة OpenURL التابعة للكائن (الأداة) Internet Transfer التي تقوم بنسخ الملف الموجود في المتغير URL الى مربع النص txtPage.
واذا فشل التحميل يعرض رسالة بالخطأ الحاصل باستخدام الخاصية De******ion التابعة للكائن 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
وفيه ملف مرفق فيه يمكن معرفه كود الموقع
البرنامج برعايه:0
1.hamata00
2.Ahmed Ksnv