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

ازاي انقل ملفات من كمبيوتر الي كمبيوتر اخر

مغلق
بدأه احمد الرويمي في 2 مايو 2007 · 7 رد · 1,512 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم كيف حالكم جميعا

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

#2

أخي العزيز , بالنسبة لعملية النقل , أنت ممكن بأسهل طريقة , ترسل له الملف , وإليك الطريقة :

1/ ارفع الملف على موقع رفع وليكن :

www,1ss1.com

2/ أرسل الرابط في رسالة , الطريقة موجودة في المنتدى , موضوع بعنوان :

برنامج إرسال رسالة مباشرة والشرح VB - VB.net أو ما يشابهه

علاء VB

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#3

كود إرسال رسالة بدون أدوات أو برامج :

Dim Counter As Integer

Private Sub Command1_Click()

	If txtFrom.Text <> "" And txtRcpt.Text <> "" And txtSubject.Text <> "" And txtBody.Text <> "" Then
		wskEmail.Connect "mail.hotmail.com", 25
		Timer1.Enabled = True
	End If

End Sub

Private Sub Command2_Click()

	Timer1.Enabled = False
	wskEmail.Close

End Sub

Private Sub Form_Load()

	Dim MyIP As String

	MyIP = wskEmail.LocalHostName & "'s " & "IP address is " & wskEmail.LocalIP
	Label1.Caption = MyIP

End Sub

Private Sub menuExit_Click()

	wskEmail.Close
	End

End Sub

Private Sub Timer1_Timer()

	On Error Resume Next

	Counter = Counter + 1

	If Counter = 1 Then
		wskEmail.SendData "helo" & vbCrLf
	ElseIf Counter = 2 Then
		wskEmail.SendData "mail from: " & txtFrom.Text & vbCrLf
	ElseIf Counter = 3 Then
		wskEmail.SendData "rcpt to: " & txtRcpt.Text & vbCrLf
	ElseIf Counter = 4 Then
		wskEmail.SendData "data" & vbCrLf
	ElseIf Counter = 5 Then
		wskEmail.SendData "subject: " & txtSubject.Text & vbCrLf
	ElseIf Counter = 6 Then
		wskEmail.SendData vbCrLf
	ElseIf Counter = 7 Then
		wskEmail.SendData txtBody.Text & vbCrLf
	ElseIf Counter = 8 Then
		wskEmail.SendData "." & vbCrLf
	ElseIf Counter = 9 Then
		wskEmail.SendData "quit" & vbCrLf
		Timer1.Enabled = False
	End If

End Sub

Private Sub wskEmail_DataArrival(ByVal bytesTotal As Long)

	Dim Incomming As String

	wskEmail.GetData Incomming
	Text1.Text = Incomming & vbCrLf & Text1.Text

End Sub

Ala2 VB

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#4

اخي الكريم ؟إليك طريقة ارسال ملف بدون اتصال بإنترنت وهي سهلة جدا

إليك الطريقة

يمكنك ذلك وما عليك سوى اتباع شرح الخطوات التالية :

ابدأ>>> البرامج>>>البرامج الملحقة >>>الإتصالات>>>Hypertrm

كما في الصورة التالية :

http://www.uploadxfiles.com/u/03/12/53550119-fwaed.gif

الآن تأتي مرحلة اعداد البرنامج ويتم من خلال تعبئة بعض المعلومات

الأسم ( سيكون اسم الإختصار ) اكتب الأسم الذي يعجبك

الايقونات ( ستكون شكل ايقونة البرنامج ) أختر مايعجبك من اشكال

بعد ذلك نضغط على ok كما في الصورة

http://www.uploadxfiles.com/u/03/12/53550119-fwaed2.gif

نأتي الآن الى اعدادات الإتصال وهي بسيطة وذلك من خلال تعبئة بعض المعلومات البسيطة

الدولة ( نحدد الدولة المتواجدين فيها )

كود المنطقة ( نضع مفتاح المنطقة مثال 01 للرياض ) " انا وضعت الكويت على سبيل المثال "

رقم تلفون ( نضع رقم تلفون الشخص الذي سنرسل له الملف )

الخيار الأخير ( لاتغير فيه شي فهذه بيانات المودم )

بعد ذلك نقوم بالضغط على ok كما في الصورة

http://www.uploadxfiles.com/u/03/12/53550119-fwaed3.gif

بعد ذلك سنلاحظ كما في الصورة التي بالاسفل أن البرنامج يطلب الإتصال بالصديق لاتقم بالضغط على diel بل اضغط على modify كما في الصورة

http://www.uploadxfiles.com/u/03/12/53550119-fwaed4.gif

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

http://www.uploadxfiles.com/u/03/12/53550119-fwaed5.gif

اذا ضغطنا على ok نكون بذلك انتهينا من عملية الإعداد وتجهيز البرنامج ويجب على صديقك متلقي الملف عمل هذه الخطوات بالضبط .

كيفية ارسال ملف ؟

الآن يأتي دور صديقك متلقي الملف بعد أن يذهب لأيقونة البرنامج التي قام بتسميتها ( راجع الخطوة الأولى ) ويفتحها سيجد مجموعة خيارات في الأعلى كل ماعليه هو أن يختار (( إنتظار مكالمة )) كما في الصورة

http://www.uploadxfiles.com/u/03/12/53550119-fwaed6.gif

اما أنت فتقوم ايضا بالضغط على الأيقونة التي استحدثتها ولكن بدلا من أن تختار إنتظار مكالمة تختار إتصال وهو الخيار الذي يسبق إنتظار المكالمة كما في نفس الصورة

http://www.uploadxfiles.com/u/03/12/53550119-fwaed6.gif

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

http://www.uploadxfiles.com/u/03/12/53550119-fwaed6.gif

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

وبهذا تكون ارسلت ماتريد وبدون انترنت او برامج

#5

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

كيف أرسل رساله وفيها ملف (يعني سويت عمل بالوورد) وأبغى أرسله لأي أحد عن طريق البريد ؟؟

الجواب في الصور القادمة :

4.png

5.png

6.png

7.png

8.png

9.png

#6

احمد الرويمي اسف حسبتك بنت حتى في الشرح لمى تلاحظ مكتوب اخت

اسف

#7

بس اخوى احمد انت ماحددة تبغى ترسل ملفات بطريقة برمجية ولا ببرنامج من تصميمك ولاترسل ملفات بطريقة عادية فالرجاء كل من يريد

ان يسألني فيوضح سؤالة وشكراً

#8

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

تم تعديل هذه المشاركة بواسطة HnHn في 4 مايو 2007 في 09:12

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…