Kod anlamı

[sin77]

Arkadaşlar elimde bir excelde makrolarla hazırlanmı bir program var ve kayıt yap diye bir bölümü var. orada cıkan makro

KontrolKayit()
Dim SerialNumber As Long
GetVolumeInformationA "C:\", vbNullString, 0, _
SerialNumber, 0, 0, vbNullString, 0
Sheets("Karne").Select
Sheets("Karne").Range("IR8503") = SerialNumber
Sheets("Bil").Range("A99") = Sheets("Karne").Range("IS8535")
Range("A1").Select
Sheets("Bil").Select
Range("A1").Select
End Sub

Bunun anlamını çözen varmı, yani programı aktif hale nasıl getirebilirim.

 

[Levent Menteşoğlu]

Ã?ncelikle verdiğiniz kodlar eksik, kodların en başında APİ tanımlamalarının olması gerekir. Bu kod harddisk veya bios vb. serinosunu bulmak için kullanılır. Aşağıdaki linklerde uygulamalar mevcuttur.


http://www.excel.web.tr/viewtopic.php?t=5225
http://www.excel.web.tr/viewtopic.php?t=12833