Mensajes

[programación general]

[OFFTOPIC] Movido a programación general, aunque el lenguaje es C# me parece más apropiado esta sección puesto que es Unity3D [/OFFTOPIC]

El tema ha sido movido a Programación General.

http://foro.elhacker.net/index.php?topic=400258.0

sobre lo de la optimizaciónd e código, puedes probar algo así:

Código (dos) [Seleccionar] Expandir

@Echo OFF

Set "ProcessName=mpc-hc64.exe"

:Comprobar
Tasklist /FI "IMAGENAME eq %ProcessName%" | Find /I "%ProcessName%" 1>NUL && (
(
Start /B "" "%UserProfile%\Desktop\clever pause\clever.exe" pause 1>NUL | Taskkill /F /T /IM "TxtTick.exe" 1>NUL
) & GOTO :Esperar
)

:Esperar
(
Tasklist /FI "IMAGENAME eq %ProcessName%" | Find /I "%ProcessName%" 1>NUL || (Goto :Esperar)
) && (
Start /B "" "%UserProfile%\Desktop\clever pause\clever.exe" pause 1>NUL
Goto :Comprobar
)

Pause&Exit

Aunque no lo he testeado, no tengo las herramientas y no se si la ruta del directorio es correcta.





sobre lo de VBS, es muy facil:

Código (vb) [Seleccionar] Expandir

WScript.CreateObject("WScript.Shell").Run """" & "C:\Directorio\Archivo.bat" & """", 0, False
Lo guardas como "Invisible.vbs" y lo ejecutas.


Y esta modificación es para ejecutar un proceso de forma oculta y pasándole argumentos desde la consola.

Código (vb) [Seleccionar] Expandir

' Run Hidden Process
' By Elektro H@cker

Process   = """" & WScript.Arguments(0) & """"
Arguments = null

For X = 1 to WScript.Arguments.Count - 1
  Arguments = Arguments & " " & _
              """" & WScript.Arguments(X) & """"
Next

WScript.CreateObject("WScript.Shell").Run _
Process & " " & Arguments, 0, False

Wscript.Quit

Saludos

[EDITO:]

No puedes minimizar la CMD al system tray...
Si abres la CMD como podrás comprobar no tiene ningun botón para minimizar al área de notificaciones... como mucho puedes instalar/utilizar algún reemplazamiento de terceros de la consola de Windows, con suerte quizás a alguna de esas "Custom CMD" le hayan integrado alguna opción para minimizar al systray... puedes buscar -> aquí

Muestra el código en el que dices que no te funciona el switch "/MIN".

De todas maneras la sintaxis correcta es:

Código (dos) [Seleccionar] Expandir

Start /MIN "" "Script.bat"

EDITO:
Si lo que pretendes es que el mismo script se inicie de forma minimizada cuando haces doble click sobre él, no es posible, la ventana del CMD no se inicia por defecto minimizada... y no existe ningún comando para minimizar la CMD...
Pero puedes disimularlo añadiendo esto a la cabecera del script:

Código (dos) [Seleccionar] Expandir

IF "%~1" EQU "" (Start /MIN "" "%~f0" Elektro & Exit)

O puedes usar VisualBasicScript para iniciar la CMD de manera oculta.

Saludos

En consola:

Código [Seleccionar] Expandir

wmic OS get OSArchitecture

Saludos.

El tema ha sido movido a Programación General.

http://foro.elhacker.net/index.php?topic=400210.0

Quizás no te sirva de mucha ayuda porque no se si quieres codear en Pascal por necesidad o porque lo prefieres así, pero en caso de que sea por necesidad, para el primer problema no necesitas codear en INNO setup puedes utilizar la sección [InstallDelete].

Saludos

como decirle que solo haga una lista de reproducción de, por ejemplo unos 10 archivos, o 5 archivos...  

Código (dos) [Seleccionar] Expandir

@Echo OFF & chcp 1252 >NUL & Setlocal enabledelayedexpansion
REM Title %~n0 & Mode con cols=50 lines=3

Set /A "MAX=5"
Set "TMP_Playlist=%Temp%\Playlist.tmp"
Set "Playlist=%Temp%\Playlist.m3u8"

