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

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Temas
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15 16 17
31  Programación / Desarrollo Web / Consejos para crear juego online 3d en: 5 Marzo 2012, 01:49 am
Estoy buscando la manera de crear un juego online 3d. Partiendo de la base de que no tengo mucha idea del tema empecé a indagar por ahí.
Programas como GameMaker HTML5 y Unity fueron los más sonados en las respuestas.
¿Alguien me podría guiar/aconsejar un poco sobre esto? :huh:

Gracias :D
32  Programación / Desarrollo Web / [Ayuda] Buscador para otra página en: 22 Enero 2012, 00:48 am
Una duda muy simple, espero que me podáis ayudar:
Necesito que me guiéis para hacer un buscador de otra página, me explico:
Es una página la cual no tiene buscador y quiero que en base a mi búsqueda, visualice enlaces a los post relacionados.

Gracias. :)

DoEvents! :P
33  Programación / Programación Visual Basic / [SRC] Silenciar click en WebBrowser en: 19 Enero 2012, 19:15 pm
Pensé que no había solución humana a esto, también sé que hasta ahora se hacían chapuzadas modificando el registro y demás. :-(
He dado con la forma definitiva:

Código
  1. Option Explicit
  2. Private Declare Function CoInternetSetFeatureEnabled Lib "urlmon.dll" (ByVal FeatureEntry As Long, ByVal dwFlags As Long, ByVal fEnable As Long) As Long
  3.  
  4. Private Const FEATURE_DISABLE_NAVIGATION_SOUNDS     As Long = &H15
  5. Private Const SET_FEATURE_ON_PROCESS                As Long = &H2
  6.  
  7. Private Sub Form_Load()
  8.    CoInternetSetFeatureEnabled FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, True
  9. End Sub

Afecta SÓLO sobre nuestro programa. :)

NOTA IMPORTANTE: Sólo funciona si tienes una versión del IE 7 o superior. :-[

DoEvents! :rolleyes:
34  Foros Generales / Foro Libre / ¿Reclamar por no entregar los criterios mínimos? en: 15 Diciembre 2011, 12:02 pm
En España:
El caso es que un amigo me dijo que el año pasado había un profesor con el que suspendía la mayoría de la clase.
Reclamaron a final de curso que no entregó los criterios mínimos a principio de curso y aprobó toda la clase.
¿Es esto posible? ¿Conocéis algún caso? :huh:
¿Y si los entregó pero no los firmaron los alumnos sería posible también?

DoEvents! :P
35  Foros Generales / Foro Libre / Sueños lúcidos en: 27 Noviembre 2011, 19:02 pm
¿Alguno de vosotros habéis tenido alguno?

DoEvents! :P
36  Programación / Java / Me salta una captura [Ayuda] en: 24 Noviembre 2011, 01:18 am
¿Por qué no funciona correctamente esto? :huh:
Me salta la captura de sName a partir de la segunda vuelta.
¿Soluciones a ser posible usando la clase Scanner?
Gracias.

Código
  1. import java.util.*;
  2.  
  3. public class Hello1 {
  4.    public static void main (String args[]) {
  5.     Scanner Teclado= new Scanner(System.in);
  6.     String sName = "", sRet= "";
  7.     char cAsig;
  8.  
  9.     for (int x=0; x<131; x++ ){
  10.     System.out.println("Introduce nombre del profesor:");
  11.     sName= Teclado.nextLine();
  12.  
  13.            System.out.flush();
  14.  
  15.     do {
  16.     System.out.println("Introduce el carácter correspondiente a su tipo de enseñanza:");
  17.     cAsig= Teclado.next().charAt(0);
  18.  
  19.     switch (Character.toLowerCase(cAsig)){
  20.     case 's': sRet="Secundaria"       ; break;
  21.     case 'b': sRet="Bachiller"        ; break;
  22.     case 'c': sRet="Ciclo Formativos" ; break;
  23.     default :
  24.     System.out.println("Error\nSolo se aceptan los caracteres 's', 'b' y 'c'\n");
  25.     sRet="";
  26.     }
  27.     } while (sRet == "");
  28.  
  29.     System.out.println(sName + " es profesor de " + sRet + "\n");
  30.     }
  31.    }
  32. }

DoEvents! :P
37  Programación / Java / [SRC] isPrime en: 22 Noviembre 2011, 20:53 pm
La mejor forma que se me ocurre de hacerlo:

Código
  1.    public static boolean isPrime(int iNum) { // La forma más rápida que se me ocurre
  2.     if (iNum > 1) {
  3.     if (iNum < 6){
  4.     if (iNum == 2 || iNum == 5 || iNum == 3)
  5.     return true;
  6.     } else if (((iNum & 1) == 1) && ((iNum % 10) != 5)) {
  7. long lRaiz = (long) Math.sqrt(iNum);
  8. long x;
  9.  
  10. for (x=3; x <= lRaiz; x += 2){
  11. if ((iNum % x) == 0)
  12. return false;
  13. };
  14.  
  15. return true;
  16.     }
  17.     }
  18.     return false;
  19.    }

DoEvents! :P
38  Programación / Java / [SRC] decimalToRomano en: 22 Noviembre 2011, 20:05 pm
Llevo muy poco en java, avisadme si veis algún error o algo mejorable, a ver que os parece:

Código
  1. import java.util.*;
  2.  
  3. public class Hello {
  4. public static String repeatString(String sText, int iTimes){
  5. return new String(new char[iTimes]).replace("\0", sText);
  6. }
  7.  
  8. public static String decimalToRomano(int iNum) {
  9. int iTmp= 0, i= 1;
  10. String sRet= "";
  11.  
  12. String [] [] sRDigit =
  13. {
  14. {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX"},
  15. {"X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC"},
  16. {"C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM"}
  17. };
  18.  
  19. if (iNum > 0){
  20. for (int x=0; x<3; x++){
  21. iTmp=iNum % (i * 10);
  22.  
  23. if (iTmp != 0)
  24. sRet= sRDigit[x][(iTmp / i) -1] + sRet;
  25.  
  26. iNum -= iTmp;
  27.  
  28. if (iNum == 0)
  29. return sRet;
  30.  
  31. i *= 10;
  32. };
  33.  
  34. sRet= repeatString("M", iNum / 1000) + sRet;
  35. };
  36.  
  37. return sRet;
  38. }
  39.  
  40. public static void main (String args[]) {
  41. System.out.println("Dame un numero mayor que cero para convertirlo a un numero romano:");
  42.  
  43. int iMyNum = new Scanner(System.in).nextInt();
  44. System.out.println("El numero "+ iMyNum + " en romano es: " + decimalToRomano(iMyNum));
  45. }
  46. }

DoEvents! :P
39  Programación / Programación Visual Basic / [RETO] Recortar cadena. en: 21 Octubre 2011, 10:18 am
Código
  1. Public Function DeleteString(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String

Ej:
Código:
Hola hoy estoy cansado

Código:
Call Recortar(s, 4, 4)

Código:
Hola estoy cansado

Vale todo el más rápido gana.

DoEvents! :P
40  Programación / Programación Visual Basic / [SRC] cConcatenator.cls en: 11 Octubre 2011, 17:10 pm
Mi nueva clase para concatenar cadenas rápidamente (no incluye la opción de insertar/remover cadenas por ahora...):
Código
  1. Option Explicit
  2. Option Compare Binary
  3. '====================================
  4. ' º Name      : cConcatenator.cls
  5. ' º Version   : 1.3
  6. ' º Author    : Psyke1
  7. ' º Twitter   : @SoyAbsurdo
  8. ' º Country   : Spain
  9. ' º Date      : 15/10/11
  10. ' º Visit     :
  11. '    * http://foro.h-sec.org
  12. '    * http://infrangelux.sytes.net
  13. '====================================
  14. Private Declare Sub RtlMoveMemory Lib "ntdll.dll" (ByVal lpDestination As Long, ByVal lpSource As Long, ByVal Length As Long)
  15. Private Declare Function SysAllocStringByteLen Lib "oleaut32.dll" (ByVal oleStr As Long, ByVal BLen As Long) As Long
  16.  
  17. Private sRet()                  As String
  18. Private lCount                  As Long
  19. Private lChunk                  As Long
  20. Private lTotalLenB              As Long
  21.  
  22. Public Static Sub Append(ByRef sText As String)
  23. Dim lLenB                       As Long
  24.  
  25.    lLenB = LenB(sText)
  26.    If lLenB Then
  27.        If lCount > lChunk Then
  28.            lChunk = lChunk + lChunk + 1&
  29.            ReDim Preserve sRet(lChunk) As String
  30.        End If
  31.  
  32.        sRet(lCount) = sText
  33.        lCount = lCount + 1&
  34.        lTotalLenB = lTotalLenB + lLenB
  35.    End If
  36. End Sub
  37.  
  38. Public Static Property Get LengthString() As Long
  39.    LengthString = LengthString \ 2&
  40. End Property
  41.  
  42. Public Sub ResetAll()
  43.    lCount = 0&
  44.    lTotalLenB = 0&
  45. End Sub
  46.  
  47. Public Static Property Get GetString() As String
  48. Dim pDest                       As Long
  49. Dim lLenBItem                   As Long
  50. Dim Q                           As Long
  51.  
  52.    If lCount Then
  53.        RtlMoveMemory VarPtr(GetString), VarPtr(SysAllocStringByteLen(0&, lTotalLenB)), 4&
  54.  
  55.        pDest = StrPtr(GetString)
  56.        For Q = 0 To (lCount - 1&)
  57.            lLenBItem = LenB(sRet(Q))
  58.            RtlMoveMemory pDest, StrPtr(sRet(Q)), lLenBItem
  59.            pDest = pDest + lLenBItem
  60.        Next Q
  61.    End If
  62. End Property
  63.  
  64. Private Sub Class_Initialize()
  65.    lChunk = &H270F&
  66.    ReDim sRet(lChunk) As String
  67. End Sub
  68.  

Test comparándola con cStringBuilderl.cls (la más rápida que encontré en la red):



DoEvents! :P
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11 12 13 14 15 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines