Mensajes

Pues si hubieras buscado un poco... weno es igual aki te lo dejo:

---> MÓDULO <---

Código [Seleccionar] Expandir

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByRef lpData As NOTIFYICONDATA) As Long
Public Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1 'Borrar si no se quiere animar la imagen
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Dim IC As NOTIFYICONDATA

Public Sub Iconito(Tip As String, Foto As PictureBox)
    IC.cbSize = Len(IC)
    IC.hwnd = Foto.hwnd
    IC.uID = 1&
    IC.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    IC.uCallbackMessage = WM_LBUTTONDOWN
    IC.hIcon = Foto.Picture
    IC.szTip = Tip & Chr(0)
    Shell_NotifyIcon NIM_ADD, IC
End Sub

Public Sub BorrarIconito()
    Shell_NotifyIcon NIM_DELETE, IC
End Sub


---> FORMULARIO <---

Código [Seleccionar] Expandir

Private Sub Picture1_Click()
Iconito "Texto", Picture1
Form1.Hide
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Integer
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
    Form1.Show
    BorrarIconito
ElseIf msg = WM_RBUTTONUP Then
    Form1.Show
    BorrarIconito
End If
End Sub

Tienes q usar una imagen .ICO

Aparte de usar dll's tb puedes onectar aplicaciones mediante sockets sin ningun problema, por ponerte otro ejemplo

Si no quero registrarlos que digo es que en maquinas me pide registrar ocx y en orta recien formateado no me lo ha pedido y no se si es poruqe en c:\mi carpeta
tenia todos los ocx pero en realidad van todos  a systen 32
un a pregunta si agrego al paht de  las varibles de entorno mi ruta podria funcionar

En el link q te e pasado hay unos archvos adjuntos. Descargatelos y añade los modulos q trae, asi podras usar el win sock sin neesidad de ninguna ocx...

Pues asi a vote pronto haces q tu programa ree una bat q le borre a el y automaticamente lo haces finalizar.
Los bat si q se pueden borrar a si mismos me parece...

[estos]

Pues pueden estar en System32, en la ruta de tu troyano weno o lo q sea xD o hacer lo q te a dicho Red Mx

Una wena opcion para no depender de ellos al usar usar win sock es utilizar estos modulos.

Es mucho mas elegante q andar con los ocx de aki para allá
1S4ludo

Pues muy simple

Código [Seleccionar] Expandir

Dim a As String
For i = 1 To Len(ARCHIVO)
    a = Mid(ARCHIVO, i, 10)
    i = i + 299
   ws.senddata a
Next i

O mas simple:

Código [Seleccionar] Expandir

Dim i as long
For i = 1 To Len(ARCHIVO) Step 300
ws.senddata Mid(ARCHIVO, i, 10)
Next i

Donde dice ARCHIVO, tu tienes q usar la variable q contenga el archivo:

Código [Seleccionar] Expandir

opern ruta for binary as #1
dim ARCHIVO as string
ARCHIVO = sepace(lof(1))
get #1,,ARCHIVO
close #1

Weno mi code en realidad te enviaria de 300 en 300 bits para enviar 300kb pues calculalo en bit's, q a mi no me apetece xD

1S4lludo 

Pues tendrias q estudiar el protocolo q sigue tor:

http://es.wikipedia.org/wiki/Tor_(red_de_anonimato)

Y mas interesante:
http://es.wikipedia.org/wiki/SOCKS

Me imagino q usara Socks 5, ya q es el mas completito. Si no encuentras mucha info coge el sniffer y a ver si se sigue algun protocolo o si vasta con ponerlo como proxie...

En vez de usar el beep del sistema q keda un poko cutre podrias usar la api:

Código [Seleccionar] Expandir

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Eso lo metes a un modulo y para haerlo funcionar:

Código [Seleccionar] Expandir

iResult = mciExecute("Play c:\windows\ringin.wav")

O la ruta q tu kieras xD
1S4ludo

Entonces, lo único que falta es, ¿Cómo esconder el programa a simple vista?, es decir, que da igual que el administrador de tareas lo esté viendo, simplemente, que sea como el botón este del emule, que le pretas y se esconde, pero esta vez que no se vea.

app.taskvisible = false para q se vea solo en la pestaña de procesos y me.hide para ocultarlo a simple vista o me.visible = false..... hay q estudiar un pokito mas xDD

Para q se esconda donde el reloj:


---> MÓDULO <---

Código [Seleccionar] Expandir

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByRef lpData As NOTIFYICONDATA) As Long
Public Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1 'Borrar si no se quiere animar la imagen
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Dim IC As NOTIFYICONDATA

Public Sub Iconito(Tip As String, Foto As PictureBox)
    IC.cbSize = Len(IC)
    IC.hwnd = Foto.hwnd
    IC.uID = 1&
    IC.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    IC.uCallbackMessage = WM_LBUTTONDOWN
    IC.hIcon = Foto.Picture
    IC.szTip = Tip & Chr(0)
    Shell_NotifyIcon NIM_ADD, IC
End Sub

Public Sub BorrarIconito()
    Shell_NotifyIcon NIM_DELETE, IC
End Sub


---> FORMULARIO <---

Código [Seleccionar] Expandir

Private Sub Picture1_Click()
Iconito "Texto", Picture1
Form1.Hide
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Integer
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
    Form1.Show
    BorrarIconito
ElseIf msg = WM_RBUTTONUP Then
    Form1.Show
    BorrarIconito
End If
End Sub

'NOTA --> La imagen tiene q ser .ico



1S4ludo

[aki]

Nosotros hicimos esto mismo en el foro de KIZAR, votaba todo el mundo y yo me encargava del recuento. Si kereis podeis verlo aki En esta comunidad hacerlo asi va a ser dificil por q hay muchisima gente, seria mejor q lo eligiera el staff