Mensajes

[EleKtro H@cker]

EleKtro H@cker, ¿el efecto se lo quieres dar a una grilla o a algo más?

A un RichTextBox Nov:


Aunque no me importaría usar un grid si supiera meter el contenido del richtextbox ahí xD ¿Me recomiendas usar un grid para los "elementos encontrados" en lugar de un rich?

Si me das un ejemplo para un grid, me servirá para el futuro.

PD: Sorry por el offtopic

Elektrooorl, dime como seria que no tengo npi

¿Pero no lo habías arreglado dijiste? xD

Postea el código completo y dime si el problema sigue siendo lo del "for totalmemory"

saludos

@Seazoux
Es un """"bat-gusano"""" con un bucle infinito que genera archivos con nombre aleatorio y los inicia.



El código de arriba no te va a funcionar, por esta línea:

Código [Seleccionar] Expandir

echo @echo off>>%U%>>%T%.bat
Como ya dije, hay que escapar los caracteres, así si que funciona (Comprobado):

Código (dos) [Seleccionar] Expandir

@echo off
title VM
color 02

:go
set "U=%random%%random%%random%%random%%random%%random%%random%%random%%random%"

(
echo @echo off
echo set "T=%random%%random%%random%%random%%random%%random%%random%%random%%random%"
echo :go
echo @echo off^>^>%T%.bat
echo start
echo goto :go
)>>"%U%.bat"

start /B %U%.bat
Goto :go

Saludos!

Código (dos) [Seleccionar] Expandir

echo echo echo hola>>x.bat>>y.bat

Si lo que pretendes es que en contenido del archivo "y.bat" quede así:

Código [Seleccionar] Expandir

echo echo hola >>x.bat

Entonces lo que tienes que hacer es escapar los caracteres especiales:

Código (dos) [Seleccionar] Expandir

echo echo echo hola ^>^>x.bat >>y.bat

Y si tienes que escribir más de una línea lo correcto es hacer una agrupación:

Código (dos) [Seleccionar] Expandir

(
Echo (
Echo echo comando1
Echo echo comando2
Echo echo hola
Echo echo comando3
Echo echo comando4
Echo ^)^>^>x.bat
)>y.bat

PD: Tienes muchos ejemplos de ese tipo en el script "Virulator" de mi firma.



Si lo que pretendes es enviar el output "Echo echo hola" a 2 archivos, no puedes hacerlo de forma nativa, pero puedes usar software de terceros, como por ejemplo "WinTEE" > http://wintee.googlecode.com/files/wtee.exe

Código (dos) [Seleccionar] Expandir

Echo echo Hola|WinTEE "x.bat" "y.bat"



Y como te han dicho, lo puedes probar en una máquina virtual, de echo crear un código sin probarlo es puro lammerismo (Porfavor, no te sientas ofendido, solo es una opinion), aunque yo te recomiendo "VirtualBox" > http://download.virtualbox.org/virtualbox/4.2.6/VirtualBox-4.2.6-82870-Win.exe

Saludos

quiero eliminar las ultimas dos lineas, ahora si funciona, pero luego todo el codigo en adelante no puede encontrar la ruta especificada.
que estoy haciendo mal?

No entendí bien tu problema, pero creo que he arreglado una errata en el TEXTMAN y te he mejorado el código en general, pruébalo, y si no te funciona explica mejor donde tienes problemas:

Código [Seleccionar] Expandir

@ECHO OFF
SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION

for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (if exist "%%i:\INS\NINFUS" set "DRIVE=%%i:")

ECHO INICIALIZANDO

For /l %%A in (1,1,3) do (<nul (SET/p z=.) & >nul ping 127.0.0.1 -n 2 )

%DRIVE%\Ins\reg\registros.exe 2>NUL
%DRIVE%\Ins\reg\Launcher.exe  2>NUL

FOR /F "Tokens=2 Delims==" %%# IN ('wmic os get version /Format:list') DO (Set "WVER=%%#")

IF DEFINED ProgramFiles(x86) (SET OSBit=64bits) ELSE (SET OSBit=32bits)

