elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: [1] 2 3 4 5
1  Programación / Programación Visual Basic / seleccionar ip automatica propiedades protocolo conexion red en: 31 Enero 2009, 23:42
Hola,
Me gustaria saber si alguien tiene algo de idea sobre este tema.
Tengo un codigo que que asigna una IP en manual.
Mi pregunta es como volver a poner el "obtener direccion IP automaticamente"
mediante codigo.Este es el codigo:
Código:


strComputer = "."
Set objWMIService = CreateObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(Text1.Text)
strSubnetMask = Array(Text2.Text)
strGateway = Array(Text3.Text)
strGatewaymetric = Array(1)
Started = True
StartMode = "Automatic"
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
MsgBox "¡La IP se ha cambiado correctamente!"
Else
MsgBox "¡La IP no se ha podido cambiar!"
End If
Next


Este codigo pone la ip y mascara en manual, como ponerla en automatico?
Gracias
2  Seguridad Informática / Wireless en Windows / donde se guardan las claves en windows de las redes wifi en: 20 Mayo 2008, 01:04
Hola,
queria saber si alguien sabe recuperar las claves de tus redes asociadas.
Cuando metes una clave ya no tienes que meter la clave otra vez windows la reconoce sola y te conecta alguien sabe donde se guardan,en el registro de windows o donde es para recuperarla y poder formatear el disco duro.
gracias
3  Programación / Programación Visual Basic / leer el contenido de un archivo hasta un caracter concreto en: 29 Febrero 2008, 15:35
Hola a todos haber si me podis ayudar.
Quiero abrir un archivo,pero eso ya se quiero que valla leyendo los datos y cuando encuentre estos caracter "***"lo visualice los datos en un text1 hasta esos caracteres,y siga leyendo apartir de hay hata encontrar otravez "***" y lo visulice en un text2 desde "***" hasta "***".No se si me explique bien,son datos que tengo que separar desde esos caracteres "***" hasta "***" son datos diferentes que tengo que separar del mismo archivo.Gracias a todos...
4  Programación / Programación Visual Basic / Re: remplazar una sola palabra de un texto o archivo en: 13 Agosto 2007, 23:04
ok,gracias
5  Programación / Programación Visual Basic / Re: Programa que captura Prototcolo MSN(solucionado) en: 13 Agosto 2007, 23:03
Hola no funciona el link podrias pasarmelo por el msn
elgransolrac@hotmail.com
6  Programación / Programación Visual Basic / Re: remplazar una sola palabra de un texto o archivo en: 13 Agosto 2007, 22:51
me remplaza todas las cadenas iguales cuando encuentra 5102 me lo remplaza pero yo solo quiero que me remplace ese no todos los 5102 que encuentre quiero que se pare cuando remplace el primero este es mi codigo:
Código:

Private Sub cmdReplace_Click()
If txtReplace.Text = "" Then
 MsgBox "Please enter a replace string.", vbExclamation, "Find and Replace"
ElseIf txtFind = "" Then
 MsgBox "Please enter a search string.", vbExclamation, "Find and Replace"
Else
 rtfText.Text = FastReplace(rtfText.Text, txtFind.Text, txtReplace.Text)
End If
End Sub

Modulo

Public Function FastReplace(SSrch$, SFind$, SRepl$) As String

    Dim Src() As Byte, Dst() As Byte, R() As Byte, F() As Byte
    Dim LenF&, LenR&, LenDst&, i&, j&, OutPos&

    Const ChunkSize& = 4096

    If SSrch = "" Or SFind = "" Then Exit Function

    Src = SSrch: F = SFind: R = SRepl
    LenF = UBound(F): LenR = UBound(R)
    LenDst = ChunkSize: ReDim Dst(0 To LenDst - 1)
 
    For i = 0 To UBound(Src) Step 2

        For j = 0 To LenF Step 2
            If Src(i + j) <> F(j) Then Exit For
        Next j

        If j > LenF Then 'Found

            For j = 0 To LenR Step 2
                If OutPos >= LenDst Then
                    LenDst = LenDst + ChunkSize
                    ReDim Preserve Dst(0 To LenDst)
                End If
                Dst(OutPos) = R(j): OutPos = OutPos + 2
            Next j

            i = i + LenF - 1

        Else

            If OutPos >= LenDst Then
                LenDst = LenDst + ChunkSize
                ReDim Preserve Dst(0 To LenDst)
            End If

            Dst(OutPos) = Src(i): OutPos = OutPos + 2

        End If
    Next i
 
    ReDim Preserve Dst(0 To OutPos - 2): SSrch = Dst
   
    FastReplace = SSrch$
   
End Function


gracias







7  Programación / Programación Visual Basic / remplazar una sola palabra de un texto o archivo en: 13 Agosto 2007, 17:10
Hola a todos:

Tengo una aplicacion que busta una cadena de texto y la remplaza por otra,yo lo que quiero es que en el texto si hay varias cadenas repetidas solo remplace la primera cadena que encuentre.
Espero haberme explicado bien gracias
8  Programación / Programación Visual Basic / leer 5 caracteres de una line de un archivo en: 11 Agosto 2007, 13:17
Hola a todos:
Tengo un pequeño problemita,abro un archivo de texto y lo que quiero esque lea las lines del archivo y la que empiece por estos 5 caracteres "1a1a1" se visualice toda la linea esa que enpieza por 1a1a1 en un text1.text.
Muchas gracias si alguien save como es el codigo se lo agradeceria
Un saludo
9  Programación / Programación Visual Basic / Re: ayuda codigo MSN en: 29 Noviembre 2006, 23:47
Sub Signin(ByVal bAuto As Long, Optional ByVal sSignInName As String, Optional ByVal sPassword As String)

con long tampoco funciona no lo entiendo me estoy bolviendo loco.. ayuda porfavor
10  Programación / Programación Visual Basic / Re: ayuda codigo MSN en: 29 Noviembre 2006, 23:00
Me pueden decir que api me hace falta estoy perdido sigo buscando gracias espero tu ayuda...
Páginas: [1] 2 3 4 5
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines