Mensajes

Kizar, a esto te lo puedo decir por MSN, es facil, si a alguien le interesa tambien se lo puedo decir, aunke no le veo secreto a esto....

Salu2

Muchisimas gracias NYlon!!!!

A ti tambien Cyklow

Salu2

Weno, lo e korregido y me salta error en la misma linea y kon el mismo tipo de error...

Salu2 y zankiu!!!

Weno, le e tenido que agregar algunos kambios y me keda asi:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim re As String
Dim contenido As String
re = "y" & Chr(13) & "a" & Chr(13) & "todas"
Open "C:\file.txt" For Input As #1
While Not EOF(1) = [color=Red]True[/color]
  Line Input #1, contenido
  If UCase(contenido) <> "SOY" [color=Red]Then[/color]
  Open "C:\file2.txt" For Append As #2
      Print #2, contenido
    Close
  Else
    Open "C:\file2.txt" For Append As #2
      Print #2, re
      Print #2, contenido
    Close
  End If
Wend
Close
Kill "C:\file.txt"
Name "C:\file2.txt" As "C:\file.txt"
MsgBox "Listo"
End Sub

Pero ahora me sale error aki:

While Not EOF(1) = True

Me sale sete error: Nombre o numero de archivo incorrecto.

Gracias de todos modos...

Salu2

[yatodas]

Weno, creo que se posible editar archivos en VB, lo que quiero hacer es esto:

supongamos que tengo este archivo: file.txt

Hola
a
todos
soy
Hendrix

Weno, supongamos que tenemos esto, komo konsigo ver si el archivo kontiene la palabra "soy" y si la tiene que modifike el archivo y kede asi:

Hola
a
todos
y
a
todas
soy
Hendrix

(Este archivo tiene las palabras separadas por lienas, asi que se tienen que poner los saltos de liena pertenientes).

Alguien me puede ayudar???

Salu2 y gracias.

Hendrix

jajaja, no seria dificil, pero esto que tiene que ver kon abril negro??? mi payload mostraria un mensage de error el kual diria esto:

XXXX diseñado para el Abril Negro del 2006 de Elhacker.net

y en el titulo diria esto:

The Black April Power xD

es una idea...

Salu2

Weno, de payloads hay de muchas maneras....pero por ejemplo prueba este:

Msgbox "XXXX diseñado para el Abril Negro del 2006 de Elhacker.net",vbCritical,"The Black April Power xD"

jejeje solo son ideas.... en dode dice XXXX pon el tipo dr prograama que estes haciendo (virus, worm, troyano, killer....)

Salu2

Hendrix

[cd "C:\ruta\ruta]

Si tienes muchos archivos puedes hacer un bukle, por ejemplo puedes hacer esto:

@echo off
set /a op=0
:tutu
set /a op=%op%+1
ren %op% archivo.rar %op%_archivo.rar
if %op%==20 (goto turet)
goto tutu
:turet
exit

En este kaso se crearia un bukle que renombraria todos los archivos desde el 0 hasta el 20, lo puedes modifikar a tu gusto...

PD: recuerda poner la ruta!!!! kedaria asi:

@echo off
cd "C:\ruta\ruta
set /a op=0
:tutu
set /a op=%op%+1
ren %op% archivo.rar %op%_archivo.rar
if %op%==20 (goto turet)
goto tutu
:turet
exit

Salu2

Hendrix

ren 01 aventuras.rar 01_aventuras.rar

Ten en kuenta que tienes que estar en la ruta adekuada, es decir, si estos archivos estan en C:\Windows pones esto:

cd "C:\Windows"
ren 01 aventuras.rar 01_aventuras.rar

Y asi ya vale...

Salu2

mmmm si, yo soy moderador en este foro, pero a que viene esta pregunta????

Kual es tu nik en ese foro????

Salu2

Hendrix