Mensajes

mmm también quede con la ducha Ari-Slash.

Du1c35 1un45!¡.

yo no accedo a ningun pc xddddd

el bot me los envia ami xDDDDDDDDDDDD

saludos!!

Lol

Dulces Lunas!¡.

.
Aquí te traigo un regalo, aun es optimiza-ble!¡.

JOJOJO, Feliz Vanidad



aaa chinga llegue tarde  

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
   '   //  El criterio True es para hacer que identifique Mayusculas de minusculas es decir por bytes!¡.
   '   //  Buscamos desde la 2da coinsidensia, (ignora la la 1ra), y solo buscamos una sola coinsidencia!¡.
   ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1, 2
   '   //  Buscamos la primera coinsidencia y reemplazamos, las demas las ignoramos.
   ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1
   '   //  Buscamos TODAS las coinsidencias y las reemplazamos TODAS sin exepcion alguna!¡.
   ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", True, 1
   
   '   //  El criterio False es para hacer que identifique texto en minusculas con mayusculas es decir {hola=HolA}!¡.
   '   //  Buscamos desde la 2da coinsidensia, (ignora la la 1ra), y solo buscamos una sola coinsidencia!¡.
   ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1, 2
   '   //  Buscamos la primera coinsidencia y reemplazamos, las demas las ignoramos.
   ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1
   '   //  Buscamos TODAS las coinsidencias y las reemplazamos TODAS sin exepcion alguna!¡.
   ReemplaceInThisFile "c:\archivo jalado de los pelos.txt", "Black", "ZeroX", False, 1
End Sub

Public Function ReemplaceInThisFile(ByVal StrPath As String, ByVal ToFind As String, ByVal ReplaceTo As String, Optional ByVal ExactMatch As Boolean = True, Optional ByVal Coincidencias As Long = -1, Optional ByVal Desde As Long = 0)
Dim vData               As String
Dim vDataTmp            As String
Dim ff                  As Integer
Dim PosAux              As Long
Dim Aux                 As Long

    If Len(ToFind) = 0 Then Exit Function
    If Dir(StrPath, vbArchive) = "" Then Exit Function
    ff = FreeFile
    Open StrPath For Binary As ff
        vData = Space(LOF(ff))
        Get ff, , vData
    Close ff
    Do
        Do
            PosAux = InStr(PosAux + 1, vData, ToFind, Abs(Not ExactMatch))
            Desde = Desde - 1
        Loop Until Desde <= 0 Or PosAux <= 0
        If PosAux <= 0 Then Exit Do
        vDataTmp = Mid(vData, PosAux + 1)
        Mid(vData, PosAux, Len(ReplaceTo)) = ReplaceTo: vData = vData & String(Len(ReplaceTo), " ")
        Mid(vData, PosAux + Len(ReplaceTo), Len(vDataTmp)) = vDataTmp
        Debug.Print vData, vDataTmp
       
        If Not Coincidencias = -1 Then Coincidencias = Coincidencias - 1
    Loop Until Coincidencias <= 0 Or PosAux <= 0
   
    vData = Mid(vData, 1, Len(vData) - Len(ReplaceTo))
    Kill StrPath
    ff = FreeFile
    Open StrPath For Binary As ff
        Put ff, , vData
    Close ff

End Function



Dulces Lunas!¡.

Pagar impuestos es honrado, pagar un servicio de Internet es honrado, etc... pero ingresar a computadores y obtener información como cuentas bancarias, cuentas qué deducen un impuesto monetario, etc...  es un ROBO, no se le puede decir honrada a una persona que abusa de actos qué perjudican, directa he indirectamente a otras, sea física, o por medio de Internet!¡.

P.D.: Hax991 el nuevo Robin Hood... xD

Dulces Lunas!¡.

Claro que es posible, pero es mejor en c/c++ los juegos decentes, si es para aprender bienvenido, pero en si no solo un lenguaje base debes estudiar, si no mas bien DirectX u OpenGL aplicado en c/c++ o en cualquier otros por este ejemplo VB ( DirectX y OpenGL están surtida-mente documentados en C/C++ en otros no tanto )

Sangriento Infierno Lunar!¡.

[veo k ai gente honrada]

bueno como veo k ai gente honrada y otra k no y les cambian el pass el k kiera cuentas k me las pida por mensajes privados tengo de mega, rapid y freakshare pero no abuseis k aunke me sobren tampoco puedo kedarme a 0 aunke puedo pillar cuantas kiera solo es cuestion de mirar los logs de los fakes y de la botnet asi k..

saludos!!

Espero no te ayas incluido ...

Dulces Lunas!¡.

ya casi Anarquía!¡.

Que desilución ¬¬!

Dulces Lunas!¡.

desde mis 15 años!¡.

Dulces Lunas!¡.

[intenta ver los que te puse en la liga que te di arriba]

Faltan archivos!¡. (los formularios, los módulos de clase, los módulos uff ¬¬"), intenta ver los que te puse en la liga que te di arriba, no puedo hacer mas por ti!¡, no difieren en cada, en especial el qué ocupa el OCX!¡.

Dulces Lunas!¡.

[Edito:]

.
0 kbs's, y en dos Ligas, y esperar dos minutos para tan poco, como que no dan ganas!¡.

sube-los a MediaFire o a mi Servidor, lo qué pasa qué no es gustoso una espera
enseguida te dejo un chat simple mejor!¡.

Edito:

http://infrangelux.sytes.net/filex/index.php?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/Chats%20Simples

Sangriento Infierno Lunar!¡.