السلام عليكم ورحمه الله وبركاته
ممكن الرد يا شباب وبسرعه لو سمحتي
انا عملت برنامج شات واضفت ليه خاصيه نقل الملفات النصيه ده سهله جدا
الذي اريد انا اعرفه هو كيف ارسال صوره او اي ملف اخري عن طريق الاداه ده اوي اي اداه اخري
وجزاكم الله كل الخير
والسلام عليكم ورحمه الله وبركاته
______________________________________________________
سورس وكود برنامج التجسس علي لوحه المفاتيح
عفوا اخي لكنك لم تذكر لغه البرمجه المستخدمه.........??
I believe that there is no god but Allah and Mohamed is Allah Messenger
طبعا نحنا في منتدي فيجوال بيسك
يبقي لغه فجوال بيسك6
__________________________
سورس وكود برنامج التجسس علي لوحه المفاتيح
على العموم هذه طريقه عامه وهي تكمن في فتح الملف بطريقه binaryثم وضعه في متغير وارسله الى المنفذ المستمع وهذا السورس كود
Open "C:\WINDOWS\Desktop\Desktop1.jpg" For Binary As #1
MSG = "ReadyCaptured" & LOF(1)
lRetval = send(LlistenClient, ByVal MSG, Len(MSG), 0)
If lRetval = SOCKET_ERROR Then
lblStatus.Caption = "You Are Not Connected"
Exit Sub
End If
For I = 1 To LOF(1) \ 2048
Delay 1
S = Space(2048)
Get #1, , S
MSG = "DownloadPic" & S
lRetval = send(LlistenClient, ByVal MSG, Len(MSG), 0)
If lRetval = SOCKET_ERROR Then
lblStatus.Caption = "You Are Not Connected"
Exit Sub
End If
Next I
If (LOF(1) Mod 2048) > 0 Then
Delay 1
S = Space(LOF(1) Mod 2048)
Get #1, , S
MSG = "DownloadPic" & S
lRetval = send(LlistenClient, ByVal MSG, Len(MSG), 0)
If lRetval = SOCKET_ERROR Then
lblStatus.Caption = "You Are Not Connected"
Exit Sub
End If
End If
Close #1
End If
ده كود العمليه كله ممكن اشرحلك طريقه binaryاذا اردت
I believe that there is no god but Allah and Mohamed is Allah Messenger
لا طريقه binary انا عرفها وشكره جزيلا
وانا هجرب الكود ده
وجزاك الله كل الخير
____________________________________
سورس وكود برنامج التجسس علي لوحه المفاتيح
الخ العزيز هذه دروس للتعامل مع binary او الملفات بالصياغه الثنائيه c\v.b
1.vb
طرق التعامل مع الملفات
1.sequential-input-output-append
تستخدم مع الملفت النصيه وتتميز بالبطئ الشديد
2.random
تستخدم مع التعامل مع قواعد البيانات و تتميز بالسرعه لاسنخدامها index
3.binary**
يتعامل مع جميع انواع الملفات صور-برامج-...
مثال
dim c as integer
c = freefile
open "path here
التعامل مع الملف هنا
close c
للكتابه استخدم put
put اسم الملف,1,النص المراد اضافته
put c,1,a
I believe that there is no god but Allah and Mohamed is Allah Messenger
Ok
استخدم مكتبه msWinsock.dll لتضمن سرعه ودعم برنامجك
لان انا مبضون من msWinsock.ocx
اذا اردت معرفه المزيد عن المكتبه
بالصراحه انا عجبني الشعار الي انت حطه"القران"
ده برنامج كامل FileManger
استخلص منه الي انت عاوذه
فينك مقولتش رايك
I believe that there is no god but Allah and Mohamed is Allah Messenger
يا أخ Unlimated destroye
لماذا حذفت حقوق برنامج الـ File Manager الذي أرفقته هنا ؟
لأن هذا ال File Manager من تصميمي ..
ايضا المشروع به مشاكل صغيرة ..
فقد كنت قد كتبته منذ أكثر من 3 سنوات ..وهو ليس سريع علي الاطلاق ..ولكن يمكن تطويره الآن ليصبح كذلك..
تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 26 أغسطس 2006 في 21:47
هذا الموضوع مغلق.