الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه كلمة الـعـرب في 5 يونيو 2006 · 40 رد · 16,158 مشاهدة · في قسم الدروس والمواضيع الهامة
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

اخواني اعضاء ومشرفي منتدى مبرمجي لغة 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...

Download_HTML.rar

تم تعديل هذه المشاركة بواسطة hanysaad في 10 يونيو 2006 في 19:06

((رحلة العودة الى العالم الافتراضي قد بدأت))

#2

أخي العزيز ...

أشكرك جزيل الشكر على هذه المعلومات ... وأتمنى منك الإستمرارية

شكراً

#3

أشكرك اخي العزيز ونرجو منك المزيد من المعلومات

#4

شكرا ونريد المزيد

#5

شكرا أخي الفاضل ,,

أستمر ,, نحن في انتظار الجزء الثاني .

Work Smarter, Not harder

مدَوّنة سلوى

#6

معلومات مفيدة وفي انتظار المزيد...........

img.jpg
#7

اشكركم جميعكم للمرور وان شاء الله اكون عند حسن ظنكم..

نستمر الآن مع الجزء الثاني...

تحميل الملفات بواسطة الأداة Internet Transfer (الجزء الثاني)

== تبادل الملفات بواسطة البروتوكول FTP ==

تمكنك الطريقة Execute التابعة للكائن Internet Transfer تحميل الملفات عن طريق أوامر FTP.

-------------------------------------------------------------------------------------------------------

.:. اوامر FTP هي شيفرات تنفذ عمليات نظام ملفات معرفة بواسطة البروتوكول FTP .:.

.:. من اهم اوامر FTP:

GET: لتحميل الملفات ... SIZE: لمعرفة حجم ملف موجود على موقع FTP

PUT: لإيداع الملفات ... DIR: لسر الملفات الموجودة في دليل FTP الحالي

-------------------------------------------------------------------------------------------------------

سنأخذ كمثال الأمر GET لتحميل ملف من موقع FTP

قم بإضافة التالي الى جانب الأداة Internet Transfer على النموذج:

ثلاث مربعات نصوص txtURL, txtFile, txtPath (ستعرف بعد قليل لماذا قمت بفصل اسم الملف من المسار)

زر أمر cmdDownload

قم بتصريح المتغيرات التالية:

Dim URL As String
Dim File As String
Dim Path As S tring

اكتب الكود التالي في الحدث Click التابع للكائن cmdDownload:

Private Sub cmdDownload_Click()
	Url = txtURL.Text	
	File = txtFile.Text	
	Path = txtPath.Text	
	Inet1.Execute Url, "GET " & File & " " & Path
End Sub

توضيح الكود: يعين هذا الإجراء الحدثي عنوان FTP ومسار الملف المصدر ومسار الوجهه في المتغيرات الثلاث...

ثم يستعمل المتغييرات كوسيطات للطريقة Execute التابعة للكائن Internet Transfer ...

التركيب النحوي للطريقة Execute محير بعض الشيئ .. لأن Execute نفسها يجب ان تزود سلسلة من الوسيطات تتوافق مع المصطلحات المستخدمة عند استعمال اوامر FTP على الإنترنت..

التركيب النحوي للأمر GET هو:

GET SourceFile DestinationFile

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

	Inet1.Execute Url, "GET " & File & " " & Path

اكتب التالي في الحدث StateChanged التابع للكائن Internet Transfer:

Private Sub Inet1_StateChanged(ByVal State As Integer)
	Select Case State
		Case icError	
			If Inet1.ResponseCode = 80 Then	
				MsgBox "File Exists! Please specify new destination"
			Else	
				MsgBox Inet1.ResponseInfo, , "File transfer failed"
			End If
		Case icResponseCompleted	
				MsgBox "Transfer complete", , strDest
			End If
	End Select
End Sub

الحدث StateChanged هو مكان مفيد جداَ لفحص تقدم عملية التحميل الحالية بواسطة الطريقة Execute كما شاهدت سابقاَ الطريقة OpenURL التابعة للكائن Internet Transfer تعالج عمليات نقل البيانات بأسلوب متزامن فتنتظر انتهاء التحميل كلياَ (او انتهاء الوقت) قبل المتابعة مع الجملة البرمجية التالية..

اما الطريقة Execute فهي تعالج عمليات النقل بشكل غير متزامن مما يعني انها ترسل أوامر FTP الى الملقم FTP ثم تتابع تنفيذ الشيفرة في برنامجك.

عندما تستعمل الطريقة Execute تحتاج الى وسيلة ما لمعرفة ماذا حصل للأمر الذي ارسله برنامجك الى الملقم FTP

الآلية في فيجوال بيسك لمراقبة ماذا يجري هي بكتابة كود في الحدث StateChanged يتم تنفيذ هذا الإجراء كلما اكتشفت الأداة Internet Transfer تغيراَ في حالة اتصال الإنترنت الذي تراقبه

يزود هذا الاجراء بارامتراَ خاصاَ يدعى State يتضمن شيفرة تبين احدث حدث ارسال حصل في اتصالك.. تسمح لك تلك الشيفرة استعمال بنية قرار Select Case لتقييم مختلف القيم المعادة في البارامتر State والرد عليها بشكل مناسب.

الإجراء icResponseCompleted يعمل عند اكتمال العملية GET أي عند الأنتهاء من التحميل

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

== معالجة الأخطاء الثناء عمليات الانترنت ==

عند حصول خطأ في الأتصال تضبط الأداة Internet Transfer البارامتر State في الحدث StateChanged الى الثابت icError اذا فحصت في الإجراء الحدثي StateChanged بواسطة الجملة Case اترى ان كانت القيمة icError حاصلة ام لا.. يمكنك التقاط الاخطاء وتحديد سببها الدقيق بإظهار الخاصية ResponseCode التابعة للكائن Internet Transfer افتراضياَ تحتوي هذه الخاصية على القيمة 0 أي لا أخطاء.. لكن عند ضبط الحالة عند icError في الإجراء الحدثي StateChanged توضع قيمة خاصة في هذه الخاصية لتعريف الخطأ الذي حصل.

 
		Case icError	
			If Inet1.ResponseCode = 80 Then	
				MsgBox "File Exists! Please specify new destination"
			Else	
				MsgBox Inet1.ResponseInfo, , "File transfer failed"
			End If

اذا كانت الحالة icError قيمتها True يكون خطأ قد حصل في الاتصال ويحتاج المستخدم الى ابلاغه ما عليه فعله عندها.. لقد اخترت فحص القيمة 80 بالتحديد في الخاصية ResponseCode التي تشير الى ان الملف الذي تريد تحميله موجود لديك في نفس المسار على جهازك.

لقد استعملت جملة Else اذا حدث خطأ غير المشار اليه.. تظهر رسالة File transfer failed ثم اعرض تنبيه الخطأ الدقيق بواسطة الخاصية ResponseInfo تحتوي هذه الخاصية اثناء التشغيل على سلسلة نصية توضيحية وظيفتها تشبه وظيفة الرسالة الناتجة عن الخاصية Description التابعة للكائن Err

Download_FTP.rar

((رحلة العودة الى العالم الافتراضي قد بدأت))

#8

السلام عليكم

موضوع رااااااااااااااااائع وإلى الأمام

شكرا لك

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity

#9

وفقك الله لما فيه نفع للمسلمين

Linux System Admin

#10

السلام عليكم

شكرا جزيلا على هذا الموضوع الرائع

سيتم تثبيت الموضوع :)

Hany Saad Mostafa

ITI (Information Technology Institute) l

SD Dept.-Teaching Assistant

---

اسألكم الدعاء بظهر الغيب

#11

عرض صفحات HTML في البرنامج Internet Explorer

لعرض صفحات الإنترنت داخل البرنامج Internet Explorer قم بالتالي:

اضف مرجع لإنترنت اكسبلورر في برنامجك

-------------------------------------------------------------------------------------------------------

لإضافة المرجع انتقل الى Project -> References ثم اختر Microsoft Internet Control (shdocvw.dll)

-------------------------------------------------------------------------------------------------------

