اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اصدقائي الاعزاء - اريد ربط منظومة استخراج سيريال نمبر الجهاز واضافتها لمنظومة خبور الاصدار الثاني او الثالث بحيث لا تعمل منظومة خبور الا على جهاز واحد فقط لقد حاولت نسخ الكود ولكن لم تنحج العملية مرفق لكم المحاولة

شاكرا لكم مساعدتكم

_____________________2_3.rar

قام بنشر

بسم الله الرحمن الرحيم

لاستخراج سيريال نمبر الجهاز استخدم الكود التالى

Sub Auto_Open()
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    s = "Drive " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "SN: " & d.SerialNumber
    MsgBox s

End Sub

مرفق ملف

السلام عليكم

My_Drive.rar

قام بنشر

ما اريده يا استاذ هادي يوجد كود بالملف المرفق بمنظومة خبور الاصدار الثاني في الفيجوال بيسك ولكن بينهما تعارض كود يحسب عدد مرات فتح الملف وكود اظهار رقم الجهاز المطلوب فك هذا التعارض مع جزيل الشكر

  • 2 weeks later...
قام بنشر

اخواني الأعزاء في المنتدى العزيز

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

اخوكم محاسب

ابو شرف

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information