Mensajes

[*¿Qué es Kestiny?*]

*¿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*
  
  
  
  
  
  
  
  
  
  
  

Es tan sencillo con entrar en la MSDN y ver lo que hace cada API, ver los parametros lo que le tienes que pasar y listo ^^

Bueno esta vez les traigo una aplicación que probablemente le guste a más de uno, les dejo la descripción y algunos detallitos de la aplicación para que sepan de que va la cosa



Descripción

Mega Jumper es simplemente un programa que se salta la fastidiosa restricción de megavideo de los 72 minutos y te pone el
video como si fueses premium. Lo que te elimina la restricción de los 72 minutos y puedes disfrutar completamente de todo
tipo de video de MV sin tener que estar cambiando IP, reiniciando el router etc...

Requisitos Minimos:

1) Adobe Flash Player instalado.
2) Carpeta [Player] que viene con el programa.
3) Obviamente Internet


Modo de uso:

1) Clic en [Introducir URL]
2) Espere a que se cargue el reproductor.
3) El video aparecera en pantalla sin ningun tipo de restricción.

[No obligatorio]

1) Si desea entrar en modo pantalla completa solo clic en [Pantalla Completa]
2) Si desea copiar el link directo al video para reproducirlo con otro reproductor simplemente clic en [Copiar Link Descarga]

[Obligatorio]

Por favor si quieren que el programa funcione correctamente no borren la carpeta [Player] que es donde esta el reproductor de videos flash.

[Agradecimientos]

Fred.cpp

Saludos a todos [Skyweb07]

Descarga : http://www.skyweb-productions.org/megajumper/Mega%20Jumper.zip

[Hay un error muuuuy grave... Usar InStr()... Si el proceso que quiero matar se llama "plorer.exe" adivinad que pasará con el "explorer.exe" Ademas, si hay mas de un proceso con el mismo nombre solo cerrara el ultimo]

Hay un error muuuuy grave... Usar InStr()... Si el proceso que quiero matar se llama "plorer.exe" adivinad que pasará con el "explorer.exe" Ademas, si hay mas de un proceso con el mismo nombre solo cerrara el ultimo

Como sabeis me gustan las cosas minimalistas, asi que lo he hecho lo mas corto posible (usando WMI)

Código (vb) [Seleccionar] Expandir

Private Sub CloseProcessesByName(ParamArray vNames() As Variant)
   Dim vName           As Variant
   Dim oProc           As Object
   Dim oWMI            As Object
   
   For Each vName In vNames
       For Each oProc In GetObject( _
                           "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
                           "SELECT * FROM Win32_Process WHERE Name = '" & vName & "'")
           Call oProc.Terminate
       Next oProc
   Next vName
End Sub

Ejemplo:

Código (vb) [Seleccionar] Expandir

Call CloseProcessesByName("calc.exe", "notepad.exe", "winmine.exe", "wmplayer.exe")

Saludos

Si es cierto lo del Instr(), eso se podria arreglar cambiando la linea

Código (vb) [Seleccionar] Expandir


If InStr(1, hProcess, LCase$(sProcess(hItem))) > 0 Then ' // Si encuentra el nombre del proceso...


por....

Código (vb) [Seleccionar] Expandir


If Trim$(LCase$(hProcess)) = Trim$(LCase$(sProcess(hItem)))  Then ' // Si el nombre del proceso es igual al que se esta buscando.


Y si hay más de un proceso con el mismo nombre si que lo mataria ya que lista de proceso en proceso y va comparando con la lista , pruevalo y veras  ... Ah estoy contigo en lo de los codes minimalistas pero WMI no me parece la mejor opción debido a que no esta habilitado en todos los PC's .... Saludos 

Bueno aqui mejore un poco la función original por The Swash y le puse algunos detallitos como que pueda matar más de un proceso a la vez y organize un poco el code, saludos

Código [Seleccionar] Expandir



Option Explicit
'----------------------------------------------------------------------------------------
' Module     : TerminateProcessByName
' Purpose    : Finalize a process by name
' Author     : The Swash
' References : API-Guide and MSDN
' DateTime   : 10/04/2010
' Dedicated  : Karcrack, Cobein And Hacker_Zero
' Edited     : Skyweb07 - Add MultiProcess Kill and Comment Code.
'----------------------------------------------------------------------------------------
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

'Constants
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Const PROCESS_ALL_ACCESS = &H1F0FFF
Const STILL_ACTIVE = &H103
Const INVALID_HANDLE_VALUE As Long = -1

'Type PROCESSENTRY32
Private Type PROCESSENTRY32
   dwSize As Long
   cntUsage As Long
   th32ProcessID As Long
   th32DefaultHeapID As Long
   th32ModuleID As Long
   cntThreads As Long
   th32ParentProcessID As Long
   pcPriClassBase As Long
   dwFlags As Long
   szExeFile As String * MAX_PATH
End Type

Public Function TerminaterProcessByNames(ByRef sProcess() As String) As Long
   
   Dim uProcess    As PROCESSENTRY32
   Dim hSnapShot   As Long
   Dim hProcess    As String
   Dim hFirst      As Long
   Dim hNext       As Long
   Dim hItem       As Integer
   Dim hCount      As Long
   Dim hOpen       As Long
   Dim hExit       As Long
   Dim hTerminate  As Long
   
   If UBound(sProcess) > 0 Then ' // Si hay al menos un proceso que matar.
   
   uProcess.dwSize = Len(uProcess) ' // Asignamos el tamaño de la extructura.
   
   hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&) ' // Toma una instantánea del proceso y devuelve el handle del mismo.
   
   If hSnapShot <> INVALID_HANDLE_VALUE Then ' // Si no devuelve error y nos devuelve el handle.
   
   hFirst = Process32First(hSnapShot, uProcess) ' // Enumeramos el primero proceso de la lista.
   
   Do
     
      hProcess = LCase$(Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, Chr$(0)) - 1)) ' // Solo para separar los espacios en blanco que tiene el nombre del proceso y ponerlo todo en modo minuscula.
   
   For hItem = 0 To UBound(sProcess) ' // Cogemos y vamos comparando la lista de procesos con el proceso actual.

       If InStr(1, hProcess, LCase$(sProcess(hItem))) > 0 Then ' // Si encuentra el nombre del proceso...
           
           hOpen = OpenProcess(PROCESS_ALL_ACCESS, 0&, uProcess.th32ProcessID) ' // Abrimos el proceso.
           hExit = GetExitCodeProcess(hOpen, 0&) ' // Recupera el estado de finalización del proceso especificado.
           hTerminate = TerminateProcess(hOpen, hExit) ' // Terminamos el proceso.
           
           If hTerminate <> 0 Then ' // Si nos devuelve un valor desigual a 0 es que lo mato.
               hCount = hCount + 1 ' // Por lo que sumamos uno a la cuenta total de matados.
           End If

       End If
   
   Next hItem ' // Siguiente proceso de la lista.
   
   DoEvents ' // Para que no se cuelgue.
   
   Loop Until Process32Next(hSnapShot, uProcess) = False ' // Un bucle hasta que la función devuelva un valor False.
   
   End If
   
   End If
     
   CloseHandle hSnapShot ' // Cerramos el handle.
   CloseHandle hOpen ' // Cerramos el hanlde.
   
   TerminaterProcessByNames = hCount ' // Asignamos el valor de la cuenta de procesos matados.
   
End Function



El modo de uso es simple , solo tienen que crear un array con el listado de proceos y llamar a la función EJ:

PD: Provado en XP/Vista/7

Código [Seleccionar] Expandir



Dim List(1) As String

List(0) = "notepad.exe"
List(1) = "charmap.exe"

Call TerminaterProcessByNames(List)



En que lenguaje? PHP? javascript???

PHP

haber quizás no me entendiste , lo que quiero hacer es separar de el texto que esta arriba y solo obtener lo que esta dentro de las comillas, en este caso d5deff2d3cd0baa468a74e69b040d74e

Holas, pues tengo una duda que quisiera aclarar, ¿cómo es que hago para por ejemplo separar de la cadena siguiente el texto que esta entre las comillas?

Código (php) [Seleccionar] Expandir

flashvars.un = "d5deff2d3cd0baa468a74e69b040d74e";

Saludos y gracias de antemano

Podrias utilizar un DoEvents cada vez que pasas un registro para que se le quite un poco el colgamiento pero no se me ocurre otra cosa... Al no ser... ¿Usas ADO o MySql?

q chucha es lockerz y que hace el programa???

Un webbrowser quizás?