Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - skyweb07

Páginas: [1] 2
1
Visual Basic 6 / Re:Acesso aleatorio de carpeta
« en: Febrero 20, 2011, 10:41:45 am »
Por lo que veo estan intentando entrar a las preferencias de firefox, pues lo que se me ocurre es listar todas las carpetas de

C:\Documents and Settings\Nick\Dados de aplicativos\Mozilla\Firefox\Profiles\  con variable de entorno porque si lo haces asi no va a funcionar en todas las PC's y luego simplemente comprobar si existe el archivo \prefs.js y listo ;)

2
Visual Basic 6 / Re:[Extracto de la lista de contactos del MSN nuevo]
« en: Enero 24, 2011, 04:10:05 pm »
Debe ser que no sabes añadir las referencias del Messenger API Type Library porque a mi me funciona en todas las versiones del messenger despues de la 8.0+

3
Visual Basic 6 / Re:Ordenar Type
« en: Enero 24, 2011, 10:45:44 am »
Pues normalmente lo que haces es recorrer el array y con un algoritmo lo organizas, o sea,

Código: [Seleccionar]
Dim i as integer

For i = 0 to Ubound(P)
   ' loquevayyas a organizar o hacer...
next i
BlackZeroX tiene por ahi unos cuantos codes de organización rapidos ;)

4
Visual Basic 6 / Re:[Extracto de la lista de contactos del MSN nuevo]
« en: Enero 24, 2011, 10:42:23 am »
Añade las referencias del Messenger API Type Library, luego

Código: [Seleccionar]
Public Sub MSN()
 
    Dim pMessenger  As MessengerAPI.Messenger
    Dim pContacts   As IMessengerContact
 
    Set pMessenger = New MessengerAPI.Messenger
 
    For Each pContacts In pMessenger.MyContacts
         debug.print pContacts.SigninName
    Next

End Sub
Si quieres que funcione con todas las versiones del messenger después de la 8.0 tienes que compilarlo con esa version del messenger instalada sino va a usar las referencias de la nueva verisón y no va a funcionar con las antiguas versiones del messenger ;)

5
General / Re:Kestiny - !Descarga y escucha músca gratissss!
« en: Octubre 20, 2010, 03:36:11 am »
Leandro gracias, significa mucho para mi que les guste. En cuanto a lo del progreso tienes toda la razón del mundo, estaba pensando en poner un progreso circular por algún lado y en el evento del mediaplayer que carga el buffer ir actualizandolo o algo, si te das cuenta donde estan las opciones a seleccionar es tu ListBoxEx :D, también quiero hacer que se pueda redimensionar esa parte del listbox junto con el cover para que se pueda adaptar a todas las resoluciones, pero todo poquito a poquito :D. Por otra parte el programita de las pelis yo también que lo deje a medias porque queria apartarme un tiempo de la programación y formatie completamente mi PC por lo que se fue con todo lo demás, pero mis amigos por aqui me estan animando y creó que en navidades me pongo a ello, así que si tienes un tiempito por esas fechas te voy a molestar mucho ;). Bueno saludos a todos.

6
General / Re:Kestiny - !Descarga y escucha músca gratissss!
« en: Octubre 19, 2010, 08:43:34 pm »
Es la versión 2010 del InstallShield, esta bastante bien y en lo personal creó que es uno de los mejores  o el mejor por la cantidad de opciones que tiene ;)

7
General / Re:Kestiny - !Descarga y escucha músca gratissss!
« en: Octubre 19, 2010, 03:20:49 pm »
Gracias bro, la publicidad gratuita nunca hace mal ;)

8
General / Re:Kestiny - !Descarga y escucha músca gratissss!
« en: Octubre 19, 2010, 03:02:15 pm »
Gracias bro, Siiiiiiiii para que después digan que Vb6 esta muerto :D

9
General / Kestiny - !Descarga y escucha músca gratissss!
« en: Octubre 19, 2010, 02:09:21 pm »
    *¿Qué es Kestiny?*

    Es una aplicación la cual facilita las búsquedas y descargas de canciones en internet, utilizando para ello motores de búsqueda alternativos como son goear.com, shoutcast.com, google, etc.

    *¿Qué función realiza?*

    Buscar canciones/álbumes, descargarlos, reproducirlos. También nos da una amplia gama de emisoras de radio online para reproducirlas. Por otra parte nos muestra información de los artistas y canciones más solicitados en algunos países.

    *¿Shortcuts de la aplicación?*
     
    • Ctrl + Espacio → Pausar / Reproducir.
    • Ctrl + Derecha → Siguiente canción.
    • Ctrl + Izquierda → Canción anterior.
    • Ctrl + Arriba → Subir volumen.
    • Ctrl+ Abajo → Disminuir volumen.
    • Ctrl + S → Detener Canción.
    • Ctrl + Q→ Salir de la aplicación

    *¿Tiene incluidas las funciones de Windows 7?*

    Si, la aplicación cuenta con varias funciones de Windows 7 para hacer más amena la interface.

     *Idiomas disponibles*

    • -Español
    • -Inglés
    *Requisitos minimos para ejecutar la aplicación*

    • Sistema operativo Windows 2000, Windows XP, Windows Vista o Windows 7.
    • Memoria RAM de 256 megabytes (MB)  o más.
    • Espacio disponible en disco rígido de 10 megabytes (MB).
    • Requisitos adicionales para usar ciertas funciones:*
    • Acceso a Internet.
    • Para escuchar música y sonidos se necesita una salida de audio.
    *Limitaciones de esta versión*

    No permite crear listas de reproducción de las canciones.

    *Link de descarga*

    http://kestiny.codeplex.com/releases/54221/download/158961

    *Capturas de Pantalla*











    PD: Muchas gracias a Leandro por todos sus controles de usuario y códigos interesantes ;)

    10
    Visual Basic 6 / Re:[Ayuda] Minimizar el parpadeo del Listview
    « en: Mayo 22, 2010, 05:18:09 am »
    Bueno gracias a los dos por responder, al parecer el Listview parpadeaba exageradamente debido a que cada vez que añadia un item yo redibujaba todo el fondo como sale en la imagen, lo que hice para solucionarlo fue darle un color unico de fondo cada vez que añade los items y luego cuando tremine que solo dibuje una sola vez todos los campos, asi y con el metodo de Recursosvisualbasic casi no se nota mucho al no ser que sean más de 800 items que se nota un pquito más... Saludos y gracias a ambos ;)


     
     

    11
    Visual Basic 6 / [Ayuda] Minimizar el parpadeo del Listview
    « en: Mayo 21, 2010, 01:10:08 pm »
    Holas chic@s, pués me he estado volviendo un poquito loco por este problema del parpadeo del listview al añadir muchos items y tener que repintarlos todos.. no hay alguna manera viable de eliminar completamente este parpadeo? Que no sea de la forma que dicen en Recursosviualbasic ? Bueno esa es mi pequeña duda a ver si alguién me puede hechar una manita :D

    12
    Visual Basic 6 / [CHEAT][VB] Aumentar el dinero al Need For Speed Most Wanted
    « en: Abril 28, 2010, 05:48:49 pm »
    Bueno hoy descubri un programa bastante interesante que me llamo mucho la atención llamado Cheat Engine que te permite editar y ver los valores de la memoria de los procesos de los juegos y cosas asi.. asi que me puse a mirarme unos tutos y en realidad es muy fácil de utilizar.. Y ya que estaba jugando al need for speed , para probar lo que habia aprendido me puse a hacer un cheat y me salio este tan bonito... seguramente ya este por la red pero aqui les dejo el mio con código de fuente :D Saludos y espero que se lo miren y si quieren algun juego en especial les puedo explicar como hacerlo .... Bytes()

    Código: (vb) [Seleccionar]
    Option Explicit

    '################################################################################################
    '# Función que se utiliza para aumentar el dinero que tenemos en el Need For Speed Most Wanted  #
    '# Compatibilidad WinXP/Vista/7                                                                 #
    '# Skyweb09 - skyweb09@hotmail.es                                                               #
    '# 28/04/2010                                                                                   #
    '# Créditos : Cheat Engine y un tuto que vi en taringa de como usar el Cheat Engine.            #
    '################################################################################################

    ' Cheat Engine
    ' http://www.taringa.net/posts/ebooks-tutoriales/2658515/Minitutorial-sobre-como-hacer-cheats-para-juegos-%28en-c%29.html

    Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hWnd As Long, ByRef lpdwProcessId As Long) As Long
    Private Declare Function WriteProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
    Private Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long
     
    Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
    Private Const SYNCHRONIZE As Long = &H100000
    Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
     
    Public Function MasDinero(ByVal hNuevaCantidad As Long)
        Dim hWnd        As Long
        Dim hPID        As Long
        Dim hProcess    As Long
        Dim hBuffer     As Long
       
        Const hBase     As Long = &H2DEA6AC ' // Dirección de la memoria donde el NFSMW almacena los datos del $
       
        hWnd = FindWindow("GameFrame", vbNullString) ' // Lo primero que hacemos es obtener el handle de la ventana del NFSMW.
       
        If hWnd <> 0 Then
            GetWindowThreadProcessId hWnd, hPID ' // Luego obtenemos el PID de la ventana.
            hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, hPID) ' // Abrimos el proceso para luego poder modificar algunos valores.
            If hProcess <> 0 Then
                ReadProcessMemory hProcess, ByVal hBase, hBuffer, 4, 0 ' // Leemos la dirección del proceso donde se almacena el dinero.
                MsgBox "Usted tiene " & hBase & "$ en el NFSMW", vbExclamation
                WriteProcessMemory hProcess, ByVal hBase, hNuevaCantidad, 4, 0 ' // Y Ahora simplemente modificamos la cantidad de dinero... Creo que la cantidad máxima es 48146092$
            Else
            MsgBox "No se ha podido abrir el proceso del NFSMW :S", vbExclamation
            End If
            Else
            MsgBox "No se ha encontrado la ventana del Need For Speed abierta :(", vbExclamation
        End If
    End Function

    ' // Edit : Ahora tambien puedes modificar el valor de la bolsa con este otro pedazo...

    Public Function AumentarBolsa(ByVal hNuevaCantidad As Long)
        Dim hWnd        As Long
        Dim hPID        As Long
        Dim hProcess    As Long
        Dim hBuffer     As Long
       
        Const hBase     As Long = &H2C63144     ' // Dirección de la memoria donde el NFSMW almacena los datos de la bolsa
       
        hWnd = FindWindow("GameFrame", vbNullString) ' // Lo primero que hacemos es obtener el handle de la ventana del NFSMW.
       
        If hWnd <> 0 Then
            GetWindowThreadProcessId hWnd, hPID ' // Luego obtenemos el PID de la ventana.
            hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, hPID) ' // Abrimos el proceso para luego poder modificar algunos valores.
            If hProcess <> 0 Then
                ReadProcessMemory hProcess, ByVal hBase, hBuffer, 4, 0 ' // Leemos la dirección del proceso donde se almacena el dinero.
                MsgBox "Usted tiene " & hBase & " de bolsa en el NFSMW", vbExclamation
                WriteProcessMemory hProcess, ByVal hBase, hNuevaCantidad, 4, 0 ' // Y Ahora simplemente modificamos la bolsa.
            Else
            MsgBox "No se ha podido abrir el proceso del NFSMW :S", vbExclamation
            End If
            Else
            MsgBox "No se ha encontrado la ventana del Need For Speed abierta :(", vbExclamation
        End If
    End Function


    PD: Por cierto hasta hace unas horas no tenia ni idea de como hacerlo, lo que me llevo a investigar fue la duda de este post  http://www.leandroascierto.com.ar/foro/index.php?topic=301.0 Saludos :D

    13
    Visual Basic 6 / Re:Read & Write Process Memory Duda con Direccion en memoria
    « en: Abril 28, 2010, 05:46:57 pm »
    Bueno de acuerdo con unas pruebas locales que hice con algunos juegos si que pueden cambiar las direcciones de la memoria... luego me puse a buscar y encontre un programa que se llama Cheat Engine y si verifique se si cambiaban las direcciones. en algunos no cambien pero en otros si.. Ah y lo que puedes hacer con respecto a si cambian solo es cuando cambia el idioma seria leer la parte del idioma y dependiendo del idioma coger la dirección de la memoria que te interesa ;).. eso es más o menos lo que se me ocurre :D

    14
    Visual Basic 6 / Re:JW Player en VB6
    « en: Marzo 31, 2010, 08:25:20 pm »
    Leandro gracias por responder, el error fue mio que cuando descomprimi el archivo del Jw player solo cogi el player.swf y necesitaba los otros archivos para reproducirse por lo que se quedaba cargando y no salia nada...Pues nada gracias por provarlo ;) Saludos !

    15
    Visual Basic 6 / JW Player en VB6
    « en: Marzo 31, 2010, 12:47:08 pm »
    Bueno he estado intentando algunas cosillas para poder hacer utilizar el JW Player con los videos de youtube pero no me funciona, he intentado añadiendo los flashvars al Objecto del Flash pero nada, esto es lo que he provado haber si alguien se da cuenta del fallo :D. Saludos y gracias de antemano :!

    Asi es que se hace en Javascript:

    Código: (javascript) [Seleccionar]

    <script type='text/javascript' src='swfobject.js'></script>

    <script type='text/javascript'>
      var so = new SWFObject('player.swf','mpl','470','320','9');
      so.addParam('allowfullscreen','true');
      so.addParam('allowscriptaccess','always');
      so.addParam('wmode','opaque');
      so.addVariable('file','http://www.youtube.com/watch?v=i1gAeF2MuQs');
      so.addVariable('image','http://www.designerstoolbox.com/images/global_logo.gif');
      so.write('mediaspace');
    </script>


    Y asi lo hago en VB6

    Código: (vb) [Seleccionar]

        Dim vFlashVars As String
       
        vFlashVars = "&file=http://www.youtube.com/watch?v=i1gAeF2MuQs"
       
        With Flash
            .Stop
            .Movie = App.Path & "\player.swf" ' // La ruta del reproductor JW
            .FlashVars = vFlashVars
            .Play
        End With



    También he intentado con la función SetVariable del Flash pero nada ...  :-\

    Páginas: [1] 2