قم بتصريح متغير كائن Explorer

Public Explorer As SHDocVw.InternetExplorer

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

Private Sub cmdView_Click()
	On Error GoTo errorhandler
	Set Explorer = New SHDocVw.InternetExplorer
	Explorer.Visible = True
	Explorer.Navigate2 cmbAddress.Text
	Exit Sub
errorhandler:
	MsgBox "Error displaying file", , Err.Description
End Sub

توضيح الكود: في كل مرة يتم فيها تفعيل الحدث Click يقوم البرنامج بإنشاء كائن انترنت اكسبلورر جديد ومن ثم يسند القيمة True للخاصية Visible التابعة للكائن Explorer لجعله مرئياَ ويستخدم الطريقة Navigate2 لفتح الصفحة.

اضف ComboBox واجعل اسمها cmbAddress

واكتب الكود التالي في الحدث Load التابع للكائن Form1:

Private Sub Form_Load()
	With cmbAddress
		.AddItem "http://www.arabteam2000.com"
		.AddItem ""
		.AddItem "http://www.cb4a.com"
		.AddItem "http://www.google.com"
		.AddItem "http://www.planetsourcecode.com"
	End With
End Sub

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

قد تسأل كيف اجعل البرنامج يقوم بتخزين الصفحات التي تصفحها المستخدم لكي يتم الرجوع اليها بشكل سريع

فقط لتمكين تسجيل الصفحات التي تصفحها المستخدم قم بكتابة الجملة الدليلية WithEvents قبل اسم المتغير في قسم التصاريح:

Public WithEvents Explorer As SHDocVw.InternetExplorer

وهذا الكود في الحدث NavigateComplete2 التابع للكائن Explorer:

Private Sub Explorer_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
	cmbAddress.AddItem Explorer.LocationURL
End Sub

((رحلة العودة الى العالم الافتراضي قد بدأت))

#12

موضوع ممتاز ويا ريت تكمل الى صفحات ال DHTML

وفقك الله :)

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

--------------

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

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#13

تصميم صفحات DHTML للويب

يوجد بيننا من هم ليسوا محترفين في برمجة الويب وليس لديهم الخبرة في لغات برمجة برامج الويب مثل java script و php و asp وفي نفس الوقت محترفين في برمجة برامج تعمل تحت انظمة ويندوز.....

فلما لاتستخدم خبرتك في برمجة البرامج القياسية exe في برمجة برامج الويب...

يتيح لك الفيجوال بيسك برمجة صفحات DHTML للويب بواسطته.. سوف تلاحظ اختلاف بسيط بين الطريقة التي كنت تستعملها في برمجة البرامج القياسية وبرمجة برامج الويب

-------------------------------------------------------------------------------

.:. بالتأكيد لن يصل الإختلاف الى الإختلاف الذي ستحصل عليه عند تعلمك للغة برمجة مثل java .:.

-------------------------------------------------------------------------------

سوف اقوم اليوم بشرح كيفية بناء برنامج ويب يعمل على Internet Explorer.. وسيكون البرنامج عبارة عن الة حاسبة...

اولا قم بتشغيل الفيجوال بيسك.. من الشاشة الرئيسية اختر DHTML Application

-------------------------------------------------------------------------------

.:. لتصميم صفحات asp لـ Server اختر IIS Application .:.

(اعذروني لعدم شرح هذا القسم لانه لاتوجد لدي المعلومات الكافية لشرحه)

-------------------------------------------------------------------------------

سوف يظهر لك في نافذة Project Explorer مجلدين الأول Modules والأخر Designers..

-------------------------------------------------------------------------------

.:. يوجد في ملف الموديل modDHTML الدالات الخاصة بحفظ و استرجاع خصائص الصفحة .:.

-------------------------------------------------------------------------------

قم بفتح الصفحة DHTMLPage1 (افتراضياَ) سوف يتم فتح مصمم الصفحات الخاص بالفيجوال بيسك...

-------------------------------------------------------------------------------

.:. اذا لم يعجبك طريقة الفيجوال بيسك في تعامله مع تصميم الصفحة -مثلي- فيمكنك تصميمها على برامج تصميم المواقع مثل برنامج MS FrontPage او Macromedia Dreamweaver وذلك باختيار DHTML Page Designer Properties من شريط ادوات مصمم الصفحات و من ثم اختيار Save HTML in an external file وانشاء ملف جديد او اختيار ملف مسبق الإنشاء.. كما تمكنك الطريقه هذه من تفعيل الخيار Launch Editor .:.

-------------------------------------------------------------------------------

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

-------------------------------------------------------------------------------

.:. لا أعتقد ان هذه الادوات لابد من شرحها فهي معروفة للجميع.. ولكن اذا احتاج احد منكم لشرح احداها فأنا حاضر .:.

-------------------------------------------------------------------------------

قم بوضع التالي في الصفحة:

اداتين TextField وضبط الخاصة ID على txtVal1 و txtVal2

اربع ازرار اختيار Option وضبط خاصية الـ ID على optAdd, optSub, optMulti, optDiv

خمس ازرار Button وضبط خاصية الـ ID على cmdCal, cmdMem, cmdMemPlus, cmdMemMin والأخير ليس من الضروري تعريفه فهو لاعادة ضبط الخانات

اكتب 0 في الصفحة وقم بتحديده واختيار Warp selection in <SPAN>.....</SPAN> من شريط الأدوات وضبط خاصية الـ ID له على lblRes فهنا سوف تعرض النتيجة.

الآن يأتي دور كتابة شيفرة برنامج Calculator

في الحدث onclick التابع لزر Calculate اكتب التالي:

	If optAdd.Status = True Then
		lblRes.innerText = Val(txtVal1.value) + Val(txtVal2.value)
	End If

	If optSub.Status = True Then
		lblRes.innerText = txtVal1.value - txtVal2.value
	End If

	If optMulti.Status = True Then
		lblRes.innerText = txtVal1.value * txtVal2.value
	End If

	If optDiv.Status = True Then
		lblRes.innerText = txtVal1.value / txtVal2.value
	End If

في الحدث onclick التابع لزر الذاكرة اكتب التالي:

	txtVal1.value = Mem

في الحدث onclick التابع لزر اضافة للذاكرة اكتب التالي:

	Mem = Mem + lblRes.innerText

في الحدث onclick التابع لزر حذف من الذاكرة اكتب التالي:

	Mem = Mem - lblRes.innerText

ولاتنسى تصريح متغير الذاكرة Mem:

Dim Mem As Double

كما يمكنك حفظ الذاكرة في ملف خارجي:

	Open App.Path & "\mem.txt" For Output As #1
	Print #1, lblRes.innerText
	Close #1

وبالتأكيد يمكنك استرجاع المعلومات من الملف:

	Open App.Path & "\mem.txt" For Input As #1
	txtVal1.Value = Input(LOF(1), 1)
	Close #1

كما ترى يوجد اختلاف في نهج البرمجة فمثلاَ هنا نستخدم الخاصية Status لضبط قيمة زر الخيار Option على True او False بينما كنا نستخدم الخاصية Value في البرامج القياسية.

ولكن بالطبع هذا الإختلاف لايعني شيئاَ بالنسبة عندما تقوم ببرمجة هذا البرنامج على لغة برمجة اخرى

هنا اخذت مثال بسيط لعمل برنامج يعمل على الويب.. البرنامج مكون من ملفين (كباقي لغات برمجة الويب) ملف الصفحة *.htm وملف الربط الديناميكي *.dll

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

مع اجمل امنياتي لكم بالتوفيق

DHTML_Project.rar

((رحلة العودة الى العالم الافتراضي قد بدأت))

#14

ممتاز :)

1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول

2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت

3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه

4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته

5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام

6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد

7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك

8 - الابتسامة كلمة طيبة بغير حروف

9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها

10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا

طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها

من مواضيعى :

--------------

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

برنامج الحائط النارى العربى ---- جديد

برنامج ساعة بالعقارب ------ جديد

لعبة سناك الشهيرة مع الكود

