السلام عليكم
أخواني أريد كود يقوم بجمع بيانات عن الحاسب والبيانات هي
1- الآي بي IP ويفضل عدم استخدام أداة Winsock
2- رقم الهاردسك
3-اسم الجهاز
4- إذا كان هناك معلومات يمكن الإسفادة منها
وللجميع جزيل الشكر...
من مواضعي
برنامج يتصل بقواعد بيانات MYSQL
طريقة إرسال البيانات من البرنامج إلى الوورد
قاطعوا المنتجات الدنماركية والهولندية لنصرة رسول الله والإسلام
للمراسلة عبر الماسنجر :
الأخ الفاضل ...
راجع: كيفية الحصول على الرقم المسلسل لـ(هارد ديسك - بروسيسور - كارت شبكة - BIOS)
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
طيب رقم IP و اسم الجهاز
ومتشكر مهندس أسامة المقدم
تم تعديل هذه المشاركة بواسطة memoon في 26 فبراير 2008 في 15:02
من مواضعي
برنامج يتصل بقواعد بيانات MYSQL
طريقة إرسال البيانات من البرنامج إلى الوورد
قاطعوا المنتجات الدنماركية والهولندية لنصرة رسول الله والإسلام
للمراسلة عبر الماسنجر :
GetComputerName API: http://www.mvps.org/access/api/api0009.htm
URLDownloadToFile: http://vbnet.mvps.org/index.html?code/inte...nloadtofile.htm
الملف الذي ستقوم بتحميله هو: http://www.whatismyip.com/automation/n09230945.asp
الذي حالما يتم الاتصال به يقوم بعرض الـ IP Address ضمن الصفحة (فقط لا غير)
يبقى عليك فتح الملف برمجياً وقراءة الرقم منه. ضعه في المتصفح وانظر ما أعنيه.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
مشكورر للكل
على المعلومات القيمة
من مواضعي
برنامج يتصل بقواعد بيانات MYSQL
طريقة إرسال البيانات من البرنامج إلى الوورد
قاطعوا المنتجات الدنماركية والهولندية لنصرة رسول الله والإسلام
للمراسلة عبر الماسنجر :
بطريقة أسهل (ليس دائما كل الأمور السهلة هي الأنجح)
جلب اسم الكمبيوتر
Pc_Name= Environ$("COMPUTERNAME")يمكن استعمال Microsoft Internet Transfert Control مع الموقع http://testip.free.fr/ip.php
الذي يعطي الايبي مباشرة
لكي يكون بالشكل التالي
MyIP = Inet1.OpenURL("http://testip.free.fr/ip.php")أو مع الموقع الذي ذكره الأخXacker
MyP = Inet1.OpenURL("http://www.whatismyip.com/automation/n09230945.asp")راجع المثال التالي , يجيب IP و Name
أما الهارد , فراجع مشاركة الأخ أسامة
شكرا
اقتباس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
مشكورررررررين جميعاً
وأي شيء تحت أمركم
أخوكم memoon
من مواضعي
برنامج يتصل بقواعد بيانات MYSQL
طريقة إرسال البيانات من البرنامج إلى الوورد
قاطعوا المنتجات الدنماركية والهولندية لنصرة رسول الله والإسلام
للمراسلة عبر الماسنجر :
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
