Hola, hay algún código para "deshabilitar" la selección molesta que se produce al hacer 2ble click sobre la página??.
Desde ya muchas gracias.
Desde ya muchas gracias.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: sebah97 en 15 Abril 2013, 20:17 PM
Hola, estuve probando con WebSocket y un servidor en VB6, el problema es que me llega ésto...var connection = new WebSocket('ws://127.0.0.1:1200');
connection.onopen = function () {
connection.send('Hola');
};
CitarCliente conectado. IP : 127.0.0.1
Cliente : GET / HTTP/1.1
Upgrade: websocket
Connection: Upgrade
Host: 127.0.0.1:1200
Origin: null
Pragma: no-cache
Cache-Control: no-cache
Sec-WebSocket-Key: otn22B4thbc+FScR56NQDA==
Sec-WebSocket-Version: 13
Sec-WebSocket-Extensions: x-webkit-deflate-frame
User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/28.0.1469.0 Safari/537.36
var connection = new WebSocket('ws://127.0.0.1:1200');
connection.onopen = function () {
connection.send('Hola');
};
Citarlo que tenés que hacer es obtener la dirección de la función que te interesa interceptar, si estás en un sistema de 32 bits una dirección de memoria son 4 bytes, entonces vas a parchear los primeros 5 bytes de la función, con un JMP + dirección de memoria, lo que serían un total de 5 bytes.
Sub SendData(sdData As String)
Dim retcode
Dim AuxCmd As String
If Pausa Then Exit Sub
If CONGELADO And UCase$(sdData) <> "/DESCONGELAR" Then Exit Sub
If Not frmMain.Socket1.Connected Then Exit Sub
AuxCmd = UCase$(Left$(sdData, 5))
Debug.Print ">> " & sdData
If Left$(sdData, 1) = "/" And Len(sdData) = 2 Then Exit Sub
sdData = ReplaceData(sdData)
If sdData = "NOPUDO" Then Exit Sub
bO = bO + 1
If bO > 10000 Then bO = 100
If Len(sdData) = 0 Then Exit Sub
If AuxCmd = "DEMSG" And Len(sdData) > 8000 Then Exit Sub
If AuxCmd = "GM" And Len(sdData) > 2200 Then
NoMandoElMsg = 1
Exit Sub
End If
If Len(sdData) > 300 And AuxCmd <> "DEMSG" And AuxCmd <> "GM" Then Exit Sub
NoMandoElMsg = 0
bK = 0
sdData = sdData & "~" & bK & ENDC
retcode = frmMain.Socket1.Write(sdData, Len(sdData))
End Sub