IDENTIFICADOR DE USUARIO
Para gerar identificador de usuário Macoratti sugeriu código abaixo :
Public Class Form1
Private Declare Function CoCreateGuid Lib [Ô]OLE32.DLL[Ô] (ByVal pGUID As Guid) As Long
Private Declare Function StringFromGUID2 Lib [Ô]OLE32.DLL[Ô] (ByVal pGUID As Guid, _
ByVal PointerToString As Long, ByVal MaxLength As Long) As Long
Private Type GUID
Guid1 As Long
Guid2 As Long ME INDICAR ERRO [Ô]DECLARATION EXPECTED
Guid3 As Long
Guid4(0 To 7) As Byte
End Type
End Class
Como devo lidar com isso ?
Agradeço;
Public Class Form1
Private Declare Function CoCreateGuid Lib [Ô]OLE32.DLL[Ô] (ByVal pGUID As Guid) As Long
Private Declare Function StringFromGUID2 Lib [Ô]OLE32.DLL[Ô] (ByVal pGUID As Guid, _
ByVal PointerToString As Long, ByVal MaxLength As Long) As Long
Private Type GUID
Guid1 As Long
Guid2 As Long ME INDICAR ERRO [Ô]DECLARATION EXPECTED
Guid3 As Long
Guid4(0 To 7) As Byte
End Type
End Class
Como devo lidar com isso ?
Agradeço;
Usuário logado no momento ?
Usuário do Windows, tenta assim:
Dim UserName As String
UserName = Environ([Ô]USERNAME[Ô])
Usuário do Windows, tenta assim:
Dim UserName As String
UserName = Environ([Ô]USERNAME[Ô])
Obrigado jovem. Vai me ajudar em outras situações. Aqui na verdade quero usar um código do macoratti para evitar pirataria. Mas quando eu digito essa parte , me indica o erro [ô]DECLARATION EXPECTED[ô].
Será que preciso digitar esse Private Type GUID em algum outro lugar que não seja onde eu estou coloicando ?
Será que preciso digitar esse Private Type GUID em algum outro lugar que não seja onde eu estou coloicando ?
é meio complicado essa coisa de evitar pirataria, principalmente para identificar o cliente de forma única, mas já te digo, CoCreateGuid não serve para isso, já que ele retorna um valor diferente cada vez que você chama ele.
Obrigado pessoal . Abraços;
Tópico encerrado , respostas não são mais permitidas