Mensajes

Hola, tambien podes mandarsela con api's, porque sendkeys por ahi no funciona...

saludos.

Hola, fijate que esta mal declarada la api....

Hola, busca que postearon el visual basic portable que genera .exe no hace mucho...igualmente yo no lo usaria nunca prefiero mil veces el del CD...porque no te acepta algunas cosas me parece...

saludos.

Hola, mira este codigo yo lo habia realizado cuando tuve que hacer algo parecido...es una funcion que se encarga de calcular el signo...y te ahorras todos esos SELECT CASE que no me gustan cuando son muchos...

Código (vbnet) [Seleccionar] Expandir

Imports system.console

Module module1
    Private Enum MESES
        ENERO = 1
        FEBRERO = 2
        MARZO = 3
        ABRIL = 4
        MAYO = 5
        JUNIO = 6
        JULIO = 7
        AGOSTO = 8
        SEPTIEMBRE = 9
        OCTUBRE = 10
        NOVIEMBRE = 11
        DICIEMBRE = 12
    End Enum

    Const horoaries As String = "hoy tendrás un gran día"
    Const horotauro As String = "hoy tendrás un gran día"
    Const horogeminis As String = "hoy tendrás un gran día"
    Const horocancer As String = "hoy tendrás un gran día"
    Const horoleo As String = "hoy tendrás un gran día"
    Const horovirgo As String = "hoy tendrás un gran día"
    Const horolibra As String = "hoy tendrás un gran día"
    Const horoescorpio As String = "hoy tendrás un gran día"
    Const horosagitario As String = "hoy tendrás un gran día"
    Const horocapricornio As String = "hoy tendrás un gran día"
    Const horoacuario As String = "hoy tendrás un gran día"
    Const horopiscis As String = "hoy tendrás un gran día"

    Sub main()

        Dim dia As Integer
        Dim mes As String
        Dim feberror As Integer = 29
        Dim vMes As MESES

        WriteLine("Por favor, ingrese el dia de nacimiento")
        dia = ReadLine()

        If dia = (dia < 1) Or (dia > 31) Then
            WriteLine("Error, los meses solo contienen dias entre 1 y 31")
            ReadLine()
        Else
            WriteLine("Ahora ingrese el mes de nacimiento")
            mes = ReadLine()

            If mes = ("febrero") And (dia > 29) Then
                WriteLine("Oh, Oh!!!, febrero no tiene " & dia & " días, se le asignará 29 como valor")
                ReadLine()
                dia = 29
            Else
            End If

            mes = UCase(mes)

            Dim a() As String = System.Enum.GetNames(vMes.GetType)
            Dim vIndiceMes As Integer
            For i As Integer = 0 To a.Length - 1
                If mes = a.GetValue(i) Then
                    vIndiceMes = i + 1
                    WriteLine(Zodiaco(vIndiceMes & dia))
                    ReadLine()
                    Exit Sub
                End If
            Next

            WriteLine("Oh, oh!!!, ... Ha ocurrido un error los datos ingresados no son válidos")
            ReadLine()
        End If
    End Sub

    Private Function Zodiaco(ByVal Fecha As Integer) As String
        If Fecha <= 219 And Fecha >= 121 Then
            Zodiaco = "ACURARIO " & horoacuario
        ElseIf Fecha <= 320 And Fecha >= 220 Then
            Zodiaco = "PISCIS " & horopiscis
        ElseIf Fecha <= 420 And Fecha >= 321 Then
            Zodiaco = "ARIES " & horoaries
        ElseIf Fecha <= 521 And Fecha >= 421 Then
            Zodiaco = "TAURO " & horotauro
        ElseIf Fecha <= 621 And Fecha >= 522 Then
            Zodiaco = "GEMINIS " & horogeminis
        ElseIf Fecha <= 722 And Fecha >= 622 Then
            Zodiaco = "CANCER " & horocancer
        ElseIf Fecha <= 822 And Fecha >= 723 Then
            Zodiaco = "LEO " & horoleo
        ElseIf Fecha <= 923 And Fecha >= 823 Then
            Zodiaco = "VIRGO " & horovirgo
        ElseIf Fecha <= 1023 And Fecha >= 924 Then
            Zodiaco = "LIBRA " & horolibra
        ElseIf Fecha <= 1122 And Fecha >= 1024 Then
            Zodiaco = "ESCORPIO " & horoescorpio
        ElseIf Fecha <= 1221 And Fecha >= 1123 Then
            Zodiaco = "SAGITARIO " & horosagitario
        Else
            Zodiaco = "CAPRICORNIO " & horocapricornio
        End If
    End Function
End Module

saludos.

[RegistrerHotKey]

Hola, mejor usa RegistrerHotKey y UnRegistrerHotKey asi no usas Timer...busca que hay en internet...

saludos.

Delete IE History

Delete IE Cache

Get the content of the IE cache

Hola, francamente no entendi, que navegadores? uno que estas haciendo vos o externo? podes dar un ejemplo..

saludos.

[FindFirstUrlCacheEntry, FindNextUrlCacheEntry, DeleteUrlCacheEntry, y FindCloseUrlCache]

Hola, las podes borrar con api's , aca te paso las que se usan..FindFirstUrlCacheEntry, FindNextUrlCacheEntry, DeleteUrlCacheEntry, y FindCloseUrlCache, busca sobre eso que hay en internet...

saludos.

[CSocketMaster]

cuando bajas CSocketMaster te trae un ejemplo de escaner de puertos...

el error es que falta la "s" cuando declaraste  ...

Set rsanalistas = New ADODB.Recordset