Descargar Videos Ask.fm [ Version 1.2 - Update Setiembre/2014 ]

Luego de un largo periodo, de que ask agregara videos en formato Mp4 a su servidor y modificara su manera de interpretarlos hacia los usuarios, dejo inservible nuestra version anterior, si bien sigue funcionando con los videos anteriores, los nuevos no es posible descargarlos por un "type-mismatch" (entre otros) debido al cambio de path's y de interpretacion del navegador con ask.fm. La version fue actualizada y se mantiene la posibilidad de bajar los videos "antiguos" y los nuevos, siempre y cuando se seleccione la opcion "video nuevo" en la pestaña "Perfil", sino se le indica al programa esta opcion el mismo intentara descargar al estilo antiguo y si es un video nuevo tendran error en la descarga. Las librerias que actualmente se usan son las siguientes, cabe destacar que en esta version se utilizan mas que en la pasada:  

shdocvw.dll 
msinet.ocx 
richtx32.ocx 
tabctl32.ocx 
mscomctl.ocx  

Las mismas tienen que estar correctamente registradas sino no funcionara la aplicacion de un modo adecuado. Fue probado en Windows Xp Sp3 y en Windows 7 32 & 64 bits y no hubo problema ninguno en su funcionamiento. Sino saben como registrar librerias tenemos en el blog una guia que es sobre windows Xp (si la deseean en Windows 7, pueden buscar en la red o solicitar una que la hacemos) Registrar Librerias en TodoWinXP La aplicacion trae una nueva opcion de "vista previa" que esta a modo de prueba, facilitado por el colega Un-NameD de elhacker.net, donde al momento de inyectar el codigo para obtener la descarga, se puede visualizar debajo una imagen del video a descargar

Por aca unas imagenes de la aplicacion:

Esta actualizacion tiene como fin el poder descargar las videorespuestas con pocos clics, estamos abiertos a sugerencias por si acaso, para el colega "Rulo7" la pagina asker.us me da offline y la de askbook la mire y es posible que cuando tenga tiempo realize alguna aplicacion, pero no te prometo nada por la falta de tiempo mas que nada. Les dejo enlaces en distintos servidores, debido a que multiupload ya esta "muerto" colocaremos distintos servidores para que puedan bajarlo, aqui adjunto las descargas:

Descargar desde Media Fire
Descargar desde 4Shared
Descarga desde FireDrive (Ex PutLocker)
Descarga desde Mega  

Cualquier enlace invalido haganmelo saber y a la brevedad lo reparare. 
Los errores por librerias mal registradas no son problemas del programa, son problemas de SU ordenador que no tiene correctamente instaladas las mismas.
Quiero aclarar que para usar/descargar esta aplicacion NO ES OBLIGACION DESACTIVAR EL ANTI VIRUS, no puede detectarles nada porque no tiene codigo malicioso, he visto que en ocaciones la gente mal intenciona el Software y aplica "keygen's" y esas cosas, es totalmente falso, no pide claves de activacion, no tiene expiracion ninguna, es 100 % libre.
Saludos a todos.

Primera letra mayuscula [VB .NET]

El manejo de string's siempre es bueno tener en cuenta la mayor cantidad de posibles formas de manipulacion de los mismos porque reslulta extremadamente útil en todo aspecto. Cuando se recibe una cadena y se quiere que la misma sea reconstruida toda en minuscula o mayuscula(LCase/UCase, por ejemplo) tenemos diversas opciones, pero que sucede si queremos que solo el primer caracter sea mayuscula? El codigo no interpreta numeros al inicio pero si caracteres extraños:

               
For Each Trozo In Split(LCase(Cadena), " ")
     Buff = Buff & UCase(Trozo.Substring(0, 1)) & Mid(Trozo, 2) & " "
Next Trozo
Mensaje = Buff

La variable "Trozo" seria cada palabra, "Cadena" nuestro string completo, que sera separado cada Trozo por un espacio en blanco. Nuestra variable temporal llamada "buff" almacenarala cadena completa ya transformada para luego ser trasladada a la variable principal "Mensaje" Este code transforma nuestro primer caracter en mayuscula:

UCase(Trozo.Substring(0, 1))

El ejemplo es sencillo y se puede adaptar a cualquier funcion, ya sea en modulo o en un formulario. Cabe destacar que la variable "Trozo" (en su defecto) debe ser de tipo String (En Visual 6 deberia ser Variant) para validar el For Each. Espero sea de utilidad. Saludos.

Archivo Existente [Aporte de Ezequiel - Visual Basic 6 -]

Hemos retomado el blog para continuar compartiendo, codigos, informacion,noticias entre otras cosas relacionadas a la programacion, la red y Windows Xp.

Hoy traemos un codigo implementado por un colega de elhacker.net, el cual es sencillo pero util para verificar la existencia de archivos x en un x lugar.

El ejemplo utiliza 4 archivos de texto en la misma ubicacion que su proyecto/ejecutable, 4 labels,  4 timers y 4 botones de comando.

La idea del proyecto es que al presionar en cada boton, ejecute una funcion - o instruccion - que verifique la veracidad de existencia de un archivo (en este caso un txt) y lo muestre en un label a modo de informacion.

Option Explicit
Private Sub Timer1_Timer()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(App.Path & "/" & "documento1.txt") = True Then
   Label1.BackColor = &HFF0000
Else
  Label1.BackColor = &HFF&
End If
End Sub
Private Sub Timer2_Timer()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(App.Path & "/" & "documento2.txt") = True Then
   Label2.BackColor = &HFF0000
Else
   Label2.BackColor = &HFF&
End If
End Sub
Private Sub Timer3_Timer()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(App.Path & "/" & "documento3.txt") = True Then
   Label3.BackColor = &HFF0000
Else
   Label3.BackColor = &HFF&
End If
End Sub
Private Sub Timer4_Timer()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(App.Path & "/" & "documento4.txt") = True Then
   Label4.BackColor = &HFF0000
Else
   Label4.BackColor = &HFF&
End If
End Sub

El codigo es sencillo y se puede aplicar a otras necesidades, gracias por compartirlo.

Saludos!

Modificar Dato en x Linea de Archivo de configuración [Visual Basic 6]

Los datos de configuración de un archivo de sistema para las aplicaciones de índole privadas y configuración interna, suelen ser modificados con frecuencia en la labor de nuestros programas.

El problema es que no siempre se necesitan aplicar cambios en TODOS los elementos del archivo y solo precisamos cambiar 1 o unos pocos, por lo que presentamos una forma simple de recorrer TODO el archivo y modificar los datos que necesitemos:

     
Public Function SvVl_Log(unaRuta As String, rcR As Integer, Valor As Boolean)
    Dim unArray() As String
    ' abrimos el archivo para lectura y cargamos cada linea en la matriz
    Open unaRuta For Input As #1
           unArray = Split(Input(LOF(1), #1), vbNewLine)
    Close #1
    ' el primer elemento en matriz es el 0, no olvidar
    'ya tenemos TODOS los datos en el array
    unArray(6) = "Value_reg = " & Valor 'modificamos solo el valor de la linea 7
    ' volvemos a abrir el txt para escritura (sobreescribe al anterior)
    Open unaRuta For Output As #1
          For rcR = LBound(unArray) To UBound(unArray)
              Print #1, unArray(rcR)
         Next rcR
    Close #1
    End Function

Este código se puede implementar a cualquier versión de .NET fue testeado en 2008, 2010 y 2012 con pocas modificaciones se obtiene el mismo resultado.

Saludos.