غير نظرتك لل picturebox وانظر ماذا فعلت بها

حمل ملف فلاش على الفورم بكل سهولة

مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة

برنامج المترجم العربى لترجمة الافلام

#15

اكثر من رائع وفقك الله

وجزاك الله كل الخير

redahashem

رضا هاشم

اللهم اصلح امورالمسلمين

سبحان الله وبحمده سبحان الله العظيم

اللهم اهلك من سبب في فرقتنا وسفك دمائنا وزاد همنا وكربنا

#16

ما شاء الله تبارك الله

درس مميز اخي الكريم

و هذا عشمنا في اهل الفلسطينيين

gaza3-3.jpg
#17

بارك الله فيك أخي الكريم "كلمة العرب" شرح مميز ورائع

و أتمنى لو بمقدورك أن تشرح لنا طريقة استعمال الأداة MSChart

و جزاك الله خيراً :rolleyes:

تم تعديل هذه المشاركة بواسطة COMFORT في 17 يونيو 2006 في 04:06

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#18

بسم الله الرحمن الرحيم

درس جميل جدا و مميز

أحمد خميس راشد

جمهورية مصر العربية

Bibo_spider@hotmail.com

#19

مشكور اخوي

و يا ليت تشرح طريقة رفع الملفات الى الإنترنت

#20

السلام عليكم ورحمة الله:

اشكركم اخواني على تفاعلكم مع الموضوع..

وهذا لاشيئ من الفائدة والخبرة التي اكتسبتها من هذا المنتدى الرائع..

اقتباس
أتمنى لو بمقدورك أن تشرح لنا طريقة استعمال الأداة MSChart

الأداة MSChart تتيح لك انشاء تخطيطات من البيانات المخزنة في أوراق العمل وقواعد البيانات

اعذرني اخي COMFORT على هذا الشرح المختصر جداَ فأنا حالياَ مشغول في التحضير لموضوع جديد..

وإن شاء الله في اقرب وقت سوف اشرح هذه الأداة شرحاَ كاملاَ :)

اقتباس
يا ليت تشرح طريقة رفع الملفات الى الإنترنت

اخي MEGinCCSI قم بالبحث في مكتبة الـ MSDN حول

FTP servers, arguments for Excute method

سوف تجد هناك شرح كامل لكيفية استخدام الطريقة Excute مع اوامر الـ FTP المختلفة (طبعاَ نحن نتحدث عن رفع الملفات بواسطة الأداة Internet Transfer)

فأنا لست خبيراَ في اوامر الـ FTP لدي القليل من المعلومات فقط :)

View_Pages.rar

((رحلة العودة الى العالم الافتراضي قد بدأت))

#21

يا سلام ..

والله دروس ولا أروع ..

بارك الله فيك عزيزي ..

وجعلها في ميزان حسناتك ..

وعندي طلب يالغالي ..

والله تعبت مع كبار المبرمجين ولا احد قدم لي الجواب الشافي ..

أريد أن أعمل ( تحديث ) في برنامجي ..

مثل البرامج الشهيرة وبرامج الحماية ..

لم اجد في الانترنت الا درس واحد ومكرر في جميع المنتديات ..

ولكن للأسف لم أستطيع فهم الدرس ..

#22

أخي (ماجددج) ..

بصراحة انا لا أعرف الطريقة :wacko: ..

ولكن عندما قرأت ردك تبادر الى ذهني طريقة تمكنك من عمل التحديث :rolleyes: ..

كبداية الطريقة ليست احترافية.. ولكنها مفيدة :) ..

الطريقة كالتالي:

عند تشغيل البرنامج يتحقق من وجود برنامج بجواره مثلاَ اسمه update.exe اذا كان موجوداَ

يظهر رساله.. "هل تريد تثبيت التحديث الموجود؟".. اذا كان الجواب بنعم.. يتم اغلاق البرنامج وفتح

برنامج جديد يقوم بعملية استبدال الملف الجديد بالقديم.. ومن ثم يحذف البرنامج update..

ويسجل تاريخ آخر تحديث في السجل lastdate داخل الملف update.dat..

طبعاّ هذا كله يحدث بعد تحميل التحديث :) ..

تحميل التحديث يكون عند اختيار المستخدم مثلاَ من القائمة Help الأمر Update حيث يتم الإتصال

بالإنترنت ويقوم بتحميل الملف update.dat مؤقتاَ ومن ثم التحقق من التاريخ الموجود في السجل lastupdate من الملف update.dat الذي تم تحميله من الشبكة ومقارنته مع التاريخ الموجود داخل الملف الأصلي ان كان التاريخ المسجل في الملف المؤقت الذي تم تحميله احدث يبدأ بتحميل الملف وإلا يظهر رسالة "لايوجد تحديث جديد"..

الطريقة ليست احترافية كما ذكرت سابقاَ.. ولكنها على ما أظن مفيدة بعض الشيئ *-) ..

أنا لم اقم بتجربتها.. ولكنها كفكرة اعتقد انها جميله..

ان اقتنعت اخي بالفكرة.. فقم بتطبيقها :) ..

وإلا.. تابع بحثك في الشبكة والله يكون في عونك :D ..

تم تعديل هذه المشاركة بواسطة كلمة الـعـرب في 28 يونيو 2006 في 23:17

((رحلة العودة الى العالم الافتراضي قد بدأت))

#23

يا سلام عليك ..

ان شاء الله راح أطبق اللي قلته .:).

واي مشكله تحدث لي سأرجع لك فوراَ :) ..

على فكره أخوي عندي سورس كود خطير لعمل التحديث ، لكنه انجليزي للأسف ما فهمت عليه ..:( ..

اذا عندك وقت عزيزي وتقدر تشوف الملف ..

والله تكون سويت لي خير ما انساه باذن الله ..

#24

اخي (ماجددج) ..

لا مشكلة.. ضع لي المثال الذي اشرت اليه لكي اطلع عليه.. وان استطعت ان افهمه اعد شرحه لك بطريقة مبسطة :) ...

وايضاَ رابط لدرس من الدروس التي اشرت ايليها سابقاَ...

((رحلة العودة الى العالم الافتراضي قد بدأت))

#25

بارك الله فيك أخوي كلمة العرب ..

تفضل هذا السورس كود اللي قلت لك عليه ..:: (h)

http://www.arbup.net/v/5744773/Updateprogram.zip.html

وعلى فكره شاهدت شرح غير اللي قلت لك عليه . ان شاء الله يكون اوضح .. :rolleyes:

اقتباس
بسم الله الرحمن الرحيم

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

اولا ابدا مشروع جديد

ثانيا اضف واحد تكست ثم واحد ليبل ثم واحد كوماند

ثالثا اضف من قائمة بروجكت التالي :

Microsoft internet Transfer control

واكتب الكود التالي في الكوماند 

Command1.Visible = True
Label1.Caption = "البحث عن التحديث"
Text1.Text = Inet1.OpenURL("http://اكتب هنا موقعك لتحميل الجديد")
If Text1.Text > App.Major & App.Minor Then
	MsgBox "يوجد تحديث جديد"
Else
	MsgBox "انت تستخدم النسخة الحديثة "
End If

وهذا درس أخر وهو اللي كلمتك عنه طويل وعريض ولا فهمت منه شيء ..،، :blink:

http://www.al-ebda3.info/ib/index.php?showtopic=7113

معليش يالغالي بس شويى توضويح بخصوص سؤالي :) ..

اريد عندما ينقر على زر تحديث فانه يحمل التحديث داخل البرنامج مباشرة مثل برامج الحماية ..

وليس تحميل Setup يتم من خلاله تحديث البرنامج .:) ..

وان لم يكن هناك الا الحل الثاني فاتنا به ..

المهم يتم التحديث بأي شكل :) ..

بارك الله فيك أخي على سعه صدرك وتقبلك لسؤالي :) ..

دمت بود ..،،

أدري أخوي ثقلت عليك بالأسئلة ..:) ..

ولكن قبل كل شي كيف أكون ملفات التحديثات :) ..

هذا الموضوع مغلق.

مواضيع مشابهة