Mensajes

Un reto dificilillo...

Código [Seleccionar] Expandir


Function SolveSudoku_raul338(s() As Byte) As Byte()
Se introduce una matriz bidimensional de 9x9. Los huecos serán "0"
Info

Código [Seleccionar] Expandir

http://es.wikipedia.org/wiki/Sudoku
Vale todo, el más rápido gana.

DoEvents!

http://www.vbforums.com/showthread.php?t=532858

Aquí está muy bien explicado.

DoEvents!

[BlackZeroX]

Ui, algo pasa aquí... ¿BlackZeroX llevando proyectos a cabo?
Ya tenías pensada la idea y me la dijiste hace ya casi un año, pero no la llevamos a cabo por falta de tiempo y demás factores...
Bueno, no hace falta que diga que tienes todo mi apoyo y colaboración en lo que pueda ayudar.
Por cierto:
¿No decías que había que hacer clases recursivas para ello? ¿Habrá miles de retos hasta conseguir parsear las funciones de vb?
¿Me estoy haciendo un lío?

DoEvents!

Código (vb) [Seleccionar] Expandir


Private Type PD
  Name As String
  Edad As Byte
  Direccion As String
End Type

Dim DatosPersona() As PD

DoEvents!

Comprendo, osea que:
Creo tres cuentas:

Código [Seleccionar] Expandir

cuenta1
cuenta2
cuenta3
Creo una app desde cada una de las cuentas.
Una vez aquí debo hacer una función similar a esta:

Código (php) [Seleccionar] Expandir


function getConnectionWithAccessToken($consumerkey, $consumersecret, $oauthtoken, $oauthtokensecet) {
     $connection = new TwitterOAuth($consumerkey, $consumersecret, $oauthtoken, $oauthtokensecet);
     return $connection;
}
Entonces cada una de mis tres cuentas tendrá 4 claves diferentes, a partir de ahí me podría ir logeando con cada una de mis cuentas ingresando en los argumentos las sus claves correspondientes.
¿Es eso?
Gracias.

DoEvents!

Un poco mejorada:

Código (vb) [Seleccionar] Expandir

Option Explicit

Public Static Function TextBetweenWords$(ByRef sText$, ByVal sWord1$, ByVal sWord2$)
Dim lPos1&, lPos2&, lStart&
   If LenB(sText) Then
       lPos1 = InStrB(1, sText, sWord1, vbBinaryCompare)
       If lPos1 Then
           lStart = lPos1 + LenB(sWord1)
           lPos2 = InStrB(lStart, sText, sWord2, vbBinaryCompare)
           If lPos2 Then
               TextBetweenWords = MidB$(sText, lStart, lPos2 - lStart)
           End If
       End If
   End If
End Function


Private Sub Form_Load()
   Debug.Print TextBetweenWords("qwertysdfcv [raul338 es feo] prueba", "[", "]")
End Sub

Devuelve:

Código [Seleccionar] Expandir

raul338 es feo


Y con RegExp:

Código [Seleccionar] Expandir

\[([^\[]+)\]

DoEvents!

Ook, muchas gracias, ahora entiendo...

DoEvents!

[@BlackZero]

@BlackZero
Entonces por esa regla de tres... ¿después de usar Copymemory() deberíamos usar GlobalUnlock() y GlobalFree()?

DoEvents!

[EDIT:]

Aprovecho para otra duda sencilla relacionada con el tema:
Supongamos que quiero manejar varias cuentas de twitter a la vez con mi misma app... ¿Sabéis algo al respecto?
Y no me refiero a algo como esto: https://dev.twitter.com/docs/auth/sign-in-with-twitter
Por ej, si tuviera 3 cuentas mías y quisiera utilizar el api de twitter con cada una de ellas.
¿Me explico?  
Gracias de nuevo.

EDIT:
¿No tendría que crearme una cuenta con cada bot que quiera hacer y desde esa cuenta crear una aplicación?
Después desde mi web iría cambiando las claves para actuar desde cada una.
¿Voy desencaminado?

DoEvents!

Te dejo una tabla de equivalencias.

Código [Seleccionar] Expandir

PutMem1 - Byte  - 1 Byte  - Byte
PutMem2 - Word  - 2 Bytes - Integer
PutMem4 - DWord - 4 Bytes - Long
PutMem8 - QWord - 8 Bytes - Currency

DoEvents!