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

Kako prepoznati serijki broj hard diska ?

[es] :: Visual Basic 6 :: Kako prepoznati serijki broj hard diska ?

[ Pregleda: 5343 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mephisto
Putic Aleksandar
Pancevo

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



Profil

icon Kako prepoznati serijki broj hard diska ?31.03.2001. u 21:44 - pre 247 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

icon Re: Da li neko zna?31.03.2001. u 23:27 - pre 247 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

icon Re: Da li neko zna?10.04.2001. u 19:53 - pre 246 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

icon Re: Da li neko zna?11.05.2001. u 01:46 - pre 245 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

icon Re: Da li neko zna?11.05.2001. u 17:12 - pre 245 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: 13650



+162 Profil

icon Re: Da li neko zna?11.05.2001. u 18:40 - pre 245 meseci
Pa to ti daje broj particije a ne hard diska.
 
Odgovor na temu

DQL8

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



Profil

icon Re: Re: Da li neko zna?11.05.2001. u 22:55 - pre 245 meseci
pa, to se i podrazumeva pod time:)

- - - - - - - - -
- = D Q L = -
- - - - - - - - -
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13650



+162 Profil

icon Re: Da li neko zna?12.05.2001. u 01:43 - pre 245 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

icon Re: Da li neko zna?22.05.2001. u 00:05 - pre 245 meseci
Mislio je na Volume sn# :)
- - - - - - - - -
- = D Q L = -
- - - - - - - - -
 
Odgovor na temu

ICEMAN

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



Profil

icon Re: Da li neko zna?06.06.2001. u 00:01 - pre 245 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

icon Re: Da li neko zna?10.01.2002. u 21:53 - pre 237 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

icon Re: Da li neko zna?21.06.2002. u 02:35 - pre 232 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

[es] :: Visual Basic 6 :: Kako prepoznati serijki broj hard diska ?

[ Pregleda: 5343 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

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