كود الإسترجاع فيكون بإعادة نسخ ملف قاعدة البيانات الى مجلد البرنامج

[القيصر]

​
كود الإسترجاع فيكون بإعادة نسخ ملف قاعدة البيانات الى مجلد البرنامج

كود:

Dim filepath = OpenFileDialog1.FileName
Dim ProgramDBpath = "MyDB.mdb"
System.IO.File.Copy(filepath, ProgramDBpath, overwrite:=True)






​
معرفة رقم الهارد دسك لاستخدامه في عمل حماية لبرنامجك​

كود:

Imports System.Management
Imports System.Management.Instrumentation
ثم نقوم بكتابة


الكود التالي في حدث التحميل للنوذج مثلا

كود:

Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim HD As ManagementObject
For Each HD In HDinformation.Get()
TextBox1.Text = HD("SerialNumber").ToString()
Next