hi brothers
but iw ant to connect via computer name and port i dont want to use ip
is that vailable to connect by pc name ?
thanks and hope i can get a comment soon becuz i trid by ip and it doesnt work :(((((((((((((((((((((((((((((( becuz i ony have a netwrok consists of 2 pcs and when i tried it in internet coffe its work :)
then i want to know how with coputer name and port only
thanks
salam alekom
mohamed:)
ارجو منك اخى الكريم ان توضح ما تريد باللغة العربية;)
وعفوا لانى لم افهم منك شيئا:rolleyes::rolleyes:
تحياتى,,,:mad:
وَقُل رَّبِّ زِدْنِي عِلْماً
:)اخى الفاضل السلام عليكم ورحمه الله
انا عندىشبكة صغيره تتكون من جهازين ولقد جربت برنامج client-server هذا البرنمج انشائته بالvbبالاداه winsock
ولكن لا يحدث اتصال فهل من الممكن ان استخم اسمالجهاز
ارجو ان توضح لى بمثال كيفيمكن ذلك
واشكرك على حسن تعاونك
السلام عليكم ورحمه الله
اخوك محمد:)
:)اخى الفاضل السلام عليكم ورحمه الله
انا عندىشبكة صغيره تتكون من جهازين ولقد جربت برنامج client-server هذا البرنمج انشائته بالvbبالاداه winsock
ولكن لا يحدث اتصال فهل من الممكن ان استخم اسمالجهاز
ارجو ان توضح لى بمثال كيفيمكن ذلك
واشكرك على حسن تعاونك
ولو انه توجد طريقة اخرى غير ال client-server حتى يتم الاتصال مباشر
السلام عليكم ورحمه الله
اخوك محمد:)
اخى محمد انا قد شرحت عملية الاتصال بين خادم وعميل من قبل ذلك
وبنفس هذا الموضوع ولكنك لم تبحث
على العموم اذهب لهذا الرابط وستجد ما تريد ان شاء الله
http://www.arabteam2000.com/vb/showthread....15&pagenumber=2
تحياتى;)
وَقُل رَّبِّ زِدْنِي عِلْماً
السلام عليكم ورحمه الله وبركاته
ارجو التكرم بمساعدتى
لقد تم تشغيل البرنامج client -server والشكر الجزيل للاخ عرفه(f)
والان اريد ان اضيف على سبيل المثال
كيف اقوم بارسال صوره موجوده فى image boxفى جهاز السيرفر ل image box موجوده فى جهاز client والعكس
2- كيف ارسل صوره ال desktopللclient ال جهاز الserverوالعكس هذه الصوره متضمنه الايقونات............الى اخره
ولكم جزيل الشكر
و السلام عليكم ورحمه الله وبركاته
محمد:)
:(
why no answear is this quetion so difficult plz any one answear me
thanks
انا اسف اخى الكريم ولكن امهلنى بعض الوقت لكى ابحث لك عن الكود لدى لانى لدى مجموعة كبيرة جدا
انا شاكر لانتظارك
وَقُل رَّبِّ زِدْنِي عِلْماً
تكملة شرح كيفية الاتصال بين جهازين "عميل" و "خادم"
لكيفية ارسال ملف من العميل الى الخادم يتم الاتى:
ضع الاداة CommonDialog على الفورم
ثم ضع زر واكتب علية ارسال ملف ثم ضع هذا الكود فى حدث الضغط على الزر:
On Error Resume Next
CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then Exit Sub
CFileNum = FreeFile
Open CommonDialog1.Filename For Binary As CFileNum
For i = 0 To Len(CommonDialog1.Filename)
A = Mid(CommonDialog1.Filename, Len(CommonDialog1.Filename) - i, 1)
' Check to see if its a ""
If A = "" Then
' Get the filename
Filename = Right(CommonDialog1.Filename, i)
' Get the filesize
FileSize = LOF(CFileNum)
' Send the data
wskclient.SendData "FILE:" & Filename & ":" & FileSize
Exit Sub
End If
Next I
وضع هذا الكود فى ملف برمجى (موديول):
Public SFileNum As Byte, CFileNum As Byte, BytesSent, BytesReceived
افتح الجزء الثانى من البرنامج (الخادم)
اولا ضع الاداة CommonDialog على الفورم
وفى حدث DataArrival لاداة الوينسوك ضع هذا الكود:
Private Sub Server_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
' Get the data from winsock
Server.GetData Dat$
' Check to see what the data is
If Left(Dat$, 4) = "FILE" Then ' A file is being sent
Dat$ = Right(Dat$, Len(Dat$) - 5)
' Get the name and the size of the file
a = InStr(1, Dat$, ":")
FileName = Mid(Dat$, 1, a - 1)
FileSize = Mid(Dat$, a + 1)
MsgTxt = "The regime offers to you the protection of this file " + Server.LocalHostName + vbNewLine
MsgTxt = MsgTxt + " Do she want the protection of this file ?"
retval = MsgBox(MsgTxt, vbYesNo, "information")
If retval = vbYes Then
' Show a save box...I will use the one of form1
ServerFrm.CommonDialog1.FileName = FileName
ServerFrm.CommonDialog1.ShowSave
' Open the file
SFileNum = FreeFile
Open ServerFrm.CommonDialog1.FileName For Binary As #SFileNum
' Tell the other computer to start sending it
Server.SendData "ACCEPTED"
Else
' tell the other computer that u didn't want it
Server.SendData "DENIED"
End If
ElseIf Left(Dat$, 4) = "LAST" Then ' The last part of the file
Dat$ = Mid$(Dat, 6)
Put #SFileNum, , Dat
DoEvents
BytesReceived = BytesReceived + (Len(Dat$) - 5)
Close #SFileNum
MsgBox "تم استقبال الملف من الخادم الاول", vbInformation, "Done"
BytesReceived = 0
Else
' add the data to the file
Put #SFileNum, , Dat
DoEvents
BytesReceived = BytesReceived + Len(Dat$)
' tell the comp to send more
Server.SendData "OK"
End If
End Sub
وضع هذا الكود فى ملف برمجى (موديول):
Public SFileNum As Byte, CFileNum As Byte, BytesSent, BytesReceived
والى ذلك ينتهى شرح كيفية ارسال ملف من البرنامج العميل الى البرنامج الخادم.
ولكن لى رجاء ألا تستخدم البرنامج الذى تود عملة فى اى اعمال تضر بها اى شخص مسلم
اللهم قد بلغت فأشهد
والسلام عليكم ورحمة الله
وَقُل رَّبِّ زِدْنِي عِلْماً
واليك المثال على ذلك
العميل:
http://www.arabteam2000.com/vb/attachment....s=&postid=89580
الخادم:
http://www.arabteam2000.com/vb/attachment....s=&postid=89582
وتحت امرك
تحياتى,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
حتى بعد حمل الملف الأخير لم يعمل البرنامج...؟؟
ما المشكل.:(
أخي الكريم عندما نزلت البرنامج وضغطت عليه
فتحت الواجة
ثم ضغطت على زر دخول
فلم يفتح أي نافذة أخرى
اخى الكريم بو مهنا لو كنت تقصد برنامج vbcode فهذا رابط الاصدار الاخير من البرنامج وهو يعمل بدون مشاكل بإذن الله
وَقُل رَّبِّ زِدْنِي عِلْماً
الاصدار الثالث من برنامج VB CODE
-------------------------------------
سوف اضع لكم الاصدار الثالث من برنامجى VB CODE
وسأضع البرنامج على تسعة اجزاء "اسف" لان حجم البرنامج وصل الى 5.30 MB
بعد تحميلك الاجزاء التسعة من البرنامج فك ضغطهم ببرنامج الوينزب
وبعد فكهم فى مكان واحد ستجد ملف مكتوب علية setup.exe وأيقونتة على شكل ترس اضغط علية سيتم تجميع ملف البرنامج وتستطيع بعد ذلك تنصيب البرنامج على جهازك
أرجو منكم تقيم البرنامج
تم التعديل على المشاركة
اتضح ان حجم البرنامج كبير انا احملة الان على موقع اخر وسأضع لكم روابط تحميل البرنامج
وَقُل رَّبِّ زِدْنِي عِلْماً
http://members.lycos.co.uk/hosamnet/vbcode/1.zip
http://members.lycos.co.uk/hosamnet/vbcode/2.zip
http://members.lycos.co.uk/hosamnet/vbcode/3.zip
http://members.lycos.co.uk/hosamnet/vbcode/4.zip
http://members.lycos.co.uk/hosamnet/vbcode/5.zip
http://members.lycos.co.uk/hosamnet/vbcode/6.zip
http://members.lycos.co.uk/hosamnet/vbcode/7.zip
http://members.lycos.co.uk/hosamnet/vbcode/8.zip
http://members.lycos.co.uk/hosamnet/vbcode/9.zip
كما قلنا سابقا فك الملفات فى مكان واحد و ستجد ملف مكتوب علية setup.exe وأيقونتة على شكل ترس اضغط علية سيتم تجميع ملف البرنامج وتستطيع بعد ذلك تنصيب البرنامج على جهازك
ارجو منكم تقيم البرنامج
تحياتى
وَقُل رَّبِّ زِدْنِي عِلْماً
لتحميل البرنامج اضغط على الرابط بزر الماوس الايمن وأختار save Terget As
وهذة هى روابط البرنامج
http://members.lycos.co.uk/hosamnet/vbcode/1.zip
http://members.lycos.co.uk/hosamnet/vbcode/2.zip
http://members.lycos.co.uk/hosamnet/vbcode/3.zip
http://members.lycos.co.uk/hosamnet/vbcode/4.zip
http://members.lycos.co.uk/hosamnet/vbcode/5.zip
http://members.lycos.co.uk/hosamnet/vbcode/6.zip
http://members.lycos.co.uk/hosamnet/vbcode/7.zip
http://members.lycos.co.uk/hosamnet/vbcode/8.zip
http://members.lycos.co.uk/hosamnet/vbcode/9.zip
أرجو منكم تقيم البرنامج ضرورى
تحياتى,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
أخي عرفة...
الروابط على الإصدار الأخير لم تعمل ...
عند الضغط بزر الفأرة اليمين ثم حفظ الهدف باسم يقوم بتحميل ملف إتش تي إم إل !!!!
أرجو التأكد من الروابط حتى نتمكن من تحميل الإصدار الأخير وجزاك الله كل خير...
سؤال أخير لو سمحت:
هل يشترط إزالة الإصدار السابق من الجهاز قبل تحميل الإصدار الأخير.؟؟؟
اهلا بك اخى محب بالنسبة للروابط الخاصة بتحميل البرنامج فهى تعمل معى
على العموم انا سأحاول وضع البرنامج على موقع اخر
انا حاولت ان اضعة بالمنتدى ولكن حجم البرنامج 5.30 MB وعلشان اضعة يجب ان اقسمة الى اجزاء كثيرة جدا
وبالنسبة لتشغيل البرنامج على الاصدار القديم فلاصدار السابق انا مكنتش عامل له سيتب
بعد تحميلك للملفات كلها تفك ضغطها مع بعض وتعيد تجميعا كما قلت فى السابق ثم تنصب البرنامج على الجهاز
من باب العلم هذا الاصدار الثالث مميز جدا جدا عن الاصدار السابق
وَقُل رَّبِّ زِدْنِي عِلْماً
اهلا بكم اخوانى الاعضاء
هذا هو رابط الاصدار الثالث من برنامج VB CODE
تستطيع تحميلة من هذا الرابط
حجم البرنامج 5.30 MB
أرجو منكم ابداء ارائكم فى البرنامج
وشكرا لكم
حمل الملف:
وَقُل رَّبِّ زِدْنِي عِلْماً
أخي الحبيب عرفة....
مشكور على جهودك الطيبة , لكن للأسف بعد تحميل الملف, عملت له SetUp
وتم تثبيته بنجاح ولله الحمد.
ثم ذهبت لأشغل البرنامج فظهرت لي الرسالة التالية:
The application failed to initialize properly (0xc0000142). Click on Ok to terminate the application.
طبعاً عنوان الرسالة ظهر كما يلي:
Application Error.
أستخدم ويندوز 2000 بروفيشنال
علماً بأن الفيجيوال بيسيك محملة لدي على الجهاز...
كذلك الدوت نت...
آمل أن تحل المشكلة بأقرب فرصة....
طبعاً أنا أتحدث عن آخر نسخة وهي الإصدار الثالث من برنامج VbCode
اهلا بك اخى العزيز محب
من باب العلم انا مجرب البرنامج على ويندوز 98 وويندوز ميللينيوم ولكن للاسف لم اجربة على ويندوز 2000 او اكس بى
ولكنى سأحاول جاهدا لمعرفة سبب هذا الخطأ.
وللعلم البرنامج محتوى على جميع ملفات الربط ولا ينقصة أى شيء
والبرنامج معمول بفيجوال بيسك 6
تحياتى,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…