quitamos cadena innecesaria de youtube en url descarga

.hidden/CHANGELOG

@@ -1,3 +1,6 @@
+* Sat Jun 15 2024 Luis GuLo <luisgulo@gmail.com> 2.2.2
+- Eliminamos cadena app=desktop que incluye Google
+
 * Wed Jun 12 2024 Luis GuLo <luisgulo@gmail.com> 2.2.0
 - Solucion errores uso llamada a sistema shell
 

.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

.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