Mensajes

Si lo pasas por themida entonces esto no se cumple 

Todo trabajo debe de ser open source, para poder apreciar la verdadera calidad del mismo

Saludos

Eso iba a decir, que se utilice con esos fines no quita que sea un servicio útil y de buena fuente, donde además si reportas las url "malignas" inmediatamente son eliminadas 

Saludos

No, si lo hice, pero no soy de apuntar a alguien sin estar totalmente seguro 

Saludos

También están los globales y coadmins 

Saludos

En ocasiones al llegar al link "final" de un archivo en mediafire te dice "que no se encuentra disponible", pero suele ser momentaneo, y esto me ha ocurrido en otros servicios como mega o rapid 

Saludos

[warzone]

Esperar he intentar en otro momento ya que el server de warzone se encuentra en mantenimiento desde ayer 

Saludos

Las otras webs también lo hacen, como crees que cambian el mensaje personal en el messenger? 

Saludos

Es igual a las otras web's de este tipo  , o eso creo, no se debe siquiera pensar en ingresar los datos de usuario y contraseña en una web ajena a la oficial

Saludos

[mejor]

Solo comentar que si tienes la opción de utilizar AT, mejor, ya que el problema de los scripts, ya sean batch o vbs es el consumo de memoria que representa dejarlos en memoria en un bucle indefinido 

Saludos

[Métodos de ordenamiento]

Antes que nada decir que lo que he hecho es una chapuza a modo de ejemplo, ... pero funcional 

Para probarla, en una hoja ingresa algunos valores (alguno repetido) en una columna y luego en un nuevo modulo agrega lo siguiente:

Código (vb) [Seleccionar] Expandir

Sub Unica()
Dim valores() As String
Dim i As Integer, e As Integer, c As Integer

ReDim valores(0)
valores(0) = ActiveCell.Value
'Almacenamos la primera celda como primer valor del array
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
'Pasamos a la celda siguiente

i = 1
Do While ActiveCell.Value <> ""
'Recorremos todas las celdas de una columna

    If repetido(ActiveCell.Value, valores) = False Then
    'Si la funcion repetido devuelve falso
        ReDim Preserve valores(i)
    'Redimensionamos el array
        valores(i) = ActiveCell.Value
    'Asignamos el valor
        i = i + 1
    End If
    Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    'Pasamos a la siguiente celda
   
Loop

'Una vez generamos el array lo volcamos en otra pagina
c = 1
For e = LBound(valores) To UBound(valores)
    Sheets(2).Cells(c, 1).Value = valores(e)
c = c + 1
Next

End Sub

Function repetido(valor As String, aray() As String) As Boolean
'Recorremos el array comparando uno a uno sus valores
For e = LBound(aray) To UBound(aray)

    If valor = aray(e) Then
    'Si se encuentra el valor, entonces esta repetido
    'se sale del bucle y se asigna true a la funcion
        repetido = True
        Exit For
    Else
        repetido = False
    'De lo contrario es falso
    End If
Next
End Function

Con respecto al ordenamiento ... Métodos de ordenamiento<---click

Deberías de adaptarlo a tu "problema" y además ...seguro que se puede mejorar 

Saludos