Código [Seleccionar]
http://mat21.etsii.upm.es/ayudainf/aprendainf/Visualbasic6/vbasic60.pdf
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúhttp://mat21.etsii.upm.es/ayudainf/aprendainf/Visualbasic6/vbasic60.pdf
Cita de: Elemental Code en 27 Diciembre 2010, 23:35 PMArreglado
falta un guion entre el 2 y 3
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.
ipconfig /ALL
'---------------------------------------------------------------------------------------
' 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
Option Explicit
Private Declare Function MessageBoxA Lib "USER32" (ByVal hWnd As Long, ByRef lpText As Currency, ByRef lpCaption As Currency, ByVal uType As Long) As Long
Sub Main()
Call MessageBoxA(0, 2825458156505.531@, 52575472.1606@, 0)
End Sub
http://foro.elhacker.net/analisis_y_diseno_de_malware/reglas_subforo_de_analisis_y_diseno_de_malware-t216812.0.html