HDD Serial
Tarih
08/04/2009 15:56
Konu Sahibi
okileturc
Yorumlar
24
Okunma
5209
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
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



Ek Dosyalar
.rar   HDDSerial.rar (Dosya Boyutu: 15,2 KB / İndirme Sayısı: 164)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


beab05
Üye
Kullanici Avatari
Üye
37
0
17/12/2008
7
Aydın
Ofis 2007
04/06/2013,02:29
Merhabalar;

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

Kod:
1
2
3
4
5
6
7
8
9
10
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

Cevapla


Krizantem
Cezalı
Kullanici Avatari
Cezalı Üye
27
2
22/03/2009
Adana
Ofis 2003
27/04/2009,09:01
dim objITEM as???
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
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.


Ek Dosyalar
.rar   FizikselSeriNumarasi.rar (Dosya Boyutu: 29,49 KB / İndirme Sayısı: 91)
İnadına, ille de Accesstr.net...
Cevapla


beab05
Üye
Kullanici Avatari
Üye
37
0
17/12/2008
7
Aydın
Ofis 2007
04/06/2013,02:29
objecttir, expliciti iptal ederek daha rahat test edebilirsiniz..
Cevapla


okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
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







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya