Skip to main content

AccessTr.neT


HDD Serial

HDD Serial

#1
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 -Img-grin HDD Serial lisanslama
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
.rar HDDSerial.rar (Dosya Boyutu: 15,2 KB | İndirme Sayısı: 174)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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

Son Düzenleme: 08/04/2009, 17:07, Düzenleyen: beab05.
Cevapla
#3
dim objITEM as???
Cevapla
#4
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.
.rar FizikselSeriNumarasi.rar (Dosya Boyutu: 29,49 KB | İndirme Sayısı: 99)
İnadına, ille de Accesstr.net...
Cevapla
#5
objecttir, expliciti iptal ederek daha rahat test edebilirsiniz..
Cevapla
#6
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
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da