ID do HD em WinXP

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ID do HD em WinXP

Fernando Marcon
não registrado

Postada em 05/09/2005 17:43 hs

Tenho uma API do windows para encontrar o Id do HD, mas ela só funciona no Win98.

Gostaria de ajuda pra fazer ela funcionar no WinXP ou mesmo de algum exemplo que explique como pegar o numero da Id do HD.

A finalidade é impedir pirataria. Agradeço antecipadamente aos colegas.

Segue anexo modelo a quem possa interessar da API para esta função no Win98.

Private Declare Function GetVolumeInformation Lib

Maxcim

GUARULHOS
SP - BRASIL

Postada em 05/09/2005 18:11 hs

funciona em qualquer versao do windows

Option Explicit

Sub SERIAL_DRIVE(drive As String)
'FileSystemObject É nessecario MICROSOFT SCRIPTING RUNTIME
Dim fso As New FileSystemObject
Dim Winchester As Scripting.drive
Set Winchester = fso.GetDrive(drive)
Text1.Text = Hex$(Winchester.SerialNumber)
End Sub

Private Sub Command1_Click()
Call SERIAL_DRIVE("C")
End Sub

Fernando Marcon
não registrado

Postada em 05/09/2005 18:58 hs

Muitissimo obrigado. eficiente!!!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site