Temas

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 [Seleccionar] Expandir




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

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

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...

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

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

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 [Seleccionar] Expandir



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.

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 [Seleccionar] Expandir



'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

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

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

Hola alguien sabria algun codigo que mande un archivo a traves de el puerto serie.

Gracias saludos.

Hola alguien save algun codigo para copiar el numero de veces un archivo que quieras.Gracias yo se hacerlo que lo copie en un lugar pero solo una vez me falta que sea las veces que quiera sin que lo machaque encima gracias de nuevo si alguien puede ayudarme supongo que sera un codigo pequeño.

Hola veran tengo una aplicacion con un Text1 ,Text2 y un command1.Y lo que quiero es que cuando haga click en el command se visualice en el text1 la ultima linea del archivo y en el Text2 la pelultima linea la siguiente.
Tengo este codigo pero lee la primera linea de codigo si algien puede ayudarme gracias.

codigo:

Código [Seleccionar] Expandir



Private Sub Command1_Click()

Dim nombreleido
fn = FreeFile
Open "D:\pepe.txt" For Input As #fn
Line Input #fn, nombreleido
Text1.text = nombreleido

Close #fn




Hola a todos:
Mi problema es que tengo un codigo que asocia un fichero con una extension por ejemplo .BAR a una aplicacion concreta.
Cuando pinchas en el fichero con la extension .BAR llama a mi aplicacion y yo lo que quisiera esque mi aplicacion tiene un textbox y se visualizaran los datos en el textobox automaticamente.
Si es posible agradecceria ayuda esto loco buscando por hay Gracias...

Código [Seleccionar] Expandir



Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal _
lpData As String, ByVal cbData As Long) As Long

Const ERROR_SUCCESS = 0&
Const ERROR_BADDB = 1&
Const ERROR_BADKEY = 2&
Const ERROR_CANTOPEN = 3&
Const ERROR_CANTREAD = 4&
Const ERROR_CANTWRITE = 5&
Const ERROR_OUTOFMEMORY = 6&
Const ERROR_INVALID_PARAMETER = 7&
Const ERROR_ACCESS_DENIED = 8&
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 260&
Private Const REG_SZ = 1



Private Sub Command1_Click()
Dim sKeyName As String
Dim sKeyValue As String
Dim ret&
Dim lphKey&

'Crea una entrada llamada `MyApp`.
    sKeyName = "MyApp"
    sKeyValue = "My Application"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Asocia la extensión .BAR a "MyApp".
    sKeyName = ".BAR"
    sKeyValue = "MyApp"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Establece la ruta de `MyApp`.
    sKeyName = "MyApp"
    sKeyValue = "c:\my.exe %1"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)


End Sub


Hola:
Estoy haciendo un brograma para abrir archivos de cualquier extension,pero solo puedo abrir archivos de poco tamaño ¿Alguien sabe como abrir un archivo de 400 o 500 mb sin desbordarse? Gracias quien pueda ayudarme o tenga algo de informacion se lo agradeceria..Gracias a todos..

Este es mi codigo,utilizo un Richtextbox y un commonDialogo.

Código [Seleccionar] Expandir



Private Sub Command1_Click()
Dim datos As String * 5000

CdlBuscar.InitDir = App.Path
CdlBuscar.Filter = "Archivos" & "(*.*)|*.*|"
    CdlBuscar.ShowOpen
    If Not CdlBuscar.FileName = "" Then
        panel.FileName = CdlBuscar.FileName
    End If
   
   
   
   
End Sub


Gracias a todos...

Hola a todos:
Mi calientamiento de cabeza es el siguiente:

Tengo una aplicacion que se conecta a una base de datos acces 97 y los datos se visualizan en un MSFlexGrid,lo que necesito es que en el encabezado cuando pinche con el raton se ordenen de mayor a menor o viceversa o por orden alfavetico ya que los datos son numeros de telefono, fechas ,nombres y pesos.

Espero haberme explicado bien.

Muchas gracias a todos y un saludo.....Elgransolrac.

Lo que quiero es guardar en un txt unos datos.Tengo un formulario con un TextBox y un Command y este code:

Código [Seleccionar] Expandir



Private Sub Command1_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1
Close #canalLibre
End Sub


Lo que quiero es que cuando introduzca otros datos y aprete el Command no borre los datos que hay en el fichero.txt los guarde en otra Linea y asi continuamente.Muchas gracias al que pueda Ayudarme..

Lo que quiero es hacer un Edit server,como en los troyanos que seleccionas unas opciones y te crea el exe personalizado . Alguien tiene alguna idea para hacer esto o un ejemplo.Gracias

