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

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Mensajes
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11
11  Programación / Programación Visual Basic / [SOLUCIONADO] ¿Qué es VBAdvance? en: 10 Julio 2008, 23:56 pm
Hola,

estaba leyendo algunos hilos como  ESTE y he visto que hablan de algo parecido a un compilador para VB llamado VBAdvance...

He buscado por internet y no he encontrado nada, solo lo que parece ser la web oficial pero no funciona...

alguien me puede explicar que es exactamente?

gracias

salu2  ;)
12  Media / Diseño Gráfico / Re: Programa a caballo entre Picasa y Gimp? en: 6 Julio 2008, 16:02 pm
Citar
***  Es un péntium III…eso lo recuerdo, pero no lo he visto especificado en ningún sitio!   

Placa base   

Tipo de procesador      AMD Athlon, 650 MHz (3.25 x 200)

Tienes un AMD no un Intel... Normal que no venga especificado por ningún lado...  :¬¬

Yo instalaría alguna versión antigua del Photoshop (la 5.5 x ejmplo) a ver si no te va muy lenta...

salu2  ;)



13  Programación / Programación Visual Basic / Re: Error: Type Mismacht en: 30 Junio 2008, 16:32 pm
Comprueba de que tipo es la variable InfoPort.

Código
  1. Dim InforPort as ESTOESELTIPO

salu2  ;)
14  Seguridad Informática / Desafíos - Wargames / Re: Eres un Hacker? PRUEBALO CON ESTE TEST!!!!!! en: 27 Junio 2008, 18:15 pm
Me he quedado en el nivel 7, me imagino q sera algo de sql...  :-\

la primer clave es "----"

Modifica el post, alguna gente quedra hacerlo x si misma

Ahora modifica el tuyo xD

yo tmbn me kede en el 7....
15  Programación / Programación Visual Basic / Re: Protect Apps (Source) en: 28 Mayo 2008, 15:51 pm
¿Cómo creas la segunda ventana esa? Por más que busco no entiendo como lo haces xD... Archivos .res??

Salu2  ;)
16  Programación / Programación Visual Basic / Re: Privilegios en Vista en: 27 Mayo 2008, 15:34 pm
He estado leyendo el link q has proporcionado... pero al final no me ha quedado del todo claro...

Con estos manifest (para windows vista), las versiones anteriores de windows se cuelgan? también valen para obtener esos privilegios en esas otras versiones o solo es aplicable a vista?

salu2  ;)
17  Programación / Programación Visual Basic / Re: Simbolos raros al escribir en un TXT en: 25 Mayo 2008, 19:29 pm
Mira yo probe asi y me funciono, prueba abriendo el archivo con otro modo como OutPut

Al ponerlo sustituir Print por Put ya no me aparecen esos simbolos extraños. Gracias

Citar
Quizás si posteas el code completo tal y como lo tienes, nos des otra perspectiva.
Es todo un jaleo porque de tantas pruebas que he hecho esta ilegible el código. Lo que hace es buscar unas cadenas de texto en un archivo y guardarlas en otro:

Código
  1. Dim hfile%
  2. Dim amis1 As String
  3. hfile = FreeFile
  4. Open App.Path & "\bamigos.htm" For Input As #hfile
  5. amis1 = Input(LOF(hfile), #hfile)
  6. Close hfile
  7.  
  8. posnamigos = InStr(1, amis1, "1-5 de ", vbTextCompare)
  9. namigos = Replace(Replace(Mid(amis1, (posnamigos + 7), 3), ">", ""), " ", "")
  10.  
  11. 'NÚMERO DE AMIGOS EN TOTAL EN namigos
  12.  
  13. Dim npaginas As Integer
  14. npaginas = namigos / 5
  15. Debug.Print npaginas
  16.  
  17. Dim posamigo1 As String, posamigos2 As String, posamigo3 As String, posamigo4 As String, posamigo5 As String
  18. Dim userid1 As String, userid2 As String, userid3 As String, userid4 As String, userid5 As String
  19. Dim nombre1 As String, nombre2 As String, nombre3 As String, nombre4 As String, nombre5 As String
  20.  
  21. posamigo1 = InStr(1, amis1, "user_id", vbTextCompare)
  22. userid1 = Mid(amis1, (posamigo1 + 8), 8)
  23. nombre1 = Replace(Mid(amis1, (posamigo1 + 8 + 8 + 18), 15), ">", "")
  24.  
  25. posamigo2 = InStr((posamigo1 + 8), amis1, "user_id=", vbTextCompare)
  26. posamigo2 = InStr((posamigo2 + 8), amis1, "user_id=", vbTextCompare)
  27. userid2 = Replace(Replace(Mid(amis1, (posamigo2 + 8), 8), ">", ""), " ", "")
  28. nombre2 = Replace(Mid(amis1, (posamigo2 + 8 + 8 + 18), 15), ">", "")
  29.  
  30. posamigo3 = InStr((posamigo2 + 8), amis1, "user_id=", vbTextCompare)
  31. posamigo3 = InStr((posamigo3 + 8), amis1, "user_id=", vbTextCompare)
  32. userid3 = Replace(Replace(Mid(amis1, (posamigo3 + 8), 8), ">", ""), " ", "")
  33. nombre3 = Replace(Mid(amis1, (posamigo3 + 8 + 8 + 18), 15), ">", "")
  34.  
  35. posamigo4 = InStr((posamigo3 + 8), amis1, "user_id=", vbTextCompare)
  36. posamigo4 = InStr((posamigo4 + 8), amis1, "user_id=", vbTextCompare)
  37. userid4 = Replace(Replace(Mid(amis1, (posamigo4 + 8), 8), ">", ""), " ", "")
  38. nombre4 = Replace(Mid(amis1, (posamigo4 + 8 + 8 + 18), 15), ">", "")
  39.  
  40. posamigo5 = InStr((posamigo4 + 8), amis1, "user_id=", vbTextCompare)
  41. posamigo5 = InStr((posamigo5 + 8), amis1, "user_id=", vbTextCompare)
  42. userid5 = Replace(Replace(Mid(amis1, (posamigo5 + 8), 8), ">", ""), " ", "")
  43. nombre5 = Replace(Mid(amis1, (posamigo5 + 8 + 8 + 18), 15), ">", "")
  44.  
  45. Dim archivo3 As Long
  46. archivo3 = FreeFile
  47. Open App.Path & "\amigos.txt" For Binary As #archivo3
  48. Put archivo3, , userid1 & "|" & nombre1
  49. Put archivo3, , vbCrLf
  50. Put archivo3, , userid2 & "|" & nombre2
  51. Put archivo3, , vbCrLf
  52. Put archivo3, , userid3 & "|" & nombre3
  53. Put archivo3, , vbCrLf
  54. Put archivo3, , userid4 & "|" & nombre4
  55. Put archivo3, , vbCrLf
  56. Put archivo3, , userid5 & "|" & nombre5
  57. Put archivo3, , vbCrLf
  58. Close #archivo3
  59.  
  60.  

salu2  ;)
18  Programación / Programación Visual Basic / Re: Simbolos raros al escribir en un TXT en: 25 Mayo 2008, 17:50 pm
Lo de la declaracion de variables ya está arreglado... pero siguen saliendo los malditos cuadrados esos!!
19  Programación / Programación Visual Basic / Re: Simbolos raros al escribir en un TXT en: 25 Mayo 2008, 17:36 pm
Joder que error más tonto... pense que así se declaraban todas como string...  :¬¬

gracias!  ;)
20  Programación / Programación Visual Basic / Re: Simbolos raros al escribir en un TXT en: 25 Mayo 2008, 17:25 pm
He probado con los Trim y también he probado a solo guardar los "nombre*" y sigue ocurriendo lo mismo.

Por si sirve de algo todas las variables son strings:

Código
  1. Dim userid1, userid2, userid3, userid4, userid5 As String
  2. Dim nombre1, nombre2, nombre3, nombre4, nombre5 As String

salu2  ;)
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines