Mensajes

[SendKeys]

estoy intentando simular un click con el mause pero me manda error

Con una función llamada SendKeys, que cómo su nombre indica se limita a simular las pulsaciónes del teclado, poco vas a conseguir.

Además, la constante que estás utilizando, vbKeyLButton, pertenece a VB6 cómo puedes comprobar aquí: VB6 Key Code Constants - MSDN, no está en la tabla de argumentos aceptados por el método SendKeys de VBS: SendKeys Method - MSDN (aunque por otro lado, lo cierto es que hay más argumentos posibles que los que se mencionan en la referencia).

Lamentablemente no es posible simular un click (izquierdo) del mouse, o al menos yo desconozco esa posibilidad, utilizando un lenguaje limitado como VBS,
de todas formas, lo que puedes hacer es seleccionar el elemento del menú que quieras y simular la tecla "espacio" para activar dicho elemento, esto sería practicamente lo mismo que simular un click izquierdo en él.

Saludos

Si te parece bien ponla en "programación general" (por la audiencia de ese foro) y le pongo chincheta por un tiempo, o en el subforo de .Net, cómo prefieras.



Ahi va una sugerencia que no te comenté:
Bueno, de hecho es parte de la idea en desarrolló que me surgió cuando yo valoré la idea de intentar reinventar la app por mi cuenta con tu permiso (idea que cómo es obvio la descarté y ni la empecé xD y tú estás haciendo tu propia app),
la idea consistiría en mostrar un Form de login al iniciar la app, esto dividiría la aplicación en 2 "secciones" permitiendo el acceso de usuarios "Visitantes", o el acceso de usuarios "Staff", por separado, con funcionalidades compartidas pero distintas para cada tipo de usuario, es decir, por ejemplo, en la sección del Staff, se podría monitorear los foros privados, como el foro de colaboradores y el de mods globales, aunque por otro lado no se si dichos foros son "visibles" en la fuente donde estás obteniendo las urls y el resto de info, pero bueno, se podría pensar en otras funcionalidades para los usuarios de tipo "Staff".

Saludos!

[File Governor]

Si te refieres al hecho de no poder eliminar archivos debido a que están siendo usados/accedidos por otros procesos, entonces puedes recurrir a la utilización de File Governor:
http://www.novirusthanks.org/products/file-governor/

Saludos.

ahá, ¿y que relacion hay entre el patrón que sigue "a", y el que sigue "b"?.

[Songoku]

¿Por que no simplemente recortas la imagen en este caso tres trozos con por ejemplo el irfanview y después usas el mismo irfanview para convertir cada uno de esos trozos en pdf? luego ya solo tendrías que unir los tres pdf con algún programa que lo haga (creo que el adobe acrobat, no confundir con el adobe reader).
Saludos...

Claro Songoku pero eso es la vía "tediosa" y manual, me habría gustado haber podido encontrar alguna simple herramienta que automatice esa tarea para ahorrar tiempo, y de paso, por si acaso en el futuro volviese a necesitar alguna herramienta así para darle un uso muy esporádico cómo este.

Bueno, cómo tampoco me urge mucho esto, que cómo ya dije son solo 2 imágenes, doy el tema por solucionado (aunque de forma insatisfactoria, jeje).

Gracias por comentar,
Saludos!

[EDITO:]

todavía no he logrado hacer lo que en principio quería hacer, que era dividir la colección principal en variables con cuatro números  cada una

¿Cómo que no?:

Código (vbnet) [Seleccionar] Expandir

Dim parts As Integer = 4
Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) =
    From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(mainCol.Count() / parts)))
    Select mainCol.Skip(index * parts).Take(parts)

para yo después con cada variable con los números asignados poder concatenar las que yo quiera entre ellas y mostrar ese resultado en un listbox

Código [Seleccionar] Expandir

dim combination as ienumerable(of integer) = splittedCols(Índice).Concat(splittedCols(Índice))

¿eso?

Saludos



EDITO:
Te pondré el primer problema más fácil con esta función genérica (lee el ejemplo de uso):

