AccessTr.neTMicrosoft AccessAccess Örnekleri ve Uygulamaları

HDD Serial

1 2 3 4 5
08/04/2009, 15:56

okileturc

Forum da çokca bahsedildiği gibi
her formattan sonra yeni Key gerektiğinden
ben bu sistemi terk ettim ama, "kullanırım"
diyenler için - Selamlar

Not:VB (exe) Seri No bulma alıntıdır ( paylaşım )
Keygen:okileturc

exe dosyası ile HDD Serial i okuyun, Keygen formundaki
üst denetime serial i yazıp Enter a basın

Uygulamanın her açılışında Serial okumak için:
Kod ile HDD Serial
Kod:
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Function SeriNoAl(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
SeriNoAl = SerialNum
End Function

Kod Alıntıdır
08/04/2009, 17:05

beab05

Merhabalar;

HDD için fiziksel numara kullanırsanız formattan sonra da değişmez..

Kod:
Sub beab()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PhysicalMedia WHERE SerialNumber <> null", , 48)
For Each objItem In colItems
  
    msgbox Trim(objItem.SerialNumber)
Next
End Sub
08/04/2009, 17:14

Krizantem

dim objITEM as???
08/04/2009, 17:27

mehmetdemiral

Bununla ilgili 8 adet harddiske kadar fiziksel seri noları veren bir uygulama örneği ekliyorum. Örnek bizim Alpeki'nin sitesinden indirilmiştir. Yukarda bahsedilen fiziksel seri noyu almak için hazırlanmış. Hala lisanslama için hdd seri no düşünenler için iyi bir örnek olabilir.
08/04/2009, 17:27

beab05

objecttir, expliciti iptal ederek daha rahat test edebilirsiniz..
08/04/2009, 17:36

okileturc

Arkadaşlar kafam karıştı,
Fizksel numara formatta sonra değişmiyorsa
tamamen terk etmeye gerek yok diye düşünüyorum
Fiziksel numaranın bir standartı varmıdır ?
Gönderdiğiniz uygulama
"??-????????????" formatında
2-12 Alfanümerik bir değer getirdi
bu tüm disk disklerde standartmıdır ?
Tşk ederim
1 2 3 4 5