Encontré la solución acá:

http://demo.tursos.com/web/menu/menu.html

Hola, estaba buscando algo que no puedo encontrar en internet, tal vez las personas no se lo preguntaron...


Acá está el problema:

Yo tengo ésto:

<ul class="nav">
    <li>
        <a href="#">StyleShit</a>
        <ul>
            ...
        </ul>
    </li>
</ul>
 

Lo que quiero hacer en CSS es ésto:

.nav a:after ul
{
    content: "\25bc"; /* http://textmechanic....-Converter.html */
    font-size: 9px;
    position:absolute;
}
 

Pero ésto no funciona, no sé por qué

Lo que quiero lograr es: que si hay luego de A un UL, que agregue "\25bc" al final de A.

El resultado sería como ésto:

<ul class="nav">
    <li>
        <a href="#">StyleShit</a>\25bc
        O ASÍ
        <a href="#">StyleShit \25bc</a>
        <ul>
            ...
        </ul>
    </li>
</ul>
 

Gracias, cualquier ayuda sería buena.

SendMessage, SendInput, etc.

Para encontrar un puntero estático, tienes que pasar por todos los niveles del address para llegar al mismo y para hacer el script, como te dije es posible, yo lo hice en C++, otra manera, que dudo que alguien lo pueda pasar a VB (por la dificultad) es hacerce una VM para atrapar excepciones como lo hacen los debuggers y así poder hookear tus cosas, pero el conocimiento va más allá de lo que puedas encontrar en internet, es prueba y error, además tendrías que debuguear el proceso y ver como se llenan los registros.

Es fácil pasarlo a VB, puedes hacerlos de varias maneras:

Una forma es alocando memoria y dependiendo de un flag de tu programa ("hack"), hacés un jmp a ese espacio alocado y luego ejecutás el código que querés y hacés de nuevo al jmp a la parte del ejecutable, como hace CE

programa:
address originales
jmp newmem //o algo así
nop
nop (completando bytes de la memoria modificada)
address originales continuación

newmem:
instrucciones + hacks
jmp address originales continuación

Espero que se entienda

Es posible hacer éso con WriteMemory como ya dije, teniendo el flag del "hack".

Aunque no sea la respuesta que quiero, me ayuda a resolver mi problema, es por éso que lo pongo como SOLUCIONADO y no como RESUELTO, si quieren aportar nuevas cosas, bienvenidos sean

Gracias a todos.

También, pero andaba buscando algún método o algo del split

SplitOneTime = Split(StrByteArray, ",")

con el cual pueda obtener esa pocisión sin tener que declarar otra varible ya sea array o collección.

Muy cierto, no me había dado cuenta. Muchas gracias, de lo la longitud lo pude hacer, pero de otra manera a la que quería.

Option Explicit
 
Private Sub Form_Load()
Call ConfigArray
 
Call Stuff
 
End
End Sub
 
 

Option Explicit
 
Public MyByteArray() As Byte
 
Public Const StrByteArray As String = "255,254,253,0,252,0,0,0,251,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,250,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,249,0," & _
                                      "0,0,3,4,248,3,0,247,246,5,6,2,245,244,5,6,243,242,7,241,8,240,9,10,239,9,11,12,8,238,11," & _
                                      "13,13,10,237,8,236,14,8,9,235,13,8,7,13,8,7,234,233,8,12,10,232,14,231,15,15,230,229,0,0,0," & _
                                      "0,0,0,0,228,227,226,16,5,2,17,18,5,2,17,18,5,2,17,18,225,224,4,18,223,2,17,18,222,19,18," & _
                                      "18,20,2,17,18,21,22,221,18,220,2,17,18,21,22,219,18,23,2,17,18,5,2,218,18,16,2,17,18,21,22," & _
                                      "217,18,19,2,17,18,21,22,216,218,23,2,17,18,21,22,215,18,20,2,17"
Public MaxArray As Integer
 
Public colObject As New Collection
 
Public Sub ConfigArray()
Dim i As Integer
Dim pos As Double
Dim newpos As Double
Dim SplitOneTime As Variant
 
SplitOneTime = Split(StrByteArray, ",")
 
MaxArray = UBound(SplitOneTime)
 
ReDim MyByteArray(0 To MaxArray) As Byte
 
pos = 1
 
For i = 0 To MaxArray
    MyByteArray(i) = SplitOneTime(i)
    If i = 0 Then
        colObject.Add Array((i + 1), CStr(1))
    Else
        newpos = InStr(pos, StrByteArray, ",") + 1
        colObject.Add Array((i + 1), CStr(newpos))
        pos = newpos
    End If
Next i
End Sub
 
Public Sub Stuff()
Dim i As Integer
Dim CurrentByte As Byte
Dim found As Double
Dim CurrentPos As Double
Dim NextPos As Double
Dim FirstPattern As String
Dim SecondPattern As String
 
For i = 0 To MaxArray
    'Ejemplo, index 5 -> 255,254,253,0,252,0,0,0,251,0,0,0,1,1,0,0,0
    CurrentByte = MyByteArray(i)
    If i = 103 Then
        Stop
        CurrentPos = colObject(i + 1)(1)
        NextPos = colObject(i + 2)(1)
        found = InStr(NextPos, StrByteArray, CurrentByte)
 
        FirstPattern = Mid(StrByteArray, CurrentPos, found - CurrentPos) '= "13,8,7,"
        SecondPattern = Mid(StrByteArray, found, found - CurrentPos) '= "13,8,7,"
 
        MsgBox StrComp(FirstPattern, SecondPattern) = 0
    End If
Next i
End Sub
 

Ahí obtuve el CurrentPos y el NextPos que quería para encontrar coincidencias con mid y found.

PD: pero no es lo que quería, no quería usar

Public colObject As New Collection

para obtener las posiciones en mid para el index del array o del split.

Hola, estaba tratando de hacer algo mientras me topé con un problema, tal vez parezca tonto o quizá nunca necesité algo así.

Lo que quiero lograr, es encontrar la posición con respecto a un index de un Split.

Code:

Form:

Option Explicit
 
Private Sub Form_Load()
Call ConfigArray
 
Call Stuff
 
End
End Sub
 
 

Module:

Option Explicit
 
Public MyByteArray() As Byte
Public Const StrByteArray As String = "255,254,253,0,252,0,0,0,251,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,250,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,249,0," & _
                                      "0,0,3,4,248,3,0,247,246,5,6,2,245,244,5,6,243,242,7,241,8,240,9,10,239,9,11,12,8,238,11," & _
                                      "13,13,10,237,8,236,14,8,9,235,13,8,7,13,8,7,234,233,8,12,10,232,14,231,15,15,230,229,0,0,0," & _
                                      "0,0,0,0,228,227,226,16,5,2,17,18,5,2,17,18,5,2,17,18,225,224,4,18,223,2,17,18,222,19,18," & _
                                      "18,20,2,17,18,21,22,221,18,220,2,17,18,21,22,219,18,23,2,17,18,5,2,218,18,16,2,17,18,21,22," & _
                                      "217,18,19,2,17,18,21,22,216,218,23,2,17,18,21,22,215,18,20,2,17"
Public MaxArray As Integer
 
Public Sub ConfigArray()
Dim i As Integer
 
MaxArray = UBound(Split(StrByteArray, ","))
ReDim MyByteArray(0 To MaxArray) As Byte
 
For i = 0 To MaxArray
    MyByteArray(i) = Split(StrByteArray, ",")(i)
Next i
End Sub
 
Public Sub Stuff()
Dim i As Integer
Dim CurrentByte As Byte
Dim found As Long
Dim CurrentPos As Long
 
For i = 0 To MaxArray
    If i = 5 Then
        'Ejemplo, index 5 -> 255,254,253,0,252,0,
        CurrentByte = MyByteArray(i)
        CurrentPos = Aca quiero obtener la posicion del index 5
    End If
Next i
End Sub
 

CurrentPos = Aca quiero obtener la posicion del index 5, que sería 19

Alguna idea o algún comando mágico que me retorne la posición según el index?

Tenés que hookear DX9 o la versión que tenga.

Luego en myDrawIndexedPrimitive podés poner:

DrawCrosshair(pDevice, 10, 1, COLOR__BLUE);
 

D3DCOLOR COLOR__BLUE = D3DCOLOR_ARGB(255, 0, 0, 255);
 
void DrawCrosshair(LPDIRECT3DDEVICE9 pDevice, int size, int strong,  D3DCOLOR xcolor)
{
	/*
		New 05/03/2013
	*/
	D3DVIEWPORT9 viewPort;
 
	float ScreenCenterX = 0.0f;
	float ScreenCenterY = 0.0f;
 
	pDevice->GetViewport(&viewPort);
	ScreenCenterX = (float)viewPort.Width / 2;
	ScreenCenterY = (float)viewPort.Height / 2;
 
	D3DRECT rec2 = { (ScreenCenterX-size), ScreenCenterY, (ScreenCenterX+size), (ScreenCenterY+strong)};
	D3DRECT rec3 = { ScreenCenterX, (ScreenCenterY-size), (ScreenCenterX+strong), (ScreenCenterY+size)};
	pDevice->Clear(1, &rec2, D3DCLEAR_TARGET, xcolor, 1000,  0);
	pDevice->Clear(1, &rec3, D3DCLEAR_TARGET, xcolor, 100,  0);
	/*
		New 05/03/2013
	*/
 
	/*
	int iCenterX = GetSystemMetrics( 0 ) / 2;
	int iCenterY = GetSystemMetrics( 1 ) / 2;
	if( iCenterX < 20 && iCenterY < 20 )
	{
		iCenterX = ( GetSystemMetrics( 0 ) / 2 );
		iCenterY = ( GetSystemMetrics( 1 ) / 2 );
	}
	D3DRECT rec2 = { iCenterX- size, iCenterY, iCenterX+ size, iCenterY+ strong};
	D3DRECT rec3 = { iCenterX, iCenterY- size, iCenterX+ strong,iCenterY+ size};
	pDevice->Clear(1, &rec2, D3DCLEAR_TARGET, xcolor, 1000,  0);
	pDevice->Clear(1, &rec3, D3DCLEAR_TARGET, xcolor, 100,  0);
	*/
}
 

Ése es parte de un hack que hice para el Killing Floor