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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 [2]
11  Programación / Programación C/C++ / Error codeblocks (build) en: 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  Programación / Scripting / Re: [VBS] Problema al ejecutar un .EXE y crear su acceso directo en: 7 Mayo 2012, 06:18 am
No uses option explicit
13  Programación / Desarrollo Web / Re: Error PHP en: 4 Mayo 2012, 14:04 pm
Deberias sacar el nombre del host el usuario y la conttraseña antes de publicarlo!!!

 :o
14  Foros Generales / Sugerencias y dudas sobre el Foro / Re: estan atacando al foro? en: 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  Programación / Desarrollo Web / Re: php - session_start , problemillas en: 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
  1. <?php
  2. $mail="johnconnor";
  3. $pass="123";
  4. $conectarbd=mysql_connect("localhost","root","laclave");
  5. if($conectarbd){
  6. $conectar_tabla= mysql_select_db("dbusers");
  7. if($conectar_tabla){
  8.          $comprueba=mysql_query("Select alias,mail,pass from usuarios where mail = '".$mail."' && pass='".$pass."'");
  9.          if($comprueba){
  10. $nick = mysql_fetch_array(mysql_query("Select alias,mail,pass from usuarios where mail = '".$mail."' && pass = '".$pass."'"));
  11.  
  12. $_SESSION['nick']=$nick[0];
  13.            if($_SESSION['nick']!= ""){
  14.                echo "<p> ".$nick[0]." </p>";
  15.            }else{
  16.                header("Location: ../index.html");
  17.            }
  18.          }
  19.        }
  20.    }
  21. ?>
  22.  
  23.  
 

CUIDADO CON LOS ATAQUES SQL!

Saludos!
16  Programación / Scripting / Colisiones simples en VBScript + HTA en: 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
  1. <HTML><HEAD><SCRIPT LANGUAGE="VBScript">
  2. REM -----------------------------------------------------------------------------
  3. REM              ***************POWERED By JohnConnor************
  4. REM              *        Buenos Aires - Argentina. 30/05/2012  *
  5. REM              *       All code is typed in Notepad++         *
  6. REM              ************************************************
  7. REM .............................................................................
  8. REM                   WEB:  WWW.JUEGOMANIA.WEB44.NET
  9. REM .............................................................................
  10. Sub Window_OnLoad()
  11. self.resizeto 400,400 : obstacle.style.left = 100 : obstacle.style.top = 200
  12. TECLAW.value = "0" : TECLAS.value = "0" : TECLAD.value = "0" : TECLAA.value= "0" : TIEMPO_REFRESH = 100 : MOTOR()
  13. MovimientoE()
  14. End Sub
  15. Sub Document_onKeyPress()
  16. if estado.value = "muerto" then
  17. exit sub
  18. end if
  19. If (UCase(Chr(window.event.keyCode)) = "W") Then
  20. TECLAW.value = "1"
  21. end if
  22. If (UCase(Chr(window.event.keyCode)) = "S") Then
  23. TECLAS.value = "1"
  24. end if
  25. If (UCase(Chr(window.event.keyCode)) = "D") Then
  26. TECLAD.value = "1"
  27. end if
  28. If (UCase(Chr(window.event.keyCode)) = "A") Then
  29. TECLAA.value = "1"
  30. end if
  31. End Sub
  32. Sub Document_onKeyUp()
  33. If (UCase(Chr(window.event.keyCode)) = "W") Then
  34. TECLAW.value = "0"
  35. end if
  36. If (UCase(Chr(window.event.keyCode)) = "S") Then
  37. TECLAS.value = "0"
  38. end if
  39. If (UCase(Chr(window.event.keyCode)) = "D") Then
  40. TECLAD.value = "0"
  41. end if
  42. If (UCase(Chr(window.event.keyCode)) = "A") Then
  43. TECLAA.value = "0"
  44. end if
  45. End Sub
  46. Sub MOTOR()
  47. charX = character.style.left : charX = Left (charX, Len(charX)-2)
  48. charY = character.style.top : charY = Left (charY, Len(charY)-2)
  49. charWidth = character.style.width : charWidth = Left (charWidth, Len(charWidth)-2)
  50. charHeight = character.style.height : charHeight = Left (charHeight, Len(charHeight)-2)
  51. obstX = obstacle.style.left : obstX = Left (obstX, Len(obstX)-2)
  52. obstY = obstacle.style.top : obstY = Left (obstY, Len(obstY)-2)
  53. obstWidth = obstacle.style.width
  54. obstWidth = Left (obstWidth, Len(obstWidth)-2)
  55. obstHeight = obstacle.style.height
  56. obstHeight = Left (obstHeight, Len(obstHeight)-2)
  57. if TECLAA.VALUE = "1" then
  58. if coliciones(charX-2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "" or coliciones(charX-2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "no" then
  59. for i = 0 to 1
  60. charX = charX - 1
  61. next
  62. end if
  63. end if
  64. if TECLAW.value = "1" then
  65. if coliciones(charX, charWidth, charY-2, charHeight, obstX, obstWidth, obstY, obstHeight) = "" or coliciones(charX, charWidth, charY-2, charHeight, obstX, obstWidth, obstY, obstHeight) = "no" then
  66. for i = 0 to 1
  67. charY = charY - 1
  68. next
  69. end if
  70. end if
  71. if  TECLAD.value = "1" then
  72. if coliciones(charX+2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "" or coliciones(charX+2, charWidth, charY, charHeight, obstX, obstWidth, obstY, obstHeight) = "no" then
  73. for i = 0 to 1
  74. charX = charX + 1
  75. next
  76. end if
  77. end if
  78. if TECLAS.value = "1" then
  79. 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
  80. for i = 0 to 1
  81. charY = charY + 1
  82. next
  83. end if
  84. end if
  85. character.style.top = CharY
  86. character.style.left = CharX
  87. obstacle.style.top = obstY
  88. obstacle.style.left = obstX
  89. 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
  90. if estado.value = "muerto" then
  91. obstacle.src = "Imagenes/vacio.png"
  92. erdisteMan = window.settimeout("Perdiste()", 900)
  93. else
  94. character.src = "Imagenes/boom.gif"
  95. character.style.width = "200"
  96. character.style.height = "200"
  97. estado.value = "muerto"
  98. sonidos.src = "Sonidos/boom.wav"
  99. erdisteMan = window.settimeout("Perdiste()", 900)
  100. end if
  101. end if
  102. MOTORR = WINDOW.SETTIMEOUT("MOTOR()", TIEMPO_REFRESH)
  103. End Sub
  104. Sub Perdiste()
  105. character.src = "Imagenes/vacio.png"
  106. menu.innerhtml = "Game Over"
  107. sonidos.src = ""
  108. sonidos.delay = "0"
  109. End Sub
  110. Sub MovimientoE()
  111. obstX = obstacle.style.left : obstX = Left (obstX, Len(obstX)-2)
  112. obstY = obstacle.style.top : obstY = Left (obstY, Len(obstY)-2)
  113. if obstX = 0 then
  114. obstX = 500
  115. obstY  = int(rnd * 400)
  116. else
  117. obstX = obstX - 2
  118. end if
  119. obstacle.style.top = obstY
  120. obstacle.style.left = obstX
  121. MOTORD = WINDOW.SETTIMEOUT("MovimientoE()", TIEMPO_REFRESH)
  122. End Sub
  123. Function coliciones(x1, width1, y1, height1,x2, width2, y2, height2)
  124. if  (CInt(x1) + CInt(width1)) > (CInt(x2)) and (CInt(x1)) < (CInt(x2) + CInt(width2)) then
  125. if  (CInt(y1) + CInt(height1)) > (CInt(y2)) and (CInt(y1)) < (CInt(y2) + CInt(height2)) then
  126. coliciones = "si"
  127. else
  128. coliciones = "no"
  129. end if
  130. end if
  131. end function
  132. </Script>
  133. <bgsound id="sonidos" src="Sonidos/fondo.wav" loop="infinite" delay="0">
  134. <TITLE>AlienScript</TITLE>
  135. <HTA:APPLICATION
  136. ID="37832459348"
  137. APPLICATIONNAME="VBScript coliciones"
  138. CONTEXTMENU="NO"
  139. ICON="Imagenes/icono.ico"
  140. SCROLL="NO"
  141. SCROLLFLAT="NO"
  142. SELECTION="NO"
  143. SINGLEINSTANCE="YES"
  144. MAXIMIZEBUTTON="NO"
  145. MINIMIZEBUTTON="NO"
  146. VERSION="1.3"
  147. CAPTION="yes"
  148. BORDER="thin"
  149. SysMenu="yes"
  150. INNERBORDER="OFF" />
  151. </head><body topmargin="0" leftmargin="0" rightmargin="0" background="Imagenes/fondo.gif">
  152. <input type="hidden" id="estado" value="vivo">
  153. <input type="hidden" id="TECLAW" value="0"><input type="hidden" id="TECLAS" value="0">
  154. <input type="hidden" id="TECLAD" value="0"><input type="hidden" id="TECLAA" value="0">
  155. <img id="character" style="position:absolute; top:0; left:0; width: 50; height: 50;" src="Imagenes/objUno.png">
  156. <img id="obstacle" style="position:absolute; top: 0; left: 0; width: 30; height: 30;" src="Imagenes/objDos.gif">
  157. <div id="menu" style="position: absolute; top: 160; left: 90; color: lime; font-size: 40; font-family: lucida console; font-effect: emboss;"></div>
  158. </body></html>
  159.  
Páginas: 1 [2]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines