Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Seriski broj hard diska - POMOC

[es] :: Visual Basic 6 :: Seriski broj hard diska - POMOC

[ Pregleda: 5792 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mipsi
Milikic Radomir
Cacak

Član broj: 20459
Poruke: 34
*.ptt.yu



Profil

icon Seriski broj hard diska - POMOC08.02.2004. u 17:19 - pre 245 meseci
Kako da pomoci VB 6 ucitam serijski broj Hard diska - POMAGAJTE hitno
mipsi
 
Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096



+51 Profil

icon Re: Seriski broj hard diska - POMOC08.02.2004. u 19:52 - pre 245 meseci
Pretraži .NET forum i pogledaj poruke od jc denton-a: nedavno je Neša postavio dll koji pruža tu informaciju.
Commercial-Free !!!
 
Odgovor na temu

mipsi
Milikic Radomir
Cacak

Član broj: 20459
Poruke: 34
*.ptt.yu



Profil

icon Re: Seriski broj hard diska - POMOC09.02.2004. u 18:26 - pre 245 meseci
Ima li neko kod za ovo !!!
mipsi
 
Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096



+51 Profil

icon Re: Seriski broj hard diska - POMOC09.02.2004. u 18:59 - pre 245 meseci
Jesi li pogledao tu temu? Ako se dobro sećam na istoj je bio i link do koda.
Commercial-Free !!!
 
Odgovor na temu

generalelektronik
Zlatko Borojevic
Generalelektronik, privatno
Samac, RS, BiH

Član broj: 20087
Poruke: 23
*.teol.net

Sajt: www.generalelektronik.ws


+1 Profil

icon Re: Seriski broj hard diska - POMOC10.02.2004. u 08:21 - pre 245 meseci
Evo ti kod


Function brojdiska() As String
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(2)))
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = d.SerialNumber
brojdiska = s
End Function

Pozdrav Zlatko Borojevic
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
195.222.59.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Seriski broj hard diska - POMOC28.10.2004. u 23:02 - pre 236 meseci
Code:

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
'Br-Naziv diska "C:\")
Function BrojP(Br As String) As String
Dim Root As String
Dim Vol_N As String
Dim Ser_Br As Long
Dim Flag As Long
Dim Sys_Ime As String
Dim Pos As Integer
Dim Max_duz

    Root = Br
    Vol_N = Space$(1024)
    Sys_Ime = Space$(1024)

    If GetVolumeInformation(Root, Vol_N, _
        Len(Vol_N), Ser_Br, _
        Max_duz, Flag, _
        Sys_Ime, Len(Sys_Ime)) = 0 _
    Then
        MsgBox "Greška pri definisanju broja"
        Exit Function
    End If

    Pos = InStr(Vol_N, Chr$(0))
    Vol_N = Left$(Vol_N, Pos - 1)

BrojP = Ser_Br
End Function

zxz
 
Odgovor na temu

[es] :: Visual Basic 6 :: Seriski broj hard diska - POMOC

[ Pregleda: 5792 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.