Mensajes

El problema no es la llamada, el código que encontré fue:

Código (javascript) [Seleccionar] Expandir


<Script>
var VARIABLE;

jQuery.ajax(
{
type: 'post',
url: 'PEPE.PHP',
dataType: 'html',
success:function(data)
{
VARIABLE = data;
}
});

alert(VARIABLE);
</Script>


Código (php) [Seleccionar] Expandir


PEPE.PHP
echo "1000";


Hola, mi problema es el siguiente, tengo un archivo HTML, que dentro tengo programación en javascript, y estoy queriendo hacer ésto:

Código (javascript) [Seleccionar] Expandir


<Script>
var VARIABLE = Llamada a php PEPE.PHP;

alert(VARIABLE);
</Script>


PEPE.PHP
->

Código (php) [Seleccionar] Expandir


echo "1000";


La llamada a php la hice con JQuery y Ajax, pero no funcionó, alguno tiene alguna idea?

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:

Código (html4strict) [Seleccionar] Expandir


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


Lo que quiero hacer en CSS es ésto:

Código (css) [Seleccionar] Expandir


.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:

Código (html4strict) [Seleccionar] Expandir


<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

Código (vb) [Seleccionar] Expandir

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.

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Call ConfigArray

Call Stuff

End
End Sub



Código (vb) [Seleccionar] Expandir


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

Código (vb) [Seleccionar] Expandir

Public colObject As New Collection para obtener las posiciones en mid para el index del array o del split.