Mensajes

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!!!

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 (vb) [Seleccionar] Expandir


Public NumProx as integer

Private Sub Form_Unload(Cancel As Integer)
Dim strProxyServer
' define el proxy y el puerto si es necesario
strProxyServer = ""
' ubicacion en la registry
Dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
' destroy
Set oWshShell = Nothing
End Sub

Private Sub PROXYCHANGE()
Dim strProxyServer
' define el proxy y el puerto si es necesario
strProxyServer = PROXY(numProx)
' ubicacion en la registry
Dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
' destroy
Set oWshShell = Nothing
End Sub


GRACIAS POR LEER!!!

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!!!

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!!!

HOLA!!!

Disculpa, ahi lo subi a otro servidor.
Gracias.

GRACIAS POR LEER!!!

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!!!

HOLA!!!

No hay por que estamos aca para ayudarnos.


GRACIAS POR LEER!!!

HOLA!!!

Segun lo que tengo entendido podes de 2 formas:

Código (vb) [Seleccionar] Expandir

Public FECHA_D As Date
Public FECHA_S As String

Private Sub Form_Load()
FECHA_D = Date$
FECHA_S = FECHA_D
'o sino
FECHA_S = Format(FECHA_D, "DD/MM/YYYY")
End Sub


GRACIAS POR LEER!!!

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 (vb) [Seleccionar] Expandir

Dim a As String
    Open App.Path & "\base.txt" For Input As #1
    Do Until EOF(1)
    Input #1, a
        If Mid(a, "caracter inicio", 2) = "10" Then
            'GUARDA EN NUEVO10.TXT
        ElseIf Mid(a, "caracter inicio", 2) = "20" Then
            'GUARDA EN NUEVO20.TXT
        ElseIf Mid(a, "caracter inicio", 2) = "30" Then
            'GUARDA EN NUEVO30.TXT
        ElseIf Mid(a, "caracter inicio", 2) = "40" Then
            'GUARDA EN NUEVO40.TXT
        End If
    Loop
Close #1

GRACIAS POR LEER!!!

[@BlackZeroX]

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

GRACIAS POR LEER!!!