Mensajes

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

gracias

Sigue dandome el mismo error.

Hola  en esta linea me da el error

Input #1, linea '
"La entrada de datos ha sobrepasado el final del archivo, erro 62.
no lo entiendo...

Lo que quiero es abrir un archivo de texto y en una de las lineas del texto comenzara por "Pass" no se cual es la linea pero tiene que ser la linea que empiece el texto con los mismos caracteres "Pass" lo entendiste ahora.Gracias por tu interes

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

Un receptor digital de television.
seria un archivo con extension .dsp
el que habria que mandar al receptor

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

Gracias saludos.