Re: serie nummer hd uitlezen in VB

Article View: be.comp.programming

Article #12731

Back to be.comp.programming Previous Next

#12731

From: Techno Consult
Date: Thu, 18 Oct 2001 22:15

22 lines
1603 bytes

Alstublieft:

Public Function DriveSerial(ByVal sDrv As String) As Long
  Dim RetVal As Long
  Dim str As String * 256
  Dim str2 As String * 256
  Dim a, b As Long
   Call GetVolumeInformation(sDrv & ":\", str, 256, RetVal, a, b, str2, 256)
   DriveSerial = RetVal
End Function

--
F.De Ville
"ikke" <ikke@pandora.be> wrote in message
news:Z3fy7.104910$6x5.22638871@afrodite.telenet-ops.be...
> ik zou graag de serienummer van de hard Disk willen uitlezen.
> zodoende een copierbeveiliging te maken van een pgr geschreven in VB
>
> weet iemand hoe dit mogelijk is???
>
>
>

Technical Details

Message-ID: <3bcf53ca$0$12222$4d4efb8e@news.be.uu.net>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!195.238.2.15!skynet.be!skynet.be!bnewspeer01.bru.ops.eu.uu.net!bnewspost00.bru.ops.eu.uu.net!emea.uu.net!news.be.uu.net!not-for-mail

References: <Z3fy7.104910$6x5.22638871@afrodite.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,8080a7c44530f8da
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-10-18 15:12:28 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!195.238.2.15!skynet.be!skynet.be!bnewspeer01.bru.ops.eu.uu.net!bnewspost00.bru.ops.eu.uu.net!emea.uu.net!news.be.uu.net!not-for-mail
From: "Techno Consult" <t_consult_nospam@hotmail.com>
Newsgroups: be.comp.programming
References: <Z3fy7.104910$6x5.22638871@afrodite.telenet-ops.be>
Subject: Re: serie nummer hd uitlezen in VB
Date: Fri, 19 Oct 2001 00:15:43 +0200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2919.6700
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
Lines: 24
Message-ID: <3bcf53ca$0$12222$4d4efb8e@news.be.uu.net>
NNTP-Posting-Host: uu212-190-160-243.unknown.uunet.be
X-Trace: 1003443146 news.be.uu.net 12222 212.190.160.243
X-Complaints-To: abuse@be.uu.net

Reply to Parent Message