elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Temas
Páginas: 1 2 [3] 4
21  Programación / Programación Visual Basic / Alguna Idea..? en: 3 Agosto 2010, 05:10 am
Holaaa!

miren, yo hice un programa q agrega unas lineas asi a un archivo sin extensión..

LAURA SE TE VE LA TANGA
PAPANICOLAU
CONITO


y ahora necesito ayuda ^^

emm... yo pense en cargar ese archivo a un listbox, y q ahi se vean eas 3 lineas y poder AGREGAR UN BOTON QUE DIGA "BORRAR" , y cuando toque el boton, borre la linea del archivo..

es algo imposible?

alguna orientacion :/ ?
22  Programación / Programación Visual Basic / Esto Influye? en: 3 Agosto 2010, 01:52 am
una pregunta...

estoy tratando de hacer un "replace", en un archivo sin extensión...

osea, (Tipo DE ARCHIVO = ARCHIVO)

pero me falla!

osea, el codigo lo q se supone q hace es :

abre el archivo , busca lo que yo escribo en Text1.Text , y lo reemplaza por un espacio...PERO! ME BORRA TODO! (borra todo el contenido del archivo sin extensión)

hace 2 dias q vengo asi ~.~



Código
  1. Private Sub Command1_Click()
  2.  
  3.  
  4.  
  5. Dim wdir As String
  6. wdir = Environ("WINDIR")
  7. Dim asdf As String
  8. asdf = wdir & "\system32\ARCHIVOSINEXTENSION"
  9.  
  10.  
  11.  
  12. Dim Data As String
  13. Open asdf For Input As #1
  14.   Line Input #1, Data
  15. Close #1
  16. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  17.  
  18.  
  19.  
  20. Open asdf For Output As #1
  21.   Print #1, Data
  22. Close
  23.  
  24.  
  25.  
23  Programación / Programación Visual Basic / Replace que borra todo.. en: 2 Agosto 2010, 20:36 pm
Hola!

sissi, yo de nuevo xd!  ;D


miren este codigo :

Código:
Private Sub Command1_Click()
Dim wdir As String
wdir = Environ("WINDIR")
asdf = wdir & "\system32\LAURASETEVELATANGA.TXT"

MsgBox asdf

Dim Data As String
Open asdf For Input As #1
   Line Input #1, Data
Close #1
Data = Replace(Data, Text1.Text, " ")

Open asdf For Output As #1
   Print #1, Data
Close






End Sub


weno lo q se suppone q hace es :

abrir el archivo
LAURASETEVELATANGA.TXT
, y reemplazar Text1.Text (osea, remplaza la palabra del archivo q este en el text1)

PERO!

para probarlo hice :

en el LAURASETEVELATANGA.TXT escribi esto :

a
b
asdfg

gfs

y en el Text1.Text escribi

a

osea, para q borre la "A"...

PERO ME BORRA TODO :@

alguien sabe porq me borra todo :/ ?
24  Programación / Programación Visual Basic / Error De Compilacion :'( en: 2 Agosto 2010, 19:53 pm
Hoola!

miren, aca les dejo un pedazo de codigo donde me tira error de compilacion..

Código:
Dim WIN As String

WIN = Environ("WINDIR")

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")


el error de compilacion lo tira aca:

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")

alguien me dice q esta mal :/ ?

gracias :)

bye!
25  Programación / Programación Visual Basic / Listar Discos en: 2 Agosto 2010, 05:52 am
Hola!

una pregunta, como creo un menu?

osea,  un menu en el q el tipito q lo use pueda ELEGIR LA PARTICION q tien , osea, para q el prrograma le funcione bien..

como hago :$?
26  Programación / Programación Visual Basic / Reemplazar Texto en: 2 Agosto 2010, 02:18 am
Hola!

miren, necesito q un boton reemplace el texto que ahi adentro de un TXT (C:\EJEMPLO.TXT) se encuentra en el Text1.Text  , por un " " (espacio)

el codigo q uso es este, pero ME BORRA TODO EL TEXTO ¬¬

Código:
Private Sub Command2_Click()
Dim Data As String
Open ("C:\ejemplo.txt") For Input As #1
   Line Input #1, Data
Close #1
Data = Replace(Data, "Text1.Text", " ")
Open ("C:\ejemplo.txt") For Output As #1
   Print #1, Data
Close
End Sub

OSEAAA, nose cmo explicarlo xD!

yo tengo un TXT que dice

HOL


y quiero teemplazar hol por lo que ahi en  Text1.Text

a eso me refiero ^^
27  Programación / Programación Visual Basic / Alguien Sabe Como... U.U! en: 2 Agosto 2010, 00:34 am
Hola!

yo estoy haciendo un programa, q uno escribe algo en text1 ,  y se guarda en C:\ejemplo.TXT

y uso este codigo (ahi una invariable + la variable del text)

Código:
Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub

lo q hace eso, es guardar en C:\ejemplo.txt la invariable + text1(contenido)..

pero!

por ejemplo... agarro y escribo en el text "PRUEBA"

queda asi en el EJEMPLO.TXT:

INVARIABLE PRUEBA

y entonces yo al txt quiero agregar otra linea (invariable otra          , asi quedaria), pero SE REEMPLAZA LO QUE DICE "PRUEBA" Y SE PONE "OTRA"


en definitiva ^^,.. se reemplaza la primera linea, pero lo q yo necesito es q se agrege, no q se reemplace...

como hago :$?
28  Programación / Programación Visual Basic / Algien sabe como... u.u! en: 20 Julio 2010, 04:19 am
Hola!

Voolvii XD!

una pregunta,...

tengo un TEXT y un boton...

como hago para crear un .txt con una linea "obligatoria" y la variable del TEXT ?

osea, asi

***** = linea obligatoria

***** + text = resultado.TXT

mil gracias ;D
29  Foros Generales / Dudas Generales / alguien sabe como....KGB en: 19 Junio 2010, 00:43 am
hola!

tengo el KGB (keylogger) instalado en mi particion y en otra aprticion (las 2 cn win XP  :-*) y la pregunta es...  ::)

como puedo ver el reporte del kgb de la particion 2 estando en la particion 1?????

o no ai una opcion de q el kgb guarde el reporte en algun lado..?

bye!
30  Programación / Programación Visual Basic / Como puedo hacer Que... en: 15 Abril 2010, 02:58 am
bueno, unapregunta :P

como puedo hacer para que un boton llame un archivo (el pibe tiene q escribir el nombre del archivo)(es un  archivo de texto), y q el programa detecte lo " "(espacios)
Y los reemplaze por unas letras que le pongo yo...

y despues quedan 2 cosas:

que el archivo original sea "MODIFICADO" por las letras q el programa agrega,

o lo otro es q se haga un archivo .txt nuevo...(con el texto modficado)

buee jeje hace mucho q no uso visual basic :P

gracias!
Páginas: 1 2 [3] 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines