Mensajes

bueno lo pregunto aca... xq no vi en el foro otro q diga batch xD
aparte la preg seguro la saben.. esta relazionada con VB y con los troyanos

bueno lo q quiero hacer es q mi troyano se pueda eliminar si yo le ordeno...
ahora hice un batch q lo borra y luego se borra a si mismo... pero es q cuando el server ejecuta el batch, luego se cierra, antes de cerrarse el batch como q no pudo borrarlo...
en fin quiero saber como hacer algo asi como un timer... donde le de 1 seg a q se cierre el servidor y luego lo borre...

hasta ahora tenia esto:

Código [Seleccionar] Expandir

@echo off
del services.exe
del archivo.bat
exit

SALUDOS

mira, asi lo hago yo:

fijate q vas a tener q cambiar el nombre del Winsock1 a WS, tb tenes q poner la propiedad Array en valor 0

Código (vb) [Seleccionar] Expandir

Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim NumSock As Integer
Dim i As Integer
NumElem = WS.UBound
For i = 1 To NumElem
If WS(i).State <> 7 Then
WS(i).Close
WS(i).Accept requestID
Exit Sub
End If
Next
Load WS(NumElem + 1)
NumSock = WS.UBound
WS(NumSock).Accept requestID
End Sub

proba y avisame

mmm si buscaras en google "conexion multiple winsock vb" ya salen ejemplos... luego si no los entienden te los puedo explicar....
es sencillo cada winscok realiza solo una conexion
para tener multiples creas un array... osea.. muchos winsocks x asi decirlo
para saber q mandarle a cada servidor lo q haces es:

Winsock1(index).senddata "lo q quieras"

donde index es el numero de array del winsock q deseas usar


SALUDOS

mmmm la verdad q no encontre nada.. ahora hice una busqueda mas profunda en el foro pero nada..
(encontre un muy lindo programa para grabar video xD... y vi un post tuyo de juegos hechos en VB muy muy buenos... jaa)

pero nada de lo q busco :S nadie tiene alguna idea ?

xD chan... si palabras... no vi el code ni ninguno del pibe.. tmp se quien era antes de q le bannen la otra cuenta... pero creo q me mate leyendo este hilo q no tiene nada de aporte x lo q deberian cerrarlo...

:S

mmm bueno esto surgio anoche.. estaba usando la asistencia remota del msn y me dio una idea.. no se si utds la han usado pero donde se ve la pantalla se actualiza solo la parte q cambie... y bue me pase la noche tratando de hacer eso para mi troyano, para asi lograr mayor velocidad cuando se actualiza la img

hice este sencillo code...
se necesita: 2 commandbutton
                  2 picutre box
                  1 combobox

los nombres son los q vienen x defecto...

Código (vb) [Seleccionar] Expandir

Dim Presionado As Boolean
Dim Color As ColorConstants

Private Sub Combo1_Click()
Select Case Combo1.Text
    Case "Rojo"
    Color = vbRed
    Case "Azul"
    Color = vbBlue
    Case "Verde"
    Color = vbGreen
End Select
End Sub

Private Sub Command1_Click()
Dim Cont As Integer
Dim Ancho As Integer
Dim Alto As Integer
Dim PixX As Integer
Dim PixY As Integer
Dim PixColor As Double
Dim oPixColor As Double
Cont = 0
Alto = Picture1.Height
Ancho = Picture1.Width
Picture1.DrawWidth = 1
Picture2.DrawWidth = 1
For PixX = 1 To Ancho Step 10
    For PixY = 1 To Alto Step 10
    PixColor = Picture1.Point(PixX, PixY)
    oPixColor = Picture2.Point(PixX, PixY)
    If Not PixColor = oPixColor Then
    Color = Picture1.Point(PixX, PixY)
    Picture2.PSet (PixX, PixY), Color
    Cont = Cont + 1
    End If
    Next PixY
Next PixX
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
MsgBox Cont
End Sub

Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub

Private Sub Form_Load()
Picture1.Height = 1500
Picture2.Height = 1500
Picture1.Width = 1500
Picture2.Width = 1500
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
Picture1.BackColor = vbWhite
Picture2.BackColor = vbWhite
With Combo1
    .AddItem "Rojo"
    .AddItem "Verde"
    .AddItem "Azul"
End With
End Sub


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture1.CurrentX = X
Picture1.CurrentY = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture1.Line -(X, Y), Color
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture2.CurrentX = X
Picture2.CurrentY = Y
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture2.Line -(X, Y), Color
End Sub

Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub



bueno el problema es el siguiente... a ese codigo ya lo probe con los screencapture pero el problema es q si se tapa un picture x otra ventana de otra aplicacion es como si se modificara el picture... no se si me entienden
osea si no se ven las 2 img enteras en la pantalla, los pixeles q no se ve, los toma como distintos... :S

bueno quisiera saber eso como hacer a q no importe si el picture este o no en la pantalla pero q lo compare
o si conocen algun otra forma de hacer esto :S

SALUDOS

si, necesitas un sniff... busca x el foro con esa palabra "Sniff" q hay un ejemplo q me dio a mi EON... de todos modos mucho mas no te puedo ayudar xq yo termine buscando un programa ya echo xD jaja

SALUDOS

mmm esta dudoso esto... trata de explicarte mejor...
el cliente y el servidor los programaste vos? en ese caso vos controlarias q es lo q se envian..

pero me parece q tu duda viene x el lado de un sniffer...

bue en fin no se no te entendi bien XD

o tal vez hay un error en el codigo del .bat y por eso no lo crea

si es cierto xD yo tb ya probe banda de ejemplos y busque en google.. pero el problema sigue estando :S... estuve pensando q tal vez sea el servidor FTP, yo estoy usando GeoCities, no se si alguien pudo hacerlo con este...

SALUDOS