elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 18 19 20 21 22 23 24 25 26 27 28 29 30 31
161  Programación / Programación Visual Basic / Re: Enviar invitación de amigo en YouTube en: 26 Enero 2009, 21:57 pm
Cita de: aaronduran2 en 26 Enero 2009, 18:20 pm
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:

Código:
OK Subclass memory allocated at: 103816704
OK Winsock service initiated
OK Created socket: 1272
Winsock buffer size for sends: 8192
Winsock buffer size for receives: 8192
OK Created socket collection
OK Created winsock message window 6816708
OK Registered events from socket 1272
STATE: sckResolvingHost
Resolving host http://es.youtube.com/ with handle 3
STATE: sckError

Saludos.

Es que no te podes conectar a una direccion que empieza con "http://" .. es solo el host!
ahi seria es.youtube.com como te pase en mi ejemplo!

saludos
162  Programación / Programación Visual Basic / Re: Enviar invitación de amigo en YouTube en: 26 Enero 2009, 18:14 pm
Cita de: aaronduran2 en 26 Enero 2009, 17:04 pm
Vale, gracias. Intentaré lo de las cookies.

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

Código
  1. Public Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" _
  2.         (ByVal lpszUrlName As String, _
  3.         ByVal lpszCookieName As String, _
  4.         ByVal lpszCookieData As String) As Boolean
  5.  
  6. Public Declare Function InternetGetCookie Lib "wininet.dll" _
  7.         Alias "InternetGetCookieA" _
  8.         (ByVal lpszUrlName As String, _
  9.         ByVal lpszCookieName As String, _
  10.         ByVal lpszCookieData As String, _
  11.         lpdwSize As Long) As Boolean
  12.  
  13.  
  14. Public Function SetCookie(ByVal UrlName As String, ByVal CookieName As String, ByVal CookieData As String)
  15.   Dim blnReturn As Boolean
  16.  
  17.   blnReturn = InternetSetCookie(UrlName, CookieName, CookieData)
  18.  
  19.   If blnReturn = False Then MsgBox "Make Cookie Operation Failed!", vbCritical
  20. End Function
  21.  
  22. Public Function GetCookie(ByVal UrlName As String, ByVal CookieName As String) As String
  23.    Dim strCookieText As String * 256
  24.    Dim blnReturn As Boolean
  25.  
  26.    blnReturn = InternetGetCookie(UrlName, CookieName, strCookieText, 255)
  27.  
  28.    If blnReturn = False Then
  29.      MsgBox "Get Cookie Operation Failed", vbCritical
  30.      GetCookie = "Error"
  31.    Else
  32.      MsgBox strCookieText, vbInformation
  33.      GetCookie = strCookieText
  34.    End If
  35. End Function




Esta bien, eso es para hacerlo desde el IE.. lo que podes hacer es loguearte ahi desde el IE y sacar la cookie con ese codigo...

saludos
163  Programación / Programación Visual Basic / Re: Enviar invitación de amigo en YouTube en: 26 Enero 2009, 16:54 pm
Cita de: aaronduran2 en 26 Enero 2009, 12:01 pm
Muchísimas gracias, lo probaré e intentaré hacerlo.

EDITO:

Citar
strFormH = strFormH & "Referer: http://es.youtube.com/" & strRef & "\n"

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  ;)

en el strRef metes la pagina en la que estas, POR LAS DUDAS, nose si hace falta... pero metelo
y las cookies de los exploradores NO sirven, tenes que hacer alguna funcion para que te devuelva la COOKIE logueandote desde tu programa!
esto pasa porque no usa nada de los objetos del sistema, esto es DIRECTO!

saludos
164  Programación / Programación Visual Basic / Re: Enviar invitación de amigo en YouTube en: 26 Enero 2009, 02:47 am
Cita de: aaronduran2 en 25 Enero 2009, 22:53 pm
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.

