Mensajes

[Russian Roulette]

Russian Roulette





QUE ***** ES LA RULETA RUSA by Wikipedia

Características del juego

Generalmente se inicia en una mesa. Uno de los jugadores toma un revólver (puede ser de 5 ó 6 balas) y abre el tambor. En él pone una o más balas. Luego gira el tambor al azar, cerrándolo rápidamente de modo que ninguno de los jugadores pueda ver en qué recámara se encuentran las balas. Por turnos los jugadores colocan la boca del cañón sobre su sien y aprietan el gatillo sin mover el arma. Si ninguna bala es disparada, el jugador continúa en el juego y el revólver pasa a su compañero. Si este se salva, el revólver continúa al siguiente jugador hasta que a uno de ellos le toque la bala y muera.

Download Source Code
http://www.mediafire.com/?ox0ltkwe4tucyo0

Download Ejecutable (para gueviar un ratito )
http://www.mediafire.com/?ivkmxil6nmo2rck

A ver cuanto sacan




Sin IDE abierto para que no digan despues 

pero usa la funcion left

si o si la letra de la unidad va a ser la primera desde la izquierda.
La segunda van a tener que ser los dos puntos :
y la tercera una contrabarra \

ej:

Código [Seleccionar] Expandir

C:\Archivos de Programa\Te tiro el rayo
El primer caracter es "C"
El seguno caracter es ":"
y el tercero es "\"

[Rustic Mode ON!]

Rustic Mode ON!
[Rustic]

Código (vb) [Seleccionar] Expandir

Public Function eCode(ByRef Time As String) As Boolean
    On Error GoTo Fallo
    If Len(Time) <> 8 Then Exit Function
    Dim sTime() As String
    sTime = Split(Time, ":")
    If CLng(sTime(0)) >= 0 And CLng(sTime(0)) <= 23 And _
       CLng(sTime(1)) >= 0 And CLng(sTime(1)) <= 59 And _
       CLng(sTime(2)) >= 0 And CLng(sTime(2)) <= 59 Then eCode = True
Fallo:
End Function

[/Rustic]

Normalmente probaria con pasarle el superantispyware (actualizado, portable, bajalo gratis desde la pag oficial) y el malwarebytes (actualizado, instalable, desde la web oficial)
Despues anda probando a ver que AV te da mejores resultados.
Si nada lo arregla, dejate el log del hijackthis y vemos que onda ^^

Como todo servdor FTP, deduzco que tenes que posisionarte primero en la carpeta

Código (vb) [Seleccionar] Expandir

'Cambia de directorio y actualiza la lista al hacer dobleclick
      'Cambia al Directorio Ftp especificado
       ret = FtpSetCurrentDirectory(HandleConect, strDir)

       If ret = 0 Then
          Status "Error al cambiar de directorio."
       End If
       m_form.MousePointer = vbDefault
       Exit Sub
    End If


Y despues subirlo.

Código (vb) [Seleccionar] Expandir

Dim i As Integer
cd.CancelError = True
'cd.ShowOpen
If cd.FileName = "F:\code\sitio\tren.txt" Then Exit Sub

For i = 1 To ListView1.ListItems.Count
    If cd.FileTitle = ListView1.ListItems(i) Then
       If MsgBox("El archivo que itenta subir ya existe. ¿Sobreescribirlo?", _
                  vbQuestion + vbYesNo) = vbYes Then

         ListView1.ListItems.Remove i
         Ftp.SubirArchivo cd.FileName, cd.FileTitle
         Exit Sub
        Else
         Exit For
       End If
    End If
Next

Ftp.SubirArchivo cd.FileName, cd.FileTitle

PD:
Estas haciendo un clon de un cliente FTP?
Eso esta medio visto ya

que programa estas poniendo como servicio.?
Cualquier programa se puede poner como servicio?

Se mueren muy rapido ¬¬"

Dulces Lunas!¡.

Coincido.
Ademas, parece que no tienen intimidad.
Si yo no agrego bebes, no saben hacerlos ellos 

a ver guapo, decime como es la parte de wifi?
NO HAY FUCKINGS APIS NATIVAS USABLES PARA EL WI.FI!

lo hice con un codigo medio raro que daba vueltas por internet.

@Elemental Code
Parece mas codigo de vbs que pseudocodigo.

Es Pseudopseudocodigo. 

Ahora al pibe, no entendi.
lo que yo te decia es lo que hizo el capo black arriba.
Fijate

te recomiendo buscar y hablar con mr frog, el fue el que hizo el frog cheat y manipulo esas cosas.

EDITO: busca la api getpixel (o algo asi), usa un timer y/o hacele un hook al mouse.
Edito 2: el medio de la pantalla no suele hacer falta, porque el cursor suele quedar pocisionado en el medio ya que ahi esta la mira, cualquier cosa proba dividiendo el alto y el ancho de la pantalla dividido 2

EDITO 3: Habiendo terminado mi proyecto, cuidado que no te lo saque de las manos >=D

EDITO 4: http://www.canalvisualbasic.net/foro/visual-basic-6-0/color-del-pixel-en-donde-esta-el-mouse-11376/

EDITO 5: WTF?!
El trabajo hecho
http://min.us/myLwXzca0
Si el lugar del mouse es rojo, hace click.
El boton rojo es para que veas cuantos clicks hace

la mitad del trabajo hecho ¬¬