Mensajes

[Descripción:]

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/8d3c3bcd

Pass:
fire

Post original:fire-software.net

Esta es la función que yo uso me costo bastante, así que espero que la sepas valorar  :

Código (vb) [Seleccionar] Expandir


dim SSL as object

Public Function SetHTTPLib()
    Set SSL = Nothing
    Set SSL = CreateObject("WinHttp.WinHttpRequest.5.1")
    SSL.Option(WinHttpRequestOption_EnableRedirects) = False
End Function

Public Function SendRecvSSL(Method As String, Data As String, _
    Optional ReqHeaderN As String, Optional ReqHeaderD As String) As String
    On Error GoTo REPEAT
REPEAT:
    SSL.Open Method, Data
    If ReqHeaderN <> "" And ReqHeaderD <> "" Then SSL.SetRequestHeader ReqHeaderN, ReqHeaderD
    SSL.Send
    SendRecvSSL = SSL.Status & " " & SSL.StatusText & vbCrLf & _
    SSL.GetAllResponseHeaders
End Function

Public Function pKey(AuthKey As String, User As String, Pass As String) As String
    Dim sData As String, sLoginServ As String, sHeader As String
    Call SetHTTPLib
    sHeader = "Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & _
    Replace$(User, "@", "%40") & ",pwd=" & URLEncode(Pass) & "," & AuthKey
           
    sData = SendRecvSSL("GET", "https://nexus.passport.com/rdr/pprdr.asp")
    If Entre(sData, , vbCrLf) = "200 OK" Then
    sLoginServ = "https://" & Entre(sData, "DALogin=", ",")
       
ConnectionSSL:
        DoEvents
        Sleep 100
        sData = SendRecvSSL("GET", sLoginServ, "Authorization", sHeader)
       
        Select Case Entre(sData, , vbCrLf)
            Case "302 Found"
                sLoginServ = Entre(sData, "Location: ", vbCrLf)
                DoEvents
                GoTo ConnectionSSL
            Case "401 Unauthorized"
                'MsgBox "Wrong username / password!": frmMain.sckNS.Close
            Case "200 OK"
                pKey = Entre(sData, "from-PP='", "'")
            Case Else
                'MsgBox "Received unknown packet from SSL!": frmMain.sckNS.Close
        End Select
    Else
    'MsgBox "Could not retrieve data from SSL!": frmMain.sckNS.Close
    End If
End Function

Public Function Entre(ByVal Str As String, Optional dStart As String, Optional dEnd As String, Optional Length As Long) As String
    'Esta funcion obtiene un texto entre dos variables.
    Dim x1 As Long, x2 As Long
    x1 = IIf(dStart = "", 1, InStr(1, LCase$(Str), LCase$(dStart)) + Len(dStart))
    If x1 > 0 Then
        If dEnd = "" Then
            Entre = Mid$(Str, x1)
        Else
            x2 = InStr(x1, LCase$(Str), LCase$(dEnd)) - x1
            If x2 > 0 Then
                Entre = Mid$(Str, x1, x2)
            Else
                Entre = ""
            End If
        End If
    Else
        Entre = ""
    End If
    If Length > 0 And Entre <> "" Then Entre = Left$(Entre, Length)
End Function


La función la llamas así:

Código (vb) [Seleccionar] Expandir


Informacion=pkey(Todo,User,Pass)

Donde pone Todo es la información que te da el servidor ( lo de lc, tw...) va todo junto, como te lo da, con comas y todo lo demas

Saludos !

Hazlo o bien como dice Cobein o así:

Código (vb) [Seleccionar] Expandir


Dim Variable as string
Variable="Environ(" & chr(34) & "windir" & chr(34) & ")"


Aclaración:Chr(34)-->"

  Según el código que has puesto, no te deja porque falta dos  '&' o '+'

[En español:]

Te veo un poco perdido, mirate este link:
En español:
http://webs.ono.com/msfn.1/
En ingles:
http://unattended.msfn.org/unattended.xp

Esto no tiene que ver nada con el VB, es para que veas de donde puedes obtener las actualizaciones.

Muy bueno Cobein
Sigue así

[E0N]

Me ha encantado el manual Sigue así E0N...
A pesar de no saber nada sobre ASM he pillado algunas cosas.. solo falta leérmelo 5 veces más

A ver cuanto tarda la próxima entrega No se si podre esperar mucho

Yo utilizo Shapes en vez de Pictures, pero bien

Va perfecto, gracias por las instrucciones
Sigue así, a partir de ahora más colorido a mis proyectos! 

Creo que deberías poner un Título correcto. En cuanto a tu duda, supongo que deberas gastar alguna DLL que se utilice para gestionar ese sistema de presencia