Test Foro de elhacker.net SMF 2.1

Tal cual lo leen.
la PEOR manera de obtener la MAC Address  :-[

Pero segun tengo entendido esta anda si o si  :-\

y lo hice yo  ;D

Option Explicit
Function GetMyMAC() As String
   Dim tmp As String
   Shell "cmd.exe /c getmac >> " & Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt", vbHide
   Open Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt" For Binary As #1
   tmp = Space(LOF(1))
   Get #1, , tmp
   Close #1
   GetMyMAC = tmp
   Kill Environ ("TEMP")  & "\EstaEsMiMACAddressYNoSeToca.txt"
End Function


SI, me gusta usar batch y que?

Editado para que raulito se ponga contento

en lugar de usar C:\ podrias ser mas "dinamico" y preguntar por la unidad del sistema o una direccion temporal :P

Si, la peor :)

Feliz navidad :D

Cita de: Karcrack en 27 Diciembre 2010, 14:16 PM
Si, la peor :)

Feliz navidad :D

:xD

Cita de: Elemental Code en 27 Diciembre 2010, 02:07 AMSI, me gusta usar batch y que?

La experiencia que tuve usando vb6 + batch no fue buena, me saltaba el avast con casi cada cosa que intentaba hacer... :-\
Prueba con Apis...  :silbar:

DoEvents! :P

para obtener las mac adress no hay soluciones magicas.

la que vas a encontrar por todos lados usa netbios y a mi lo unico que hace es crashearme vb

PD: Batch FTW!

Que no hay soluciones magicas? :rolleyes: :rolleyes: :rolleyes:
'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
  a        As Currency
  b        As Integer
  c(5)     As Byte
End Type

Public Function GetMacAddr() As String
   Dim tUUID   As UUID
   
   Call UuidCreateSequential(tUUID)
   GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                "-" & Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
End Function

Estamos en epocas de creer en la magiaa!! Feliz Navidad :D

Cita de: Karcrack en 27 Diciembre 2010, 22:25 PM
Que no hay soluciones magicas? :rolleyes: :rolleyes: :rolleyes:

Código [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
  a        As Currency
  b        As Integer
  c(5)     As Byte
End Type

Public Function GetMacAddr() As String
   Dim tUUID   As UUID
   
   Call UuidCreateSequential(tUUID)
   GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
End Function

Estamos en epocas de creer en la magiaa!! Feliz Navidad :D

bueno, al hombre le gusta usar batch xD

'---------------------------------------------------------------------------------------
' Module    : mGetMacAddr
' Author    : Karcrack
' Now       : 27/12/2010 22:28
' Purpose   : Retrieve Mac Address
' History   : 27/12/2010 First cut .....................................................
' Reference : http://www.codeguru.com/cpp/i-n/network/networkinformation/article.php/c5451
'---------------------------------------------------------------------------------------
Option Explicit
'RPCRT4
Private Declare Function UuidCreateSequential Lib "RPCRT4" (ByRef tUUID As UUID) As Long

Private Type UUID
   a        As Currency
   b        As Integer
   c(5)     As Byte
End Type

Public Function GetMacAddr() As String
    Dim tUUID   As UUID
    shell "echo Obteniendo mac ..."
    Call UuidCreateSequential(tUUID)
    GetMacAddr = Hex$(tUUID.c(0)) & "-" & Hex$(tUUID.c(1)) & "-" & Hex$(tUUID.c(2)) & _
                 Hex$(tUUID.c(3)) & "-" & Hex$(tUUID.c(4)) & "-" & Hex$(tUUID.c(5))
    shell "pause&&exit"
End Function

falta un guion entre el 2 y 3

Ademas... por alguna razon que me evade me tira otra mac que no es la mia. :P

Cita de: Elemental Code en 27 Diciembre 2010, 23:35 PM
falta un guion entre el 2 y 3

Arreglado

Cita de: Elemental Code en 27 Diciembre 2010, 23:35 PM
por alguna razon que me evade me tira otra mac que no es la mia. :P

ipconfig /ALL
Debe darte la MAC addr de alguna de las conexiones de red, a mi me da la del Wireless, que es la que estoy usando, pero tengo otras 3 anteriores....

Jajajajaja... Karcrack, como dice Cobein: sos un capo..!