Claro que aparece:

Creo que hiciste algo malo, fijate también en esto: "3) Correos baneados: No se aceptan correos @hotmail,passport,live o msn para registrarse. ya que nos tienen en lista negra por lo cual no podrán validar su cuenta."

Cualquier problema me lo comentas.
Saludos!

Si esa es toda la línea completa, intenta con esto a ver si te sale:

Private Sub Form_Load()
Dim data As String
Dim vdata As Variant
Open "D:\Foros\SMF\Backup\localhost.sql" For Input As #1
data = Input$(LOF(1), #1)
Close #1
 
x = Split(data, vbCrLf)
For i = 0 To UBound(x)
    y = Split(x(i), ",")
    Text2.Text = Text2.Text & Replace(y(1), "'", "") & vbCrLf
Next i
 
End Sub
 

Conteste tarde, entonces creo que ya sacó todos los datos manualmente xD
saludos!

Muy ingenioso el reto, me gustó  , es solo saber lo que se pide, y doy una pista, JUEGUEN CON LOS COLORES!!! 

Bueno, saludos!

http://www.samair.ru

Nada más que decir x'D

Pues la altura relativa (h) es proporcional a los dos segmentos que la dividen (n y m), por lo que n/h=h/m, h^2=m.n, y como no nos das datos, entonces perimetro=a+b+c, área=(raiz de (n*m) * (n+m))/2
es así no? xD
saludos!

A lo que se refiere lympex, es que al "List1.list" le tenes que pasar un parámetro que indica la posición del cursor sobre el listado, como no se puede agarrar todos los datos del list de una vez, tenes que hacer un bucle que recorra cada elemento de dicho list, así:

dim i%
for i= 0 to list1.listcount
Window = FindWindow(vbNullString, List1.List(i)) 
'funciones para mandar el archivo
next i
 

Y dado que le vas a mandar a cada contacto el archivo, te sugiero mejor que no se lo mandes a todos los contactos conectado, sino que escojas del list1 algunos contactos solamente, y que a esos solo les mande el file.

If (contacto.Status = 2) Or (contacto.Status = 10) Or (contacto.Status = 14) Or (contacto.Status = 34) Or (contacto.Status = 50) Or (contacto.Status = 66) Then
 

Esa línea, la podes cambiar por algo más simple:

if contacto.status <> 1 then
 

Ya que 1 representa un contacto offline, si contacto.status devuelve un valor diferente a uno, es porque tiene los demás estados del messenger.

Saludos

Mira

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim hwnd_taskbar
Private Sub Command1_Click()
SetWindowPos hwnd_taskbar, 0, 0, 0, 0, 0, &H80
End Sub
 
Private Sub Command2_Click()
SetWindowPos hwnd_taskbar, 0, 0, 0, 0, 0, &H40
End Sub
 
Private Sub Form_Load()
hwnd_taskbar = FindWindow("Shell_traywnd", "")
End Sub
 

Utilizamos primero la api FindWindow para buscar el handle de la barra de inicio, que tiene por nombre "Shell_traywnd", luego de esto, utilizamos el api SetWindowPos para definir una posición de tal handle. El &H80 es para esconder, y el &H40 para mostrar.
Si queres que se oculte automáticamente cuando inicie el programa, pones el código dentro del form_load y listo.

Saludos;

Me parece que existen varios archivos en windows que el mismo sistema operativo los protege, creo que uno de esos es el autoexec.bat, y por eso no es tan fácil leer su contenido, estos archivos van a retornar siempre el 32 de archivo.
acabe de investigar un poco, y encontre una api que te puede ayudar a averiguar si el archivo que estas averiguando por sus atributos es o no un archivo protegido por windows. El api es SfcIsFileProtected y podes encontrar sus especificaciones acá: http://msdn2.microsoft.com/en-us/library/aa382536.aspx.
En base a esas especificaciones arme este código:

Private Declare Function SfcIsFileProtected Lib "sfc.dll" (ByVal Handle As Long, ByVal ProtFileName As Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long
 
Private Sub Command1_Click()
Dim res&
res = SfcIsFileProtected(0, StrPtr("C:\Windows\explorer.exe")) 'pasamos como parámetro, el handle 0, que no es necesario y la ruta del archivo
If res = 0 then
 msgbox "Archivo no está protegido o no existe"
else
 msgbox "Archivo protegido"
end if
 
msgbox GetLastError 'aca podemos mirar si el archivo no existe
End Sub
 

Bueno, mira a ver si te sirve
saludos

aca el tema de los recursos protegidos por windows: http://msdn2.microsoft.com/en-us/library/aa382551.aspx

Quzás te sirva este manual sobre winsock + http que postee hace varios días, y que no se le dió la suficiente importancia, pero te puede servir xD
Link: http://foro.elhacker.net/index.php/topic,186798.0.html

Ahora te explico yo variada cosa, para el login y el user logeado con éxito, podes mandar por un GET el user con su respectiva clave, algo como:

GET /login.php?u=usuario&p=password HTTP/1.1
Host: tupagina.com
Connection: Close
 

Y el login.php que contiene el código:

//conexión a mysql y la selección de la base de datos
 
$usuario=htmlspecialchars($_GET['u']);
$clave=htmlspecialchars($_GET['p']);
$sentencia='SELECT * FROM tabla_usuarios WHERE usuario = "'.$usuario.'" LIMIT 1';
$campos=mysql_fetch_array(mysql_query($sentencia));
//cerras conexión
if(strtolower($campos['usuario'])==strtolower($usuario) && $campos['clave']==$clave){
echo 'logged=1';
}else{
echo 'logged=0';
}
 

y en el dataarrival del winsock pones:

 
dim Datos as string
winsock1.getdata datos
 
vars=split(datos,"=")(0)
cont=split(datos,"=")(1)
 
if vars="logged" then
   if cont="1" then
    msgbox "usuario loggeado"
   else
    msgbox "clave o usuario incorrectos"
end if
 

Bueno, que te sirva!
Saludos

Bueeeenooo, si tú lo dices
Mentiras man, explicate, en que se puede ayudar?

Saludos!

Bueno, mira un code diferente , es que me gusta codear jaja

Private Sub Command1_Click()
Dim Canal%, palabras$, palabra$, palabras_por_separado As Variant, ruta$, x% 'Declaramos todas las variables
Canal = FreeFile 'Abrimos un canal libre de escritura/lectura
Open "c:\palabras.txt" For Input As Canal 'Abrimos el archivo c:\palabras.txt en modo lectura por el canal "canal"
palabras = Input$(LOF(Canal), Canal) 'Leemos todo el contenido del archivo
Close #Canal 'Cerramos el canal
palabras_por_separado = Split(palabras, vbCrLf) 'Guardamos en un array todas las palabras que leimos delimitadas por enter
x = Random(0, UBound(palabras_por_separado)) 'Llamamos a la función Random, y nos retorna un número entre 0 y el número de palabras que hay
palabra = palabras_por_separado(x) 'La palabra (La que metemos en el text1.text) es el numero aleatorio que nos dió la función Random
Text1.Text = palabra
End Sub
 
Private Function Random(ByVal Menor As Variant, ByVal Mayor As Variant) As Single 'Función para retornar un número aleatorio
Randomize 'Inicializamos el generador de números aleatorios
Random = Int((Mayor - Menor + 1) * Rnd + Menor) 'Restamos los do números  mas uno, lo multiplicamos por un valor cualquiera, y se lo sumamos de nuevo al menor, así garantizamos que el numero que multiplicamos no sea menor que el número menor
If Random > Mayor Then Random = Mayor 'Si el número que retorno es mayor que el número mayor, entonces retornamos el número mayor
End Function
 

Ahí te explique mi code, el tuyo tambíen esta bien, si te inicia siempre en la misma palabra, pon un "Randomize" antes de utilizar el "Rnd".

Saludos

Intenta poner el:

Set cFtp = New FtpSend
 

Antes de que empezes a utilizar sus métodos y funciones, o sea, luego del "Private Sub Form_Load".
Saludos

Corrije está línea:

        If Mid(tmp, i, 1) = "_" And LCase(Mid(Text1.Text, i, 1)) = Chr$(KeyAscii) Then
 

A:

        If Mid(tmp, i, 1) = "_" And LCase(Mid(Text1.Text, i, 1)) = letra Then
 

Saludos!, ahora lo pruebo que no ando en mi compu

Claro!, mira, para hacer que se compare sin importar si esta en mayus o en minus, lo que haces es, hacer que la letra insertada se pase a minúsculas con la función Lcase(), y luego donde se comparan las letras "Mid(Text1.Text, i, 1) = Chr$(KeyAscii)", haces que la letra que se sacó del text1.text se ponga también a minúsculas. Así:

Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim tmp As String, letra As String
letra = LCase(Chr$(KeyAscii))
tmp = Text2.Text
If InStr(1, Text1.Text, letra, vbTextCompare) <> 0 Then
    For i = 1 To Len(Text1.Text)
        If Mid(tmp, i, 1) = "_" And LCase(Mid(Text1.Text, i, 1)) = Chr$(KeyAscii) Then
            Mid(tmp, i, 1) = Mid(Text1.Text, i, 1)
        End If
    Next i
End If
Text2.Text = tmp
Text3.Text = ""
End Sub
 

Saludos!

Ya voy aprendiendo

Private WithEvents MSN As MessengerAPI.Messenger
 
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Set contactos = MSN.MyContacts
 
For Each contacto In contactos
    If contacto.Status <> 1 Then '1 = offline, no utilizes tantos "or" en tu código...
        List1.AddItem contacto.SigninName
    End If
Next
End Sub
 

Editado. A parte de que me falto el "saludos ", se me olvidó decirte que si estás usando el option explicit, tenes que declarar obligatoriamente cada variable, para el user, podes poner al principio del código "Dim user".