Mensajes

Gracias estoy seguro de que asi se presentara mas gente, y los proyectos seran mejores
Un saludo

Gracias por la extención, estuve complicado estos días y no pude avanzar en el proyecto, se agradece mucho ya que no se cuenta con mucho tiempo ultimamente.

Saludos y suerte para todos!

Se puede si, a través de un For recorre todos los forms y botones de una Web.

Ya sea desde el Webbrowser o de la manera que conectes con ella.

Te recomiendo realizarlo y verificando el valor "Type" (creo que asi es)

Para que te devuelva el Texto o bien el Valor del botón que queres presionar.

Y cuando encuentres el indicado le haces hacer clic pero sin buscar ya que antes realizas un If que si es positivo realiza el clic a dicho objeto.


Saludos.

La tenes guardada como inicio o como primer acceso, borra el cache y cookies a ver si deja de hacerlo.
Cuando accedes ponés la url base (por ej. entrando desde google.com presionando en GMail) y automaticamente te redirecciona a donde decis?

Saludos.

Si que me lie, sorrry

Agradezco la aclaración xD y lamento no haber sido  eficiente.

Saludos 

muy bueno, te felicito  
Funciona de maravilla, al foro le falta un sistema de puntos 

Gracias Syntax por los comentarios 

Si tenes creado un instalador de tu aplicación incluilo, para mayor tranquilidad.

De lo contrario podés distribuir el software con el archivo por las dudas y adjuntarle al usuario un txt indicando como instalarlo en caso de fallo.

Sino sabés como instalarlo yo te puedo decir brevemente aunque en la red encontrás muchos ejemplos con el comando regsvr32.exe en Xp y usando un bat con código similar en Windows 7.

Saludos.

mira funciona super bien en bajar los videos pero en ciertos video salen con rallas y paetes de otro color del video original
sera por los codec de video?
que codec de video usas tu?

Bueenas, la calidad del video es la misma que la que tiene en Ask, usa algún conversor (Total video converter me ha funcionado muy bien) para tratar de obtener una calidad superior pero no creo que tengas muy buenos resultados ya que las videorespuestas estan en flash video (Flv) y no hay manera(creo) de mejorar la calidad.

Saludos.

Si que se ejecuta, no tenés porque tener algún problema, derepente falta el ocx que lo manipula pero nada mas... creo que es comdlg.ocx

Saludos.

[XResh]

@XResh
La verdad es que no quería comentar nada acerca de "Mid" para no molestarte y para no desviar el tema, pero me he fijado en tu insistencia sobre la función Mid y lo cierto es que no me gusta ver que se promueva el uso de Mid cuando estamos en .NET,
Lo digo porque "Mid" al igual que "left" "right" son funciones de VisualBasic 6 (usables en .NET), ...¿pero para que usarlas si tenemos clases y métodos de todo tipo que son obviamente mucho más rápidos y eficaces que los de VB6?

Un saludo!



@Akise
Se puede apreciar cláramente que en tu código quieres definir tus própios caracteres cifrados (O al menos eso ha dado a entender), de ahí mi código algo largo, pero si prefieres algo reálmente corto puedes usar esto:

Código (vbnet) [Seleccionar] Expandir

#Region " Encrypt-Decrypt String "

   ' [ Encrypt-Decrypt String Function ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   '
   ' MsgBox(Encrypt_Decrypt_String("Test")) ' Result: «šŒ‹
   ' MsgBox(Encrypt_Decrypt_String("«šŒ‹")) ' Result: Hello

   Public Function Encrypt_Decrypt_String(ByVal Input As String) As String

       Dim Output As String = String.Empty

       For Each Ch As Char In Input
           Output &= Asc(Ch)
           ' Application.DoEvents()
       Next

       Return Output

   End Function

#End Region

EDITO:
Si prefieres la versión larga donde puedes definir perféctamente los caracteres que tu quieras, aquí tienes:

Código (vbnet) [Seleccionar] Expandir

#Region " Encrypt-Decrypt Text "

   ' [ Encrypt-Decrypt Text Function ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   '
   ' MsgBox(Encrypt_Text("Hello world"))           ' Result: à`336 L6ë3m
   ' MsgBox(Decrypt_Text("à`336 L6ë3m"))           ' Result: Hello world
   ' MsgBox(Encrypt_Text("¡ Hello world !", True)) ' Result: = <ÁÍÍÀ cÀ,Í3 Ï
   ' MsgBox(Decrypt_Text("= <ÁÍÍÀ cÀ,Í3 Ï", True)) ' Result: ¡ Hello world !

   Public Shared Function Encrypt_Text(ByVal str As String, _
                                       Optional ByVal Include_Special_Characters As Boolean = False) As String

       Static Characters As Char()
       Static Replacements As Char()

       If Include_Special_Characters Then
           Characters = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
           Replacements = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
       Else
           Characters = _
           "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
           ' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _

           Replacements = _
           {"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
           '  a,   b,   c,   d,   e,   f,   g,   h,   i,   j,   k,   l,   m,   n,   ñ,   o,   p,   q,   r,   s,   t,   u,   v,   w,   x,   y,   z,   A,   B,   C,   D,   E,   F,   G,   H,   I,   J,   K,   L,   M,   N,   Ñ,   O,   P,   Q,   R,   S,   T,   U,   V,   W,   X,   Y,   Z,   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,   á,   é,   í,   ó,   ú,   Á,   É,   Í,   Ó,   Ú,   à,   è,   ì,   ò,   ù,   À,   È,   Ì,   Ò,   Ù,   ä,   ë,   ï,   ö,   ü,   Ä,   Ë,   Ï,   Ö,   Ü,   ç,   Ç,   º,   ª,   ¡,   ¿,   ·,   ¬,   `,   ´,   ¨,   €
       End If


       Dim Temp_String As String = String.Empty
       Dim Replacement_Found As Boolean = False

       For Each character As Char In str

           For x As Int32 = 0 To Characters.Length - 1

               If character = Characters(x) Then
                   Replacement_Found = True
                   Temp_String &= Replacements(x)
                   Exit For
               End If

           Next

           If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
           Application.DoEvents()

       Next

       Return Temp_String

   End Function

   Public Shared Function Decrypt_Text(ByVal str As String, _
                                       Optional ByVal Include_Special_Characters As Boolean = False) As String

       Static Characters As Char()
       Static Replacements As Char()

       If Include_Special_Characters Then
           Characters = {"h", "ó", "Ó", "3", "Á", "è", "A", "^", "ö", "~", "O", "Í", "€", "q", "ú", "À", "Ç", "È", ",", "ì", "i", "ï", "ò", "c", "0", "ñ", "4", "l", "Ü", "ª", "¬", "S", "&", "?", "<", ":", "T", "*", "e", ".", "R", "É", "D", "7", "9", "Ú", "n", "¿", "L", "m", "¨", "Ë", "]", "Ä", "Q", "w", "V", "'", "G", "K", "é", "v", "ù", "}", "P", "E", "X", "+", "í", "´", "$", "{", "_", "Ñ", "u", "ë", "H", "g", "d", "x", "8", "/", "ä", "#", "|", "-", "1", "M", "Ò", "o", ")", "N", "Y", "á", "Ù", "Ì", "%", "ç", """", "a", "=", "Ï", "z", "Ö", ">", ";", "2", "6", "B", "y", "b", "`", "s", "5", "t", "[", "(", "à", "ü", "!", "¡", "f", "W", "k", "r", "U", "J", "·", "Z", "F", "C", "º", "I", "@", "p", "j"}
           Replacements = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª<>¡!¿?()[]{}/\|·.:;,-+=_~¬^'`´¨*$%&€#@""".ToCharArray
       Else
           Characters = _
           {"u", "Ñ", "T", "m", "`", "P", "Ç", "Z", "h", "x", "á", "3", "¬", "R", "ª", "6", "ò", "N", "ë", "Ì", "g", "ö", "I", "L", "a", "À", "·", "V", "5", "Ë", "Ù", "´", "Ö", "J", "à", "¡", "n", "4", "È", "j", "ç", "b", "c", "y", "E", "ù", "Ó", "f", "º", "Q", "q", "G", "e", "B", "0", "€", "9", "o", "ì", "O", "8", "¿", "r", "v", "ó", "2", "Ï", "1", "¨", "i", "Á", "D", "t", "Í", "k", "Ú", "C", "ñ", "Ä", "S", "A", "é", "7", "Ü", "K", "z", "í", "è", "Y", "ü", "F", "s", "p", "X", "U", "Ò", "l", "É", "ú", "d", "ï", "M", "W", "H", "ä", "w"}
           '  a,   b,   c,   d,   e,   f,   g,   h,   i,   j,   k,   l,   m,   n,   ñ,   o,   p,   q,   r,   s,   t,   u,   v,   w,   x,   y,   z,   A,   B,   C,   D,   E,   F,   G,   H,   I,   J,   K,   L,   M,   N,   Ñ,   O,   P,   Q,   R,   S,   T,   U,   V,   W,   X,   Y,   Z,   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,   á,   é,   í,   ó,   ú,   Á,   É,   Í,   Ó,   Ú,   à,   è,   ì,   ò,   ù,   À,   È,   Ì,   Ò,   Ù,   ä,   ë,   ï,   ö,   ü,   Ä,   Ë,   Ï,   Ö,   Ü,   ç,   Ç,   º,   ª,   ¡,   ¿,   ·,   ¬,   `,   ´,   ¨,   €

           Replacements = _
            "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜçǺª¡¿·¬`´¨€".ToCharArray
           ' Removed chars for better improvement in code encryptation: = & + - ^ " % ' < > ( ) { } . $ [ ] ; @ ! ? ~ : / \ | * # , _
       End If


       Dim Temp_String As String = String.Empty
       Dim Replacement_Found As Boolean = False

       For Each character As Char In str

           For x As Int32 = 0 To Characters.Length - 1

               If character = Characters(x) Then
                   Replacement_Found = True
                   Temp_String &= Replacements(x)
                   Exit For
               End If

           Next

           If Not Replacement_Found Then Temp_String &= character Else Replacement_Found = False
           Application.DoEvents()

       Next

       Return Temp_String

   End Function

#End Region

Saludos!

Estoy de acuerdo en la eficacia, discrepo con tu idea porque es absurdo a mi entender tratar de inventar una escoba nueva cuando tenemos la tradicional que lo hace bien y sin problemas.

Si viene un chino y te dice "esta escoba es la mejol, barre todo sin dejal nada" y es 10 veces mas grande, la vas a usar? no tiene sentido porque no la precisas ya que tenes la comun.

No veo necesidad de 50 lineas de codigo cuando la haces en 3 y no es el primer caso que veo, insisto, estoy de acuerdo con vos en la eficacia.

.NET trabaja diferente, no quiere decir que todos sus metodos sean mejores.

No molestas comentando, esto es un foro y opinamos, tenemos diferentes ideas de eso trata! entre todos ayudamos a los nuevos y usuarios.
Es bueno saber lo que otro programador piensa, y no tenemos porque discutir ni desviar el tema, son comentarios espero no molestarte con los mios!

Tu code es bueno y esta interesante para estudiarlo, pero me parece sumamente innecesario para algo tan simple.

Tan simple como esto:

Código (vbnet) [Seleccionar] Expandir

Dim sCadena As String = "123?%"
For Each cCaracter In sCadena
    MsgBox(Asc(cCaracter))
Next
Luego sumar, almacenar y listo 

Otra variante, no puedo estar mas de acuerdo.

Saludos.

Hay incompatibilidad de tipo de dato, en general pasa cuando hay algo de eso.

La propiedad que cambiaste puede ser alguna relacionada con el filtro (por ejemplo, los caracteres ignorados)

Es algo general pero intentá revertir la propiedad y fijate si funciona que de seguro si.


Saludos.