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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19 20 21 22 23
131  Programación / Programación Visual Basic / Re: Alguna Idea..? en: 4 Agosto 2010, 02:59 am
http://www.youtube.com/
132  Programación / Programación Visual Basic / Re: Declaracion Bind en: 4 Agosto 2010, 02:55 am
Cita de: Drinky94 en  3 Agosto 2010, 21:14 pm
no sale en la api guide  :-\ de todas maneras ya encontre la declaracion
:

Código
  1. Private Declare Function bind Lib "wsock32.dll" (ByVal s As Long, addr As SOCKADDR, _
  2. ByVal namelen As Long) As Long

salu2! y gracias.



http://foro.elhacker.net/programacion_visual_basic/api_de_winsock_para_vb_completa-t62753.0.html
133  Programación / Programación Visual Basic / Re: Alguna Idea..? en: 3 Agosto 2010, 21:47 pm
Cita de: petro_boca en  3 Agosto 2010, 21:38 pm
ya hice el codigo para cargar|guardar datos del C:\A.txt a un listbox... ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D

ahora estoy tratando de eliminar items del listbox, pero no tengo idea xD :¬¬

lei varios codes, pero O.O  :o :o :o


ahora voi a probar con este:

Código
  1. Option Explicit
  2.  
  3.  
  4. ' Nota: Establecer la propiedad "Style" del listbox en Checked
  5. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  6.  
  7. Private Sub Eliminar_ListBox_Check(ListBox As ListBox)
  8.  
  9.     Dim i As Integer
  10.     With ListBox
  11.         'Recorremos toda la lista
  12.         For i = 0 To ListBox.ListCount - 1
  13.  
  14.             'Si i es igual a la cantidad salimos del For
  15.             If i = .ListCount Or .ListCount = 0 Then Exit For
  16.             Debug.Print .List(i)
  17.             ' Verificar el item si está marcado
  18.             If ListBox.Selected(i) = True Then
  19.                 ' .. Lo eliminamos
  20.                 .RemoveItem (i)
  21.                 ' Restamos uno a i para verificar el siguiente
  22.                 If .ListCount > 0 Then i = i - 1
  23.             End If
  24.         Next
  25.     End With
  26.  
  27. End Sub
  28.  
  29. Private Sub Command1_Click()
  30.     Call Eliminar_ListBox_Check(List1)
  31. End Sub
  32.  
  33. Private Sub Form_Load()
  34.  
  35.     Dim i As Integer
  36.  
  37.     With List1
  38.  
  39.         For i = 0 To 9
  40.             .AddItem "Item " & i
  41.         Next
  42.     End With
  43.  
  44.     Command1.Caption = " Eliminar Items del listbox "
  45.  
  46. End Sub
  47.  

jjujujuj fuincionaaaaaaaa
134  Programación / Programación Visual Basic / Re: Alguna Idea..? en: 3 Agosto 2010, 21:38 pm
ya hice el codigo para cargar|guardar datos del C:\A.txt a un listbox... ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D

ahora estoy tratando de eliminar items del listbox, pero no tengo idea xD :¬¬

lei varios codes, pero O.O  :o :o :o


ahora voi a probar con este:

Código
  1. Option Explicit
  2.  
  3.  
  4. ' Nota: Establecer la propiedad "Style" del listbox en Checked
  5. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  6.  
  7. Private Sub Eliminar_ListBox_Check(ListBox As ListBox)
  8.  
  9.     Dim i As Integer
  10.     With ListBox
  11.         'Recorremos toda la lista
  12.         For i = 0 To ListBox.ListCount - 1
  13.  
  14.             'Si i es igual a la cantidad salimos del For
  15.             If i = .ListCount Or .ListCount = 0 Then Exit For
  16.             Debug.Print .List(i)
  17.             ' Verificar el item si está marcado
  18.             If ListBox.Selected(i) = True Then
  19.                 ' .. Lo eliminamos
  20.                 .RemoveItem (i)
  21.                 ' Restamos uno a i para verificar el siguiente
  22.                 If .ListCount > 0 Then i = i - 1
  23.             End If
  24.         Next
  25.     End With
  26.  
  27. End Sub
  28.  
  29. Private Sub Command1_Click()
  30.     Call Eliminar_ListBox_Check(List1)
  31. End Sub
  32.  
  33. Private Sub Form_Load()
  34.  
  35.     Dim i As Integer
  36.  
  37.     With List1
  38.  
  39.         For i = 0 To 9
  40.             .AddItem "Item " & i
  41.         Next
  42.     End With
  43.  
  44.     Command1.Caption = " Eliminar Items del listbox "
  45.  
  46. End Sub
  47.  
135  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 :/ ?
136  Programación / Programación Visual Basic / Re: Esto Influye? en: 3 Agosto 2010, 03:45 am
Cita de: Drinky94 en  3 Agosto 2010, 03:30 am
y dale.... ¬¬ mejor si te cojer un manual desde 0 con vb y luego empiezas con esto.. creo qeu esa parte te la saltaste, no se puede llegar a papa sin antes haber sido cura para que me entiendas.

salu2!

okii

tenes algun link x ahi?

yase q vas a decirq busque en google (creeme q lo hice xD), pero ahi mil y entiendo uno menos q otro xD

otra cosa...

alguien me dice la diferencia entre VB6, y .NET ?
137  Programación / Programación Visual Basic / Re: Esto Influye? en: 3 Agosto 2010, 02:44 am
Ultima pregunta y no me ven por un ratoo ^^!

como hago para q reemplace LA PALABRA ENTERA

osea, en un TXT tengo :

hola.net
hola.com


si en el Text1.Text escribo :

hola.net

en el txt solo va a quedar

.com

pero yo necesito :

hola.com

(queda asi porq porq borra todas las h,o,l,a,.,n,e,t)
138  Programación / Programación Visual Basic / Re: Esto Influye? en: 3 Agosto 2010, 02:33 am
Cita de: BlackZeroX en  3 Agosto 2010, 02:21 am
haber mas facil aqui tienes, ya NO CREES tantos temas asi, das dolor de cabeza!

Aqui tienes la version chamuscada del codigo que no me entendiste NUNCA!.

Código
  1.  
  2. Dim wdir As String
  3. wdir = Environ("WINDIR")
  4. Dim asdf As String
  5. asdf = wdir & "\system32\ARCHIVOSINEXTENSION"
  6.  
  7.  
  8.  
  9. Dim Data As String
  10.  
  11.  
  12. Open asdf For binary As 1
  13.     data = space(lof(1))
  14.     get 1,, data
  15. Close 1
  16. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  17. kill asdf
  18. Open asdf For binary As 1
  19.     put 1,, data
  20. Close 1
  21.  
  22.  

aqui tienes un manual

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#append-input-output

Dulces Lunas!¿.


jijjiji muchas gracias

ahora lo pruebo..

pero para q es este :

Kill asdf


?
139  Programación / Programación Visual Basic / Re: Esto Influye? en: 3 Agosto 2010, 02:19 am
Cita de: BlackZeroX en  3 Agosto 2010, 02:00 am
enserio tienes que crear tanto temas para esto?

P.D.: Yo ya te hubioera borrado los temas...

Edito por aaa:

http://foro.elhacker.net/programacion_visual_basic/reemplazar_texto-t301192.0.html;msg1493688#msg1493688

aaaa... mira hasta escribo mal!¿.

Edito al MP:

el problema no es replace, son estas partes.

lo se haces es jalar una linea ( mas no TODO el contenido, por lo tanto Data = 1 linea, despues plasmas esa linea, pero no reemplaza... ya se entendio? )

Código
  1.  
  2. Open ("C:\ejemplo.txt") For Input As #1
  3.  
  4. Open ("C:\ejemplo.txt") For Output As #1
  5.  
  6.  

Nota: Estudia las aperturas y cierres de un arhcivo, y las funciones que conlleva el mismo!.

Dulces Lunas!¿.

no te enojes, pero no entendi O.O

envez de poner

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.  

pongo

Código
  1.  
  2. Private Sub Command1_Click()
  3.  
  4.  
  5.  
  6. Dim Data As String
  7. Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Input As #1
  8.    Line Input #1, Data
  9. Close #1
  10. Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
  11.  
  12.  
  13.  
  14. Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Output As #1
  15.    Print #1, Data
  16. Close
  17.  
  18.  

asi, o no entendi nada O.O?
140  Programación / Programación Visual Basic / Re: Esto Influye? en: 3 Agosto 2010, 02:07 am
Cita de: BlackZeroX en  3 Agosto 2010, 02:00 am
enserio tienes que crear tanto temas para esto?

P.D.: Yo ya te hubioera borrado los temas...

http://foro.elhacker.net/programacion_visual_basic/reemplazar_texto-t301192.0.html;msg1493688#msg1493688

aaaa... mira hasta escribo mal!¿.

Dulces Lunas!¿.

peero no entiendo esooo!
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19 20 21 22 23
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines