Mensajes

Código (vbnet) [Seleccionar] Expandir

Me.ListBox7.Items.AddRange((From value As Integer In li Where value <> 0).Cast(Of Object).ToArray)

Saludos

Alguien que lo tenga podria resubirlo?

Ahora que vuelvo a ver estos launchers, el código es muy, muy sucio y mal estructurado, si lo volviese a desarrollar despues de 3 años sería totalmente distinto, pero bueno ...funciona bien tal y cómo está.

Aquí tienes los dos proyectos resubidos:
http://www.mediafire.com/download/0cpt006cciarcdh/game+launchers.rar

Saludos

en Enero de este año también le hicieron un deface ""protestando"" por no se que del islamismo, pobre Admin.

no existe "staff" que se dedique a crear estas guías, más bien como comunidad

Solo por aportar el siguiente dato, hay varios miembros del foro que por su labor se han ganado el merecido título "wiki" cómo colaborador de la wiki. Esto significa que si alguien se esfuerza podría salir recompensado de esta manera.

Saludos

Prueba así:

Código (vbnet) [Seleccionar] Expandir

Dim ret As Object = wb.Document.InvokeScript("IN.sEm", {" :\\ "})

Saludos

las variables si que estan codificadas:

Código (csharp) [Seleccionar] Expandir

string postData = "usuario=" + usuario + "&contrasena=" + contraseña + "&submit=Login";
           byte[] byteData = ASCIIEncoding.ASCII.GetBytes(postData);

Por codificar me refiero a la codificación html, no a codificar el string en una secuencia de bytes cómo estás haciendo.

Si el usuario/contraseña contiene por ejemplo un espacio entonces vas a codificar 1 byte " " en lugar de codificar los caracteres "%20", ¿me entiendes?.

Porfavor, aclara si el usuario/contraseña contienen espacios u otros caracteres ilegales para descartar que ese sea el problema,
si tienes dudas vuelve a leer la pregunta nº1 que hice en el comentario anterior donde mostré un ejemplo de cómo codificar el string (primero codificas el usuario/contraseña a html, y luego generas los bytes cómo estabas haciendo, pero con el usuario/contraseña codificados a html).

Saludos!

Pero es que el problema raíz se debe solucionar así...

Quizás yo entiendo mal lo que pretendes hacer o quizás le estás dando el enfoque incorrecto al código puesto que si quieres usar splits(15) entonces debes incrementar la colección 'values'.

Mira, tienes una colección de 18 números:

Código (vbnet) [Seleccionar] Expandir

       Dim values As IEnumerable(Of Integer) =
           {
               1, 2,
               3, 4,
               5, 6,
               10, 11,
               14, 15,
               54, 57,
               58, 60,
               63, 64,
               65, 67
           }

Y la particionas en colecciones de 2 elementos cada una, es decir, un total de 9:

Código (vbnet) [Seleccionar] Expandir

       Dim splits As IEnumerable(Of IEnumerable(Of Integer)) =
           SplitIntoParts(collection:=values, amount:=2, fillEmpty:=True)

Desde 'splits(0)' hasta 'splits(8)'.

Pero aquí intentas acceder al índice 15 (splits(15)):

Código (vbnet) [Seleccionar] Expandir

Dim concatCol As IEnumerable(Of Integer) = splits(0).Concat(splits(3).Concat(splits(4).Concat(splits(5).Concat(splits(15)))))

Si antes de partir no rellenas la colección ' values' con ceros o con lo que sea, entonces dime tú cómo vas a pretender acceder a splits(15) cuando cómo bien dices no llega a 15, son 9 (splits(8)),
la colección que vas a partir debería contener 32 números en vez de 18 para así poder llegar a 16 secuencias, a splits(15).



Por cierto, he modificado la función para hacerla más comprensible y le añadí un parámetro adicional (valueToFill):

Código (vbnet) [Seleccionar] Expandir



   ''' <remarks>
   ''' *****************************************************************
   ''' Snippet Title: Split Collection Into Number Of elements
   ''' Code's Author: Elektro
   ''' Date Modified: 31-March-2015
   ''' Usage Example:
   ''' Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
   ''' Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = SplitIntoNumberOfelements(col:=mainCol, amount:=4, fillEmpty:=True, valueToFill:=0)
   ''' splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
   '''                                 Debug.WriteLine(String.Join(", ", col))
   '''                             End Sub)
   ''' *****************************************************************
   ''' </remarks>
   ''' <summary>
   ''' Splits an <see cref="IEnumerable(Of T)"/> into secuences with the specified amount of elements each one.
   ''' </summary>
   ''' <typeparam name="T"></typeparam>
   ''' <param name="col">The collection to split.</param>
   ''' <param name="amount">The target elements amount.</param>
   ''' <param name="fillEmpty">If set to <c>true</c>, generates empty elements to fill the last secuence's part amount.</param>
   ''' <param name="valueToFill">An optional value used to fill the last secuence's part amount.</param>
   ''' <returns>IEnumerable(Of IEnumerable(Of T)).</returns>
   Public Shared Function SplitIntoNumberOfelements(Of T)(ByVal col As IEnumerable(Of T),
                                                          ByVal amount As Integer,
                                                          ByVal fillEmpty As Boolean,
                                                          Optional valueToFill As T = Nothing) As IEnumerable(Of IEnumerable(Of T))

       Return (From count As Integer In Enumerable.Range(0, CInt(Math.Ceiling(col.Count() / amount)))).
               Select(Function(count)

                          Select Case fillEmpty

                              Case True
                                  If (col.Count - (count * amount)) >= amount Then
                                      Return col.Skip(count * amount).Take(amount)

                                  Else
                                      Return col.Skip(count * amount).Take(amount).
                                                 Concat(Enumerable.Repeat(Of T)(
                                                        valueToFill,
                                                        amount - (col.Count() - (count * amount))))
                                  End If

                              Case Else
                                  Return col.Skip(count * amount).Take(amount)

                          End Select

                      End Function)

   End Function

El requisito de que sean 35 elementos no se por que es, pero si el problema es que quieres evitar el error de valor nulo, y suponiendo que no te importe evitar dicho error rellenando los elmentos restantes de la secuencia con ceros hasta llegar a los 35 elementos, entonces puedes hacer simplemente eso, rellenar (bueno, concatenar la secuencia con una secuencia de ceros):

Código (vbnet) [Seleccionar] Expandir

If values.Count < 35 Then
   values = values.Concat(Enumerable.Repeat(Of Integer)(0, (35 - values.Count)))
End If

MsgBox(values.Count) ' 35

¿eso te sirve para lo que quieres hacer?

Saludos.

No se exactamente de alguna buena fuente de documentación para perl, pero esto te podría servir, aparte de ejemplos explican los conceptos:

Una Introducción a Perl
http://nereida.deioc.ull.es/~lhp/perlexamples/

Plus la documentación oficial, claro está:
http://perldoc.perl.org/index-language.html

Saludos

Algunas fallitas jejej pero es mas o menos la idea

!) el operador '>' no está definido para los tipos 'System.Collections.Generic.IEnumerable(Of Integer)' y 'Integer'.
2) un valor de tipo 'Integer' no se puede convertir en 'System.Collections.Generic.IEnumerable(Of Integer)'.

Las variables que has mostrado en tu código eran todas Integer.

Si no te explicas mejor ni muestras un ejemplo real...

Código [Seleccionar] Expandir

if colección(índice).Count > 35 then...

elseif...
else...
end if

Saludos