:List
(
For /F "Tokens=*" %%$ in (
    'Dir /B /S "%~dp0" ^| Findstr /I /R "\.avi$ \.mkv$"'
) DO (
    Echo !Random!!Random!!Random!;%%$
)
)>"%TMP_Playlist%"

:Randomize
(
Echo #EXTm3u8
For /F "Tokens=2* Delims=;" %%$ in (
    'Type "%TMP_Playlist%" ^| Sort '
) DO (
Set /A "Count+=1"
    If !COUNT! LSS %MAX% (
        Echo %%$
    ) ELSE (
        Goto :Run
    )
)
)>"%Playlist%"

:Run
Start /B "" "%PROGRAMFILES(X86)%\Winamp\winamp.exe" "%Playlist%" || (Exit /B 1)

Exit /B 0

Saludos!

[DESCRIPCIÓN:]

DESCRIPCIÓN:

Bueno, esto es una aplicación dedicada que me pidió un cliente pero el coste económico de la misma fue ridículamente barato y además la aplicación es sencilla (no puedo alardear de ser un experto en el lenguaje) así que sin más no me importa compartir el proyecto para todas aquellas personas a quien le pueda servir de utilidad.

La aplicación sirve para prefijar y sufijar texto, especificando unos delimitadores, llámen a esto prefijar, afijar, marcar, concatenar, o como deseen .

En la aplicación se debe cargar un archivo que contiene preguntas con varias respuestas (por poner un ejemplo), luego se carga un archivo adicional con las respuestas que queremos marcar, y por último las marcamos.

La aplicación tiene un menú contextual con opciones los RichTextBoxes y funciones básicas para buscar y resaltar cadenas de texto.

Espero que a alguien poco experimentado con la manipulación de texto le sirva el código, si en un principio la funcionalidad de la aplicación no les sirve siempre pueden adaptarla a sus necesidades.





IMÁGENES:













DEMOSTRACIÓN:


El video hace referencia a una versión beta primeriza:
[youtube=720,480]http://www.youtube.com/watch?feature=player_embedded&v=G2YIMkDkhOQ[/youtube]





DESCARGA:
-> http://elektrostudios.tk/Text%20Affixer.zip
Versión nueva: http://www.mediafire.com/?x78ebamxb6flyfb

Incluye source, compilado, instalador, portable, y portable ofuscado.

[r5]

En lugar de asignar diréctamente interactuando con las propiedades del Textbox, almacena los números en un tipo de colección, un array, o una lista, o una lista ordenada (SortedList), o lo que prefieras, y ordenas los elementos del objeto.

Código (vbnet) [Seleccionar] Expandir

Private NumbersArray() As Int32
Array.Sort(NumbersArray)

Código (vbnet) [Seleccionar] Expandir

Private NumbersList As New List(Of Int32)
NumbersList.Sort()

Código (vbnet) [Seleccionar] Expandir

Private list As New SortedList

PD: La variable r5 no dices de que tipo es, aunque me imagino que es un entero, no somos magos, si especificas con más detalles lo que necesitas recibirás mejor ayuda, tienes alrededor de 30 textboxes y no se si los quieres ordenar para que aparezca cada número (un solo número) en cada textbox o que es lo que quieres hacer, muestra parte del código, detalles, información, imágenes.

EDITO: Eliminar duplicados de una colección también es facil (más usando Linq):

Código (vbnet) [Seleccionar] Expandir

#Region " Remove Array Duplicates "

   ' Remove Array Duplicates
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   '
   ' Dim myarray(3) As String : myarray(0) = "a" : myarray(1) = "a" : myarray(2) = "b" : myarray(3) = "b"
   ' For Each item In Remove_Array_Duplicates(myarray) : MsgBox(item) : Next

   Private Function Remove_Array_Duplicates(ByVal Myarray() As String) As String()
       Return Myarray.Cast(Of String).Distinct().ToArray
   End Function

#End Region

Código (vbnet) [Seleccionar] Expandir

#Region " Remove List Duplicates "

   ' Remove List Duplicates
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   '
   ' Dim list As New List(Of String) From {"a", "a", "b", "b", "c", "c"}
   ' For Each item In Remove_List_Duplicates(list) : MsgBox(item) : Next

   Private Function Remove_List_Duplicates(ByVal list As List(Of String)) As List(Of String)
       Return list.Cast(Of String).Distinct().ToList
   End Function

#End Region

Saludos!