diff --git a/.hidden/CHANGELOG b/.hidden/CHANGELOG index 49ae06a..b742efc 100644 --- a/.hidden/CHANGELOG +++ b/.hidden/CHANGELOG @@ -1,3 +1,6 @@ +* Sat Jun 15 2024 Luis GuLo 2.2.2 +- Eliminamos cadena app=desktop que incluye Google + * Wed Jun 12 2024 Luis GuLo 2.2.0 - Solucion errores uso llamada a sistema shell diff --git a/.project b/.project index 5eb7060..5dc6ee7 100644 --- a/.project +++ b/.project @@ -2,7 +2,7 @@ Title=SoundClouding Startup=FMain Icon=icono.png -Version=2.2.0 +Version=2.2.2 Component=gb.image Component=gb.gui Component=gb.form @@ -17,7 +17,7 @@ Vendor=LuisGuLo Address=luisgulo@gmail.com Url=https://gitea.soloconlinux.org.es/luisgulo/SoundClouding License=General Public License -PackageName=soundclouding-2.2.0 +PackageName=soundclouding-2.2.2 PackageVersion=2 CreateEachDirectory=1 Packager=1 diff --git a/.src/FMain.class b/.src/FMain.class index 6ab7b31..92e35f1 100644 --- a/.src/FMain.class +++ b/.src/FMain.class @@ -26,6 +26,8 @@ Public Sub Form_Drop() 'Borramos caracteres NULL (\x00) del codigo UNICODE recibido 'cadenaDrag = Replace(Drag.Paste("text/unicode"), "\x00", "") cadenaDrag = Replace(Drag.Paste("text/plain"), "\x00", "") + 'Eliminamos cadena solo para Escritorio + cadenaDrag = Replace(Drag.Paste("text/plain"), "app=desktop&", "") txtURL.Text = cadenaDrag Else Message.Title = ("URL no válida") @@ -40,7 +42,9 @@ Public Sub botonDescargar_Click() ' Desactivamos para evitar pulsar más de una vez a los nerviosos botonDescargar.Enabled = False - If txtURL.Text <> "" + If txtURL.Text <> "" Then + 'Eliminamos cadena solo para Escritorio + txtURL.Text = Replace(txtURL.Text, "app=desktop&", "") ' Mostramos que estamos haciendo algo... 'labelProcesando.Text = ("Chequeando URL y ficheros multimedia...") ' Obtener el nombre de fichero