Mensajes

[Winsock]

Ummm.. Hay un error de sintaxis, no cierras el ultimo If

En ultimo If es del que yo quiero hablar:

Código (vb) [Seleccionar] Expandir

If InStr(WB.Document.body.innerhtml, "demasiadas veces") Then

Eso no es en absoluto generico, teniendo en cuenta que entras en login.live.com y es la propia pagina la que determina que idioma te muestra... Deberias comprobarlo de otra forma... no se... tal vez con el HTTP STATUS (404,200...)

Si, es verdad, ya esta corregido... Me informare de lo segundo para mejorarlo...
Gracias

Hola, lo pase a C#.net porque no entiendo mucho de visual basic y lo estuve probando pero no funciona como los otros Msn Freezer, por lo que veo el evento DocumentComplete se dispara hasta que se bloquea el correo hasta ahi todo bien pero despues de eso no hace nada mas el programa y al rato se desbloquea solo el correo, los otros msn freezer que probe hasta que no cerras el programa no se desbloquea el correo, puede estar dias inclusive, alguien sabe como se programan esos freezer?
Saludos

Investiga sobre el control Winsock y mirate el MSNP(Messenger Protocol), no creo que esta sea la forma idónea de hacerlo, solo busque hacerlo de una forma diferente, y mas sencilla...
No sabia que el mio era por tiempo limitado... Lo he testeado horas y creo recordar que funcionaba...

Salu2!

Oye chicos que esto es el foro de vb...

SII!
Funciona!
Gracias tio!

Salu2!

[%]

Hola, a ver si me podeis ayudar, porque sinceramente no se lo que puede pasar...
Tengo esto:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Any, ByVal lParam As Long) As Long

Private Sub Form_Load()
   Timer1.Interval = 1500: Text1 = "HOla amigosssss"
End Sub

Private Sub Timer1_Timer()
   Call SendMessage(Text1.hwnd, &H102, vbKeyLeft, 0&)
End Sub
Entonces se supone que cada 1500 ms la posicion del texto deberia moverse un sitio a la izquierda, ¿no? Pero en el text box me va añadiendo el caracter %...  
Y si pongo vbKeySpace funciona bien, me va añadiendo espacios, pero porque falla con vbKeyLeft???

Gracias!

Votar a Izquierda Unida...

Este no es el foro de VB.NET, el el de VB!!

[raul388]

Hola raul388! Gracias por el apunte!
Pense que IsCharAlpha te devuelve si es letra y IsCharAlphaNumeric te devuelve si es un numero...  
Me acabo de dar cuenta que tienes razon...   Solo con IsCharAlphaNumeric me vale...

Igual parece bueno, aunque con Exp.Reg se puede hacer mas corto (al menos eso creo )

JAJAJA
Bueno ya sabes, hice este metodo mientras aprendo a usar Exp.Reg...
Me alegro de que te guste!

Salu2!

EDITO: SRC CORREGIDO!

[API]

Supongo que has declarado la API antes:

Código (vb) [Seleccionar] Expandir


Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
   (ByVal hWnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub deshacerCmd_Click()
   Const EM_CANUNDO As Long = &HC6
   Const EM_UNDO As Long = &HC7
   '
   ' se comprueba si se puede deshacer
   If SendMessage(Text1.hWnd, EM_CANUNDO, 0&, 0&) Then
       ' si es así, se deshace
       SendMessage Text1.hWnd, EM_UNDO, 0&, 0&
   End If
End Sub
Fuente: http://www.elguille.info/Net/vb6anet/textbox01.htm#Deshacerlaultimamodificacion
Espero que al boton le hallas llamado igual...

Salu2!

http://www.elguille.info/Net/vb6anet/textbox01.htm#Deshacerlaultimamodificacion

Salu2!

[Clean_Html_Code]

Hola a todos, aqui mi ultima funcion: Clean_Html_Code
Me llamareis pesao ya con tanta cadena, pero bueno...
Esta funcion lo que hace es limpiar el Html de <strong>, <b>(entre otros)...
De esta forma es mas facil trabajar con la cadena, utilizo este metodo mientras aprendo ExprReg...

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////

Option Explicit

Private Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long

Public Function Clean_Html_Code(ByVal sHtmlCode As String) As String
    Const ValidSymbolChars             As String = ",.?¿!¡=+-*Ç""_:%$·/|\ºª@ "
    Const StartInvalidString           As String = "<{[(&"
    Const StopInvalidString            As String = ">}];"
    Dim sActualChar                    As String * 1
    Dim bIgnoreString                  As Boolean
    Dim lTotalChar                     As Long
    Dim x                              As Long
    Dim y                              As Long
   
    lTotalChar = Len(sHtmlCode)
    If lTotalChar > 0 Then
        For x = 1 To lTotalChar
            sActualChar = Mid$(sHtmlCode, x, 1)
            If InStr(StartInvalidString, sActualChar) <> 0 Then bIgnoreString = True
            If bIgnoreString = False Then
                If IsCharAlphaNumeric(Asc(sActualChar)) Or InStr(ValidSymbolChars, sActualChar) <> 0 Then
                    Clean_Html_Code = Clean_Html_Code & sActualChar
                End If
            End If
            If InStr(StopInvalidString, sActualChar) <> 0 Then bIgnoreString = False
        Next
        Do Until InStr(1, Clean_Html_Code, "  ") = 0
            Clean_Html_Code = Replace$(Clean_Html_Code, "  ", " ")
            DoEvents
        Loop
    End If
End Function
Un ejemplo, tengo esto:

         <table border="0" width="100%" align="center" cellspacing="1" cellpadding="3" class="bordercolor">
            <tr class="titlebg">
               <td>Crear nuevo tema</td>

Hago la llamada asi(suponiendo que sData es el String donde tengo almacenado el codigo Html):

Código (vb) [Seleccionar] Expandir


sData = Clean_Html_Code(sData)
La funcion me devuelve esto:

Crear nuevo tema

Si veis cualquier cosa mal o que se pueda mejorar, decirmela!

Espero que os haya gustado!

Salu2!