Hola. Estoy creando un programa para enviar invitaciones de amigo a usuarios de YouTube en VB 6. Conseguí obtener la lista de usuarios a partir de la página que estás viendo, pero no soy capaz de automatizar el proceso de envío de la invitación. Estuve viendo el código fuente, pero no encuentro nada. Tenía pensado crearlo en HTML.

¿Alguien sabe como se puede conseguir?

Encontré esto, pero como no soy de programación web, no se como tratarlo.

<form name="friending" method="post" action="/profile?user=NOMBREUSUARIO">
<div class="smallText">
<input type="hidden" value="invite_user" name="action_friending">
<a id="aProfileAddFriend" href="#" onclick="document.friending.submit(); return false;"><img src="http://s.ytimg.com/yt/img/pixel-vfl73.gif" id="profileAddFriend" class="icnProperties" alt="Añadir como amigo">Añadir como amigo</a>
</div>
</form>

Gracias de antemano.

(Esto mismo lo publiqué en el foro de programación web, pero como trabajo con VB, pues también lo pongo aquí.)

Muchísimas gracias, lo probaré e intentaré hacerlo.

EDITO:


La variable "strRef", ¿para qué se utiliza?

Y lo de la cookie, ¿sirve si ya estoy logueado en YouTube con Firefox? Conseguí obtener acceso a la cuenta desde un WebBrowser que hay en el formulario.

Saludos y perdón por las molestias.

Saludos 

Vale, gracias. Intentaré lo de las cookies.

EDITO: encontré este código para leer o establecer una cookie.

Public Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" _
        (ByVal lpszUrlName As String, _
        ByVal lpszCookieName As String, _
        ByVal lpszCookieData As String) As Boolean
 
Public Declare Function InternetGetCookie Lib "wininet.dll" _
        Alias "InternetGetCookieA" _
        (ByVal lpszUrlName As String, _
        ByVal lpszCookieName As String, _
        ByVal lpszCookieData As String, _
        lpdwSize As Long) As Boolean
 
 
Public Function SetCookie(ByVal UrlName As String, ByVal CookieName As String, ByVal CookieData As String)
  Dim blnReturn As Boolean
 
  blnReturn = InternetSetCookie(UrlName, CookieName, CookieData)
 
  If blnReturn = False Then MsgBox "Make Cookie Operation Failed!", vbCritical
End Function
 
Public Function GetCookie(ByVal UrlName As String, ByVal CookieName As String) As String
   Dim strCookieText As String * 256
   Dim blnReturn As Boolean
 
   blnReturn = InternetGetCookie(UrlName, CookieName, strCookieText, 255)
 
   If blnReturn = False Then
     MsgBox "Get Cookie Operation Failed", vbCritical
     GetCookie = "Error"
   Else
     MsgBox strCookieText, vbInformation
     GetCookie = strCookieText
   End If
End Function

Ya conseguí loguearme y obtener la cookie, pero de momento no me funciona. Me da error en el socket. Intentaré ver cual es el problema.

EDITO: nada, no soy capaz. Esto es lo que me muestra la ventana de debug:


Saludos.

Vale, perdón, es que no me había dado cuenta. Es que había uno por el medio que tenía "http://" y me faltaba ese por eliminar. Ahora ya funciona.

Muchas gracias