Mensajes

En mi opinión el foro deberia ser utilizado para resolver dudas que googleando no se resuelven facilmente. Bueno tampoco soy el moderador 

Saludos.

Hace un tiempo simulé una especie de OMR con una imagen escaneada. Lo que me ayudo fue que la imagen estaba diseñada en Corel, ahi tenia todas las medidas, mi programa sólo se encargaba de buscar en lugares específicos, y no importaba si la imagen estaba reducida, pues todo estaba en proporción a lo que se diseñó en Corel.

En cuanto a comprobar los pixeles, si ya esta ubicada el cuadro a examinar, podrias avanzar de 10 en 10 para que no demore mucho la comprobación.

Podrías tener todo bien medido, que tu ventana no cambie de tamaño y sólo tendrías que buscar en un lugar especifico o si cambia que lo haga en proporción al ancho y alto de las medidas originales. Espero haberte ayudado.

Saludos.

[unsafe]

Estoy tratando de obtener los bytes de una función de tipo Void, mediante un puntero en modo no seguro.

Código (csharp) [Seleccionar] Expandir


void funcion() {
     MessageBox.Show("Hola");
}

byte* buffer;
buffer = (byte*) &funcion;


En C++ funciona bien, indagando en la web no encuentro la solución 

P.D: Esta sólo es una parte de una función que declaré con unsafe, no es ese el problema.

Saludos y gracias.

[Poda Alfa-Beta]

Encontre hace tiempo el juego del 3 en raya o Gato implementado con el algoritmo MiniMAx.

Aqui sus créditos del autor del Gato con Minimax
* Autor: Francisco I. Leyva
* Página web: http://www.panchosoft.com

Indagando con google logré implementar la Poda Alfa-Beta a este juego, y
la opción de cambiar la apariencia con LookAndFeel dejo los créditos
del autor inicial por supuesto.

Sobre Poda Alfa-Beta hay mucho material en la web, pero no muchos ejemplos concretos dejo el proyecto completo =).

Capturas:

Código (java) [Seleccionar] Expandir


       // Poda Alfa-Beta con profundidad
       private Movement MiniMaxAlphaBetaDepth(Board board,int player,int depth,int alpha,int beta)
           { if (board.GameEnded() || depth==6)
               { Movement mov = new Movement();
                 //mov.Value = board.Winner();
                 mov.Value = Utilidad(board.iTablero);                  
                 return mov;
               }
             else
               { Vector successors = board.GetAllowedMovements(true);
                 Movement best = null;
                 for ( Iterator ite = successors.iterator(); ite.hasNext(); )
                   { int successor = (Integer)(ite.next());
                     Board successorBoard = (Board)board.Clone();
                     successorBoard.ApplyMovement(successor);                      
                     Movement tmp = MiniMaxAlphaBetaDepth(successorBoard, -player, depth+1, alpha, beta);
                     
                     if (best == null || (player == -1 && tmp.Value < best.Value) ||
                                         (player == 1 && tmp.Value > best.Value))                          
                        { tmp.Position = successor;
                          best = tmp;                          
                        }                      
                     if (player == -1 && best.Value < beta)
                        { beta = best.Value; }
                     if (player == 1 && best.Value > alpha) alpha = best.Value;
                     if (alpha > beta) return best;                    
                   }
                 return best;
               }
           }  



Proyecto en google docs

[Keyen Night]

Keyen Night, mi problema fue que al intentar acceder a los elementos de un ToolStrip o MenuStrip utilizando el tipo Control me daba error.

La colección MenuStrip1.Controls no contiene los ToolStripMenuItem sino la colección MenuStrip1.Items, el error que me daba es que los ToolStripMenuItem no son del tipo Control.

Al menos que si hayas logrado acceder a los elementos de un MenuStrip o de un ToolStrip usando el tipo Control, me encantaria ver tu codigo 

Saludos y gracias por el comentario.

Me base en un ejemplo de vb6 que encontre con google:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/227-aplicacion-multilenguaje-con-ado.htm

Adapte el codigo a vb.net con el framework 2.0 y SQLite

Herramientas:

-   Sharpdevelop 2.2 para el .NET Framework 2.0
-   SQLite-1.0.66.0 (driver Ado.net 2.0)

Links:

http://www.icsharpcode.net/OpenSource/SD/Download/

SQLite-1.0.66.0-setup (descarguen el Setup)
http://sourceforge.net/projects/sqlite-dotnet2/files/SQLite%20for%20ADO.NET%202.0/1.0.66.0/

Una vez instalado sólo hay que Referenciar la DLL "System.Data.SQLite.dll" al proyecto.

Al final dejo el link del proyecto.

Código (vbnet) [Seleccionar] Expandir


   ' Metodo para cambiar la propiedad "Text"
   ' a todos los controles del Form
   Public Sub changeCaptions( Lista As Object)
Dim myControl As Object

If (TypeOf(Lista) Is Form) Then
setCaption( CType(lista, Form) )
End If

If Not( (TypeOf(Lista) Is ToolStripButton) Or _
   (TypeOf(Lista) Is ToolStripMenuItem) ) Then
' Labels, Buttons, Textboxs
For Each myControl In Lista.Controls
setCaption( myControl )
changeCaptions( myControl)
Next
End If

If (TypeOf(Lista) Is ToolStrip) Or _
  (TypeOf(Lista) Is MenuStrip) Then
For Each myControl In Lista.Items
If (TypeOf(myControl) Is ToolStripButton) Or _
  (TypeOf(myControl) Is ToolStripMenuItem) Then
setCaption( myControl )
changeCaptions(myControl)
End If
Next
End If

If (TypeOf(Lista) Is ToolStripMenuItem)
For Each myControl In Lista.DropDownItems
If (TypeOf(myControl) Is ToolStripMenuItem) Then
setCaption( CType(myControl, ToolStripMenuItem) )
changeCaptions(myControl)
End If
Next
End If
   End Sub

   Private Sub setCaption(ob As Object)
    Dim texto As String = selectCaption(dt, ob.Name)
    If texto <> "" Then
    ob.Text = selectCaption(dt, ob.Name)
    'msgbox( ob.Text )
    End If    
   End Sub

   Private Function selectCaption(dt As DataTable, nomC As String) As String
    Dim s As String = ""    
    Dim foundRows() As DataRow
foundRows = dt.Select("NombreControl Like '" & nomC & "%'")
If foundRows.Length = 1 Then s = BlobToString(foundRows(0).Item(2))  
Return s
   End Function  


proyecto en google Docs

Saludos  

Gracias por fijarte, tienes razon en lo de la sentencia condicional:D El método Ejecutar_Hostage lo que hace es sacar el código de la aplicación original de la aplicación infectada. No sé si me explico a horrores, pero si es así recuerdamelo jajajaj.

El mío desde luego no, espero que dure tiempo sin ser "cazado". Por cierto, ¿podrias comentar algo sobre lo que estas buscando de cifrar el formato PE?

Saludos!

Según lo entiendo, el formato PE es la estructura de una exe, y se puede cifrar 
he encontrado ejemplos para exes creados con vb6, c++ pero vb.Net nada. Dicen que es casi lo mismo pero la estructura de un exe vb.net cambia algo ;( a lo mejor has leido este taller :

http://foro.elhacker.net/analisis_y_diseno_de_malware/taller_asi_funcionan_los_crypters_encriptando_malware_a_mano-t262806.0.html

Como no utilizo antivirus, me pregunto, lo detecta algún antivirus?

P.D : Estoy averiguando como cifrar el formato PE de los .exe de .net, para seguridad e impedir q sean detectables, si alguien tiene algun link o info q compartir, gracias.

Saludos. 

Se me ocurre, tal vez, se pueda programar algo para impedir el copiado al insertar la unidad flash, es cuestion de investigar.

Saludos 

Estas utilizando sintaxis de vb6 en vb.net, según lei no es recomendable, pero funciona.

Me ha tomado tiempo el paso de vb6 a vb.net. Yo supongo que con un Thread en background deberia funcionar muy bien.

Saludos