PORQUE ESTA ROTINA NAO FUNCIONA ?

GUTO 27/04/2007 16:47:34
#214103
Eu uns dias atras pedi ajuda pra achar um bom exemplo de como pegar numero da Placa de rede , ok, funcionou normalmente, mas a minha rotina no meu porjeto pra nao permitir a entrada no sistema de um computador que nao tenha o mems numero da plca de rede nao esta funcionando, porque? eu ponho o numero certo e mems assim nao entra.....por exemplo


Option Explicit

'========================Pega Numero Mac Placa de Rede
Private Const NCBASTAT As Long = &H33
Private Const NCBNAMSZ As Long = 16
Private Const HEAP_ZERO_MEMORY As Long = &H8
Private Const HEAP_GENERATE_EXCEPTIONS As Long = &H4
Private Const NCBRESET As Long = &H32

Private Type NET_CONTROL_BLOCK
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte
ncb_sto As Byte
ncb_post As Long
ncb_lana_num As Byte
ncb_cmd_cplt As Byte
ncb_reserve(9) As Byte
ncb_event As Long
End Type

Private Type ADAPTER_STATUS
adapter_address(5) As Byte
rev_major As Byte
reserved0 As Byte
adapter_type As Byte
rev_minor As Byte
Duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer
recv_buff_unavail As Integer
t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type

Private Type NAME_BUFFER
Name As String * NCBNAMSZ
name_num As Integer
name_flags As Integer
End Type

Private Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type

Private Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Private Declare Function GetProcessHeap Lib "kernel32" () As Long
Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long


Private Function ObtemEndMAC() As String
'On Error Resume Next
Dim tmp As String
Dim pASTAT As Long
Dim NCB As NET_CONTROL_BLOCK
Dim AST As ASTAT
NCB.ncb_command = NCBRESET
Call Netbios(NCB)
NCB.ncb_callname = "*               "
NCB.ncb_command = NCBASTAT
NCB.ncb_lana_num = 0
NCB.ncb_length = Len(AST)
pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS _
        Or HEAP_ZERO_MEMORY, NCB.ncb_length)
            
If pASTAT = 0 Then
    Exit Function
End If

NCB.ncb_buffer = pASTAT
Call Netbios(NCB)

CopyMemory AST, NCB.ncb_buffer, Len(AST)

tmp = Mid$("00" & Hex(AST.adapt.adapter_address(0)), 2) & " " & _
        Mid$("00" & Hex(AST.adapt.adapter_address(1)), 2) & " " & _
        Mid$("00" & Hex(AST.adapt.adapter_address(2)), 2) & " " & _
        Mid$("00" & Hex(AST.adapt.adapter_address(3)), 2) & " " & _
        Mid$("00" & Hex(AST.adapt.adapter_address(4)), 2) & " " & _
        Mid$("00" & Hex(AST.adapt.adapter_address(5)), 2)
                
HeapFree GetProcessHeap(), 0, pASTAT
ObtemEndMAC = tmp

End Function




NO FORM LOAD

If ObtemEndMAC <> "00 00 00 00 08 0E" Then
MsgBox "Computador Não Identificado, Sua Entrada no Sistema não será Permitida."
Unload Me

End If

mas nao entra, mesmo que eu ponha o numero certo , nao entra, alguem sabe porque ou tem uma outra rotina? muito obrigado
HUGOSSOUZA 27/04/2007 16:52:18
#214105 Resposta escolhida
oq acontece?
ele da algum erro?

aqui funcionou normal
tenta substituir o private por public
USUARIO.EXCLUIDOS 27/04/2007 16:52:29
#214106
Cara me desculpe se estou dando informação errada etc... mas
provavelmente cara o retorno do numero é com - por exemplo
00-01-02-b5-f6
e vc esta testando como "00 00 00 00 08 0E" com espaços fraga?
fazendo com o tmp nao tenha o mesmo resultado que o seu teste... mesmo com o recebimento de espaços.

quais testes vc ja fez pra tentar resolver ?
GUTO 27/04/2007 16:54:28
#214107
eu tave tentando com 00:00:00.....tipo isso , mas vou tentar o seu
HUGOSSOUZA 27/04/2007 16:57:20
#214108
o meu ta voltando assim:

"00 017 032 093 028 052"
GUTO 27/04/2007 16:58:53
#214110
dessa forma tambem nao funcionou

00-00-00-04-08-0E

nem mudando pra Public Function, o pior que nao gera nenhum erro , simplisment ele entra no if e gera a mensagem que nao é permitida a entrada , ou seja diz que o numero real da placa é < ou > que oque eu puis na rotina , eu uso esse sistema aki pa verificar o numero da placa de rede
HUGOSSOUZA 27/04/2007 17:06:58
#214114
é q a forma q ele volta o MAC é difetente da outra rotina:

faz um teste
nesse ultimo exemplo que vc passou

formata o resultado do MAC assim e compara com o exemplo que vc passou la no começo:

MsgBox Replace(oAdapter.MACAddress, ":", " 0")


se vc reparar, ele substitui um espaço e 0 (" 0") por ":"
GUTO 27/04/2007 17:21:47
#214116
mas no msgbox ele retorna tipo assim

00 000 000 044 00E

ele acrescenta mais um zero , do que mostra no list , mas mesmo assim se eu ponho na minha rotina tipo isso

If ObtemEndMAC <> "00 000 000 004 000 00E" Then

MsgBox "Computador Não Identificado, Sua Entrada no Sistema não será Permitida."
Unload Me
End If


ou isso


If ObtemEndMAC <> "00:000:000:004:000:00E" Then

MsgBox "Computador Não Identificado, Sua Entrada no Sistema não será Permitida."
Unload Me
End If


ou isso

If ObtemEndMAC <> "00-000-000-004-000-00E" Then

MsgBox "Computador Não Identificado, Sua Entrada no Sistema não será Permitida."
Unload Me
End If


nao funciona , ou eu fiz errado rsss
HUGOSSOUZA 27/04/2007 17:24:03
#214119
usando ":" tem que tirar um "0"

tenta assim:

If ObtemEndMAC <> "00:00:00:04:00:0E" Then
   MsgBox "Computador Não Identificado, Sua Entrada no Sistema não será Permitida."
   Unload Me
End If
GUTO 27/04/2007 17:27:08
#214121
sim foi como eu disse se eu deixo assim , tambem nao deixa entrar ...cabuloso irmao

If ObtemEndMAC <> "00:40:07:04:08:0E" Then

MsgBox "Computador Não Identificado, Sua Entrada no Sistema não será Permitida."
Unload Me
End If
HUGOSSOUZA 27/04/2007 17:30:54
#214122
vixi... chama um exorcista... [S68].. rsss

faz assim e posta oq aparece?

msgbox ObtemEndMAC

Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar