Mensajes

Código [Seleccionar] Expandir


Const MOUSEEVENTF_MOVE = &H1 '  movimiento del mouse
Const MOUSEEVENTF_LEFTDOWN = &H2 '  botón izquierdo presionado
Const MOUSEEVENTF_LEFTUP = &H4 '  botón izquierdo soltado
Const MOUSEEVENTF_RIGHTDOWN = &H8 '  botón derecho presionado
Const MOUSEEVENTF_RIGHTUP = &H10 '  botón derecho soltado
Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  botón central presionado
Const MOUSEEVENTF_MIDDLEUP = &H40 ' botón central soltado
Const MOUSEEVENTF_ABSOLUTE = &H8000 '  movimiento absoluto

Sub Simular_Pulsacion(X As Long, Y As Long)
    Dim Res As Long
   
    Res = SetCursorPos(X, Y)
    mouse_event MOUSEEVENTF_ABSOLUTE Or textt.Text, X, Y, 0, 0
    mouse_event MOUSEEVENTF_ABSOLUTE Or textt.Text, X, Y, 0, 0
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim coordenadas As String
Picture1.Picture = LoadPicture("C:\verde.jpg")
Winsock1.GetData coordenadas, vbString
ok = Split(coordenadas, "-")
Textx.Text = ok(0)
Texty.Text = ok(1)

If Val(ok(2)) = 1 Then textt.Text = &H2
If Val(ok(2)) = 2 Then textt.Text = &H8
If Val(ok(2)) = 3 Then textt.Text = &H20
If Val(ok(2)) = 0 Then textt.Text = &H2

SetCursorPos Val(ok(0)), Val(ok(1))
Simular_Pulsacion Val(ok(0)), Val(ok(1))

If Val(ok(2)) = 1 Then textt.Text = &H4
If Val(ok(2)) = 2 Then textt.Text = &H10
If Val(ok(2)) = 3 Then textt.Text = &H40
If Val(ok(2)) = 0 Then textt.Text = &H4

Simular_Pulsacion Val(ok(0)), Val(ok(1))
Exit Sub
error:
MsgBox error(Err)
End Sub



bueno ahora mi duda es si alguien me podia explicar esto:

Código [Seleccionar] Expandir

If Val(ok(2)) = 1 Then textt.Text = &H2
If Val(ok(2)) = 2 Then textt.Text = &H8
If Val(ok(2)) = 3 Then textt.Text = &H20
If Val(ok(2)) = 0 Then textt.Text = &H2

SetCursorPos Val(ok(0)), Val(ok(1))
Simular_Pulsacion Val(ok(0)), Val(ok(1))

If Val(ok(2)) = 1 Then textt.Text = &H4
If Val(ok(2)) = 2 Then textt.Text = &H10
If Val(ok(2)) = 3 Then textt.Text = &H40
If Val(ok(2)) = 0 Then textt.Text = &H4



Como es eso de los click lo abia pensado lo voy a intertar hacer. con que  funsion lo hiciste. usando keycode y estas funsiones vbKeyLButton vbKeyRButton

Te mejore un poko el codigo espero que te guste.

Servidor

2 Winsock
3 TextBox
2 label
3 timer
1 statubar

ahora te doy los nombres

Text1 = Text1
text2 = txty
text3 = txtx
winsock1 = winsock1
winsock2 = winsock2
timer1 = timer1  ------ interval:10 ---- enable False
timer2 = timer2  ------ interval:500 --- enable true
timer3 = Testado ------ interval:100 --- enable true
label1 = label1  ------ caption:Y ----Va arriba del txty
label2 = label2  ------ caption:X ----Va arriba del txtx
statubar = sb

Codigo:

Código [Seleccionar] Expandir

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Form_Load()
Text1.Text = Winsock1.LocalIP & ":" & Winsock1.LocalPort
End Sub

Private Sub Testado_Timer()
If Winsock1.State = 0 Then
sb.Panels(1).Text = "Winsock1 - Desconectado"
Timer2.Enabled = True
ElseIf Winsock1.State = 2 Then
sb.Panels(1).Text = "Winsock1 - Escuchando"
ElseIf Winsock1.State = 8 Then
sb.Panels(1).Text = "Winsock1 - Cerrandose"
Winsock1.Close
ElseIf Winsock1.State = 9 Then
sb.Panels(1).Text = "Winsock1 - Conectado con Error"
Winsock1.Close
ElseIf Winsock1.State = 1 Then
sb.Panels(1).Text = "Winsock1 - Abierto"
ElseIf Winsock1.State = 7 Then
sb.Panels(1).Text = "Winsock1 - Conectado"
Timer2.Enabled = False
End If
If Winsock2.State = 0 Then
sb.Panels(2).Text = "Winsock2 - Desconectado"
Timer2.Enabled = True
ElseIf Winsock2.State = 2 Then
sb.Panels(2).Text = "Winsock2 - Escuchando"
ElseIf Winsock2.State = 8 Then
sb.Panels(2).Text = "Winsock2 - Cerrandose"
Winsock2.Close
ElseIf Winsock2.State = 9 Then
sb.Panels(2).Text = "Winsock2 - Conectado con Error"
Winsock2.Close
ElseIf Winsock2.State = 1 Then
sb.Panels(2).Text = "Winsock2 - Abierto"
ElseIf Winsock2.State = 7 Then
sb.Panels(2).Text = "Winsock2 - Conectado"
Timer2.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
SetCursorPos txtx, txty
End Sub

Private Sub Timer2_Timer()
Winsock1.Close
Winsock1.Connect
Winsock2.Close
Winsock2.Connect
Timer2.Enabled = False
End Sub

Private Sub txty_Change()
If txty.Text = "" And txtx = "" Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim llega As String
Winsock1.GetData llega
txty.Text = llega
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim llega2 As String
Winsock2.GetData llega2
txtx.Text = llega2
End Sub


Cliente

2 Winsock
3 TextBox
3 label
4 timer
1 statubar
4 Command

ahora te doy los nombres

Text1 = Text1
text2 = txty
text3 = txtx
winsock1 = winsock1
winsock2 = winsock2
timer1 = timer1  ------ interval:10 ---- enable true
timer2 = timer2  ------ interval:10 --- enable false
timer3 = timer3 ------ interval:10 --- enable false
timer3 = Testado ------ interval:100 --- enable true
label1 = label1  ------ caption:Y ----Va arriba del txty
label2 = label2  ------ caption:X ----Va arriba del txtx
label3 = label3  ------ caption:Desactivado ----Va donde quieras
statubar = sb
Command1 = Command1 ------ Caption: Conectado
Command2 = Command2 ------ Caption: Desconectar
Command3 = Command3 ------ Caption: Activar
Command4 = Command4 ------ Caption: Desactivar


Codigo:

Código [Seleccionar] Expandir

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
     X As Long
     Y As Long
End Type

Private Sub Command1_Click()
On Error Resume Next
Winsock1.Listen
Winsock2.Listen
End Sub

Private Sub Command2_Click()
Winsock1.Close
Winsock2.Close
End Sub

Private Sub enviox(TXT As String)
On Error Resume Next
       Winsock2.SendData TXT
End Sub

Private Sub envioy(TXT As String)
On Error Resume Next
       Winsock1.SendData TXT
End Sub

Private Sub Command3_Click()
Label3.Caption = "Activado"
Timer3.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Command4_Click()
Timer2.Enabled = False
Timer3.Enabled = False
Label3.Caption = "Desactivado"
End Sub

Private Sub Testado_Timer()
If Winsock1.State = 0 Then
sb.Panels(1).Text = "Winsock1 - Desconectado"
ElseIf Winsock1.State = 2 Then
sb.Panels(1).Text = "Winsock1 - Escuchando"
ElseIf Winsock1.State = 8 Then
sb.Panels(1).Text = "Winsock1 - Cerrandose"
Winsock1.Close
ElseIf Winsock1.State = 9 Then
sb.Panels(1).Text = "Winsock1 - Conectado con Error"
Winsock1.Close
ElseIf Winsock1.State = 1 Then
sb.Panels(1).Text = "Winsock1 - Abierto"
ElseIf Winsock1.State = 7 Then
sb.Panels(1).Text = "Winsock1 - Conectado"
End If
If Winsock2.State = 0 Then
sb.Panels(2).Text = "Winsock2 - Desconectado"
ElseIf Winsock2.State = 2 Then
sb.Panels(2).Text = "Winsock2 - Escuchando"
ElseIf Winsock2.State = 8 Then
sb.Panels(2).Text = "Winsock2 - Cerrandose"
Winsock2.Close
ElseIf Winsock1.State = 9 Then
sb.Panels(2).Text = "Winsock2 - Conectado con Error"
Winsock2.Close
ElseIf Winsock2.State = 1 Then
sb.Panels(2).Text = "Winsock2 - Abierto"
ElseIf Winsock1.State = 7 Then
sb.Panels(2).Text = "Winsock2 - Conectado"
End If
End Sub

Private Sub Timer1_Timer()
Dim Posicion As POINTAPI
GetCursorPos Posicion
txtx.Text = Posicion.X
txty.Text = Posicion.Y
End Sub

Private Sub Timer2_Timer()
envioy txty.Text
End Sub

Private Sub Timer3_Timer()
enviox txtx.Text
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub

bueno termine

Cualquier duda postea o able en pribado.

                Saludos KakiNets.

Hola a todos alguien save como hacer un cronometro en flahs..si me pueden ayudar se lo agradezco

Alguien me traduse todo esto q no entiendo nada

Código [Seleccionar] Expandir

IP Number = 16777216*w + 65536*x + 256*y + z     (Formula 1)

where
IP Address = w.x.y.z

For example, if IP address is "202.186.13.4", then its IP Number "3401190660" is based on the Formula 1.

IP Address = 202.186.13.4

So, w = 202, x = 186, y = 13 and z = 4

IP Number = 16777216*202 + 65536*186 + 256*13 + 4
          = 3388997632 + 12189696 + 3328 + 4
          = 3401190660

To reverse IP number to IP address,

w = int ( IP Number / 16777216 ) % 256
x = int ( IP Number / 65536    ) % 256
y = int ( IP Number / 256      ) % 256
z = int ( IP Number            ) % 256

Ok lo voy a probar

ok de donde saco esa info la del 80 españa 200 america del sur...Fijate q en el hacker.net en la web hay algo q se llama localisa tu ip.

Hola tengo una duda y no se si es posible por medio de winsock hacer un programa para q cuando yo introduzca la ip de una determinada victima me dija el lugar geografico...

Espero q aya entendido

hola a todos tengo una super duda...

Cumo puedo hacer para q el q esta mirando la pelicula cuando haga contestual no le aparezca ese menu en donde dice reproducir --- avanzar--- etc.
es decir algo parecido cuando bloqueo el boton derecho del mause en una web.


Si no me entendieron diganme por favor.y espero q me pueda ayudar

Hola a todos estoy tratando de hacer un descriptador pero no logro entender como se hase en MD5.

Espero q me pueda ayudar