AccessTr.neT
HDD Serial - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: HDD Serial (/konu-hdd-serial.html)

Sayfalar: 1 2 3 4 5


HDD Serial - okileturc - 08/04/2009

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


Cvp: HDD Serial - beab05 - 08/04/2009

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




Cvp: HDD Serial - Krizantem - 08/04/2009

dim objITEM as???


Cvp: HDD Serial - mehmetdemiral - 08/04/2009

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.


Cvp: HDD Serial - beab05 - 08/04/2009

objecttir, expliciti iptal ederek daha rahat test edebilirsiniz..


Cvp: HDD Serial - okileturc - 08/04/2009

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