AccessTr.neT

Sayfalar: 1 2 3 4 5

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

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

dim objITEM as???

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.

objecttir, expliciti iptal ederek daha rahat test edebilirsiniz..

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

Sayfalar: 1 2 3 4 5

okileturc

beab05

Krizantem

mehmetdemiral

beab05

okileturc