Código
  1. <form name="friending" method="post" action="/profile?user=NOMBREUSUARIO">
  2. <div class="smallText">
  3. <input type="hidden" value="invite_user" name="action_friending">
  4. <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>
  5. </div>
  6. </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í.)


Podes hacerlo de 2 formas: via socket o via objeto XMLHTTP.

te dejo una idea de como es:
para la forma via socket haces asi

Código
  1.     strParams = "action_friending=invite_user"
  2.     strFormH = "POST /profile?user=" & strUSER & " HTTP/1.1\n"
  3.     strFormH = strFormH & "Host: es.youtube.com\n"
  4.     strFormH = strFormH & "User-Agent: Mozilla/5.0 (Windows NT 5.1;)\n"
  5.     strFormH = strFormH & "Accept-Language: es-ar,es;q=0.8,en-us;q=0.5,en;q=0.3\n"
  6.     strFormH = strFormH & "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n"
  7.     strFormH = strFormH & "Connection: close\n"
  8.     strFormH = strFormH & "Referer: http://es.youtube.com/" & strRef & "\n"
  9.     strFormH = strFormH & "Cookie: " & strCookie & ";\n"
  10.     strFormH = strFormH & "Content-Type: application/x-www-form-urlencoded\n"
  11.     strFormH = strFormH & "Content-Length: " & Len(strParams) & "\n\n"
  12.     strFormH = strFormH & strParams & "\n\n"
  13.     strFormH = Replace(strFormH, "\n", vbCrLf)
  14.  
  15.     objSocket.Connect "es.youtube.com", 80
  16.     WaitTilSock2 7
  17.     objSocket.SendData strFormH
  18.     WaitTilSock2 8
  19.     objSocket.CloseSck
  20.  

Para eso vas a requerir tener un objeto CSockMaster llamado objSocket. Tene en cuenta que necesitas saber el cookie del login (eso puede ser jodido) y la pagina web de donde estas actualmente para usar de referente!. Ademas necesitas esta porcion de codigo (sirve para bloquear la ejecucion del codigo, pero sin que no responda la aplicacion):

Código
  1. Public Declare Function WaitMessage Lib "user32" () As Long
  2.  
  3. Public Sub WaitTilSock2(lngStateF As Long)
  4.     If objSocket.State = lngStateF Then Exit Sub
  5.     Do While Not (objSocket.State = lngStateF)
  6.         WaitMessage
  7.         DoEvents
  8.     Loop
  9. End Sub


y via objeto XMLHTTP no te sabria decir, pero es mas o menos lo mismo.


Saludos!
165  Programación / Programación Visual Basic / Re: Hola a todos soy nueva en el foro en: 25 Enero 2009, 20:03 pm
Cita de: .Shizuka. en 25 Enero 2009, 19:44 pm
bueno como dice el nuevo tema soy nueva y me registre hace un instante, porque veo que me puede ayudar conocer y conversar con programadores xD
La verdad yo estoy empezando a ver esto de la programación con visual basic y me pase por el foro viendo unos ejercicios pero que no estan resueltos y me gustaria mucho su ayuda
 
en la universidad me mandaron un ejercicio de registro sistematizado de una escuela basica, pero yo  no se como hacerlo o.O, ni se lo mas basico como usuario y su clave, me pordrian decir donde encontrar el codigo super sencillo de esto, y si se usa access

recuerden no se mucho y estoy empezando
muchas gracias a todos los que me ayuden ^^

como dice cΔssiΔnі, aca NO se hacen tareas.

una cosa que SIEMPRE me queda la duda, si van a la facultad, a seguir programacion como carrera, como le van a pedir ALGO QUE NO SABEN.. yo creo que estas cosas las deberian saber o por lo menos entender de que se trata, pero NO les deben prestar atencion a los profesores en clase; y ademas se creen que registrandose aca o en otros foros, les van a resolver los problemas.

si algun profesor TE PIDE ALGO QUE NO SABES, y NO TE EXPLICA COMO BUSCARLO (y te dice arreglate vos o algo asi), MANDALO A LA PVTA MADRE QUE LO PARIO. Pero dudo que sea asi, para mi la culpa es del que pregunta y no del profesor.