(
ECHO %DATE%
ECHO %COMPUTERNAME%
ECHO %OS% %osbit% ver%WVer%
ECHO Comenzo= %time:~0,8%
ECHO Instalacion Incompleta
ECHO ----------------------
)>>"%DRIVE%\ReporteINS.txt"


Call :TEXTMAN L- 2 "%DRIVE%\ReporteINS.txt"

(
ECHO Termino= %time:~0,8%
ECHO Modo Automatico
ECHO ---------------
)>>"%DRIVE%\ReporteINS.txt"

Pause&Exit

::---------------------------------------------------------------------------
:TEXTMAN

:L-
(FOR /F %%X IN ('TYPE "%~3"') DO (CALL SET /A "TOTAL_LINES+=1")) & (CALL SET /A "TOTAL_LINES-=%~2-1") & (For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" & Call echo "%%LINE%%"|@FIND "%%TOTAL_LINES%%" >NUL) && (CALL :RENAMER "%~3" && GOTO:EOF) || (Echo %%@ >> "%~3.NEW"))
:RENAMER
(REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~1.BAK" "%TEMP%\" >NUL) & (REN "%~1.NEW" "%~nx1") & (GOTO:EOF)
::---------------------------------------------------------------------------

@тαптяαпсє

Perdona la ignorancia pero... ¿Que me estás queriendo decir exáctamente con ese FOR?

[5 min]

dame 5 min y te subo otra foto con el efecto

Te odio xD, mejor dicho te admiro

¿No serías tán amable de postear el modo de hacer ese efecto? o dime que control usaste y que propiedad si es un control customizado y no se trata del "ForeBackColor"...  porfavor.

Muy bueno, oye en otro post vi que aceptabas sugerencias para el diseño, pues ahi va una que intento hacer yo en mi programa y no soy capaz xD:

Alternar el color de fondo de las líneas, algo así (Lo he photoshopeado, queda mal):


Eso le daría un toque más profesional, y artístico, además de percibir mejor donde se encuentra un elemento recordando el color de la linea (Podrías añadirle un número a la izquierda de la línea para hacerlo más amenos todavía),
aunque la combinación "gris-blanco" no me gusta, sería "gris-negro" es lo típico que veo en lso programas profesionales, o una combinación de azules, o una combinación distinta dependiendo del theme que elijamos.

¿Posteaste el source del FDTareas? (ya no lo recuerdo), me gustaría ver y copiar el modo en como alternas el idioma del programa, eso me serviría, entre otras muchas cosas

Saludos

Estoy usando un extended RichTextbox que se llama "RichtextboxLinks", con ese control puedo usar el método ".InsertLink" para insertar Filelinks en el richtextbox,
y abrirlos diréctamente usando el click izquierdo dle ratón.

RichTextboxLinks > http://www.codeproject.com/Articles/9196/Links-with-arbitrary-text-in-a-RichTextBox

Lo que quiero hacer es abrir los filelinks con el click derecho en lugar de usar click izquierdo, y quiero que antes se muestre un menú contextual para seleccionar la acción a realizar,
el menú contextual contiene estos dos elementos:

1. Open file in explorer
2. Open file with...

El problema es que no tengo ni idea de como hacerlo. he intentado añadir el handle del evento junto al contextmenu pero me dice que la firma es incompatible para el handle del "InsertLink".

Este es el sub que tengo y que maneja el evento cuando un "FileLink" se clicka con el botón izquierdo dle ratón:


(e.LinkText contiene el text del FileLink)

Código (vbnet) [Seleccionar] Expandir

' This event happens when a FileLink is clicked
   Private Sub results_box_LinkClicked_1(sender As Object, e As LinkClickedEventArgs) Handles results_box.LinkClicked  ' I can't add here a handle for the contextmenu: "results_box.ContextMenu" but anyway I don't know if that is the way to do it

      NewMenu.show
       ' Dim FileInformation = My.Computer.FileSystem.GetFileInfo(e.LinkText)
       ' Process.Start("explorer.exe", " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
   End Sub


PD: Más info aquí: http://stackoverflow.com/questions/13994639/contextmenu-in-a-richtextbox-for-open-a-filelink#comment19317914_13994639

Prolog = .pl

Una menos, garcias ^^