السلام عليكم كيف حالكم جميعا
لو سمحتم انا عندي فجوال بيسك 2005 اكسبيريس وعايز اعرف ازاي انقل ملفات من كمبيوتر الي كمبيوتر اخر وياريت اعرف ازاي اقطع الأتصال عنده انا دخلت ف ال الأم اس دي ان ولكني تهت لذالك ارجوكم ردوا عليا
السلام عليكم كيف حالكم جميعا
لو سمحتم انا عندي فجوال بيسك 2005 اكسبيريس وعايز اعرف ازاي انقل ملفات من كمبيوتر الي كمبيوتر اخر وياريت اعرف ازاي اقطع الأتصال عنده انا دخلت ف ال الأم اس دي ان ولكني تهت لذالك ارجوكم ردوا عليا
أخي العزيز , بالنسبة لعملية النقل , أنت ممكن بأسهل طريقة , ترسل له الملف , وإليك الطريقة :
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
كود إرسال رسالة بدون أدوات أو برامج :
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
اخي الكريم ؟إليك طريقة ارسال ملف بدون اتصال بإنترنت وهي سهلة جدا
إليك الطريقة
يمكنك ذلك وما عليك سوى اتباع شرح الخطوات التالية :
ابدأ>>> البرامج>>>البرامج الملحقة >>>الإتصالات>>>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
بعدها تحدد نوع الإرسالية ويفتح لك نافذة لتحدد مكان الملف كما في ارفاق ملفات في المنتدى أو البريد . وستشاهد عداد توضيحي لعملية النقل كما هو الحال في استقبال الملفات من الماسنجر وهي الخطوط الزرقاء . وعندما ينتهي الإرسال قم بفصل الإتصال .
وبهذا تكون ارسلت ماتريد وبدون انترنت او برامج
ويمكنك ايضا ترسل ملف عن طريق البريد وإليك الطريقة
كيف أرسل رساله وفيها ملف (يعني سويت عمل بالوورد) وأبغى أرسله لأي أحد عن طريق البريد ؟؟
الجواب في الصور القادمة :






احمد الرويمي اسف حسبتك بنت حتى في الشرح لمى تلاحظ مكتوب اخت
اسف
بس اخوى احمد انت ماحددة تبغى ترسل ملفات بطريقة برمجية ولا ببرنامج من تصميمك ولاترسل ملفات بطريقة عادية فالرجاء كل من يريد
ان يسألني فيوضح سؤالة وشكراً
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…