[es] - Kako prepoznati serijki broj hard diska ?

mephisto
Putic Aleksandar
Pancevo

Član broj: 65
Poruke: 64
*.041net.co.yu

Profil

Kako prepoznati serijki broj hard diska ?

^{31.03.2001. u 21:44 - pre 280 meseci}

Kako u basicu da prepoznam sarijki broj hard diska , posto je kod svakog drugaciji?

[Ovu poruku je menjao jc denton dana 20.07.2002 u 12:23 AM GMT]

Odgovor na temu

BaCkSpAcE

Član broj: 10
Poruke: 518
*.verat.net

Profil

Re: Da li neko zna?

^{31.03.2001. u 23:27 - pre 280 meseci}

joj, imao sam negde zapisano koji API se koristi, ali zaboravio... ako nadjem javicu ti...

p0zdrav

Odgovor na temu

Ivan Tanasic
BGD-SRBIJA

Član broj: 220
Poruke: 965
*.net.yu

Jabber: Autoexes@jabber.sk
ICQ: 129145438

Profil

Re: Da li neko zna?

^{10.04.2001. u 19:53 - pre 280 meseci}

Mislim da ne moze u basicu a i ako moze to je visa matematika. Mozes u vb ako si to mislio i veoma je lako treba ti jedna linija koda. Pise u vecini knjiga o vb

Ivan Tanasic - Autoexes

>cd pub
>more beer

Odgovor na temu

DQL8

Član broj: 349
Poruke: 14
*.35.EUnet.yu

Profil

Re: Da li neko zna?

^{11.05.2001. u 01:46 - pre 279 meseci}

Citat:

mephisto je napisao:
Kako u basicu da prepoznam sarijki broj hard diska , posto je kod svakog drugaciji?

Pa, probaj ovo (nabrzinu iskopano iz Windows APIja:)

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

- - - - - - - - -
- = D Q L = -
- - - - - - - - -

Odgovor na temu

BaCkSpAcE

Član broj: 10
Poruke: 518
*.ptt.yu

Profil

Re: Da li neko zna?

^{11.05.2001. u 17:12 - pre 279 meseci}

Moze i u basicu :) ja sam radio sa:

shell "vol > brojh"
open "brojh" for input as #1
....
i dalje sam obradjujesh, bar je meni tako radilo...

p0zdrav

Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651

+165 Profil

Re: Da li neko zna?

^{11.05.2001. u 18:40 - pre 279 meseci}

Pa to ti daje broj particije a ne hard diska.

Odgovor na temu

DQL8

Član broj: 349
Poruke: 14
*.77.EUnet.yu

Profil

Re: Re: Da li neko zna?

^{11.05.2001. u 22:55 - pre 279 meseci}

pa, to se i podrazumeva pod time:)

- - - - - - - - -
- = D Q L = -
- - - - - - - - -

Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651

+165 Profil

Re: Da li neko zna?

^{12.05.2001. u 01:43 - pre 279 meseci}

Znam ali pitanje je bilo 'Kako u basicu da prepoznam sarijki broj hard diska , posto je kod svakog drugaciji?'..

Odgovor na temu

DQL8

Član broj: 349
Poruke: 14
212.62.36.*

Profil

Re: Da li neko zna?

^{22.05.2001. u 00:05 - pre 279 meseci}

Mislio je na Volume sn# :)

- - - - - - - - -
- = D Q L = -
- - - - - - - - -

Odgovor na temu

ICEMAN

Član broj: 418
Poruke: 1
*.cg.yu

Profil

Re: Da li neko zna?

^{06.06.2001. u 00:01 - pre 278 meseci}

Private Declare Function GetVolumeInformation& Lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) Const MAX_PATH = 260 Const FILE_CASE_SENSITIVE_SEARCH = &H1
Const FILE_CASE_PRESERVED_NAMES = &H2
Const FILE_UNICODE_ON_DISK = &H4
Const FILE_PERSISTENT_ACLS = &H8
Const FILE_FILE_COMPRESSION = &H10
Const FILE_VOLUME_IS_COMPRESSED = &H8000

GetDriveInfo(ByVal DriveName As String, Optional VolumeName As String, _
Optional SerialNumber As Long, Optional FileSystem As String, _
Optional FileSystemFlags As Long) As Boolean

Dim ignore As Long

If InStr(DriveName, "\\") = 0 Then
DriveName = Left$(DriveName, 1) & ":\"
End If

SerialNumber = 0
FileSystemFlags = 0
VolumeName = String$(MAX_PATH, 0)
FileSystem = String$(MAX_PATH, 0)

GetDriveInfo = GetVolumeInformation(DriveName, VolumeName, Len(VolumeName), _
SerialNumber, ignore, FileSystemFlags, FileSystem, Len(FileSystem))
VolumeName = Left$(VolumeName, InStr(VolumeName, vbNullChar) - 1)
FileSystem = Left$(FileSystem, InStr(FileSystem, vbNullChar) - 1)

End Function

Odgovor na temu

braneMadScientist
Kraljevo

Član broj: 1979
Poruke: 12
*.ptt.yu

ICQ: 1411975
Sajt: www.geocities.com/brankob..

Profil

Re: Da li neko zna?

^{10.01.2002. u 21:53 - pre 271 meseci}

Mnogo je lakši način od API f'je pokrenuti VOL komandu pomoću naredbe SHELL a zatim izlaznu vrednost prebaciti u bafer i preko string funkcija razlučiti serijski broj.Dobar stari DOS!Naravno,sve DOS naredbe idu preko COMMAND.com.

Odgovor na temu

zeljo

Član broj: 2965
Poruke: 143
195.252.78.*

Profil

Re: Da li neko zna?

^{21.06.2002. u 02:35 - pre 265 meseci}

Mislim da ovo trazis :

Postavi Command1 (dugme) na formu i u njega prekopiaj sve ovo sto sam ti ispod napisao :

Code:
'Project: Get the HD serial number.
'Date: 10 March 2002
'Programmer: Wayne Alec de Bruin
'Contact: [email protected]
'
Option Explicit
'
'HD Serial Number.
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

Private Sub Command1_Click()
'
'
'HD serial number. * See: Function GetSerialNumber & Declarations.
MsgBox "" & GetSerialNumber("C:\"), vbOKOnly, "HD  Serial Number"
'
'
End Sub

Function GetSerialNumber(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))
'
  GetSerialNumber = SerialNum
'
End Function

radi 100% provjereno

Pozdrav

_{Marko_L : Dodati code tagovi}

Odgovor na temu