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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: 1 ... 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 [132] 133 134 135 136 137
1311  Programación / Programación Visual Basic / [Juego] Juego muy adictivo que arme, les juro que es divertido. en: 29 Septiembre 2010, 13:50 pm
HOLA!!!

Les dejo este jueguito, esta muy bueno , pero es precario. Igual es muy adictivo.
El que lo gane en imposible sin hacer trampa que avise XD ni yo lo gane ;P.

Descargar URL:
http://www.gigasize.com/get.php?d=29cfyvy3hfd

Mirror:
http://hotfile.com/dl/72555975/0a3baa1/Jueguito_de_clickear_el_Punto_Rojo.rar.html

GRACIAS POR LEER!!!
1312  Programación / Programación Visual Basic / [Mini Aporte] BASICO Codigo para Cambiar Proxies del iexplore en: 29 Septiembre 2010, 13:38 pm
HOLA!!!

Bueno, aca abajo esta como cambiar los proxies del iexplore por el registro.
Solamente tenes que cargar el Vector "Proxy()" y enviar la variable "NumProx" que vendria a ser el numero de proxy en la lista.

Use este codigo en un programa que servia para hacer clicks automaticos en google cada un intervalo aleatorio de segundos para subir el G.Analytics. (o como se escriba).

No es un codigo grande, pero me ayudo en su momento, por ahi les puede servir. Igual, obvio que este post no va dedicado a un nivel alto.

Pero si quieren que corrija algo avisen.


Código
  1. Public NumProx as integer
  2.  
  3. Private Sub Form_Unload(Cancel As Integer)
  4. Dim strProxyServer
  5. ' define el proxy y el puerto si es necesario
  6. strProxyServer = ""
  7. ' ubicacion en la registry
  8. Dim strRegPath
  9. strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
  10. Set oWshShell = CreateObject("WScript.Shell")
  11. ' modifica las entradas en el registro
  12. Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
  13. Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
  14. Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
  15. ' destroy
  16. Set oWshShell = Nothing
  17. End Sub
  18.  
  19. Private Sub PROXYCHANGE()
  20. Dim strProxyServer
  21. ' define el proxy y el puerto si es necesario
  22. strProxyServer = PROXY(numProx)
  23. ' ubicacion en la registry
  24. Dim strRegPath
  25. strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
  26. Set oWshShell = CreateObject("WScript.Shell")
  27. ' modifica las entradas en el registro
  28. Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
  29. Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
  30. Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
  31. ' destroy
  32. Set oWshShell = Nothing
  33. End Sub
  34.  

GRACIAS POR LEER!!!
1313  Programación / Programación Visual Basic / Re: Problemas con delimitador "-" en: 29 Septiembre 2010, 13:19 pm
HOLA!!!


Mmm, creo que seria mejor que lo guardes en vectores y trabajes con split y join.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico6.htm#join-split-filter

GRACIAS POR LEER!!!
1314  Programación / Programación Visual Basic / Re: [Source] Sistema de Archivo y Busqueda Progresiva.(De gestion) en: 28 Septiembre 2010, 20:06 pm
HOLA!!!

Gracias por las sugerencias, el tema de la pantalla de inicio ya esta lo mejore, pero, no se como mejorar el tema de la búsqueda, osea como hacerla mas "precisa".

P.D: Ya lo volvi a subir, los links estan actualizados.

GRACIAS POR LEER!!!
1315  Programación / Programación Visual Basic / Re: [Source] Sistema de Archivo y Busqueda Progresiva.(De gestion) en: 28 Septiembre 2010, 19:13 pm
HOLA!!!

Disculpa, ahi lo subi a otro servidor.
Gracias.

GRACIAS POR LEER!!!
1316  Programación / Programación Visual Basic / [Source] Sistema de Archivo y Busqueda Progresiva.(De gestion) en: 28 Septiembre 2010, 16:17 pm
HOLA!!!

Hola, hoy se me ocurrio publicar un sistema que sirve para un estudio contable o juridico o cualquier otro que maneje muchos papeles y los ordene en cajas o biblioratos.

Este programa lo que hace es simplemente Guardar los datos y luego filtrarlos en tiempo real mientras se escribe en el text box.

Mirenlo, seguramente diran que gasto muchos recursos, y es cierto. Pero bueno, fue uno de los primeros programas que arme.

Procedimientos usados:
Alta
Baja
Modificacion
Busqueda progresiva
Reordenamiento por burbujeo.
Resize
Print

En definitiva es eso. descarguenlo no viene mal.

LINK:

http://www.megaupload.com/?d=0613NCAC

MIRRORS:
http://www.gigasize.com/get.php?d=hlzg40wk95b
http://hotfile.com/dl/72402081/843661d/Sistema_de_Archivo.rar.html

GRACIAS POR LEER!!!
1317  Programación / Programación Visual Basic / Re: [Ejemplo] FECHAS en: 27 Septiembre 2010, 20:46 pm
HOLA!!!

No hay por que estamos aca para ayudarnos.


GRACIAS POR LEER!!!
1318  Programación / Programación Visual Basic / Re: [Ejemplo] FECHAS en: 24 Septiembre 2010, 16:41 pm
HOLA!!!

Segun lo que tengo entendido podes de 2 formas:

Código
  1. Public FECHA_D As Date
  2. Public FECHA_S As String
  3.  
  4. Private Sub Form_Load()
  5. FECHA_D = Date$
  6. FECHA_S = FECHA_D
  7. 'o sino
  8. FECHA_S = Format(FECHA_D, "DD/MM/YYYY")
  9. End Sub


GRACIAS POR LEER!!!
1319  Programación / Programación Visual Basic / Re: Crear varios txt a partir de 1 dependiendo del valor de un dato en el registro en: 23 Septiembre 2010, 15:54 pm
HOLA!!!

Mira, segun lo que lei estan con ancho fijo las columnas entonces, suponiendo que "caracter inicio" es el numero donde se escribe el 10 el 20 el 30 o el 40:



Código
  1. Dim a As String
  2.    Open App.Path & "\base.txt" For Input As #1
  3.    Do Until EOF(1)
  4.    Input #1, a
  5.        If Mid(a, "caracter inicio", 2) = "10" Then
  6.            'GUARDA EN NUEVO10.TXT
  7.        ElseIf Mid(a, "caracter inicio", 2) = "20" Then
  8.            'GUARDA EN NUEVO20.TXT
  9.        ElseIf Mid(a, "caracter inicio", 2) = "30" Then
  10.            'GUARDA EN NUEVO30.TXT
  11.        ElseIf Mid(a, "caracter inicio", 2) = "40" Then
  12.            'GUARDA EN NUEVO40.TXT
  13.        End If
  14.    Loop
  15. Close #1

GRACIAS POR LEER!!!
1320  Programación / Programación Visual Basic / Re: [Ayuda] Webbrowser en: 17 Septiembre 2010, 21:43 pm
HOLA!!!

@BlackZeroX
Disculpa, por no haber explicitado que ya habia utilizado el buscador del foro y por supuesto Dios Google.

Por lo que vi no hay informacion de como Abrir el navegador predeterminado con una web que se tendria que cargar en un webbrowser, y si estoy equivocado, me ayudaria mucho que me des el nombre o algo de los post.

Por poner algunas entradas del foro que revise:
http://foro.elhacker.net/empty-t301573.0.html
http://foro.elhacker.net/empty-t299228.0.html
http://foro.elhacker.net/empty-t304509.0.html
http://foro.elhacker.net/programacion_visual_basic/ayuda_logearse_en_web_con_vb6-t283255.0.html
http://foro.elhacker.net/programacion_visual_basic/ayuda_bot_fotolog-t271776.0.html;msg1333415#msg1333415
http://foro.elhacker.net/programacion_visual_basic/ayuda_bot_fotolog-t271776.0.html;msg1367209#msg1367209

P.d: Buscamos soluciones no Problemas ;D

GRACIAS POR LEER!!!
Páginas: 1 ... 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 [132] 133 134 135 136 137
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines