Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - JohnConnor

Páginas 1 2
#11
Programación C/C++ / Error codeblocks (build)
8 Junio 2012, 17:53 PM
Instale la version completa de codeblock pero cuando quiero compilar me sale el siguiente error:


Execution of 'mingw32-g++.exe  -o bin\Debug\queande.exe obj\Debug\main.o' in 'C:\Users\JohnConnor\Desktop\queande' failed.

Tengo windows 7.

Saludos!
#12
Scripting / Re: [VBS] Problema al ejecutar un .EXE y crear su acceso directo
7 Mayo 2012, 06:18 AM
No uses option explicit
#13
Desarrollo Web / Re: Error PHP
4 Mayo 2012, 14:04 PM
Deberias sacar el nombre del host el usuario y la conttraseña antes de publicarlo!!!

:o
#14
Sugerencias y dudas sobre el Foro / Re: estan atacando al foro?
3 Mayo 2012, 17:30 PM
acabo de responder una pregunta de sesiones en php, por que no bloquean las peticiones si no superan los 4 segundos entre ellas?
#15
Desarrollo Web / Re: php - session_start , problemillas
3 Mayo 2012, 17:19 PM
la verdad no se por que no funciona, debe ser porque usas xampp, te recomiendo AppServ a menos que uses perl tambien.

prueba con esto:

Código (php) [Seleccionar]

<?php 
$mail="johnconnor";
$pass="123";
session_start();
 $conectarbd=mysql_connect("localhost","root","laclave");
 if($conectarbd){
 $conectar_tabla= mysql_select_db("dbusers");
 if($conectar_tabla){
          $comprueba=mysql_query("Select alias,mail,pass from usuarios where mail = '".$mail."' && pass='".$pass."'");
          if($comprueba){
$nick = mysql_fetch_array(mysql_query("Select alias,mail,pass from usuarios where mail = '".$mail."' && pass = '".$pass."'"));

 $_SESSION['nick']=$nick[0];
            if($_SESSION['nick']!= ""){
                echo "<p> ".$nick[0]." </p>";
            }else{
                header("Location: ../index.html");
            }
          }
        }
    }
session_destroy();
?>


 

CUIDADO CON LOS ATAQUES SQL!

Saludos!
#16
Scripting / Colisiones simples en VBScript + HTA
3 Mayo 2012, 10:06 AM
Hola, este es mi primer post y les quiero mostrar un "intento de juego" que no tiene como objetivo el entretenimiento sino que es un ejemplo de colisiones básicas en vbscript.

Dejo el link de .rar --->  http://www.mediafire.com/?dcje4xhf7z48445

y aca el codigo:

Código (vb) [Seleccionar]

<HTML><HEAD><SCRIPT LANGUAGE="VBScript">
REM -----------------------------------------------------------------------------
REM              ***************POWERED By JohnConnor************
REM              *        Buenos Aires - Argentina. 30/05/2012  *
REM              *       All code is typed in Notepad++         *
REM              ************************************************
REM .............................................................................
REM                   WEB:  WWW.JUEGOMANIA.WEB44.NET
REM .............................................................................
Sub Window_OnLoad()
self.resizeto 400,400 : obstacle.style.left = 100 : obstacle.style.top = 200
TECLAW.value = "0" : TECLAS.value = "0" : TECLAD.value = "0" : TECLAA.value= "0" : TIEMPO_REFRESH = 100 : MOTOR()
MovimientoE()
End Sub
Sub Document_onKeyPress()
if estado.value = "muerto" then
exit sub
end if
If (UCase(Chr(window.event.keyCode)) = "W") Then
TECLAW.value = "1"
end if
If (UCase(Chr(window.event.keyCode)) = "S") Then
TECLAS.value = "1"
end if
If (UCase(Chr(window.event.keyCode)) = "D") Then
TECLAD.value = "1"
end if
If (UCase(Chr(window.event.keyCode)) = "A") Then
TECLAA.value = "1"
end if
End Sub
Sub Document_onKeyUp()
If (UCase(Chr(window.event.keyCode)) = "W") Then
TECLAW.value = "0"
end if
If (UCase(Chr(window.event.keyCode)) = "S") Then
TECLAS.value = "0"
end if
If (UCase(Chr(window.event.keyCode)) = "D") Then
TECLAD.value = "0"
end if
If (UCase(Chr(window.event.keyCode)) = "A") Then
TECLAA.value = "0"
end if
End Sub
Sub MOTOR()
charX = character.style.left : charX = Left (charX, Len(charX)-2)
charY = character.style.top : charY = Left (charY, Len(charY)-2)
charWidth = character.style.width : charWidth = Left (charWidth, Len(charWidth)-2)
charHeight = character.style.height : charHeight = Left (charHeight, Len(charHeight)-2)
obstX = obstacle.style.left : obstX = Left (obstX, Len(obstX)-2)
obstY = obstacle.style.top : obstY = Left (obstY, Len(obstY)-2)
obstWidth = obstacle.style.width
obstWidth = Left (obstWidth, Len(obstWidth)-2)
obstHeight = obstacle.style.height
obstHeight = Left (obstHeight, Len(obstHeight)-2)
if TECLAA.VALUE = "1" then
if coliciones(charX-2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "" or coliciones(charX-2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "no" then
for i = 0 to 1
charX = charX - 1
next
end if
end if
if TECLAW.value = "1" then
if coliciones(charX, charWidth, charY-2, charHeight, obstX, obstWidth, obstY, obstHeight) = "" or coliciones(charX, charWidth, charY-2, charHeight, obstX, obstWidth, obstY, obstHeight) = "no" then
for i = 0 to 1
charY = charY - 1
next
end if
end if
if  TECLAD.value = "1" then
if coliciones(charX+2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "" or coliciones(charX+2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "no" then
for i = 0 to 1
charX = charX + 1
next
end if
end if
if TECLAS.value = "1" then
if coliciones(charX, charWidth, CInt(charY+2), charHeight, obstX, obstWidth, obstY, obstHeight) = "" or coliciones(charX, charWidth, CInt(charY+2), charHeight, obstX, obstWidth, obstY, obstHeight) = "no" then
for i = 0 to 1
charY = charY + 1
next
end if
end if
character.style.top = CharY
character.style.left = CharX
obstacle.style.top = obstY
obstacle.style.left = obstX
if coliciones(charX, charWidth, CInt(charY+2), charHeight, obstX, obstWidth, obstY, obstHeight) = "si" or coliciones(charX+2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "si" or coliciones(charX, charWidth, charY-2, charHeight, obstX, obstWidth, obstY, obstHeight) = "si" or coliciones(charX-2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "si" then
if estado.value = "muerto" then
obstacle.src = "Imagenes/vacio.png"
erdisteMan = window.settimeout("Perdiste()", 900)
else
character.src = "Imagenes/boom.gif"
character.style.width = "200"
character.style.height = "200"
estado.value = "muerto"
sonidos.src = "Sonidos/boom.wav"
erdisteMan = window.settimeout("Perdiste()", 900)
end if
end if
MOTORR = WINDOW.SETTIMEOUT("MOTOR()", TIEMPO_REFRESH)
End Sub
Sub Perdiste()
character.src = "Imagenes/vacio.png"
menu.innerhtml = "Game Over"
sonidos.src = ""
sonidos.delay = "0"
End Sub
Sub MovimientoE()
obstX = obstacle.style.left : obstX = Left (obstX, Len(obstX)-2)
obstY = obstacle.style.top : obstY = Left (obstY, Len(obstY)-2)
if obstX = 0 then
obstX = 500
obstY  = int(rnd * 400)
else
obstX = obstX - 2
end if
obstacle.style.top = obstY
obstacle.style.left = obstX
MOTORD = WINDOW.SETTIMEOUT("MovimientoE()", TIEMPO_REFRESH)
End Sub
Function coliciones(x1, width1, y1, height1,x2, width2, y2, height2)
if  (CInt(x1) + CInt(width1)) > (CInt(x2)) and (CInt(x1)) < (CInt(x2) + CInt(width2)) then
if  (CInt(y1) + CInt(height1)) > (CInt(y2)) and (CInt(y1)) < (CInt(y2) + CInt(height2)) then
coliciones = "si"
else
coliciones = "no"
end if
end if
end function
</Script>
<bgsound id="sonidos" src="Sonidos/fondo.wav" loop="infinite" delay="0">
<TITLE>AlienScript</TITLE>
<HTA:APPLICATION
ID="37832459348"
APPLICATIONNAME="VBScript coliciones"
CONTEXTMENU="NO"
ICON="Imagenes/icono.ico"
SCROLL="NO"
SCROLLFLAT="NO"
SELECTION="NO"
SINGLEINSTANCE="YES"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="NO"
VERSION="1.3"
CAPTION="yes"
BORDER="thin"
SysMenu="yes"
INNERBORDER="OFF" />
</head><body topmargin="0" leftmargin="0" rightmargin="0" background="Imagenes/fondo.gif">
<input type="hidden" id="estado" value="vivo">
<input type="hidden" id="TECLAW" value="0"><input type="hidden" id="TECLAS" value="0">
<input type="hidden" id="TECLAD" value="0"><input type="hidden" id="TECLAA" value="0">
<img id="character" style="position:absolute; top:0; left:0; width: 50; height: 50;" src="Imagenes/objUno.png">
<img id="obstacle" style="position:absolute; top: 0; left: 0; width: 30; height: 30;" src="Imagenes/objDos.gif">
<div id="menu" style="position: absolute; top: 160; left: 90; color: lime; font-size: 40; font-family: lucida console; font-effect: emboss;"></div>
</body></html>
Páginas 1 2