Código (vbnet) [Seleccionar] Expandir

   ''' <remarks>
   ''' *****************************************************************
   ''' Snippet Title: Split Collection Into Parts
   ''' Code's Author: Elektro
   ''' Date Modified: 08-March-2015
   ''' Usage Example:
   ''' Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
   ''' Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = SplitColIntoParts(mainCol, amount:=4)
   ''' splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
   '''                                 Debug.WriteLine(String.Join(", ", col))
   '''                             End Sub)
   ''' *****************************************************************
   ''' </remarks>
   ''' <summary>
   ''' Splits an <see cref="IEnumerable(Of T)"/> into the specified amount of parts.
   ''' </summary>
   ''' <typeparam name="T"></typeparam>
   ''' <param name="collection">The collection to split.</param>
   ''' <param name="amount">The parts amount.</param>
   ''' <returns>IEnumerable(Of IEnumerable(Of T)).</returns>
   Public Shared Function SplitColIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                                  ByVal amount As Integer) As IEnumerable(Of IEnumerable(Of T))

       Return From index As Integer
              In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
              Select collection.Skip(index * amount).Take(amount)

   End Function

Si hay alguna lib de creación de PDF para .NET, podrías hacer el programa

Los hay, y de hecho tengo varios componentes, pero no voy a desarrollar una aplicación (y el tiempo que supone) solo para resolver un problema con dos imágenes, literalmente dos .

Gracias de todas formas por comentar,
Saludos!

[mainCol]

Tienes la colección estática y principal, con nombre 'mainCol'.

Código (vbnet) [Seleccionar] Expandir

       ' La colección principal.
       Dim mainCol As IEnumerable(Of Integer) =
           {
               1, 2, 3, 4,
               5, 6, 10, 15,
               20, 22, 24, 25,
               30, 35, 45, 47,
               50, 54, 57, 58,
               60, 67, 68, 69,
               70, 71, 75, 77,
               79, 80
           }

Tienes la colección principal, dividida en una colección que contiene colecciones de 4 elementos (total: 8 sub-colecciones), con nombre 'splittedCols'.

Código (vbnet) [Seleccionar] Expandir

       ' La colección principal, dividida en una colección que contiene colecciones de 4 elementos (total: 8 colecciones).
       Dim parts As Integer = 4
       Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) =
           From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(mainCol.Count() / parts)))
           Select mainCol.Skip(index * parts).Take(parts)

Y ahora, ¿que estás intentando hacer, unirla de nuevo?.

(Esto sería una forma rebuscada y poco optimizada, no se me ocurre nada mejor ahora mismo usando LINQ, pero puedes optimizarlo usando un FOR corriente de toda la vida, no ForEach)

Código (vbnet) [Seleccionar] Expandir

       ' Las 8 colecciones de 4 elementos cada una, unidas en una sola colección:
       Dim joinedCol As IEnumerable(Of Integer) = {}
       splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
                                       joinedCol = joinedCol.Concat(col)
                                   End Sub)

Código (vbnet) [Seleccionar] Expandir

ListBox1.Items.AddRange(joinedCol.Cast(Of Object)().ToArray)

PD: Intenta ser específico.

Saludos!

Buenas

Tengo una imagen jpg a una resolución de 1400x4600, y necesito una aplicación que realice una conversión inteligente a PDF, es decir, que convierta la imagen a PDF con páginas de un tamaño A4 (por ejemplo), partiendo la imagen jpg cuando sea necesario para rellenar las páginas (que serían 3 páginas en total más o menos para dicha imagen).

He probado una infinidad de conversores online y aplicaciones de escritorio, pero todas me añaden la imagen en una sola página, por que escalan la imagen al tamaño de la página (en lugar de tomar el tamaño original de la imagen para hacerle el split y así rellenar las páginas), por lo que queda una imagen muy reducida a la que le tengo que hacer un zoom del +120% para poder visualizar correctamente el texto que hay contenido en la imagen...

¿Alguien sabe de alguna herramienta similar?, no importa si la herramienta es gratis o de pago, pero que no sea un completo set bestial de herramientas como las aplicaciones de Adobe, vaya, busco una aplicación sencilla destinada a cumplir su funcionalidad, no aplicaciones que requieran 1-4 GB de espacio en disco, creo que se entiende...

Gracias por adelantado.

Un saludo!

Busca un poco, tienes la documentación de cada comando en la propia consola de windows...

Que significa %%~n#

Es un modificador especial de variable FOR.

Código [Seleccionar] Expandir

For /?

Ejecuta el comando para cada uno de los archivos especificados en el
conjunto de archivos.

%~nI        - expande %I solo a un nombre de archivo

Como funciona el CALL antes de un echo

Funciona de la misma manera que sin el Call, pero expandiendo las variables.

Call (command)
Run an internal command, first expanding any variables in the argument.

como podría hacer que los subdirectorios no aparezcan, porque al haber una carpeta dentro la lista también.

No entiendo la pregunta, intenta ser más específico.
Si te refieres a que en el script de arriba quieres que no "aparezcan" los subdirectorios solo tienes que eliminar el segundo Echo.

Saludos!