Temas

[¡Un error ha ocurrido!]

HOLA!!!

Por ejemplo si por error postee donde no debia, si quiero reportarlo para que borren el mensaje no se puede y me muestra este amable¿? cartel:

¡Un error ha ocurrido!
¡No puedes reportar tus propios mensajes al moderador, eso no tiene sentido!

GRACIAS POR LEER!!!

HOLA!!!

El reto consiste en hacer la version mas rapida de la siguiente funcion:

Busca un string entre otros 2 strings.

Por ejemplo :

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   str1 = "hola franco como andas, hola pepe como andas"
   str2 = "hola "
   str3 = " como"
   Debug.Print EntreTextos(str1, str2, str3)
   'imprimira: "franco"
   'como veran solo la primera asi que ojo XD
End Sub

Public Function EntreTextos(Text As String, Text1 As String, Text2 As String) As String
   EntreTextos = MidB$(Text, InStrB(Text, Text1) + LenB(Text1), InStrB(Text, Text2) - InStrB(Text, Text1) - LenB(Text1))
End Function

'o esta:

Public Function EntreTextos(Text As String, Text1 As String, Text2 As String) As String
    Dim a As Long
    a = InStrB(Text, Text1)
    If a Then
        Dim b As Long
        b = InStrB(Text, Text2)
        If b Then
            Dim c As Long
            Dim d As Long
            c = LenB(Text1)
            d = InStrB(Text, Text2) - a - c
            If d > 0 Then
                EntreTextos = MidB$(Text, a + c, d)
    End If
    End If
    End If
End Function


yo participo directamente con la que figura alli

GRACIAS POR LEER!!!

HOLA!!!

La encontre en un proyecto que estoy desarrollando y por ahi le sirve a alguien.

Busca un string entre otros 2 strings.

Por ejemplo :

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    str1 = "hola franco como andas, hola pepe como andas"
    str2 = "hola "
    str3 = " como"
    Debug.Print EntreTextos(str1, str2, str3)
    'imprimira: "franco"
    'como veran solo la primera asi que ojo XD
End Sub

Public Function EntreTextos(Text As String, Text1 As String, Text2 As String) As String
    EntreTextos = MidB$(Text, InStrB(Text, Text1) + LenB(Text1), InStrB(Text, Text2) - InStrB(Text, Text1) - LenB(Text1))
End Function


GRACIAS POR LEER!!!

HOLA!!!

Gente, ando buscando un soft que maneje camaras web y camaras IP.

El soft deberia manejar Camara asociada a Microfono.

Tambien deberia tener sistema de servidor web (8080 no 80) con posibilidad de hacer embeed camera source dentro de otra web en la misma intranet.

Y por ultimo si es posible que tenga soporte para moviles (HTML5 video streaming o rtsp [Real Time Streaming Protocol])

Gracias espero respuestas...

P.D: Si es posible gratuito obvio ya que es para un proyecto grande y no daria seriedad que ande con soft trucho.-

GRACIAS POR LEER!!!

HOLA!!!

En fin es eso, necesito crear un codigo para descifrar RSA con vbs.

Si saben de algun codigo o algo me dicen...

Si saben el algoritmo me lo pueden pasar y lo escribo yo el codigo.

GRACIAS POR LEER!!!

HOLA!!!

En fin es eso, necesito crear un codigo para descifrar RSA con vbs.

Si saben de algun codigo o algo me dicen...

Si saben el algoritmo me lo pueden pasar y lo escribo yo el codigo.

GRACIAS POR LEER!!!

[[RETO] + Funcion Extraer Numeros de Cadenas!]

HOLA!!!

RECOPILACION DE RETOS:

[RETO] + Funcion Extraer Numeros de Cadenas!

Código (vb) [Seleccionar] Expandir

Function ExtractNums_ByUser(expression As String) As String
Ejemplo:

Código [Seleccionar] Expandir

Input: ewiuc3dskhd8nkd62ndsnk9
Ouput: 38629
Participan: Karcrack, 79137913, BlackZeroX, Elemental code y RHL.


[RETO] Reemplazo de Funcion IsNumeric

Código (vb) [Seleccionar] Expandir

Private Function IsNumeric_ByUser(str As String) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

IsNumeric("asdf") ->False
IsNumeric("a12f") ->False
IsNumeric("12,12") ->True
IsNumeric("12.12") ->True
IsNumeric("12,23,34") ->False
IsNumeric("133.23.330") ->True
IsNumeric("36.658,30") ->True
IsNumeric("81,838.59") ->True
Participan: 79137913, Tenient101, AlxSpy, raul338, TGa, BlackZeroX y LeandroA.


[RETO] IsDate

Código (vb) [Seleccionar] Expandir

Function IsDate_ByUser(str As String) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

Con estas fechas debe devolver true
31/07/2000
30/07/2000
01/02/2000
25/05/2002
15/07/2000
28/02/2001
31/05/2001
30/12/2011
29/02/2004
Y con estas false
01/00/2011 ' No existe Mes 00
31/04/2001 ' Abril no tiene 31 xD
00/12/2011 ' Dia 00, WTF
00/00/2011 ' Dia 00, Mes 00, WTF x2
01/13/2011 ' Mes 13, WTF!
30/02/2001 ' Febrero NUNCA tendra 30
29/02/2003 ' 2003 No es bisiesto :3
Participan: Ignorante v1.1, 79137913, BlackZeroX, $Edu$, Tenient101, Raul338 y Psyke1.


[RETO] Recortar cadena.

Código (vb) [Seleccionar] Expandir

Public Function DeleteString(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String
Ejemplo:

Código [Seleccionar] Expandir

S = "Hola hoy estoy cansado"
S = Recortar(s, 4, 4)
Debug.Print S 'Hola estoy cansado
Participan: 79137913, Tenient101, Psyke1 y BlackZeroX.


[Reto] IsHour

Código (vb) [Seleccionar] Expandir

Public Function IsHour_ByUser(str As String) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

* Debe aceptar de "00:00:00" hasta "23:59:59"
* En base a lo anterior y para hacerlo mas interesante lo correcto es llenar los dos lugares, si es menor que 10 se pondra un cero, ejemplo:
"05:59:59" ----> Correcto
"5:59:59" ---- > Falso
* Debe devolver True si la hora es correcta
* El delimitador para separar los numeros es ":"
Participan: raul338, Elemental Code, Tenient101, RHL, Psyke1 y BlackZeroX.


[RETO] Palabras pronunciables

Código (vb) [Seleccionar] Expandir

Private Function Palabras_ByUser(Letras As Long) As String
Ejemplo:

Código [Seleccionar] Expandir

Funcion donde ingresemos la longitud de la cadena y te generara una palabra pronunciable.
Ej: presifriasakokreadfertuasxienplirubeen
Participan: 79137913 y Psyke1.


[Reto] Show My Source Code.

Código (vb) [Seleccionar] Expandir

Codigo que se auto muestra
Ejemplo:

Código [Seleccionar] Expandir

El codigo de mi programa es:
sub main()
msgbox todoelcodigo'en todo el codigo debe estar todo esto.
end sub
Participan: 79137913, BlackZeroX  e ignorantev1.1.


[RETO] Obtener nombre de archivo

Código (vb) [Seleccionar] Expandir

Function getFileName(ByVal path As String) As String
Ejemplo:

Código [Seleccionar] Expandir

Consiste en obtener el nombre de archivo a partir de una ruta, así:
C:\Documents and Settings\Llamazares\Mis documentos\Downloads\SexoDeRanas.avi
Deberia devolver la función:
SexoDeRanas.avi
Participan: 79137913, BlackZeroX, ignorantev1.1, Karcrack, Psyke1, Elemental Code y seba123neo.


[RETO] Alternativa a Instr()

Código (vb) [Seleccionar] Expandir

Private Function InStr_ByUser(Start As Long, String1 As String, String2 As String) As Long
Ejemplo:

Código [Seleccionar] Expandir

Una función que hace lo mismo que Instr().
Participan: 79137913, Miseryk, TGa, Tokes, raul338, krabby, gaston93, BlackZeroX y Psyke1.


[RETO] CompWordsAlphabetically

Código (vb) [Seleccionar] Expandir

Private Function FirstWord_ByUser(W1 As String, W2 As String) As Long
Ejemplo:

Código [Seleccionar] Expandir

0 : Error
1 : La 1ª palabra va antes en el abecedario
2 : La 2ª palabra va antes en el abecedario
3 : Ambas palabras son iguales
"rana"        - "" -> 0
"hola"        - "holas" -> 1
"bienvenido"  - "bienvenida" -> 2
"Ejemplo"     - "eJempLIficar"  -> 2
"igual"       - "igual"         -> 3
"PALABRA"     - "palabra"       -> 3
Participan: 79137913, raul338, Karcrack, Edu y Psyke1.


[RETO] uCaseCorrect. Corrector de Mayusculas!

Código (vb) [Seleccionar] Expandir

Private Function uCaseCorrect_ByUser(Txt As String) As String
Ejemplo:

Código [Seleccionar] Expandir

La funcion debe corregir las mayusculas de la cadena poniendo mayusculas despues de los puntos y en cuanto a los ¡! y ¿?  miren esto : http://goo.gl/z14ab
Participan: 79137913, Edu y Psyke1.


[Reto] Zig Zag (OJO ANALISIS)

Código (vb) [Seleccionar] Expandir

Private Function ByUser_ZipZag(ByVal lNum As Long) As Long()
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: 79137913, LeandroA, BlackZeroX y Psyke1.


[RETO] IsFibonacciNumber(N as long) as Boolean

Código (vb) [Seleccionar] Expandir

Private Function IsFibonacci_ByUser(ByVal N As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

Se le da un numero entero sea Positivo o Negativo la funcion devolvera True si efectivamente es un numero perteneciente a la serie y false si no pertenece.
Participan: 79137913, Elemental Code, DarkMatrix, BlackZeroX y Psyke1.


[RETO] Comprobar si un numero dado es un numero de la suerte

Código (vb) [Seleccionar] Expandir

Private Function IsLuckyNumber(ByVal Num As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun :
http://es.wikipedia.org/wiki/N%C3%BAmero_de_la_suerte
Participan: LeandroA, Dessa, Tokes, BlackZeroX, cobein y Psyke1.


[RETO] Reemplazo de Operadores Binarios.

Código (vb) [Seleccionar] Expandir

AndAlt(Byte1 As Long, Byte2 As Long) as Long
OrAlt(Byte1 As Long, Byte2 As Long) as Long
XorAlt(Byte1 As Long, Byte2 As Long) as Long
NotAlt(Byte1 As Long) as Long
Ejemplo:

Código [Seleccionar] Expandir


Se reemplazan los operadores comunes.
Primero los valores se convierten a binario y luego se hace esto:

And: Solo si se comparte el mismo bit en ambos numeros.
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
       -----------------
Result  = 0 0 1 0 1 0 0 0

Or : Solo si uno tiene un bit "1".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
       -----------------
Result  = 1 0 1 1 1 0 1 1

Xor : Solo si uno tiene un bit "1" y el otro "0".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
       -----------------
Result  = 1 0 0 1 0 0 1 1
Participan: 79137913 y BlackZeroX.


[RETO] Matriz de Cuenta Circular 7913

Código (vb) [Seleccionar] Expandir

Private Function Cuenta_Circular7913(N&, M() As Integer, TIPO As Boolean)
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: 79137913 y LeandroA.


[RETO] Comprobar si un numero es Oblongo/Pronico

Código (vb) [Seleccionar] Expandir

Private Function IsOblongo(ByVal lNumb As Long, ByRef n As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun:
http://en.wikipedia.org/wiki/Pronic_number
http://oeis.org/classic/A002378
Participan: Karcrack, raul338, LeandroA, Tokes y BlackZeroX.


[RETO] Matriz Bidimensional {FrogMatrix algorithm}

Código (vb) [Seleccionar] Expandir

Public Function FrogMatrix(ByVal lSize&) As Long()
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: 79137913, LeandroA, Psyke1 y BlackZeroX.


[RETO] ¿Fácil? Buscando los números de Lychrel

Código (vb) [Seleccionar] Expandir

Public Function IsLychrelNumber(numero As Double, ByRef numeroFinal As Double,Optional maxVueltas As Long = 20) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun:
http://gaussianos.com/la-conjetura-del-196/
http://en.wikipedia.org/wiki/Lychrel_number
Participan: raul338, Novlucker, [D4N93R], Tokes, BlackZeroX y Psyke1.


[RETO] IsItPrime() - Comprobar si un numero es primo

Código (vb) [Seleccionar] Expandir

Public Function IsItPrime(ByVal lNumber As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

Verificar si es primo
Participan: Karcrack, Psyke1, cobein y e500.


[RETO] Entero a cadena

Código (vb) [Seleccionar] Expandir

Public Function ItoA01(ByVal lNumb As Long) As String
Ejemplo:

Código [Seleccionar] Expandir

1337 -> "1337"
En este reto aprendi una de las mejores mejoras de velocidad el metodo llamado "Evil Type Conversion" Recomendado leer
Participan: Karcrack, LeandroA, raul338, MCKSys Argentina y Psyke1.


[RETO] Comprobar si un numero es odioso

Código (vb) [Seleccionar] Expandir

Private Function IsItOdious(ByVal lNumb As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun:
http://mathworld.wolfram.com/OdiousNumber.html
http://oeis.org/classic/A000069
Participan: Karcrack, BlackZeroX, LeandroA, Tokes y cobein.


[RETO] Cuadrado Numerico en forma de "¬"

Código (vb) [Seleccionar] Expandir

Private Sub CuadradoArray(arr() As Long, lNum As Long)
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: Tenient101, BlackZeroX y LeandroA.


[RETO] GetMaskColor

Código (vb) [Seleccionar] Expandir

Private Function GetMaskColor(oPic As PictureBox) As Long
Ejemplo:

Código [Seleccionar] Expandir

Obtiene el color de la mascara transparente de una imagen.
Participan: LeandroA y seba123neo.
   

[RETO] Funcion iFactorize() - Factorizacion de numeros enteros

Código (vb) [Seleccionar] Expandir

Public Function iFactorize(ByVal n As Long) As Collection
Ejemplo:

Código [Seleccionar] Expandir


La funcion ha de devolver un Collection con todos los numeros primos que componen ese numero
http://en.wikipedia.org/wiki/Integer_factorization
http://es.wikipedia.org/wiki/Factorizaci%C3%B3n_de_enteros
Participan: Karcrack, BlackZeroX y Angeldj27.


mFileExists.bas [Tan rustico como se pueda ]

Código (vb) [Seleccionar] Expandir

Private Function F_Exist(sPath as string) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

File Exist
Participan: Elemental Code, 79137913, LeandroA, Psyke1, Karcrackb y raul338.


[RETO] Ruta más oculta

Código (vb) [Seleccionar] Expandir

Public Function getLastFolder(Byval sStartPath As String) As String
Ejemplo:

Código [Seleccionar] Expandir

Debug.Print getLastFolder("C:\Users\casa-pc\Desktop\")
C:\Users\casa-pc\Desktop\Música\Sonido\Programas\Video\VLC\data\res
Participan: Elemental Code, Seba123Neo, LeandroA, Psyke1 y MCKSys Argentina


[Reto] UrlEncode y UrlDecod

Código (vb) [Seleccionar] Expandir

Public Function URLDecode(ByVal sURL As String, Optional ByVal SpacePlus As Boolean = True) As String
Public Function URLEncode(ByVal sURL As String, Optional ByVal SpacePlus As Boolean = True) As String
Ejemplo:

Código [Seleccionar] Expandir

es practicamente como lo que hace esta web http://meyerweb.com/eric/tools/dencoder/
osea ingresamos
https://www.google.com.ar/search?q=canción
si usamos la funcion urlEncode deberia cambiar el acento
https://www.google.com.ar/search?q=canci%C3%B3n
por lo visto esta pasado a utf8 y luego a hex
lo importante es que encode los parámetros no la url entera ya que sino dejaria de ser una url valida.
Participan: Danyfirex, MCKSys Argentina, LeandroA, cobein y Psyke1.


GRACIAS POR LEER!!!

[IMAGENES DEL PROYECTO TERMINADO!]

HOLA!!!

Hoy voy a armar un soplete de hidrogeno hecho con una botella de plastico, soda caustica, aluminio, agua, un tubo de cobre, tela, algodon y papel secante.

La idea es tomar el H2 resultante de la reaccion de corrocion del aluminio a traves de la soda caustica y agua.

una foto de como lo tengo pensado.



Diganme que opinan y si ven alguna falla en el diseño haganmelo saber pronto por que dentro de 5 hs me pongo a hacerlo.

IMAGENES DEL PROYECTO TERMINADO!

http://imgur.com/Dr9Ig
http://imgur.com/ZlErm
http://imgur.com/IXksZ
http://imgur.com/LMID7
http://imgur.com/SptHR
http://imgur.com/P9Hjf
http://imgur.com/lRRBp
http://imgur.com/h2w5U

GRACIAS POR LEER!!!

HOLA!!!

Este tutorial lo arme para explicar como hacer un generador de diccionarios como mi BruteForceDicctionaryCreator o BFDC7913.

Empecemos...

Suponiendo que tenes esta cadena de posibles caracteres:
Código:

"ABCDEFGHIJKLMNOPQRSTUVWXYabcdefghijklmnopqrstuvwxyz0123456789"

Es la mas comun y tiene 26+26+10 osea 62 caracteres correcto?
Eso yo recomendaria guardarlo en un Vector (array).

Para eso yo uso la funcion:
Código

Código (vb) [Seleccionar] Expandir

Private Function CharSplit7913(expression As String) As String()
   Dim lExp     As Long
   Dim ExpB()   As Byte
   Dim AuxArr() As String
   ExpB = expression
   lExp = UBound(ExpB)
   ReDim AuxArr(lExp)
   For X = 0 To lExp Step 2
       AuxArr(X / 2) = ChrW(ExpB(X))
   Next
   ReDim Preserve AuxArr(Int(lExp / 2))
   CharSplit7913 = AuxArr
End Function


El vector resultante suponete que lo llamamos Chars() queda compuesto asi:
Chars(0 to 61) : "A","B","C",...,"7","8","9".
Espero que hasta ahi me sigas.

En este punto solo tenemos en un Vector (array) guardados todos los caracteres que vamos a usar.

Ahora, solicitamos la longitud en este caso la guardaremos en la variable Tam (de tamaño)

Ahora vamos a crear un vector donde guardaremos la cadena actual, su index maximo sera tam-1.

Suponiendo que tam = 3

hacemos asi:

Código

Dim Palabra() as integer
'dentro del proceso de creacion de diccionario
Redim Palabra(Tam-1)


Aca lo que hicimos es hacer que Palabra quedara (0 to 2) inicializandose asi:
Palabra(0 to 2): 0,0,0

aca empieza el proceso de creacion de strings...

Código

Código (vb) [Seleccionar] Expandir

Dim AuxPalabra As String
Do
   AuxPalabra = 0
   For X = 0 To tam - 1
       AuxPalabra = AuxPalabra & chars(palabra(X)) ' aca concatenamos todas las letras
   Next
   Print AuxPalabra ' aca imprimo la palabra resultante.
   palabra(0) = palabra(0) + 1 ' aca muevo un caracter
   For X = 0 To UBound(palabra) - 1
       If palabra(X) = UBound(chars) + 1 Then
           'aca verificamos que ninguna casilla quede con un numero mayor a los
           'caracteres que hay y si pasa eso aumenta la siguiente casilla
           'y la actual se vuelve a 0
           palabra(X + 1) = palabra(X + 1) + 1
           palabra(X) = 0
       End If
       'esto de abajo es para ver cuando se termino el proceso
       'osea cuando se han hecho todas las combinaciones.
       If palabra(UBound(palabra)) = UBound(chars) + 1 Then Exit Do
   Next
Loop


Entonces como te quedaria todo el codigo completo...

Código

Código (vb) [Seleccionar] Expandir

Dim Diccionario As String
Dim chars() As String
Dim Tam As Integer
Dim Palabra() As Integer
Private Sub Form_Load()
'aca en diccionario pone lo que quieras
Diccionario = "ABCDEFGHIJKLMNOPQRSTUVWXYabcdefghijklmnopqrstuvwxyz0123456789"
chars = CharSplit7913(Diccionario)
Tam = InputBox("inserte cantidad de caracteres")
ReDim Palabra(Tam - 1)
End Sub


Private Sub InicioDeProceso()
Dim AuxPalabra As String
   Do
       AuxPalabra = 0
       For X = 0 To Tam - 1
           AuxPalabra = AuxPalabra & chars(Palabra(X)) ' aca concatenamos todas las letras
       Next
       Debug.Print AuxPalabra ' aca imprimo la palabra resultante.
       Palabra(0) = Palabra(0) + 1 ' aca muevo un caracter
       For X = 0 To UBound(Palabra) - 1
           If Palabra(X) = UBound(chars) + 1 Then
               'aca verificamos que ninguna casilla quede con un numero mayor a los
               'caracteres que hay y si pasa eso aumenta la siguiente casilla
               'y la actual se vuelve a 0
               Palabra(X + 1) = Palabra(X + 1) + 1
               Palabra(X) = 0
           End If
           'esto de abajo es para ver cuando se termino el proceso
           'osea cuando se han hecho todas las combinaciones.
           If Palabra(UBound(Palabra)) = UBound(chars) + 1 Then Exit Do
       Next
   Loop
   MsgBox "Proceso Terminado"
End Sub

Private Function CharSplit7913(expression As String) As String()
   Dim lExp     As Long
   Dim ExpB()   As Byte
   Dim AuxArr() As String
       ExpB = expression
       lExp = UBound(ExpB)
       ReDim AuxArr(lExp)
       For X = 0 To lExp Step 2
           AuxArr(X / 2) = ChrW(ExpB(X))
       Next
       ReDim Preserve AuxArr(Int(lExp / 2))
       CharSplit7913 = AuxArr
End Function


GRACIAS POR LEER!!!

HOLA!!!

Hoy vi el logo de google y pense en hacer el experimento yo mismo da un resultado muy bueno, el que quiera el source code me avisa...

Este programa permite modificar la velocidad con la que se mueven las fotos y asi experimentar un poco como fue eso en su tiempo.

Para que lo descarguen, es un exe muy simple pero esta bueno para probar.

http://www.mediafire.com/?b297ai2gqgq2686

Captura:


Pd: Mods, no muevan a soft.

GRACIAS POR LEER!!!

HOLA!!!

La cuestion es la siguiente, estoy intentando hacer un uploader para mediafire, pero leyendo los hearders y las respuestas tengo un problema...

Obtengo la cookie:

Código [Seleccionar] Expandir

GET / HTTP/1.1
Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*
Accept -Language: es -ar
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; FunWebProducts; .NET CLR 2.0.50727; FunWebProducts; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Accept -Encoding: gzip , deflate
Host: mediafire.com
Connection: Keep -Alive




Busco los datos para la configuracion de subida, con el siguiente hearder...

Código [Seleccionar] Expandir

GET /basicapi/uploaderconfiguration.php?71487 HTTP/1.1
Accept: */*
Accept-Language: es-ar
Referer: http://www.mediafire.com/
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; FunWebProducts; .NET CLR 2.0.50727; FunWebProducts; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Host: www.mediafire.com
Connection: Keep-Alive
Cookie: ukey=anb6yti5a66b1cdpd55e1unribuo7r7n

La respuesta es: http://pastebin.com/4H2kS3FB

Luego de ahi hay que sacar los datos para el siguiente hearder, el de subida:

Código [Seleccionar] Expandir

POST /douploadtoapi/?track=%track%&ukey=%ukey%&user=%user%&uploadkey=%uploadkey%&upload=0 HTTP/1.1
Accept: text/*
Content-Type: multipart/form-data; boundary=%boundary%
User -Agent: Shockwave Flash
Host: www.mediafire.com
Content-Length: 469
Connection: Keep -Alive
cache -Control: no -cache
Cookie: ukey=%ukey%;



Como veran ahi ya coloque para reemplazar las variables...

Track la tengo es la etiqueta trackkey, Ukey es la cookie que obtengo al principio,user lo obtengo de la config.

Pero uploadkey y boundary no se de donde sacarlos, alguna idea?

GRACIAS POR LEER!!!

HOLA!!!

Una imagen vale mas que 1000 palabras:



Y un link de donde salio la idea (miren abajo de la pagina)
depende la conbinacion de colores que uses
http://www.google.com/intl/en/events/sciencefair/index.html
mira abajo

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Call Print7913Char(Picture1, Text2.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
Call Print7913Char(Picture2, Text1.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
Call Print7913Char(Picture3, Text3.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
Call Print7913Char(Picture4, Text4.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
End Sub

Private Sub Print7913Char(Pic As PictureBox, expression As String, Optional ColorOff As Long = 8421504, Optional ColorOn As Long = 65280, Optional AnchorOn As Long = 3, Optional AnchorOff As Long = 2, Optional BetweenChars As Long = 0)
Dim ChrPos As String
Dim char(72) As Boolean
Dim charpos(288) As Long
Dim a() As String
Dim AChr As Double
'123456789
'    5      0
' 25/|\75 1 125
' /|\|/|\ 2 25
'|\|/|\|/|3 375
'|/|\|/|\|4 500
'|\|/|\|/|5 625
'|/|\|/|\|6 750
' \|/|\|/ 7 875
'   \|/   8 1000
'                        "99.72X1...72Y1...72X2...72Y2"
ChrPos = "99.0.0.0.500.500.500.0.0.0.0.250.250.250.500.750.750.750.0.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.0.0.0.0.250.500.750.0.0.0.0.0.0.0.0.0.0.0.0.0.125.125.125.125.125.125.125.0.250.250.250.250.250.250.250.250.250.375.375.375.375.375.375.375.375.375.500.500.500.500.500.500.500.500.500.625.625.625.625.625.625.625.625.625.0.750.750.750.750.750.750.750.0.0.0.0.875.875.875.0.0.0.0.0.0.250.500.750.0.0.0.0.0.250.500.500.500.750.1000.0.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.0.0.0.0.500.500.500.0.0.0.0.0.0.125.125.125.0.0.0.0.250.250.250.250.250.250.250.0.375.375.375.375.375.375.375.375.375.500.500.500.500.500.500.500.500.500.625.625.625.625.625.625.625.625.625.750.750.750.750.750.750.750.750.750.0.875.875.875.875.875.875.875.0.0.0.0.1000.1000.1000.0.0.0"
Pic.ScaleMode = 3
Pic.DrawWidth = AnchorOff
Pic.Cls
AChr = Pic.ScaleHeight / 1000
a = Split(ChrPos, ".")
For x = 1 To 288
charpos(x) = a(x)
Next
For y = 1 To Len(expression)
   Select Case Asc(Mid(LCase(expression), y, 1))
           Case 48 '0
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 49 '1
               a = Split("9 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 0 0 0")
           Case 50 '2
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 1 1 1 1 1 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 51 '3
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 52 '4
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 53 '5
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 54 '6
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 55 '7
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 56 '8
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 0 0 0 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 57 '9
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 0 0 0")
           Case 97 'a
               a = Split("9 0 1 0 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 98 'b
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 99 'c
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 100 'd
               a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 101 'e
               a = Split("9 0 0 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 102 'f
               a = Split("9 0 0 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
           Case 103 'g
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 104 'h
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 0 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 105 'i
               a = Split("9 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
           Case 106 'j
               a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 107 'k
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 108 'l
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 109 'm
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0")
           Case 110 'n
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 111 'o
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 112 'p
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
           Case 113 'q
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 114 'r
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 115 's
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 116 't
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
           Case 117 'u
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
           Case 118 'v
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 1 1 0 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
           Case 119 'w
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 120 'x
               a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
           Case 121 'y
               a = Split("9 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
           Case 122 'z
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 0 0 0")
           Case 32 '" "
               a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
           Case 46 '.
               a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
           Case Else
               a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 0 0 0")
   End Select
   For x = 1 To 72
   char(x) = a(x)
   Next
   For x = 1 To 72
       If char(x) Then
           Pic.DrawWidth = AnchorOn
           Pic.Line (((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x) * AChr, charpos(x + 72) * AChr)-(((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x + 144) * AChr, charpos(x + 216) * AChr), ColorOn
           Pic.DrawWidth = AnchorOff
       Else
           Pic.Line (((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x) * AChr, charpos(x + 72) * AChr)-(((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x + 144) * AChr, charpos(x + 216) * AChr), ColorOff
       End If
   Next
Next

End Sub


GRACIAS POR LEER!!!

HOLA!!!

La pregunta es simple, tengo mi notebook, una acer aspire 4732z con 4gb de ram, un dual core de 2.2 por nucleo osea 4.4 creo, arquitectura de 64bits y una placa de video de 1.7 gb de ram creo que es intel mobile 4 sin pixel sharing (que no se que es).

Mi duda surge de por que no puedo correr el lost via domus por que tengo + de 3 veces los requerimientos  (anda lento).

Y la otra es si los 1.7 gb de la ram de video se me restan de los 4gb que tengo. Esto me lo comento un amigo que dice que cuando son placas integradas desde la bios se le asigna una porcion de la ram del equipo para que utilicen.

GRACIAS POR LEER!!!

[Un mensaje del fundador de Wikipedia, Jimmy Wales.]

HOLA!!!

Un mensaje del fundador de Wikipedia, Jimmy Wales.
Google debe tener cerca de un millón de servidores. Yahoo, alrededor de 13000 empleados. Nosotros contamos con 679 servidores y 95 empleados.

Wikipedia es el quinto sitio en la red y sirve a 450 millones de personas diferentes todos los meses, con miles de millones de visitas.

El negocio es bueno, la publicidad no es mala, pero eso aquí no tiene cabida. No en Wikipedia.

Wikipedia es algo especial. Es como una biblioteca o parque público. Como un templo para la mente. Un lugar en el que todos podemos ir a pensar, a aprender, a compartir nuestros conocimientos con los demás.

Cuando fundé Wikipedia, pude haberla creado como una compañía lucrativa con anuncios publicitarios, pero decidí hacer algo diferente. En estos últimos años hemos trabajado bastante para no malgastar. Cumplimos nuestra misión y dejamos que otros sean los que derrochen.

Si todas las personas que leen este mensaje donaran $25, sólo tendríamos que recaudar un día al año. Pero no todos pueden donar o van a hacerlo. Y así está bien. Cada año el número de personas que deciden donar es suficiente.

Este año, por favor considere hacer una donación de $25, $50, $100 o la cantidad que pueda permitirse para proteger y mantener Wikipedia.

Gracias,

Jimmy Wales
Fundador de Wikipedia

Para donar Click aqui


GRACIAS POR LEER!!!

HOLA!!!

//tema creado para seguir el OffTopic de otro//

GRACIAS POR LEER!!!

HOLA!!!

Tengo una blackberry torch 9800 y la verdad ya no veo blackberry que me de mas prestaciones que el resto de los smartphones (hasta hace un año si blackberry daba mucho mas).

Estuve viendo celulares y los 2 mejores son esos, el motorola, por su calidad y el samsung por su potencia.

Espero que me puedan aconsejar.

GRACIAS POR LEER!!!

HOLA!!!

Esto es para ver si tengo testimonios de gente que haya usado esta droga que supuestamente mejora la concentracion y quita el sueño.

No quiero que me den testimonio los que lo tomaron por que se lo recetaron por supuesto.

Estaria bueno que alguien que lo haya probado por motus propia lo diga.

Estoy muy intrigado con el tema, no me falta nada de inteligencia o concentracion, pero uno es ambicioso y siempre quiere mas!

GRACIAS POR LEER!!!

HOLA!!!

No soy de postear boludeces...

Pero se dieron cuenta que las mujeres en las redes sociales como facebook y sistemas de mensajeria instantanea como el MSN Messenger Han creado un sistema de cifrado de muy alto nivel?

Un ejemplo del cifrado:

Frase de entrada: "Te amo Pepito, sos lo mejor que me paso en la VIDA! No te voy a olvidar Nunca!."

Se pasa por el programa de cifrado y devuelve:
"tamoppitpsslomejrqmepasonlavidanotevyalvidarnunc"

Como podran apreciar el sistema es practicamente INfranqueable por que se eliminan caracteres, y no hay manera de repoerlos... Aparte se quitan mayusculas y signos de puntuacion, sin contar que se intercambian algunos caracteres con los aledaños en el teclado de entrada.
Por ejemplo "pepito" se convirtio en "ppitp" Perdiendo su segunda letra e intercambiando la ultima por su letra de la derecha.

[Entiendanme, es tarde, no puedo salir por que estoy tomando antibioticos, osea me aburro en casa]

P.D: Esto no es para ofender ni denigrar a ninguna dama ya que la mayoria que usa este sistema de cifrado son adolescentes entre 12 y 19 años del sexo femenino.

GRACIAS POR LEER!!!

[alguien haga un test :O]

HOLA!!!

Sinceramente no se si sera tan rapida como la de Psyke1 pero me agrado y arme una, alguien haga un test :O

Código (vb) [Seleccionar] Expandir

'cConcatenar7913.cls
Private Memoria As String
Private Capacidad As Long
Private TAM As Long

Private Sub Class_Initialize()
        Capacidad = 65536
        Memoria = Space$(65536)
        TAM = 0
End Sub

Public Sub Agregar(ByRef STR As String)
    Dim actTAM As Long
        actTAM = LenB(STR) / 2
        Do While actTAM > Capacidad - TAM
            Memoria = Memoria & Space$(Capacidad)
            Capacidad = Capacidad * 2
        Loop
        MidB$(Memoria, TAM + TAM + 2) = STR
        TAM = TAM + actTAM
End Sub

Public Property Get CerrarSTR() As String
        CerrarSTR = LeftB$(Memoria, TAM + TAM)
        Call Class_Initialize
        Debug.Print "Se ha borrado el string viejo y creado uno en blanco"
End Property

Public Property Get TamañoACT() As Long
        TamanoACT = TAM
End Property

GRACIAS POR LEER!!!

[sensores anti robo de los locales de ropa]

HOLA!!!

Como de costumbre vengo a pedir su ayuda...

Ubican los sensores anti robo de los locales de ropa?

Bueno, en mi ciudad cuestan aproximadamente 4000U$S todo el equipo.

Y me pidieron que armara un sistema que sea como los clasicos y que ademas detectara Bolsas de aluminio (por que las usan para robar) Investigando llegue a la conclusion que la mejor manera es hacerlo por separado...

Por un lado un sistema Clasico...

Y por el otro un sistema que detecte las bolsas de ALUMINIO, pense al instante en un detector de metales, el problema es que saltaria por cualquier frecuencia metalica... Entonces mi problema es, Como hago que el detector de metales solo detecte solamente ALUMINIO?

Se que hay que hacer un filtro de frecuencia pero a que frecuencia, la frecuencia del aluminio variara segun la bobina emisora y receptora que coloque?

Aparte de todo esto que ya es un problema grande creo, el sensor debe ser capaz de detectar el aluminio de 0 a un metro de distancia minimo. (segun lo que lei los circuitos de internet alcanzan a 20 cm maximo).

GRACIAS POR LEER!!!

HOLA!!!

Este juego lo arme en aprox 4hs, me encanto la idea, muy entretenido y depende de la estrategia que uses ganaras o perderas.

El juego consiste en lo siguiente:
(una imagen antes XD)


Tenes 3 acciones posibles:
Sembrar pasto, este sera el alimento de nuestros bichos.
Poner bebes, estos creceran y se haran machos o hembras, para luego Procrear.
Y diseminar veneno, para mantener la poblacion al margen.
(Mucha poblacion significa poca comida lo que haria que mueran todos de hambre)

Tenes que administrar bien la comida(Pasto) ya que estos bichitos estan muy hambrientos y comeran todo lo que se les cruze (sea Pasto, Veneno o Popo).

Los bichos mueren por 3 razones:
Comer veneno.
No comer.
De viejos.

Cuando mueren dejan un cuerpo este cuando pase el tiempo se convertira en pasto y les dara de comer a los bichos.

Cuando los bichos comen mucho hacen popo, el cual si pasa tiempo se hace pasto y da de comer PERO si lo comen antes les hara mal y quedaran con mucha hambre.

Si hay un cuerpo al lado de un popo ambos generaran veneno.

Si hay un macho y hembra con edad suficiente al lado daran entre 1 y 10 bebes cada vez que se toquen.

En fin ese es el juego...

¿A CUANTOS CICLOS LLEGARAS?

URL descarga:
http://www.mediafire.com/?bg113g8113ra1lc

GRACIAS POR LEER!!!

HOLA!!!

El tema es asi...

Tengo una red (router tplink) con los 16 slots llenos, lo que quiero hacer es lo siguiente... quiero que una pc dentro de la red distribuya internet por medio de un adaptador inalambrico usb... me entienden lo que digo?

Osea:

Red de area local -> PC conectada ->)) (wifi) Sub Red inalambrica ->)) otras PCs que se conecten a esa red (la wifi).

GRACIAS POR LEER!!!

HOLA!!!











GRACIAS POR LEER!!!

HOLA!!!

Viendo como ha decaido la actividad y nivel en el foro, me propongo aunque sea a que las nuevas mentes que hay aqui hagan un pequeño reto que les propongo...

El Reto es hacer una funcion que remplace efectivamente a la funcion IsNumeric que viene de fabrica en vb...

Deberan usar para nombrar la funcion un metodo como este:

Código (vb) [Seleccionar] Expandir

Private Function IsNumeric_SuNickReducido(str As String) As Boolean
'Ejemplos:
'Raul338:
Private Function IsNumeric_r338(str As String) As Boolean
'79137913:
Private Function IsNumeric_7913(str As String) As Boolean

Ejemplos de lo que devuelve la funcion original:

Código [Seleccionar] Expandir

IsNumeric("asdf") ->False
IsNumeric("a12f") ->False
IsNumeric("12,12") ->True
IsNumeric("12.12") ->True
IsNumeric("12,23,34") ->False
IsNumeric("133.23.330") ->True
IsNumeric("36.658,30") ->True
IsNumeric("81,838.59") ->True


Espero que hayan entendido, TODOS pueden participar...

Es un reto dentro de todo simple...

Cuando esten todas las funciones se competira para encontrar al que hizo el codigo mas rapido(se mide con ctiming), luego se tomara de referencia la funcion original para ver si alguien la supera.

Notas:
·Las funciones y variables booleanas se inicializan en False.
·Se recomienda usar APIs.
·Se recomienda usar InStr.
·Se recomienda utilizar arrays de bytes.
·Se vale usar BadTypeConvert // EvilTypeConvert
·Recuerden que el tipo numerico mas rapido en vb es el Entero Largo (Long).


GRACIAS POR LEER!!!

HOLA!!!

Bueno este tema es para ver cuanto tiempo pasan UDS usuarios delante de la pc.

MI CASO:

Yo trabajo de Lunes a Viernes de 8 a 16 hs en frente al monitor.
Estare en mi notebook personal Aprox 4 hs por semana.
Y el resto del tiempo en frente a mi BlackBerry 9800.

Espero sus comentarios...

GRACIAS POR LEER!!!

HOLA!!!

Bueno, mas que nada lo que les pido es que entren a la pagina y pongan un simple "ME GUSTA" XD

Gracias!

http://www.facebook.com/pages/Carteras-Importadas/199210443460355?sk=wall

GRACIAS POR LEER!!!

HOLA!!!

Les comento, soy medio amateur con el tema de la electronica, he hecho circuitos pero siempre con simuladores y demas.

Quisiera saber si alguien tiene algun circuito para manejar Reles por LPT, me comentaron de los optocopladores, pero, pregunto estos que voltaje y amperaje resisten?

Por que a mi parecer con optocopladores no requiero mas que el voltaje del puerto paralelo pero si quiero habilitar una linea de corriente de 220v voy mal ...

Habia pensado hacer que con los 1 del puerto se activaran los optocopladores y que estos habiliten a su ves a los Reles, me entienden?

D¡sculpen por mi mala redaccion, tengo las ideas mezcladas XD.

GRACIAS POR LEER!!!

[Velocidad]

HOLA!!!

(Se en que programar y lo que me gusta, solo para saber la opinión de la gente del foro)

Quisiera que pusieran su opinión sobre cual les parece mejor en estos aspectos:

1- Velocidad de Desarrollo.
2- Velocidad de Proceso.
3- Re utilización de Codigos.
4- Modelo Mental (cual les parece que enseña a pensar mejor)
5- Modelo Mental (cual les parece que requiere pensar mas)
6- Envergadura de Proyecto (cual les parece mejor para proyectos GRANDES)
7- Eficiencia en uso de Memoria y procesador.
8- Facilidad de lectura del codigo.
9- Organizacion de codigo.
10- Su opinion y eleccion Personal.

GRACIAS POR LEER!!!

HOLA!!!

Como lo dice el titulo, agrega un scrollbar horizontal al ListBox, yo la usaria con Call, pero le puse para que devolviera false en el caso que no resultara.

Código (vb) [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Function HListScroll7913Add(ListX As ListBox) As Boolean
On Error GoTo Err:
Dim X As Long
Dim new_len As Long
Dim max_len As Long
   HListScrollAdd7913 = True
   For X = 0 To ListX.ListCount - 1
       new_len = 10 + ScaleX(TextWidth(ListX.List(X)), ScaleMode, vbPixels)
       If max_len < new_len Then max_len = new_len
   Next
   SendMessage ListX.hwnd, &H194, max_len, 0
Err:
   HListScrollAdd7913 = False
End Function

GRACIAS POR LEER!!!

HOLA!!!

Estoy buscando algún tipo de ide para programar en android 2.2 (en una tablet pc) conocen algo? Se me hace dificil encontrar :S, que compile y permita debug. Espero que me puedan ayudar, no importa mucho el lenguaje, preferiblemente vb,c#,delphi/pascal o Java.

Aclaro por si no se entendió, no quiero programar para una tablet, quiero programar en la tablet.

GRANIAS POR LEER!!!

HOLA!!!

Estaba viendo Sources de mi biblioteca (virtual), y encontre uno que hacia letras 3D (medio cutre el codigo pero bueno) lo edite y hace letras 3D con diferentes orientaciones, soporta cambio de colores, fuentes tamaños y orientacion.

Las letras salen muy coloridas por la funcion ABS cambien ahi y pierden los colores Flasheros.

Nota, la Funcion la llaman con Call.

Una Imagen (letra arial color 90,200,30):


Source:

Código (vb) [Seleccionar] Expandir

Private Function Letras3D7913(Pic As PictureBox, Frase As String, Red As Long, Green As Long, Blue As Long, Optional Orientacion As Boolean = True, Optional Tamaño As Long = 25, Optional Fuente As String = "Arial")
Dim x As Long
   Pic.FontName = Fuente
   Pic.FontSize = Tamaño
   For x = 255 To 1 Step -1
       Pic.ForeColor = RGB(Abs(Red - x), Abs(Green - x), Abs(Blue - x))
       If Orientacion Then Pic.CurrentX = x Else Pic.CurrentX = 255 - x
       If Orientacion Then Pic.CurrentY = x Else Pic.CurrentY = 255 - x
       Pic.Print Frase
   Next x
End Function

Nota: La funcion original no tenia autor aparentemente, al que lo hizo gracias!

GRACIAS POR LEER!!!

HOLA!!!

Hay alguien de Mar del Plata aca en el foro?

GRACIAS POR LEER!!!

HOLA!!!

Bueno... es un creador de diccionarios ni mas ni menos, pero al trabajar con strings anda lento. Igual funciona bastante bienn .

Siguiendo... les dejo una captura, el source y el binario.

Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona .

Código (vb) [Seleccionar] Expandir

Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
Const Num As String = "0123456789"                   'Numeros
Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
Dim Cad As String                                    'Cadena entera de caracteres
Dim X As Long                                        'Para los Bucles

Private Sub Inicio()
Dim Letras() As String
Dim Posiciones() As Long
Dim Palabras() As String
Dim a As Long
Dim CT As Long
Dim CantPos As Long
Dim CantLet As Long
   Letras = CharSplit7913(Cad)
   CantLet = UBound(Letras)
   Open "C:\Dic7913.txt" For Output As #1
   Close #1
   ReDim Palabras(1000)
   For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
       CantPos = MinMaxL(0) + a - 1
       ReDim Posiciones(CantPos)
       Do
       For X = 0 To CantPos
           Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
       Next
       CT = CT + 1
       Posiciones(0) = Posiciones(0) + 1
       For X = 0 To CantPos - 1
           If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
       Next
       If CT = 1001 Then
           Open "C:\Dic7913.txt" For Append As #1
               For X = 0 To 1000
                   Print #1, Palabras(X)
               Next
           Close #1
           ReDim Palabras(1000)
           CT = 0
       End If
       If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
       Loop
Terminado:
   Next
   If CT <> 0 Then
       Open "C:\Dic7913.txt" For Append As #1
           For X = 0 To CT
               Print #1, Palabras(X)
           Next
       Close #1
       CT = 0
   End If
   MsgBox "Terminado", vbInformation, "Atencion"
End Sub

Private Sub Caracteres_Click(Index As Integer)
   'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
   If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
End Sub

Private Sub Go_Click()
Dim FlagCheck As Boolean
   'Comprobacion de los minimos y maximos de longitud
   If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
   If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
   If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
   'Comprobacion de los checkboxes, minimo uno debe estar tildado
   For X = 0 To 6
       If Caracteres(X).Value = 1 Then FlagCheck = True
   Next
   If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
   Cad = vbNullString 'Vacio el string Cad por si estaba lleno
   'Lleno cad con la seleccion del usuario
   If Caracteres(0).Value = 1 Then Cad = Num
   If Caracteres(1).Value = 1 Then Cad = Cad & Sym
   If Caracteres(2).Value = 1 Then Cad = Cad & Min
   If Caracteres(3).Value = 1 Then Cad = Cad & Max
   If Caracteres(4).Value = 1 Then Cad = Cad & SpL
   If Caracteres(5).Value = 1 Then Cad = Cad & SpU
   If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
   MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
   Call Inicio ' llamo al inicio de proceso
End Sub

Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
   If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
End Sub

Private Function CharSplit7913(expression As String) As String()
   Dim lExp     As Long
   Dim ExpB()   As Byte
   Dim AuxArr() As String
   ExpB = expression
   lExp = UBound(ExpB)
   ReDim AuxArr(lExp)
   For X = 0 To lExp Step 2
       AuxArr(X / 2) = ChrW(ExpB(X))
   Next
   ReDim Preserve AuxArr(Int(lExp / 2))
   CharSplit7913 = AuxArr
End Function


Descargar Source y Binario:
Mediafire

GRACIAS POR LEER!!!

HOLA!!!

Quiero comprar una MicroPc pero la verdad no quiero pagar de mas ni que me vendan gato por liebre...

Esta es la que vi, sale USD 157 pero tiene 256 de ram :S eso no me convence... igual no quiero muuuucha ram con 512 estaria perfecto

Si saben de otras MiniPc Buenas que no superen los USD 200 Me avisan Plz.

Mas que nada mi duda es que dice "FanLess" osea supongo que no tiene ventiladores por lo cual puede que se recaliente no?

Despues no dice nada de Wifi pero eso se soluciona con un usb y chau.

Les dejo las especificaciones:

Código [Seleccionar] Expandir

Model: eBox-2300/2310DXA
OS System: None. Support Windows 98/2000/XP/CE/Dos/Linux (professional
Processor: TDX600 1 GHz (Fanless)
Memory: 256MB DDR2 onboard
External HDD Support: Max 500 GB
VGA: External 15-pin D-type female VGA connector
Ethernet Interface: RJ45 10/100 Mbps
I/O: 1 x External 6-pin Mini DIN for PS2 Keyboard
1 x RJ-45 Ethernet Connector
2 x RS-232 Ports
3 x USB hosts
1 x Compact Flash Slot
Power Input: AC 100~240 V power adapter included
Manufacturer's Warranty: 12 Months excluding physical damages (see specifications for terms and details


GRACIAS POR LEER!!!

HOLA!!!

Seguramente es de distraido, pero no me permite compilar por que... bueno lo que dice el titulo... debe ser por despistado, pero lei 4 veces el codigo y no encuentro el problema... les dejo el codigo a ver si saben por que .


Mod: Solucionado

GRACIAS POR LEER!!!

HOLA!!!

Como el titulo lo dice, para las regiones donde no funcionaba ImagesHack ya esta funcionando, solo hay que Registrarse o loguearse .

GRACIAS POR LEER!!!

HOLA!!!

Primero que nada, no me tomen para el chiste.

Voy a pedir algo sobre tecnologia obsoleta, casi arcaica...

Tengo mi commodore 128 guardada, y la quiero usar, aunque sea de terminal...

La verdad no se si sera capaz de crear una conexión con un Win XP, pero estaria genial.

Espero que alguien me pueda pasar algo de documentacion, puesto que no encuentro mucho en la web... se encuentran manuales de basic pero no llegan al uso de sockets, a lo sumo llegan a For - Next.

Por ahora es eso. Gracias.

GRACIAS POR LEER!!!

HOLA!!!

Me parece que va a estar bueno, el reto consiste en crear 3 funciones:
(Usa Long por la rapidez y para soportar numeros grandes)

Código [Seleccionar] Expandir


AndAlt(Byte1 As Long, Byte2 As Long) as Long
OrAlt(Byte1 As Long, Byte2 As Long) as Long
XorAlt(Byte1 As Long, Byte2 As Long) as Long

Creo que mucho no hay que explicar las funciones deben devolver lo mismo que los operadores binarios convencionales.

P.D: Me habia olvidado... NotAlt(Byte1 As Long)
P.D2: Creo que es obvio, no se pueden usar los operadores en las funciones.
P.D3:Para los que no saben como funcionan los operadores binarios:

Código [Seleccionar] Expandir

Primero los valores se convierten a binario y luego se hace esto:

And: Solo si se comparte el mismo bit en ambos numeros.
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
        -----------------
Result  = 0 0 1 0 1 0 0 0

Or : Solo si uno tiene un bit "1".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
        -----------------
Result  = 1 0 1 1 1 0 1 1

Xor : Solo si uno tiene un bit "1" y el otro "0".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
        -----------------
Result  = 1 0 0 1 0 0 1 1

GRACIAS POR LEER!!!

HOLA!!!

Antes que nada, el codigo esta un poco desordenado pero funciona perfect.

El programa es perfecto para cuando uno no quiere que accedan a la pc mientras uno no esta.

Posee Calculadora integrada, Calendario y Tetris

Si la pc se reinicia, el Programa al iniciar sesion se activa nuevamente.
Bloquea el administrador de tareas.
Queda "Always on top"
Te dice la fecha y la hora.

Metodos para Anularlo, bueno simple, entrar en modo a prueba de fallos y borrar o mover el exe. (o borrar el .bat que se crea en la carpeta inico).

Una captura:



Atencion:

Como cerrarlo?

En el campo Nota1 poner el numero de dia en los primeros 2 caracteres
En el campo Nota2 poner el numero de mes en los primeros 2 caracteres
En el campo Nota3 poner el numero de año en los primeros 4 caracteres
(en el caso del mes y el dia , si son menores a 10 habra que poner un 0 antes del numero)

Ahi el boton salir funcionara...

Presionamos salir (dblclick)

Y en contraseña ponemos la hora y los minutos seguidos de "7913"

Presionamos salir y listo.

Código [Seleccionar] Expandir


Ejemplo: hoy es 21/3/2011 y son las 02:51 pm

En nota1: "21" o "21 hola como andas"
En nota2: "03" o "03 todo bien"
En nota3: "2011" o "2011 si si"
En pass : "14517913"

Descargar URL:
http://www.mediafire.com/?bmy8nwa3gbm053z

GRACIAS POR LEER!!!

HOLA!!!

Tengo una pequeña duda, hay posibilidades de "animar" los iFrames de tal manera que aparezcan* en x tiempo y desaparezcan* a los y segundos de aparecidos?

El iFrame contendria: Http://www.chalecosmdq.com.ar/clima/index.php

*Al decir aparezcan y desaparezcan me refiero a algun tipo de bucle temporal que vaya modificando el alfa del iframe.

GRACIAS POR LEER!!!

HOLA!!!

Bueno, mas que el titulo no puedo decir, es simplemente eso dejo el codigo y un ejemplo.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim hola() As String
hola = CharSplit7913("hola")
' Devuelve
' Hola(0) = "h"
' Hola(1) = "o"
' Hola(2) = "l"
' Hola(3) = "a"
End Sub

Private Function CharSplit7913(expression As String) As String()
   Dim X        As Long
   Dim lExp     As Long
   Dim ExpB()   As Byte
   Dim AuxArr() As String

   ExpB = expression
   lExp = UBound(ExpB)
   ReDim AuxArr(lExp)

   For X = 0 To lExp Step 2
       AuxArr(X / 2) = ChrW$(ExpB(X))
   Next

   ReDim Preserve AuxArr(lExp \ 2)

   CharSplit7913 = AuxArr

End Function


GRACIAS POR LEER!!!

HOLA!!!

Hoy queria hacer un split que devuelva un array con varios delimitadores y aparte tenga la opcion de guardar el delimitador... en fin... hice esta funcion, espero que les sirva.

Antes que el codigo Ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Ejemplo()
Dim dels(3) As String
Dim result() As String
Const ss As String = "hola+como--andas(((esto====es+una--prueba"
   dels(0) = "+"
   dels(1) = "--"
   dels(2) = "((("
   dels(3) = "===="
   
   'sin preservar delimitadores
   result = MultiSplit7913(ss, dels, False)
   'result = ("hola";"como";"andas";"esto";"es";"una";"prueba")
   
   'preservando delimitadores
   result = MultiSplit7913(ss, dels, True)
   'result = ("hola";"+como";"--andas";"(((esto";"====es";"+una";"--prueba")
End Sub

El Codigo

Código (vb) [Seleccionar] Expandir

Private Function MultiSplit7913(expression As String, Delimiter() As String, PreserveDel As Boolean) As String()
Dim DelCount    As Long
Dim lExp        As Long
Dim X           As Long
Dim Pos         As Long
Dim DelPos()    As Long
Dim AuxArr()    As String
Dim LastPos     As Long
Dim LastLen     As Long
Dim LastInstr   As Long

    expression = expression & Delimiter(0)
    lExp = Len(expression)
    DelCount = UBound(Delimiter)
    ReDim DelPos(lExp)
     
    For X = 0 To DelCount
        Pos = 1
        LastInstr = InStr(Pos, expression, Delimiter(X))
        Do While LastInstr <> 0
            DelPos(LastInstr) = X + 1
            Pos = LastInstr + Len(Delimiter(X)) + Pos
            LastInstr = InStr(Pos, expression, Delimiter(X))
        Loop
    Next
   
    ReDim AuxArr(0)
   
    LastPos = 1
     
    For X = 0 To lExp
        If DelPos(X) <> 0 Then
            ReDim Preserve AuxArr(UBound(AuxArr) + 1)
            If PreserveDel Then
                AuxArr(UBound(AuxArr) - 1) = Mid$(expression, LastPos, X - LastPos)
            Else
                AuxArr(UBound(AuxArr) - 1) = Mid$(expression, LastPos + LastLen, X - LastPos - LastLen)
                LastLen = Len(Delimiter(DelPos(X) - 1))
            End If
            LastPos = X
        End If
    Next
     
    ReDim Preserve AuxArr(UBound(AuxArr) - 1)
     
    MultiSplit7913 = AuxArr

End Function


GRACIAS POR LEER!!!

HOLA!!!

Ya se que el tema esta super tratado, pero no pude encontrar nada al respecto que me solucione el tema, y cuando lo encontraba los links estaban caidos o el soft traia "regalitos" ... espero ayuda ...

Dejo la cadena...

Código [Seleccionar] Expandir

{71,75,-71,110,29,-93,-79,34,-34,118,63,-48,89,113,-40,-98,-2,-87,87,-109,-20,-105,-28,6,0};

(Pff, supongo que me lo van a mover)

GRACIAS POR LEER!!!

HOLA!!!

Bueno, hoy intentando hacer una interfaz totalmente pintada intente hacer unas lineas en escala de grises, pero no se que numeros corresponden a los grises... :S

Yo pensaba que conseguia grises haciendo n*n*n y me daba un long correspondiente a un punto de la escala de grises, me pueden pasar como calcular esta Escala PLZ.

Código (vb) [Seleccionar] Expandir


Me.Line (0, Y)-(Me.ScaleWidth, Y), GRIS


Solucion: usar funcion RGB XD

GRACIAS POR LEER!!!

[En definitiva quiero saber que software me recomiendan para hacer la animacion en 3D.]

HOLA!!!

No se si en este subforo corresponde tambien animacion, pero espero que si...

Me pidieron que arme una animacion para el clima (para un canal de TV) pero el tema es que quieren una animacion en 3D y que despues salga el reporte del clima...

Osea Una Intro en 3D, despues el reporte del clima con dibujitos en 3d y con movimiento y despues un cierre en 3D.

Yo lo que hice ya es el reporte del clima en Flash, pero las animaciones en 3D que puedo hacer en flash :S no me gustan... Por eso pense en hacer un video para la intro y el cierre con otro soft y despues subirlo al flash...

En definitiva quiero saber que software me recomiendan para hacer la animacion en 3D.

GRACIAS POR LEER!!!