Bueno Hola a todos:

Tengo un codigo que me baje de un cliente/servidor para transferir archivos.El servidor manda al cliente un archivo y cuando lo manda al cliente en el servidor se visualiza un
ProgressBar del transcurso de la transferencia. Yo lo que queria es si se puede visualizar el ProgressBar en el cliente.
Gracias

Servidor:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Common.DialogTitle = "Buscar archivo..."
    Common.FileName = ""
    Common.Filter = "Todos los archivos|*.*"
    Common.ShowOpen
    If Common.FileName <> "" Then
        Label2.Caption = Common.FileName
        Open Label2.Caption For Binary As #1
           TCP.SendData "EMA" & Common.FileTitle & "LAR" & LOF(1) 'envio nombre y largo de archivo
        Close #1
    End If
On Error GoTo ema
    Dim Buf As String * 1024
    Dim Todo As String
   
    Open Label2.Caption For Binary As #1
        Barra.Min = 0
        Barra.Max = LOF(1)
        Do While Not EOF(1)
            DoEvents
            Get #1, , Buf
            Todo = Todo & Buf
            If Len(Todo) <= Barra.Max Then Barra.Value = Len(Todo)
        Loop
    Close
   
    TCP.SendData Todo
   
    Exit Sub
ema:
    MsgBox Err.Description
End Sub

Private Sub TCP_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    Barra.Min = 0
    Barra.Max = bytesSent + bytesRemaining
    Barra.Value = bytesSent
End Sub



Cliente:

Código [Seleccionar] Expandir



Private Sub TCP_DataArrival(ByVal bytesTotal As Long)
    Dim Texto As String
   
    TCP.GetData Texto
   
    If Mid(Texto, 1, 3) = "EMA" Then
        cargo_Datos Texto
        Exit Sub
    End If
   
    If Mid(Texto, 1, 3) = "LAR" Then
        Frame1.Caption = "Archivo : " & Mid(Texto, 4, Len(Texto) - 3) & " bytes."
        Largo = CLng(Mid(Texto, 4, Len(Texto) - 3))
        Exit Sub
    End If
   
    Archivo = Archivo & Texto
   
    If Len(Archivo) >= Largo Then
        Common.DialogTitle = "Guardar archivo..."
        Common.FileName = Label1.Caption
        Common.ShowSave
        Open Common.FileName For Binary As #1
       
            Put #1, , Archivo
            Largo = 0
            Archivo = ""
        Close #1
    End If
End Sub

Sub cargo_Datos(Txt As String)
    Dim i As Long
    Dim Nom As String
    Txt = Mid(Txt, 4, Len(Txt) - 3)
    For i = 1 To Len(Txt)
        If Mid(Txt, i, 3) = "LAR" Then
            Nom = Left(Txt, i - 1)
            Largo = CLng(Mid(Txt, i + 3, Len(Txt) - i))
            Label1.Caption = Nom
            Frame1.Caption = "Archivo : " & Largo & " bytes..."
        End If
    Next i
End Sub



Como puedo al apretar un Command, eliminar los 3 primeros caracteres me explico.
En un TextBox tengo escrito Fernando y me gustaria apretar un boton y que los 3 primeros caracteres se eliminen, quedando el nombre a si: "nando".Gracias al que pueda facilitarme algun codigo Gracias..

Necesito saber como visualizar un Archivo TXT en un listbox en codigo Visual Basic 6.
cuando se visualice el TXT en el Listbox cuando aprete a un Command1,comprueve automatico los nombres que aparecen en el Listbox con el nombre que hay en un  TextBox.
Gracias a todo el que pueda solucionarme este problemilla Gracias a todos....

Como puedo minimizar un formulario mediante codigo.
Alguien sabe algun codigo,GRACIAS

Ola chicos haber si alguien puede ayudarme.Netesito seleccionar un Directorio y que se visualice en un listBox.
Como cuando seleccionas un archivo con el CommonDialog1,
pero un directori y todos los archivos de ese directorio visualizarlos en un ListBox en Visual Basic 6.GRACIAS DE ANTEMANO.....Saludos a Todos...........

Lo que quiero es que cuando pinche en un archivo.txt o un programa.exe .....No se pueda ejecutar este bloqueado por una aplicacion visual basic.Gracias

Alguien sabe como conectar una base de datos access97 con DAO y visualizar los datos en un dbgrid.Visual Basic 6. GRACIAS

Alguien sabria decirme Como puedo bajar un Archivo de una Pagina web con el winsock o llamando a una Api's.porfavor si alguien puede ayudarme GRACIAS...