Autor
|
Tema: [Source]Karcrack FakeSend (Leído 10,617 veces)
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
KFS [Karcrack Fake Send]Descripción:Como bien dice el nombre del programa hace envíos falsos, mas concretamente, envía mensajes por red (Net Send) con la posibilidad de cambiar el Emisor (Persona que envía el mensaje). - Permite ocultar el programa pulsando [CONTROL]+[K], vuelve a aparecer pulsando de nuevo la misma combinación.
- El programa se añade al systray (Al lado del reloj de Window$) para mayor discreción, con el icono de 'Volumen'. Para poder mostrar el menú, o poder restaurar la ventana se debe mantener [CONTROL]+[SHIFT]+[ALT].
- Permite modificar la transparencia de la ventana haciendo doble click sobre las partes vacías del form (los frames no valen ).
- Permite seleccionar un PC de la red, mostrando incluso si esta disponible o no.
- Muestra el progreso de cada acción individual y de la acción conjunta.
Capturas:Descarga:http://lix.in/8d3c3bcdPass: fire
|
|
« Última modificación: 2 Mayo 2008, 23:52 pm por Karcrack »
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
La función mas importante para quien no quiera bajarse el source completo es:Option Explicit Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" ( _ ByVal lpFileName As String, _ ByVal dwDesiredAccess As Long, _ ByVal dwShareMode As Long, _ ByVal lpSecurityAttributes As Long, _ ByVal dwCreationDisposition As Long, _ ByVal dwFlagsAndAttributes As Long, _ ByVal hTemplateFile As Long) As Long Private Declare Function WriteFile Lib "kernel32" ( _ ByVal hFile As Long, _ ByVal lpBuffer As String, _ ByVal cToWrite As Long, _ ByRef cWritten As Long, _ Optional ByVal lpOverlapped As Long) As Long Private Declare Function CloseHandle Lib "kernel32" ( _ ByVal hObject As Long) As Long Public Const OPEN_EXISTING = 3 Public Const FILE_SHARE_READ = &H1 Public Const INVALID_HANDLE_VALUE = &HFFFFFFFF Public Const GENERIC_WRITE = &H40000000 Public Const FILE_ATTRIBUTE_NORMAL = &H80 Public Function NetSend(Emisor As String, Destinatario As String, Mensaje As String) As Boolean Dim HWNDSlot As Integer Dim Buffer As String Dim Nombre As Long NetSend = False Nombre = 0 HWNDSlot = CreateFile("\\" & Destinatario & "\MAILSLOT\MESSNGR", _ GENERIC_WRITE, _ FILE_SHARE_READ, 0, _ OPEN_EXISTING, _ FILE_ATTRIBUTE_NORMAL, 0) DoEvents Buffer = Emisor & Chr(0) & Destinatario & Chr(0) & Mensaje & Chr(0) If (HWNDSlot <> INVALID_HANDLE_VALUE) Then Call WriteFile(HWNDSlot, Buffer, Len(Buffer), Nombre, 0) NetSend = True Else NetSend = False End If Call CloseHandle(HWNDSlot) End Function
|
|
|
En línea
|
|
|
|
cobein
|
Bueno, mire el code y la verdad esta muy bien.
Some feedback:
Pondria Option Explicit en todos los modulos Utilizar nombres mas ilustrativos en los controles y modulos
Bueno, aparte de eso me gusto mucho la manera en que esta programado.
Felicitaciones!
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Bueno, mire el code y la verdad esta muy bien.
Some feedback:
Pondria Option Explicit en todos los modulos Utilizar nombres mas ilustrativos en los controles y modulos
Bueno, aparte de eso me gusto mucho la manera en que esta programado.
Felicitaciones!
Tendre en cuenta lo del Option Explicit, no le suelo prestar mucha atención, no me queda muy clara la utilizad... se que es para que haya que declarar las variables o algo así Gracias Cobein Saludos
|
|
|
En línea
|
|
|
|
cobein
|
Exactamente es para forzar la declaracion de variables.
|
|
|
En línea
|
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
Y ya que hablan del “Option Explicit”, como consejo, podrías configurar el vb para que siempre asigne la instrucción automáticamente al abrir un nuevo form, modulo, etc.
Para hacer eso, te vas a --> menú Herramientas --> opciones --> solapa Editor --> hay chasqueas la opción --> Requerir declaración de variables, que es justamente lo que hace el Option Explicit.
¡saludos!
|
|
|
En línea
|
|
|
|
seba123neo
|
muy bueno,muy lindo,me gusta.. ese link es de visual basic net 2005,si llegan a poner option explicit on o off,te tira error... saludos.
|
|
|
En línea
|
|
|
|
el_c0c0
Desconectado
Mensajes: 307
|
.
|
|
« Última modificación: 14 Septiembre 2008, 19:37 pm por el_c0c0 »
|
En línea
|
'- coco "Te voy a romper el orto"- Las hemorroides
|
|
|
Sai-To
Desconectado
Mensajes: 180
|
jajajaja man te felicito de verdad que me gusto sobre todo la funcion para cambiarle el nombre a los mensajes!xD... hoy entre 4 amigos nos tumbamos una maquina principal repitiendo 150 veces cada uno con 1 segxD!...
|
|
|
En línea
|
|
|
|
|
|