Hola,

Encontre un codigo que supuestamente lo cambia pero no funciona, supongo que en Windows XP si pero para Windows 7 en adelante no, alguna sugerencia.

Saludos

 
Imports System.Management
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillNetworkAdapters()
    End Sub
 
    Private Sub FillNetworkAdapters()
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                Dim strAdapter As String
                strAdapter = mo.Item("Caption").ToString().Substring(11)
 
                combo_network.Items.Add(strAdapter)
            End If
        Next
    End Sub
 
    Private Function GetMACAddress(ByVal Adapter As String) As String
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                Dim strAdapter As String
                strAdapter = mo.Item("Caption").ToString().Substring(11)
                If strAdapter = Adapter Then
                    Return mo.Item("MacAddress").ToString()
                End If
            End If
        Next
    End Function
 
 
    Private Sub combo_network_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combo_network.SelectedIndexChanged
        label_mactext.Text = GetMACAddress(combo_network.SelectedItem.ToString)
    End Sub
 
    Private Function DoPadding(ByVal x As String) As String
        Dim Ret As String
        Dim z As Integer
 
        Ret = x
        If Len(x) < 4 Then
            For z = 1 To 4 - Len(x)
                Ret = "0" & Ret
            Next
        End If
 
        Return Ret
    End Function
 
 
    Private Sub ShowRestart()
        Dim res As MsgBoxResult = MsgBox("Your MAC Address has been 
changed. In order to make the changes take effect, either restart your 
computer or enable and disable the changed Network Adapter.",
MsgBoxStyle.Information)
 
 
    End Sub
 
    Private Function GetRoot(ByVal Adapter As String) As String
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim i As Integer = 0
 
        Do
            Dim Root As String = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
            Dim Last As String = DoPadding(i)
            regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Root & Last, True)
 
            Try
                Dim cAdapter As String = regKey.GetValue("DriverDesc").ToString()
                If cAdapter = Adapter Then
                    Return Root & Last
                End If
            Catch
                Exit Do
            End Try
            i += 1
        Loop
 
 
    End Function
 
 
    Private Function IsOkay() As Boolean
        If mac_text.Text = "" Then
            MsgBox("You didn't enter a MAC Address", MsgBoxStyle.Critical)
            Return False
        End If
 
        Dim ed As String = mac_text.Text.Replace(":", "")
 
        If ed.Length <> 12 Then
            MsgBox("A MAC Address must have a length of 12", MsgBoxStyle.Critical)
            Return False
        End If
 
        Try
            If combo_network.SelectedItem.ToString = "" Then
                MsgBox("No Network Adapter selected", MsgBoxStyle.Critical)
                Return False
            End If
        Catch
            MsgBox("No Network Adapter selected", MsgBoxStyle.Critical)
            Return False
        End Try
 
 
        Dim noerror As Boolean = True
        Dim i As Integer
        For i = 0 To ed.Length - 1
            If IsHex(ed.Substring(i, 1)) = False Then
                MsgBox("MAC Address in wrong format", MsgBoxStyle.Critical)
                Return False
            End If
        Next
 
        Return True
    End Function
 
 
    Private Function IsHex(ByVal l As String) As Boolean
        Dim table As String = "0123456789ABCDEF"
        Dim i As Integer
        For i = 0 To table.Length - 1
            If l = table.Substring(i, 1) Then
                Return True
            End If
        Next
        Return False
    End Function
 
 
    Private Sub bt_defaultmac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_defaultmac.Click
        If IsOkay() = False Then
            Exit Sub
        End If
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim Addr As String = GetRoot(combo_network.SelectedItem.ToString())
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)
 
        Try
            regKey.DeleteValue("NetworkAddress")
        Catch
            'Do NOTHING
        End Try
        ShowRestart()
    End Sub
 
    Private Sub bt_update_Click(sender As Object, e As EventArgs) Handles bt_update.Click
        If IsOkay() = False Then
            Exit Sub
        End If
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim Addr As String = GetRoot(combo_network.SelectedItem.ToString())
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)
 
        regKey.SetValue("NetworkAddress", mac_text.Text.Replace(":", ""))
        ShowRestart()
    End Sub
End Class
 
 

Hola,

Alguien tiene algun tutorial para generar trafico organico hacia mis web, estuve leyendo varios del 2016 y no logro encontrar el sitio flysbird.com

Saludos y gracias cualquier ayuda

Hola,

Lo que quisiera es saber como puedo consultar el tiempo en el que un usuario se logueo y cuando cerro sesion, quiero detectar el tiempo que estuvo en linea en cada momento.

Quizas con PAM ?

Me refiero a conectarse via modem a mi servidor ras con Mgetty en Debian

Necesito ponerle una cuota de tiempo diaria !

Hola,

Veran necesito utilizar la aplicacion TeamViewer que usa el puerto 5938 estoy conectandome con el Putty y haciendo forwading y no se conecta le añadi estas reglas y tampoco me funciona cuando hago un log del IPTABLE me dice CONNECTION FAILED alguien me puede ayudar

*mangle
:PREROUTING ACCEPT [279:24776]
:INPUT ACCEPT [278:24700]"
:FORWARD ACCEPT [0:0]
:OUTPUT ACCEPT [304:165606]
:POSTROUTING ACCEPT [305:165682]
COMMIT

*nat
:PREROUTING ACCEPT [9:508]
:POSTROUTING ACCEPT [8:593]
:OUTPUT ACCEPT [8:593]
COMMIT

*filter
:FORWARD ACCEPT [0:0]
:INPUT ACCEPT [0:0]
:OUTPUT ACCEPT [0:0]

# permitir todas las conexiones locales
-A INPUT -i lo -j ACCEPT
# permitir las conexiones establecidas
-A INPUT -m state --state ESTABLISHED -j ACCEPT

#TeamViewer
-A INPUT -p tcp -m tcp -s 185.188.32.0/24 -d IPSERVERLOCAL --dport 5938 -j ACCEPT
-A INPUT -p tcp -m tcp -s 217.146.26.212 -d IPSERVERLOCAL --dport 5938 -j ACCEPT
-A INPUT -p tcp -m tcp -s 185.188.32.0/24 -d IPDEMIPC --dport 5938 -j ACCEPT
-A INPUT -p tcp -m tcp -s 217.146.26.212 -d IPDEMIPC --dport 5938 -j ACCEPT


# denegar todo lo demás
-A INPUT -j DROP

COMMIT

Esos SOURCE son las ip de

Varios master16.teamviewer.com el numero varia (master13 - master14 - etc)

La otra IP

 ping3.teamviewer.com

Gracias cualquier ayuda..

hola,

He hablado con varios colegas que estan en el mundo del unlocking y me dicen que T-Mobile tiene su servicio para hacer el Unlock detenido los servidores parados u algo asi, alguien sabe que pasa y porque ocurre esto.

Saludos y gracias de antemano !

Hola,

Pueden decirme su experiencia con el sitio tienen buenas ofertas igual si conocen otro sitio y pudieran compartir para comprar gangas se los agradecere...

Encontre esta otra diganme que piensan !!

https://slickdeals.net/deals/phone/

Saludos

Hola,

Este FireWall no me pincha como quiero, veran yo quiero permitir unica y exclusivamente que una aplicación tenga comunicación con el exterior y tengo que el proceso svchost.exe tambien sale por reglas que por defecto este firewall tiene concedidas...

Que Firewall me recomiendan para poder bloquear todos los procesos excepto el que quiero que salga a internet !!

Saludos

Hi gente,

Alguien sabe donde puedo conseguir los soundtracks que usan en los Vines de Youtube !!

Saludos y gracias

Holas,

Quiero poder ver la TV en el PC pero no solo parar ahi, quisiera que mis colegas que estan en la misma RED puedan sintonizarla con algun programa....

Alguien sabe o tiene idea de por donde tengo que ir viendo ??

Saludos

Holas,

Me conecto a un router via wireless con un Nano M2 el mismo lo tengo conectado a un Switch al que varios amigos y yo estamos conectados asi todos podemos acceder a la red, para acceder a internet tenemos que identificarnos en el portal cautivo que el me muestra, la cuestion es que cuando alguien se loguea todos automaticamente tenemos internet.

Si no me equivoco lo que sucede es que tengo configurado el Nano M2 en modo cliente asi que cuando se conecta al router este le entrega una IP y todos salimos a traves de esa IP hacia el router, supongo que tendria que configurarlo modo puente (bridge) para solucionar esto, asi cuando alguien quiera navegar tenga que autentificarse obligatoriamente. Aclarenme esto porfavor !!

Lo otro que quisiera es saber si es posible usar el escenario anterior a mi favor, veran yo quisiera que todos mis amigos se autentificaran pero yo no tener que hacer si es que hay alguien conectado ya, como podria echar andar esto, desde ya muchas gracias cualquier ayuda.