bilgisayarın seri no sunu veren kod varmı arkadaşlar

[simendifer]

bilgisayarın seri no sunu veren kod varmı yaptıgım program başka bilgisayarda çalışmaması için her kurulan bilgisayar seri nosunu alacak benim yazdıgım formulle işlem yapacak ve çalışacak başka bilgisayarda o formul sonucunu yazdığın zaman çalışmayacak her bilgisayarın seri no suna göre çalışaçak teşekkür ederim

 

[modalı]

Seri no su derken ne kast ediyorsunuz acaba?

 

[modalı]

Hard diskin seri numarasını bulan bir API var işinizi görür mü bilmem.

'Example by Alexey (alexeyka2001@rambler.ru)
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Const MAX_FILENAME_LEN = 256
Public Function DriveSerial(ByVal sDrv As String) As Long
    Dim RetVal As Long
    Dim str As String * MAX_FILENAME_LEN
    Dim str2 As String * MAX_FILENAME_LEN
    Dim a As Long
    Dim b As Long
    Call GetVolumeInformation(sDrv & ":\", str, MAX_FILENAME_LEN, RetVal, a, b, str2, MAX_FILENAME_LEN)
    DriveSerial = RetVal
End Function
Private Sub Form_Load()
    MsgBox "Serial of drive C is " & DriveSerial("C")
End Sub

İyi akşamlar

 

[modalı]

Bir de yine hard diskin seri nosunu bulan kod var. Bu iş sanırım bilgisayar seri no su değilde hard disk seri nosuyla yapılıyor.

İyi çalışmalar :hey:

Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.Drives.Item("C")
MsgBox "Drive Serial Number is " & Hex(drv.SerialNumber)

 

[simendifer]

Yardımcı olan arkadaşlara şükranlarımı sunar hayırlı günler dilerim yardımlarınız makbule gecti sagolun