y como me dijo un amigo recien: "que deje esa carrera, por que ya empezo mal"

 >:( >:( >:( >:( >:(
saludos!
166  Programación / Programación Visual Basic / [src] SysLink control en VB en: 22 Enero 2009, 02:49 am
Hola.

Hoy les presento, con ayudita de leandro y xkiz, este control de usuario.
Es un control nativo de Windows XP (commcontrols 6!).
Seguro ya lo conocen de antes:


No vi nunca este control en VB. Desde la pagina del control en MSDN dicen que no tiene propiedades de color de fondo, ni de color de fuente, pero simplemente se setean como propiedad basandose en el control pariente (en este caso el usercontrol). Lo de la fuente fue mas o menos lo mismo, pero con algunos mensajes, pudimos setearle la fuente como si nada. Ademas tiene un soporte muy basico de transparencia (el cual no recomiendo usar, es el mismo del checkbox).

Unos screens:



El picturebox de atras esta para ver si es transparente el control.
Es muy simple obtener los clicks: tiene un solo evento el control, LinkClick.

Para mas informacion, pueden ver el codigo del frmMain para ver como estan puestos los links y como es tratado cada click.


y lo descargas de aca: http://santiagohssl.googlepages.com/SL_REL.rar

comenten y saludos!
167  Programación / Programación Visual Basic / Re: App.PrevInstance!! en: 20 Enero 2009, 01:10 am
Cita de: seba123neo en 20 Enero 2009, 00:34 am
Hola,basta solo con cambiar de path de el ejecutable y ya la funcion es inutil...hay un modulo que posteo Cobein que impedia esto...igualmente probalo haber que tal...

saludos.

fijate este code del API Guide, se supone que no importa que cambie el .exe :

Código
  1. 'Code by Adam Verwijs
  2. Const ERROR_ALREADY_EXISTS = 183&
  3. Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
  4. Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
  5. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  6. Private Sub Form_Load()
  7.     Dim hMutex As Long
  8.     'Try to create a new Mutex
  9.     hMutex = CreateMutex(ByVal 0&, 1, App.Title)
  10.     'Did the mutex already exist?
  11.     If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
  12.         'Clean up
  13.         ReleaseMutex hMutex
  14.         CloseHandle hMutex
  15.         'More than one instance detected
  16.         MsgBox "No se puede ejecutar 2 veces lo mismo"
  17.         End
  18.     Else
  19.         MsgBox "Todo En Orden"
  20.     End If
  21. End Sub
  22.  

saludos
168  Programación / Programación Visual Basic / Re: Enviar Instrucciones a una ventana en: 19 Enero 2009, 07:47 am
Si, con el api sendmessage... buscas el hwnd del boton por ejemplo y le envias mousedown y mouseup y asi generas un click!

saludos
169  Programación / Programación Visual Basic / Re: Check Box & Option Boxt transparente en: 19 Enero 2009, 04:46 am
Yo lo use para un programita que estoy desarrollando, que va por buen camino. Ahora estoy terminandole la parte del GUI por eso necesitaba hacerlo transparente y bueno...

pongo la imagen completa porque sino el degradado no se nota:


saludos!
170  Programación / Programación Visual Basic / Re: Check Box & Option Boxt transparente en: 19 Enero 2009, 04:13 am
Cita de: Freeze. en 19 Enero 2009, 03:37 am
Ahh, "muy util" :xD

Bueno no se a mi no me parece tan util porque nunca he usado imagenes y por encima uncheckbox :P
no es exactamente sobre una imagen la idea principal, sino que sobre un difuminado para que tenga mas estilo. es lo mismo, yo lo necesitaba transparente si o si.

y bueno si no te parece utilo no lo uses... q se yo, queda en vos

saludos
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 18 19 20 21 22 23 24 25 26 27 28 29 30 31
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines