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 Temas
Páginas: [1] 2 3
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 / 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
5  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
6  Programación / Programación Visual Basic / ayuda codigo MSN en: 29 Noviembre 2006, 19:55
Hola tengo un problemita estoy haciendo una aplicacion para iniciar sesion de mi msn con una aplicacion visual basic.
Tengo este codigo para arrancar con usuario y contraseña alguien puede ayudarme me da un error "No coinciden los tipos" error 13.

Código:

Option Explicit
Public WithEvents MSN As Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger

Public Sub SignIn(ByVal bAuto As Boolean, Optional ByVal sSignInName As String, Optional ByVal sPassword As String)
If bAuto = True Then
MSN.AutoSignin
Else
MSN.SignIn 0, sSignInName, sPassword
End If
End Sub

Private Sub Command1_Click()

SignIn "direccion", "password"  'Aqui me da el error
End Sub




Si alguien puede ayudarme o modificar el error se lo agradecere gracias a todos.
7  Programación / Programación Visual Basic / Ayuda Desbordamiento en: 8 Junio 2006, 23:33

Hola tengo este problema cuando intento pasar de Hex a Dec con una cadena larga me da error Desbordamiento en la variable valor

Código:

 'Declaración de variables locales
    Dim cadena As String 'Almacena el valor del campo
    Dim indice As Integer 'Lo usaremos para recorrer la cadena
    Dim longitud As Integer 'Registra la longitud de la cadena
    Dim caracter As String 'Almacena la letra actual
    Dim valor As Long
    Dim exponente As Integer
   
   

Private Sub Command1_Click()
cadena = Text1.Text
    longitud = Len(cadena)
    valor = 0
    exponente = longitud - 1
   
    For indice = 1 To longitud
    'Vamos a recorrer la cadena e ir transformando cada caracter
        caracter = Mid(cadena, indice, 1)
        'Ya tenemos el caracter, ahora lo que tenemos que hacer es transformarlo
        'y calcular su valor según su posición

        Select Case caracter
            Case "a"
                valor = valor + (10 * (16 ^ exponente))
            Case "A"
                valor = valor + (10 * (16 ^ exponente))
            Case "b"
                valor = valor + (11 * (16 ^ exponente))
            Case "B"
                valor = valor + (11 * (16 ^ exponente))
            Case "c"
                valor = valor + (12 * (16 ^ exponente))
            Case "C"
                valor = valor + (11 * (16 ^ exponente))
            Case "D"
                valor = valor + (11 * (16 ^ exponente))
            Case "d"
                valor = valor + (13 * (16 ^ exponente))
            Case "e"
                valor = valor + (14 * (16 ^ exponente))
            Case "E"
                valor = valor + (11 * (16 ^ exponente))
            Case "f"
                valor = valor + (15 * (16 ^ exponente))
            Case "F"
                valor = valor + (11 * (16 ^ exponente))
        Case Else
        'Código en caso de que no sea letra
           

                valor = valor + Int(caracter) * (16 ^ exponente)


        End Select
       
    exponente = exponente - 1
   
    Next indice 'fin del for indice=1
    Text1.Text = valor
End Sub


Gracias a quien pueda ayudarme
8  Programación / Programación Visual Basic / Texto seleccionado saber el numero de linea que se encuentra en: 30 Abril 2006, 21:09
Hola lo que yo queria es que cuando tengo seleccionado un texto saber en que numero de linea se encuentra en la 3,5,88,9999, la que sea gracias a quien pueda ayudarme
9  Programación / Programación Visual Basic / visualizar una linea de texto en un textbox en: 30 Abril 2006, 00:29
Hola a todos:
Lo que me yeva volbiendo loco es un pequeño problemita
me explico.
Lo que quiero es abrir un archivo y buscar dos lineas de testo que empiezan por "Pass" y que esas dos lineas que empiezan por "Pass" se visualicen una en un textbox y otra en otro textbox.

Gracias de antemano
10  Programación / Programación Visual Basic / enviar archivo por RS232 con visual basic en: 9 Abril 2006, 00:54
Hola alguien sabria algun codigo que mande un archivo a traves de el puerto serie.

Gracias saludos.
Páginas: [1] 2 3
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines