harddisk in üretici seri numarası nasıl alınır?

[crownrr]

Vb 6.0 kullanıyorum ve hdd nin seri nosunu alacak kodu bir türlü bulamadım.

http://www.diskserialnumber.com/

sitesinde bir dll ile alınıyor ama her kullandığında bir mesaj penceresi açılarak satıl alın diyor.

hdd seri nosunu şifrelemede referans olarak kullanmayı düşünüyorum. format atıldığında değişmeyecek başka bir numara varmı referans alabileceğimiz. ethernet kartlarının mac-id leri de benzersiz ve sabit fakat her makinede ethernet yok

fikir ve yardımlarınızı bekliyorum.

[ali çetin]

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

[crownrr]

Öncelikle ilginiz içi teşekkür ederim fakat bu kadlar ile istediğim sonuca ulaşamıyorum. internette araştırıken denedim bu kodu. negatif bir sonuç dönüyor fonksiyoondan


Bana harddiskin üretici seri numarasını alabileceğim bir yol gerekiyor.

[080522jk]

.客户信息管理功能：客户信息输入及编辑功能，录音电话价格形成客户关系数据库； 来电时，可自动获得主叫号码，录音仪以此区分老客户和新客户； 是老客户的话，电话监听可以直接分配到上次接听的坐席上；语音卡该坐席占线或者是新客户时，按照分配原则分配到某个空闲的坐席上； 电话分配的同时将客户信息和历次联系信息送到该坐席的电脑上； 拨出电话与客户联系时，先在坐席电脑上查找到该客户，电话录音盒坐席电脑将自动拨叫该客户的电话，遇忙、久叫不应时系统自动拨叫该客户的下一个电话或重新拨叫 ； 每日信息统计、总结功能：可将每日的进出电话进行整理，重要客户电话及其信息形成报告；报告（包括客户信息 和数字录音等）可刻录至光盘或打包发送邮件，可异地电脑查询及阅读。 支持汉王公司的名片扫描数据库

[muurtee]

bir bat dosyasi hazirlayip, ciktiyi bir path vererek kaydet. dosyadaki son 9 karakteri oku. aynisini ben yazmistim yine de cozum bulamazsan sana dosyayi gondereyim