Temas

Se me ha ocurrido una herramienta para Android que me parece increíble no lo haya hecho nadie antes. Es la típica herramienta que al final debería venir incluida por defecto en cualquier sistema Android, para tablets y móbiles. Por esta razón quiero hacerlo yo el primero y que quede profesional.

El problema es que solo sé programar en Visual Basic y un poco en C#, pero no quiero usar esos lenguajes quiero usar el adecuado para crear una herramienta para Android ya que no es tipo "juego" ni de gráficos.

¿Podría por favor alguien experto decirme qué pasos debo seguir?

gracias.

hola, estoy buscando un juego bastante viejo de máquinas recreativas.

Era un juego al que jugué en mi adolescencia, pero no recuerdo el nombre.

El juego era tipo FINAL FIGHT.



Los personajes eran algo más grandes, debía de ser de los 90 y aparecía un personaje gordo al que se le veía la barriga y aparecían syboards que se subían y te golpeaban.

No puedo decir más.

gracias



Podría ser burning Fight pero no estoy seguro, se parece bastante


Acabo de jugar y no es 

[javascript]

hola

Acabo de empezar en javascript y me he topado con los Operadores bit a bit.  Algo que no había usado nunca, me tiene desconcertado y ahora me pregunto para que sirven.

Si alguien me pudiera escribir en 'lenguaje humano' y con algún ejemplo sencillo se lo agradezco, porque no tengo ni idea de para que pueda servir.


gracias de antemano.

hola

supón que tienes la url ..w.tatata.com/.../.../nombre.pdf
pero con esta dirección el pdf no se descarga si no que se abre con el mismo navegador desde el cual puedes descargar. Cómo puedo obtener la url de descarga directa?


gracias

[224109]

Estuve jugando ayer a Locos por el parchis en Facebook, en  este juego te dan 10 si ganas te quitan 8 si pierdes y si es de 4 jugadores individual pierde 2 y 13 si desconectas y no entras  antes de que acabe.

Ell número uno del top 10 tiene ahora 224109 puntos, en el hottop que no se lo que es tiene , 23879 y en semanal pone 2840, si divides son 248 partidas ganadas y eso son unas 35 ganadas al día, sin contar las que supuestamente pierde. No me parece normal.

He jugado en equipo, me he dejado comer, he matado a mi compañero cada vez que he podido y en muchos casos ni se queja ni nada, sigue jugando sin más. Una persona de carne y hueso se quejaría, se enfadaría e incluso no se volvería a poner delante por miedo que le coma o como venganza también te comería cosa que no ha pasado en los casos en el que no llora, ni dice nada. Por otro lado gente que constantemente sacaban 6 y 5 todo el rato. Cosas así.

Creo que hay robots

hola

Esta noche estaba jugando al parchís desde un juego de Flash Player y al mirar el correo tengo dos notificaciones que me llegan a la hora en la que estaba jugando diciendo que alguien había intentado cambiar la contraseña de Facebook. ¿Eso es posible? Lo digo porque para poder cambiar la contraseña se necesita la contraseña original. Si ha entrado en mi perfil con la contraseña entonces debería haber podido cambiarla, así que supongo que ha accedido al perfil al través del juego.

hola

llevo mucho tiempo programando con VB y en los últimos años he aprendido con VB.NET, lenguaje del que me he quedado bastante decepcionado.

He visto que el Direct X SDK, dispone de proyectos de ejemplos con C++ que pueden abrirse con Visual Studio. Me pregunto si se podría hacer lo mismo con C#. He visto que con C++ usa las librerías de DirectX comoo d3dx10.lib, las cuales no tengo ni idea de como se podrían utilizar ni en C#, lenguaje que conozco un poco de convertir proyectos a VB o viceversa.

Una vez por curiosidad pillé un libro de C++ y no conseguí hacer nada de nada, ni siquiera el famoso "Hola mundo". No sabía que archivo editar ni como compilar. Que si  resource.h otros con *.cpp, y otros y ni idea de como editar el código o compilar. Además abres el resource.h y está vacío no hay nada. apenas unas líneas, ves un montón de archivos y acostumbrado a VB acabo preguntándome ¿Pero donde está el código de la aplicación, dónde empieza? Nunca conseguí arrancar en este lenguaje.

Cuando empecé con VB6 la primera vez, era simple - Exe estandard-  clicabas y ahí estaba el formulario, dabas doble clic al formulario y aparecía un fondo blanco donde debías escribir el código. Agregabas un botón y ya te salían los eventos. Solo tenías que decirle lo que hacer en cada evento y listo.

Pero con C++ estoy perdido, no se ni como arrancar. Así que me pregunto si C# .NET que se parece más a VB.NET puedo hacer lo mismo que en C++

gracias

s2s

Estoy encontrándome muchas ofertas de trabajo preguntando si tienes alguna discapacidad.

Según tengo entendido es que las empresas reciben ayudas y les sale más barato contratar a gente con alguna discapacidad. Yo supongo que buscan la mínima y que el trabajador/ra sea capaz de desempeñar la tareas.

En agosto estuve trabajando en un almacén de una conocida marca de ropa, con contrato por obra y servicio en sustitución a gente que estaba de vacaciones. Cuando se acabó el agosto, al paro otra vez. Pues resulta que el 80% (a ojo) de la plantilla eran discapacitados, sordomudos, sordos en mayor o menor grado, gente con quemaduras. En apariencia no lo parecían. Pero luego veías que uno llevaba un audífono, otro no hablaba, otro no escuchaba o ambas cosas. Los sordomudos no pronunciaban bien las palabras, por eso sabías que lo eran, además había uno que se enfadaba si les hablabas, porque no podía oírte.

Creo que tienen derecho a trabajar, y está bien que les den facilidades pero por contra esto me crea una frustración porque físicamente estoy bien, no tengo ninguna discapacidad y a causa de eso no encuentro trabajo o por lo menos la probabilidad de encontrar es mucho menor. Pues de cada 5 ofertas 3 o 4 me piden discapacidad. (aunque realmente no lo piden solo preguntan)

Me pregunto si es legal ir preguntando si tienes alguna discapacidad en las ofertas de trabajo.

[completo]

hola

Tengo Windows 7 64bits en un portatil y el mismo W7 en un PC. En ambos he instalado  el SDK completo de DirectX (Jun2010) reditributable. El instalable es de 567 MB.

Completo:
DirectX Sofware Development Kit

el Runtime Redistributable:
DirectX End-User Runtimes (June2010)

El Portatil con vista detecta Directx 10, con W7 el Directx11, mientras que el PC solo detecta el 9c.


No encuentro el dxdialog. Necesito ese DirectX simple, el que viene con los juegos y que te instala el dxDiag. (no tengo juegos modernos para poder sacarlo)


Instalé el redistribuible porque me lo pedía el PCSX2. En el PC el PCSX2 NO detecta ni el 10 ni el 11., no entiendo porqué

Nota: el reditribuible no tiene el dxdiag.
Gracias


Vale, si que se instala el dxdiag, me equivoqué y puse dxdialog  

Según dxdiag tengo DirextX11, pero el PCSX2 no lo detecta. no se porqué.

[un estaba junto a la partición del recovery del portátil]

Hola

Recientemente usé un Linux Live, con el estuve navegando, incluso instalé un programa para probarlo.

Tras esto vi que se habían creado dos particiones extrañas, libres y sin letra y una carpeta protegida llamada file.0000 o algo así.  Desde fuera de windows utilizando un administrador de discos bootable, comprobé el file.000 y eran archivos de linux. Borré la carpeta.

Las particiones extrañas, un estaba junto a la partición del recovery del portátil y otra al lado de una partición normal. Redimensióné la partición del recovery para eliminar la partición extraña de 1 mb o algo así y ahora no se inicia el recovery al pulsar F11

La opción de pulsar F11 aparece al arrancar el portátil pero al darle a F11 se queda congelado y no hace nada.

Le di una letra y desde windows vi que la partición tiene todos sus archivos, le he quitado la letra y lo configurado como oculto, pero no funciona.

La tengo como Primaria.

Lo extraño es que aunque esté oculto, se ve desde el Administrador de discos de Windows y no debería.

¿Qué debo hacer? ¿Por qué no funciona?

s2s

Hola
He probado este servidor que antes funcionaba pero lo han debido de cambiar y ahora ya no me funciona:

Código [Seleccionar] Expandir

http://translate.google.com/translate_a/t?client=t&text=hello&sl=en&tl=es


obtengo el siguiente error :

"Error en el servidor remoto: (503) Servidor no disponible."

Bueno, he estado mirando por ahí, y parece que ya no es tan simple 

[Standard MIDI Patch Assignments]

Hola

Quiero compartir este programa que he desarrollado.

Se trata de un teclado musical, un piano que utiliza el parche Standard MIDI Patch Assignments del MIDI Manufacturers Association (MMA) con 128 sonidos de instrumentos diferentes.

Standard MIDI Patch Assignments


Permite tanto tocar con el ratón como con el teclado del ordenador.



Puedes descargarte el código aquí:

Musical_Keyboard.zip

*Elige el botón de la derecha, el que pone  'Descargar con el navegador'



Si lo prefieres puedes hacer simplemente un copia y pega en un nuevo proyecto 'Aplicación de Windows Form'

No necesitas crear controles, tan solo deja todo en blanco en el editor de código de Form1.vb, y pegas este código:

Código (vbnet) [Seleccionar] Expandir


'//////////////////////////////
'//    Date: 13/06/2016      //
'//  Programmed by LEKIM     //
'//////////////////////////////

Option Strict On
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Security

Public Class Form1
   Dim lblMuscKey(61) As Label
   Dim lblInstruments(127) As Label
   Dim lblOctave(5) As Label
   Dim FlLayPanel As FlowLayoutPanel
   Dim lblTitle As New Label
   Dim ttip As New ToolTip
   Dim numKeysBlack() As Integer = _
       {2, 4, 7, 9, 11, 14, 16, 19, 21, 23, 26, 28, 31, _
        33, 35, 38, 40, 43, 45, 47, 50, 52, 55, 57, 59}
   Dim numKeysWhite() As Integer = _
       {1, 3, 5, 6, 8, 10, 12, 13, 15, 17, 18, 20, 22, _
        24, 25, 27, 29, 30, 32, 34, 36, 37, 39, 41, 42, _
        44, 46, 48, 49, 51, 53, 54, 56, 58, 60, 61}
   Dim hMidiOut As IntPtr
   Dim intMsg As Integer
   Dim Msg As NativeMethods.MidiMsg
   Dim Octave As Byte = 1 'Octave from where begins the first key of the musical keyboard
   Dim ListKeyPress As New List(Of Integer)
   Dim VolumeKey As Byte = 127 'min=0; max=127
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       CreateMusicalKeyBoard()
       CreatePanelInstruments()
       CreateOctaveButtons()
       With lblTitle
           .Text = "Standard MIDI Patch Assignments"
           .BackColor = Color.Transparent
           .ForeColor = Color.WhiteSmoke
           .Font = New Font("Arial", 20, FontStyle.Bold)
           .TextAlign = ContentAlignment.MiddleLeft
           .Size = CType(New Point(470, 40), Drawing.Size)
           .Location = New Point(5, 5)
       End With

       With Me
           .Controls.Add(lblTitle)
           .KeyPreview = True
           .BackColor = System.Drawing.Color.FromArgb(40, 40, 40)
           .Size = CType(New Point(835, 440), Drawing.Size)
           .Text = "Demo Musical Keyboard"
           .MaximizeBox = False
           .FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
           .StartPosition = FormStartPosition.CenterScreen
           .SetBounds(CInt((Screen.PrimaryScreen.Bounds.Width - .Width) / 2),
                      CInt((Screen.PrimaryScreen.Bounds.Height - .Height) / 2) - 50,
                      .Width, .Height)
       End With

       'Show a tooltip message
       ttip.AutoPopDelay = 2000
       ttip.InitialDelay = 1000
       ttip.ReshowDelay = 500
       For I As Integer = 1 To 5
           ttip.SetToolTip(Me.lblOctave(I), "Octave")
       Next


       NativeMethods.midiOutOpen(hMidiOut, _
                                 NativeMethods.MIDI_MAPPER, CType(0, IntPtr), _
                                       CType(0, IntPtr), NativeMethods.CALLBACK_NULL)
   End Sub
   Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
       If ListKeyPress.Contains(e.KeyCode) = True Then Exit Sub ' Key is already pressed
       If Key(e.KeyCode) = 0 Then Exit Sub
       PlayMusicalNote(CByte(Key(e.KeyCode)), VolumeKey, Octave)
       ListKeyPress.Add(e.KeyCode)
   End Sub
   Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp

       OffMusicalNote(CByte(Key(e.KeyCode)), Octave)
       ListKeyPress.Remove(e.KeyCode)
       Try
           If numKeysWhite.Contains(Msg.Note) Then
               lblMuscKey(Msg.Note).BackColor = Color.White
           Else
               lblMuscKey(Msg.Note).BackColor = Color.Black
           End If
       Catch ex As Exception
       End Try

   End Sub

#Region "Octave Buttons"
   Sub CreateOctaveButtons()
       Dim pOct As New Point(30, 265)
       Dim inc As Integer = 0
       For I = 1 To 5
           lblOctave(I) = New Label
           With lblOctave(I)
               .Text = CStr(I)
               .Font = New Font("Arial", 10, FontStyle.Bold)
               .Size = CType(New Point(20, 20), Drawing.Size)
               .BorderStyle = BorderStyle.FixedSingle
               .Location = New Point(pOct.X + inc, pOct.Y)
               .ForeColor = System.Drawing.Color.FromArgb(120, 120, 120)
               .BackColor = System.Drawing.Color.FromArgb(20, 20, 20)
               .TextAlign = ContentAlignment.MiddleCenter
               AddHandler .MouseDown, AddressOf lblOctave_MouseDown
               AddHandler .MouseEnter, AddressOf lblOctave_MouseEnter
               AddHandler .MouseLeave, AddressOf lblOctave_MouseLeave
           End With
           inc = inc + 19
           Me.Controls.Add(lblOctave(I))
       Next

       lblOctave(1).BackColor = System.Drawing.Color.FromArgb(150, 150, 150)
       lblOctave(1).ForeColor = System.Drawing.Color.FromArgb(10, 10, 10)

   End Sub
   Private Sub lblOctave_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblOctave, sender)
       For I As Integer = 1 To 5
           lblOctave(I).BackColor = System.Drawing.Color.FromArgb(20, 20, 20)
           lblOctave(I).ForeColor = System.Drawing.Color.FromArgb(120, 120, 120)
       Next
       lblOctave(Index).BackColor = System.Drawing.Color.FromArgb(150, 150, 150)
       lblOctave(Index).ForeColor = System.Drawing.Color.FromArgb(10, 10, 10)

       Octave = CByte(Index)
   End Sub
   Private Sub lblOctave_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)
       Dim Index As Integer = Array.IndexOf(lblOctave, sender)
       Cursor = Cursors.Hand
   End Sub
   Private Sub lblOctave_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
       Dim Index As Integer = Array.IndexOf(lblOctave, sender)
       Cursor = Cursors.Default
   End Sub
#End Region

#Region "Panel of Instruments"
   ''' <summary>
   ''' Create a panel of instruments
   ''' </summary>
   ''' <remarks></remarks>
   Public Sub CreatePanelInstruments()
       FlLayPanel = New FlowLayoutPanel
       With FlLayPanel
           .AutoScroll = True
           .VerticalScroll.Visible = False
           .BorderStyle = BorderStyle.FixedSingle
           .Size = CType(New Point(808, 205), Drawing.Size)
           .Location = New Point(5, 50)
           .FlowDirection = FlowDirection.TopDown
           .BackColor = System.Drawing.Color.FromArgb(10, 10, 10)
       End With
       Me.Controls.Add(FlLayPanel)

       For I As Integer = 0 To lblInstruments.Count - 1
           lblInstruments(I) = New Label
           With lblInstruments(I)
               .Width = 155
               .Font = New Font("Arial", 8, FontStyle.Bold)
               .ForeColor = System.Drawing.Color.FromArgb(120, 120, 120)
               .BorderStyle = BorderStyle.FixedSingle
               .TextAlign = ContentAlignment.MiddleLeft

           End With
           FlLayPanel.Controls.Add(lblInstruments(I))
       Next (I)

       'Standard MIDI Patch Assignments
       Dim strInstruments() As String = _
           {"000 Acoustic grand piano", "001 Bright acoustic piano", "002 Electric grand piano", "003 Honky-tonk piano",
            "004 Rhodes(piano)", "005 Chorused(piano)", "006 Harpsichord", "007 Clavinet", "008 Celesta",
            "009 Glockenspiel", "010 Music(box)", "011 Vibraphone", "012 Marimba", "013 Xylophone", "014 Tubular(bells)",
            "015 Dulcimer", "016 Hammond(organ)", "017 Percussive(organ)", "018 Rock(organ)", "019 Church(organ)",
            "020 Reed(organ)", "021 Accordion", "022 Harmonica", "023 Tango(accordion)", "024 Acoustic guitar (nylon)",
            "025 Acoustic(guitar(steel))", "026 Electric(guitar(jazz))", "027 Electric(guitar(clean))",
            "028 Electric(guitar(muted))", "029 Overdriven(guitar)", "030 Distortion(guitar)", "031 Guitar(harmonics)",
            "032 Acoustic bass", "033 Electric bass (finger)", "034 Electric bass (pick)", "035 Fretless bass",
            "036 Slap bass 1", "037 Slap bass 2", "038 Synth bass 1", "039 Synth bass 2", "040 Violin",
            "041 Viola", "042 Cello", "043 Contrabass", "044 Tremolo strings", "045 Pizzicato strings", "046 Orchestral harp",
            "047 Timpani", "048 String ensemble 1", "049 String ensemble 2", "050 Synth.strings(1)", "051 Synth.strings(2)",
            "052 Choir(Aahs)", "053 Voice(Oohs)", "054 Synth(voice)", "055 Orchestra(hit)", "056 Trumpet", "057 Trombone",
            "058 Tuba", "059 Muted(trumpet)", "060 French(horn)", "061 Brass(section)", "062 Synth.brass(1)",
            "063 Synth.brass(2)", "064 Soprano sax", "065 Alto sax", "066 Tenor sax", "067 Baritone sax", "068 Oboe",
            "069 English horn", "070 Bassoon", "071 Clarinet", "072 Piccolo", "073 Flute", "074 Recorder",
            "075 Pan flute", "076 Bottle blow", "077 Shakuhachi", "078 Whistle", "079 Ocarina", "080 Lead 1 (square)",
            "081 Lead 2 (sawtooth)", "082 Lead 3 (calliope lead)", "083 Lead 4 (chiff lead)", "084 Lead 5 (charang)",
            "085 Lead 6 (voice)", "086 Lead 7 (fifths)", "087 Lead 8 (brass + lead)", "088 Pad 1 (new age)",
            "089 Pad 2 (warm)", "090 Pad 3 (polysynth)", "091 Pad 4 (choir)", "092 Pad 5 (bowed)", "093 Pad 6 (metallic)",
            "094 Pad 7 (halo)", "095 Pad 8 (sweep)", "096 FX 1 (rain)", "097 FX 2 (soundtrack)", "098 FX 3 (crystal)",
            "099 FX 4 (atmosphere)", "100 FX 5 (brightness)", "101 FX 6 (goblins)", "102 FX 7 (echoes)", "103 FX 8 (sci-fi)",
            "104 Sitar", "105 Banjo", "106 Shamisen", "107 Koto", "108 Kalimba", "119 Bagpipe", "110 Fiddle", "111 Shanai2",
            "112 Tinkle Bell", "113 Agogo", "114 Steel Drums", "115 Woodblock", "116 Taiko Drum", "117 Melodic Tom",
            "118 Synth Drum2", "119 Reverse Cymbal", "120 Guitar fret noise", "121 Breath noise", "122 Seashore",
            "123 Bird tweet", "124 Telephone ring", "125 Helicopter", "126 Applause", "127 Gunshot"}

       For I = 0 To 127
           lblInstruments(I).Text = strInstruments(I)
       Next
       For I As Integer = 0 To lblInstruments.Count - 1
           AddHandler lblInstruments(I).MouseDown, AddressOf lblInstruments_MouseDown
       Next

   End Sub
   Private Sub lblInstruments_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblInstruments, sender)
       For I = 0 To lblInstruments.Count - 1
           lblInstruments(I).BackColor = Color.Transparent
           lblInstruments(I).ForeColor = System.Drawing.Color.FromArgb(120, 120, 120)

       Next
       lblInstruments(Index).BackColor = System.Drawing.Color.FromArgb(150, 150, 150)
       lblInstruments(Index).ForeColor = System.Drawing.Color.FromArgb(0, 0, 0)
       ChangeInstrument(Index)
   End Sub
#End Region

#Region "Musical Keyboard"
   ''' <summary>
   ''' Create the keys of the musical keyboard
   ''' </summary>
   ''' <remarks></remarks>
   Sub CreateMusicalKeyBoard()
       Dim wKeyWhite As New Point(22, 80)
       Dim wKeyBlack As New Point(12, 50)
       Dim PosKeyWhite As New Point(30, 300)
       Dim PosKeyBlack As New Point(25, 300)

       For Index As Integer = 1 To lblMuscKey.Count - 1
           lblMuscKey(Index) = New Label
           With lblMuscKey(Index)
               .BorderStyle = BorderStyle.FixedSingle
               Dim incWhiteKeyPosX As Integer
               'White keys
               If numKeysWhite.Contains(Index) Then
                   .Size = New Size(wKeyWhite)
                   .BackColor = Color.White
                   .Location = _
                       New Point(PosKeyWhite.X + incWhiteKeyPosX, PosKeyWhite.Y)
                   incWhiteKeyPosX = incWhiteKeyPosX + 21
                   .SendToBack() 'send to back
               End If
               'Black keys
               If numKeysBlack.Contains(Index) Then
                   .BackColor = Color.Black
                   .Size = New Size(wKeyBlack)
                   .Location = _
                       New Point(PosKeyBlack.X + incWhiteKeyPosX, PosKeyBlack.Y)
               End If
               Me.Controls.Add(lblMuscKey(Index))
               If numKeysBlack.Contains(Index) Then
                   lblMuscKey(Index).BringToFront()
               End If

               AddHandler .MouseDown, AddressOf lblMuscKey_MouseDown
               AddHandler .MouseUp, AddressOf lblMuscKey_MouseUp
               AddHandler .MouseMove, AddressOf lblMuscKey_MouseMove
               AddHandler .MouseLeave, AddressOf lblMuscKey_MouseLeave
           End With

       Next


   End Sub
   Private Sub lblMuscKey_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblMuscKey, sender)
       lblMuscKey(Index).BackColor = Color.Gray 'Change color of the key
       PlayMusicalNote(CByte(Index), VolumeKey, Octave)
   End Sub
   Private Sub lblMuscKey_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblMuscKey, sender)
       If numKeysWhite.Contains(Index) Then
           lblMuscKey(Index).BackColor = Color.White 'Change color of the key
       Else
           lblMuscKey(Index).BackColor = Color.Black 'Change color of the key
       End If

       OffMusicalNote(Index, Octave)
   End Sub
   Private Sub lblMuscKey_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblMuscKey, sender)
       Dim mPoint As New Point(Me.PointToClient(Cursor.Position).X, Me.PointToClient(Cursor.Position).Y)
       Dim X As Integer = mPoint.X
       Cursor = Cursors.Hand
       If X < CInt(lblMuscKey(Index).Left) Or
           X > (CInt(lblMuscKey(Index).Left) + _
                CInt(lblMuscKey(Index).Width)) Then
           EventoUp()
           EventoDown()
       End If

   End Sub
   Private Sub lblMuscKey_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
       Cursor = Cursors.Default
   End Sub
#End Region


#Region "Play Sounds Functions"
   ''' <summary>
   ''' Play a musical note
   ''' </summary>
   ''' <param name="Note">Value of musical note</param>  
   ''' <param name="Volume">Volume musical note</param>
   ''' <param name="bOct">Octave</param>
   ''' <returns></returns>
   Public Function PlayMusicalNote(ByVal Note As Integer, ByVal Volume As Byte, ByVal bOct As Byte) As Boolean
       Note += 23 + (12 * bOct)
       intMsg = CInt(Volume * Convert.ToInt32(CStr(10000), 16) _
+ Note * Convert.ToInt32(CStr(100), 16) + NativeMethods.KeyOn)

       Return CBool(NativeMethods.midiOutShortMsg(hMidiOut, intMsg))
   End Function
   ''' <summary>
   ''' Off a musical note
   ''' </summary>
   ''' <param name="Note">Value of musical note</param>
   ''' <param name="bOct">Octave</param>
   ''' <returns></returns>
   ''' <remarks></remarks>
   Public Function OffMusicalNote(ByVal Note As Integer, ByVal bOct As Integer) As Boolean
       Note += 23 + (12 * bOct)
       intMsg = Note * Convert.ToInt32(CStr(100), 16) + NativeMethods.KeyOff
       Return CBool(NativeMethods.midiOutShortMsg(hMidiOut, intMsg))
   End Function
   ''' <summary>
   ''' Change the instrument
   ''' </summary>
   ''' <param name="instCode"></param>
   ''' <returns></returns>
   ''' <remarks></remarks>
   Public Function ChangeInstrument(ByVal instCode As Integer) As Boolean
       intMsg = instCode * Convert.ToInt32(CStr(100), 16) + NativeMethods.Instruments
       Return CBool(NativeMethods.midiOutShortMsg(hMidiOut, intMsg))
       Return Nothing
   End Function
#End Region
#Region "Computer keyboard keys"
   ''' <summary>
   ''' Assigning Computer keyboard keys
   ''' </summary>
   ''' <param name="keycode"></param>
   ''' <returns></returns>
   ''' <remarks></remarks>
   Public Function Key(ByVal keycode As Integer) As Integer
       Dim BlackHalfKey() As Keys = {Keys.W, Keys.E, Keys.T, Keys.Y, Keys.U}
       Dim WhiteHalfKey() As Keys = {Keys.A, Keys.S, Keys.D, Keys.F, Keys.G, Keys.H, Keys.J, Keys.K}
       Dim BassKey() As Keys = {Keys.Z, Keys.X, Keys.C, Keys.V, Keys.B, Keys.N, Keys.M, Keys.Oemcomma}
       Dim AltoKey() As Keys = {Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5, Keys.D6, Keys.D7, Keys.D8}

       If BlackHalfKey.Contains(CType(keycode, Keys)) Or _
           WhiteHalfKey.Contains(CType(keycode, Keys)) Or _
           BassKey.Contains(CType(keycode, Keys)) Or _
            AltoKey.Contains(CType(keycode, Keys)) Then
           For I As Integer = 10 To 14
               If keycode = BlackHalfKey(I - 10) Then Msg.Note = CByte(numKeysBlack(I))
           Next

           For I As Integer = 14 To 21
               If keycode = WhiteHalfKey(I - 14) Then Msg.Note = CByte(numKeysWhite(I))
           Next

           For I As Integer = 0 To 7
               If keycode = BassKey(I) Then Msg.Note = CByte(numKeysWhite(I))
           Next
           For I As Integer = 28 To 35
               If keycode = AltoKey(I - 28) Then Msg.Note = CByte(numKeysWhite(I))
           Next

           lblMuscKey(Msg.Note).BackColor = Color.Gray

           Return Msg.Note
       Else
           Return 0
       End If

   End Function
#End Region
End Class

Module MouseEvents
   ''' <summary>
   ''' Simulate MouseDown the left mouse button
   ''' </summary>
   ''' <remarks></remarks>
   Public Sub EventoDown()
       NativeMethods.mouse_event(NativeMethods.MouseEventFlags.MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
   End Sub
   ''' <summary>
   ''' Simulate MouseUp the left mouse button
   ''' </summary>
   ''' <remarks></remarks>
   Public Sub EventoUp()
       NativeMethods.mouse_event(NativeMethods.MouseEventFlags.MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
   End Sub

End Module

<SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
   Inherits Attribute
   Private Sub New()
   End Sub

#Region "API MIDI message"
   <DllImport("winmm.dll")>
   Public Shared Function midiOutOpen(ByRef lphMidiOut As IntPtr,
                                      ByVal uDeviceID As Integer,
                                      ByVal dwCallback As IntPtr,
                                      ByVal dwInstance As IntPtr,
                                      ByVal dwFlags As UInteger) As UInteger
   End Function
   <DllImport("winmm.dll")>
   Public Shared Function midiOutShortMsg(ByVal hMidiOut As IntPtr,
                                          ByVal dwMsg As Integer) As UInteger
   End Function

   <DllImport("winmm.dll")>
   Public Shared Function midiOutClose(ByVal hMidiOut As IntPtr) As Integer
   End Function

   <StructLayout(LayoutKind.Auto)> _
   Public Structure MidiMsg
       Dim status As Byte
       Dim Note As Byte
       Dim Volume As Byte
       Dim Data3 As Byte
   End Structure
   Public Const MIDI_MAPPER As Int32 = -1
   Public Const CALLBACK_NULL = &H0
   Public Const KeyOn As Integer = &H90
   Public Const KeyOff As Integer = &H80
   Public Const Instruments As Integer = &HC0
#End Region

#Region "API Mouse Events"


   <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
   Friend Shared Sub mouse_event(ByVal dwFlags As UInteger, _
                                  ByVal dx As UInteger, _
                                  ByVal dy As UInteger, _
                                  ByVal dwData As UInteger, _
                                  ByVal dwExtraInfo As Integer)
   End Sub

   <Flags()> _
   Public Enum MouseEventFlags As UInteger
       MOUSEEVENTF_ABSOLUTE = &H8000
       MOUSEEVENTF_LEFTDOWN = &H2
       MOUSEEVENTF_LEFTUP = &H4
       MOUSEEVENTF_MIDDLEDOWN = &H20
       MOUSEEVENTF_MIDDLEUP = &H40
       MOUSEEVENTF_MOVE = &H1
       MOUSEEVENTF_RIGHTDOWN = &H8
       MOUSEEVENTF_RIGHTUP = &H10
       MOUSEEVENTF_XDOWN = &H80
       MOUSEEVENTF_XUP = &H100
       MOUSEEVENTF_WHEEL = &H800
       MOUSEEVENTF_HWHEEL = &H1000
   End Enum

#End Region


End Class



CÓDIGO BÁSICO PARA REPRODUCIR SONIDOS MIDI

Crea un Button, y pegas esto. Al pulsar el botón se escucha un sonido C2 (Do 2ª escala), que su valor es 47.

Código (vbnet) [Seleccionar] Expandir



Option Strict On
Imports System.Runtime.InteropServices
Imports System.Security

Public Class Form1
   Dim hMidiOut As IntPtr
   Dim intMsg As Integer
   Dim msg As New NativeMethods.MidiMsg

   Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
       'Cierra los mensajes midi
       NativeMethods.midiOutClose(hMidiOut)
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'Abre los mensajes midi
       NativeMethods.midiOutOpen(hMidiOut, NativeMethods.MIDI_MAPPER,
                        CType(0, IntPtr), CType(0, IntPtr),
                        NativeMethods.CALLBACK_NULL)

       'Cambiar instrumento
       Dim MyInstr As Integer = 1 'min:0 (piano) ; max:127 (Gunshot)
       intMsg = MyInstr * Convert.ToInt32(CStr(100), 16) + NativeMethods.Instruments
       NativeMethods.midiOutShortMsg(hMidiOut, intMsg)
   End Sub

   Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
       'Reproduce un sonido los mensajes midi
       msg.status = NativeMethods.KeyOn
       msg.Volume = 127
       msg.Note = 47 '<---Sonido
       intMsg = msg.Volume * Convert.ToInt32(CStr(10000), 16) + _
           msg.Note * Convert.ToInt32(CStr(100), 16) + _
           msg.status
       NativeMethods.midiOutShortMsg(hMidiOut, intMsg)
   End Sub

   Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
       'Apaga el sonido al soltar el botón
       '**El sonido debe ser el mismo que el que se quiere apagar
       msg.status = NativeMethods.KeyOff
       msg.Volume = 0
       msg.Data3 = 0
       msg.Note = 47 '<---Sonido
       intMsg = msg.Volume * Convert.ToInt32(CStr(10000), 16) _
           + msg.Note * Convert.ToInt32(CStr(100), 16) + _
           msg.status
       NativeMethods.midiOutShortMsg(hMidiOut, intMsg)
   End Sub
End Class



<SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
   Inherits Attribute
   Private Sub New()
   End Sub

#Region "API MIDI message"
   <DllImport("winmm.dll")>
   Public Shared Function midiOutOpen(ByRef lphMidiOut As IntPtr,
                                      ByVal uDeviceID As Integer,
                                      ByVal dwCallback As IntPtr,
                                      ByVal dwInstance As IntPtr,
                                      ByVal dwFlags As UInteger) As UInteger
   End Function
   <DllImport("winmm.dll")>
   Public Shared Function midiOutShortMsg(ByVal hMidiOut As IntPtr,
                                          ByVal dwMsg As Integer) As UInteger
   End Function

   <DllImport("winmm.dll")>
   Public Shared Function midiOutClose(ByVal hMidiOut As IntPtr) As Integer
   End Function

   <StructLayout(LayoutKind.Auto)> _
   Public Structure MidiMsg
       Dim status As Byte
       Dim Note As Byte
       Dim Volume As Byte
       Dim Data3 As Byte
   End Structure
   Public Const MIDI_MAPPER As Int32 = -1
   Public Const CALLBACK_NULL = &H0
   Public Const KeyOn As Integer = &H90
   Public Const KeyOff As Integer = &H80
   Public Const Instruments As Integer = &HC0
#End Region

End Class



Espero que disfrutéis del programa.

No soy un programador  experto así que supongo que los más avispados veréis cosas corregibles.

Me he visto obligado a usar APIs. He estado buscando la forma de no tener que usarlo y usar puro código .NET, pero no lo he conseguido. A no ser que use mi propia biblioteca MIDI de sonidos.

[DESLIZANDO EL CURSOR]
He preguntado en varios sitios incluido aquí como crear el efecto de arrastrar el dedo por las teclas de un piano usando el puntero del ratón y con puro código NET. Pero no he tenido éxito, por ahora.

Como alternativa, de nuevo me he visto obligado a usar llamada API. La razón es que cuando pulsas una tecla del piano y mantienes pulsado el botón izquierdo al pasar a otra tecla se mantiene el evento de la tecla inicial ignorando por completo el hecho de que el puntero se haya en una nueva tecla. Con la imposibilidad de usar MouseEnter, ya que el que trabaja es el evento MouseEnter de la primera tecla. Usando Mouse_Event emulo la acción de soltar el botón, aunque en realidad aun lo tenga pulsado justo al entrar en la otra tecla. De nuevo emulo el evento de pulsar y la nueva tecla captura el evento. Es fácil conseguirlo con elementos que no forma parte de una matriz, pero se complica al usar un array de controles. Por esta razón he tenido que usar Mouse_Event.

S2s

[He cambiado el título de la pregunta porque no estaba bien hecha, ya que hacía referencia al foco de objeto cuando en realidad me refiero al evento. Cuando se presiona sobre el objeto éste recibe el foco, por eso usé esa palabra. Realmente lo que necesito es terminar o salir del evento MouseDown y volver a entrar sin soltar el botón del ratón al salir y entrar en otro objeto de un mismo array]

He cambiado el título de la pregunta porque no estaba bien hecha, ya que hacía referencia al foco de objeto cuando en realidad me refiero al evento. Cuando se presiona sobre el objeto éste recibe el foco, por eso usé esa palabra.

Realmente lo que necesito es terminar o salir del evento MouseDown y volver a entrar sin soltar el botón del ratón  al salir y entrar en otro objeto de un mismo array


Hola

Estoy intentado que al pulsar un objeto sea un Label, picture o botón, al salir de él éste salga del evento de pulsado (Mousedown) del objeto y al entras seguidamente en otro objeto éste reciba el enfoque y el evento MouseDown

Para que se me entienda.

Imagina el teclado del ordenador y pasas y pulsas A el botón baja, luego deslizas el dedo manteniendo pulsado y pasa a S. el botón S bajará y el A subirá.  En un editor de texto se escribiría AS sin haber levantado el dedo.

Necesito eso mismo pero con controles. pero no se como hacerlo. He probado con Hover y Enter, pero no me sale.


Parece una tontaría y muy simple pero llevo rato inentandolo y nada

Gracias




Aquí dejo lo que he hecho.

Al pulsar sobre el Label(2) éste cambia de color al azul y sin soltar, al salir de él y entrar en Label(1), pierde su color azul, pero el Label(1) no cambia de color porque todavía está en el evento MousDown Label(2).

Necesito que al entrar en Label(1) entre en el evento Mousdown de este control y salga del MouseDown del Label(2).

Código (vbnet) [Seleccionar] Expandir


'Programmed by Lekim'
Option Strict On
Imports System.Runtime.InteropServices


Public Class Form1

   <DllImport("user32.dll")> _
   Private Shared Sub mouse_event(ByVal dwFlags As UInteger, _
                                  ByVal dx As UInteger, _
                                  ByVal dy As UInteger, _
                                  ByVal dwData As UInteger, _
                                  ByVal dwExtraInfo As Integer)
   End Sub


   Dim lblkey(5) As Label
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim locLBL As New Point(10, 10)
       Dim inc As Integer
       For I As Integer = 0 To 5
           lblkey(I) = New Label
           lblkey(I).Size = CType(New Point(20, 100), Drawing.Size)
           lblkey(I).BorderStyle = BorderStyle.FixedSingle
           lblkey(I).Location = New Point(locLBL.X + inc, locLBL.Y)
           Me.Controls.Add(lblkey(I))
           inc += 19
       Next
       For I As Integer = 0 To 5
           AddHandler lblkey(I).MouseDown, AddressOf lblkey_MouseDown
           AddHandler lblkey(I).MouseUp, AddressOf lblkey_MouseUp
           AddHandler lblkey(I).MouseMove, AddressOf lblkey_MouseMove

       Next

   End Sub
   Private Sub lblkey_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblkey, sender)
       Dim mPoint As New Point(Me.PointToClient(Cursor.Position).X, Me.PointToClient(Cursor.Position).Y)
       Dim X As Integer = mPoint.X

       If X < CInt(lblkey(Index).Left) Or
           X > (CInt(lblkey(Index).Left) + _
                CInt(lblkey(Index).Width)) Then
           EventoUp()
           EventoDown()
       End If

   End Sub
   Private Sub lblkey_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblkey, sender)
       If Button.MouseButtons = MouseButtons.Left Then
           lblkey(Index).BackColor = Color.Azure
       End If
   End Sub
   Private Sub lblkey_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       Dim Index As Integer = Array.IndexOf(lblkey, sender)
       lblkey(Index).BackColor = Color.Transparent
   End Sub

End Class
Module modEventMouse
   <DllImport("user32.dll")> _
   Public Sub mouse_event(ByVal dwFlags As UInteger, _
                                  ByVal dx As UInteger, _
                                  ByVal dy As UInteger, _
                                  ByVal dwData As UInteger, _
                                  ByVal dwExtraInfo As Integer)
   End Sub
   <Flags()> _
   Public Enum MouseEventFlags As UInteger
       MOUSEEVENTF_ABSOLUTE = &H8000
       MOUSEEVENTF_LEFTDOWN = &H2
       MOUSEEVENTF_LEFTUP = &H4
       MOUSEEVENTF_MIDDLEDOWN = &H20
       MOUSEEVENTF_MIDDLEUP = &H40
       MOUSEEVENTF_MOVE = &H1
       MOUSEEVENTF_RIGHTDOWN = &H8
       MOUSEEVENTF_RIGHTUP = &H10
       MOUSEEVENTF_XDOWN = &H80
       MOUSEEVENTF_XUP = &H100
       MOUSEEVENTF_WHEEL = &H800
       MOUSEEVENTF_HWHEEL = &H1000
   End Enum
   ''' <summary>
   ''' Simulate MouseDown the left mouse button
   ''' </summary>
   ''' <remarks></remarks>
   Public Sub EventoDown()
       Call modEventMouse.mouse_event(MouseEventFlags.MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
   End Sub
   ''' <summary>
   ''' Simulate MouseUp the left mouse button
   ''' </summary>
   ''' <remarks></remarks>
   Public Sub EventoUp()
       Call modEventMouse.mouse_event(MouseEventFlags.MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
   End Sub


End Module




[PENDRIVE]

Hola

Estoy partiendome los sesos intentando crear un disco de arranque desde un PENDRIVE a partir de una imagen ISO que NO es de un SO (Sistema Operativo), si no de un programa que se ejecuta al arrancar el sistema desde un CD.

He buscado y todo lo que encuentro es referido a arrancar sistemas operativos. He probado con Ultraiso y mediante consola diskpart. Pero nada. He conseguido varios programas para este fin pero, del mismo modo solo funciona para discos de arranque de sistemas operativos

Otra duda es que si oblitatoriamente tengo que hacerlo con USB de 4GB o puedo hacerlo con uno de 2GB ya que el programa que quiero usar ocupa apenas unos megabytes.

Una ayuda por favor  

Gracias




He rectificado  la pregunta porque no estaba muy clara. Aclaro que quiero arrancar desde un PENDRIVE usando la imagen de un CD-ROM arrancable. Y no es de un sistema operativo

S2s

[EnergyXT]

Hola
Estoy usando de momento un programa llamado EnergyXT y plugins VST, como el Guitar Rig. He probado también otros como Amplitube.



El problema está en que cuando pongo distorsión, para tocar solos, con notas limpias y sustain, con mucha ganancia  y salida, se produce un ruido de fondo muy molesto.



Hay que tener en cuenta que estos programas, jungo con el ASIO, simulan un amplificador pero no es lo mismo. Con un amplificador también ocurre igual, y se producen acoples pero cuando tapas las cuerdas con la mano el sonido molesto desaparece. Sin embargo no ocurre igual usando el ordenador, ya que al tapar las cuerdas el sonido molesto persiste.

Para que te hagas una idea es como ese zumbido que se oye cuando Martin McFly en Regreso al futuro (Back To the Future) conecta la guitarra al principio de la película.

Cuando se toca con distorsión hay que tapar ligeramente las cuerdas con la mano para evitar que se escuche este ruido de fondo.

Me gustaría saber qué puedo hacer para evitar que se produzca ese ruido. Si hay alguna tarjeta de sonido que sirva para esto y si la hay ¿Cuál?

Gracias



He he encontrado algunos tutoriales para eliminar el ruido que ahora probaré
pero....

lo que realmente me gustaría es que el ordenador se comporte verdaderamente como un amplificador usando como he preguntado alguna tarjeta gráfica que dispusiera de funciones par aintegrar instrumentos...

Se que hay algunos aparetejos que en realidad son amplificadores (sin altavoz) que se conentan a un Pc y éstos recogen la señal y puedes aplicar efectos. Además vienen con programas incorporados, el problema es que valen una pasta




Bueno, me he buscado  la vida.... y he encontrado algo que me puede servir. Se llama Guitar Link de Berhinger, ya que hay imitaciones y parece ser que las imitaciones dan problemas, como que anulan la tarjeta de sonido del ordenador y solo puedes escuchar la guitarra, algo muy malo si quieres reproducir piestas de audio y acompañamiento de algún tipo mientras tocas.

Como anécdota puedo decir que he visto gente que trata de vender imitaciones por 20 €, como si fuera el original rebajado a la mitad (que vale de 35 a 40 € según vendedor) cuando las imitaciones valen de  3 a 4€. Así que ojo con esto que hay mucho mangante por ahí.




S2s

[Mod: No borrar texto del post... deja inservible el tema entero.]

Hola

Estoy intentando conectarme a una red usando esta información:

Código [Seleccionar] Expandir

SSID 4 : MOVISTAR_XXXXX
    Tipo de red             : Infraestructura
    Autenticaci¢n           : WPA2-Personal
    Cifrado                 : CCMP
    BSSID 1             : xx:xx:xx:xx:xx:xx
         Se¤al              : 46% 
         Tipo de radio      : 802.11n
         Canal              : 112
  Velocidades b sicas (Mbps): 6 12
    Otras velocidades (Mbps): 9 18 24 36 48 54


usando los siguiente parámentros

Código [Seleccionar] Expandir

netsh wlan connect name==[profile name] ssid=xx:xx:xx:xx:xx:xx

Por no se lo que es [profile name]

la consola simpre me da error y me devuelve que no existe tal perfil

Gracias


cuando hago esto:

Código [Seleccionar] Expandir

netsh wlan show profile

devuelve:

Código [Seleccionar] Expandir

Perfiles de directiva de grupo (sólo lectura)
---------------------------------------------
    <Ninguno>

Perfiles de usuario
-------------------
    <Ninguno>


Mod: No borrar texto del post... deja inservible el tema entero.

Hola

Llevo unos 18 años teniendo ordenador. He tenido varios y ahora mismo tengo 4, dos PCs y un portátil, todos con windows, excepto 1 que tiene Linux y aparte de dos casos que ahora comentaré, jamás he tenido probemas con virus.


Tan solo  como he dicho dos casos, uno allá por el 1999 o 2000 que descubrí un virus en el PC que falseaba el tamaño real ocupado del disco.

Otro hace unos cuatro años al bajarme un programa desde softonic, que me cambiaba la dirección de la página principal de todos los navegadores, cuando encontré la fuente del problema que era un archivo que no podía borrar porque aparte que estaba oculto y no tenía extensión, no se podía borrar del modo tradicional, tuve que hacerlo desde fuera de windows, además de restaurar a un punto anterior.

Pero aparte de esto nada grave. No si es que quizás tenga malware en cualquiera de mis ordenadores pero no lo sepa o no me de cuenta, porque actúan en modo que yo, ni el antivirus los pueda detectar, como un bot por ejemplo.

Tengo una serie de costumbres como, no bajar programas directamente desde una página web si no están comprimidos. A no ser que sean páginas de confianza, como de Microsoft por ejemplo.

No ejecuto keygens y no uso cracks por lo menos en los sistemas de uso normal, siempre en sistemas aislados  (para estos fines) y sin conexión a internet, ni conectar pendrives.

Siempre analizo cualquier programa que bajo de Internet.

Y otra cosas que no digo, para evitar que cualquier creador de malware pueda usar dicha información para infectar.

Además, nunca entro en webs de pornografía, que son fuente de intrusiones y virus, en un instante. ¿Cómo lo se? Porque desde un sistema seguro (de pruebas le digo yo) que luego recupero o reinstalo en un instante he entrado y en ellas a base de dar a enlaces en poco tiempo han realizado intrusiones y me han descargado malware.

Sin emgargo en los sitemas de uso personal, y que uso normalemente. siempre tengo la duda de si hay algo que no he detectado... como spyware

S2s

[El inconvetiente es que cada vez que lo quiero usar debo estar conectado a Internet]

Hola

Jamás he visto nada igual. Se trata de un plugin el cual sólo puedes usar cuando te registras en tal página y luego debes introducir el correo y la contraseña con la que te has registrado y un Serial.

Una vez hecho esto puedes usar el plugin completamente  o como suelen decir por aquí 'full'.

El inconvetiente es que cada vez que lo quiero usar debo estar conectado a Internet. Luego puedo desconectar y puedo seguir usando el plugin pero si cierro el programa que lo usa y luego lo vuelvo a abrir, de nuevo tengo que estar conectado a Internet para poder usar el plugin.

Supongo que se envía alguna información a alguna parte y luego recibe una confirmación.

¿Alguna idea de como evitar esto?  



Gracias



Raro es que no me hayan movido la pregunta, ya que he equivocado el término hacking, que nunca me acuerdo que no es cracking o ingeniería inversa.  

De todos modos ya lo he resuelto. Resulta quell plugin dispone de una forma de crear una licencia manualmente, una vez te registras y está activado puedes crear un archivo desde la web que te registras y como usuario registrado. Entonces abres el archivo y el programa queda activado.

En realidad lo que hace es bajar desde la web un archivo, cuando lo lees, el plugin crea otro archivo idéntico pero con distinto nombre y extensión en AllUsers/Datos de programa/...  que en realidad es un archivo de texto plano XML, pero con otra extensión.

Ahora si quiero usarlo en otra compu solo tengo que meter dicho archivo. O eso creo pues puede que esté vinculado al hostname, de mi compu.

s2s

[Lenovo]

Hola

Estoy mirándome portátiles y algunos son carísimos. No soy muy exigente, pues por limitado que sea ya será mejor que el mío que tiene Vista como sistema predeterminado y ya tiene 8 añitos. Además, no soy muy fanático de los videojuegos, ni trabajo con diseño gráfico, así que no necesito componentes especiales en ese sentido.

He visto una marca bastante asequible, en comparación con otras que teniendo componentes similares cuesta mucho más barato. Se trata de Lenovo.

Nunca había visto ni escuchado hablar de esta marca.  ¿Me lo recomendáis?


Gracias

[¿Qué envían y qué descargan?]

Hola

Me hice un programa para controlar el tráfico de red, bytes de subida y bajada, siempre visible en el escritorio y sin molestar demasiado, permitiendo transparencia. Además me avisa cuando marco un límite.

He comprobado (por esto hice el programa), que algunas webs al entrar y estando totalmente cargadas no paran de enviar y descargar datos y a una velocidad de 1mb por segundo. De modo que en un par de minutos la suma de bytes enviados y bajados es de más de 100 mb.

Así que si en un momento dado usas alguna conexión de pago con límite de bytes, esto puede darte un disgusto.

A veces también sucede desde esas ventanas publicitarias que se abren si entras en páginas para descarga de Torrents y cosas así.

Aquí dejo un ejemplo, de una página aparentemente muy simple e inofensiva, pero que algo raro hace:

http://www.tdt1.com/canales-barcelona
(desde Chrome tiene un comportamiento normal, pero desde IE no para de descargar no se que)
Inicia el taskmanager (taskmgr.exe) y comprueba las funciones de red. Verás como al entrar no para de enviar y descargar datos.

¿Qué envían y qué descargan?

Gracias

Hola

Resulta que tengo un portátil el cual, en la parte inferior tiene una pegatina con el Product Key, con el tiempo se ha gastado y rasgado y el Product key se ha borrado.

El caso es que viene con unos disco y Windows Vista incluido. El Windows Vista no necesita introducir ningún código de producto pues éste está vinculado al portátil y detecta automáticamente si se está instalando en dicho portátil. Si se instala en otro ordenador demanda activación. Este windows si se instala en el portátil no necesita activación pues como he dicho ya detecta que sea el portátil en cuestión.

Yo supongo que el el Código de producto se encuentra en los archivos de instalación del Windows Vista. Pero los archivos están todos en modo binario y no hay forma de leer nada.

¿Hay alguna forma de recuperarlo?



He encontrado este código de VB6 para obtener el código, y lo consigo pero no es el mismo que hay en la parte inferior, ya que puedo leer parte y no es igual. He actualizado el sistema, supongo que al hacerlo cambia o algo, no se.

Código (vb) [Seleccionar] Expandir

Dim bDigitalProductID
Dim bProductKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCDKey
Dim ilKeyByte
Dim ilBit
ReDim Preserve bProductKey(14)
Set objShell = CreateObject("WScript.Shell")
bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\DigitalProductId")
Set objShell = Nothing
For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next
bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")
For ilByte = 24 To 0 Step -1
nCur = 0
For ilKeyByte = 14 To 0 Step -1
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next
sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next
MsgBox sCDKey

[fuente]
http://foro.elhacker.net/hacking_avanzado/como_puedo_recuperar_el_numero_de_serie_de_windows_7_de_un_disco_danado-t367412.0.html

["Agregar quitar programas"]

Hola

Este tutorial muestra como abrir tareas, ventanas y cuadros de diálogo especiales de Windows Vista / 7 o sistema posterior desde nuestro programa.

Supón que quieres abrir el dialogo "Agregar quitar programas". Bastaría simplemente con poner esto:

Código (vbnet) [Seleccionar] Expandir

Process.Start("RunDll32.exe", "shell32.dll,Control_RunDLL appwiz.cpl,,0")

Sin embargo hay zonas que no es posible acceder usando Rundll32.exe.

Por ejemplo, el cuadro de diálogo: "Establecer asociaciones: Asociar un tipo de archivo o protocolo con un determinado programa"

Anteriormente en XP, este cuadro estaba disponible en 'Opciones de Carpeta', pero luego fue eliminado. Ahora hay que ir a Panel de Control/Programas predeterminados/Establecer programas predeterminados" (también es accesible desde el menú Inicio).

¿Cómo podemos hacer que nuestro programa abra diréctamente este cuadro de diálogo o ventana?

Pues utilizando este comando: "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}\pageFileAssoc"

     

Código (vbnet) [Seleccionar] Expandir

Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}\pageFileAssoc")


Con la función Shell de VB sería así:
 

Código (vbnet) [Seleccionar] Expandir

Shell("explorer.exe shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}\pageFileAssoc", 1)


En Vista y posterior muchos ventanas y diálogos tienen su código CLSID. Por ejemplo para el Panel de Control el código es: {26EE0668-A00A-44D7-9371-BEB064C98683}

     

Código (vbnet) [Seleccionar] Expandir

Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}")

Donde 'Shell:::{Code CLSID}\Número\", indica la sección del Panel de control:

Código (vbnet) [Seleccionar] Expandir


       'Opcciones Adicionales"
       Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\")

       'Apariencia y personalización"
       Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\1\")

       'Hardware y sonido"
       Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\")

       '"Redes e Internet"
       Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\")
       
       '...

       '"Programas"
       Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\")



El código CLSID de "Programas predeterminados" es: {17cd9488-1228-4b2f-88ce-4298e93e0966}


El comando se crea añadiendo un CLSID al anterior, en este caso a 'Panel de control/Programas':

Código (vbnet) [Seleccionar] Expandir

Process.Start("explorer.exe", "shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}")


...y después la página:

Código (vbnet) [Seleccionar] Expandir

"shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}\pageFileAssoc"


Pero no te preocupes más abajo muestro como conseguir los comandos completos y no tienes que inventar nada.


Para abrir el cuadro de diálogo "Propiedades de la barra de tareas y menú inicio" basta con usar este código:

Código (vbnet) [Seleccionar] Expandir


 Process.Start("explorer.exe", "shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}")

Para el resto se usa rundll32.exe:

Código (vbnet) [Seleccionar] Expandir


       'Opciones de carpeta/General
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 0")

       'Barra de tareas
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 1")

       'Opciones de carpeta/Buscar
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 2")

       'Menú inicio
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 3")

       'Área de notificación
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 4")

       'Personalizar iconos de notificación
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 5")

       'Barra de herramientas
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 6")

       'Opciones de carpeta/Ver
       Process.Start("rundll32.exe", "shell32.dll,Options_RunDLL 7")




DONDE ENCONTRAR ESTOS CAMINOS O COMANDOS PARA ACCEDER A ESTAS DETERMINADAS ZONAS DE WINDOWS
Bien que seguramente puedes encontrar muchos en Internet ya que no es ningún secreto, lo que quizás poca gente sabe es que los comandos y accesos a determinazas zonas de windows se encuentran en el recurso [XML] del archivo Shell32.dll.

Personalmente yo he utilizado  el programa Resource Hacker, desde el cual abres el archivo Shell32.dll que se haya en la carpeta C:\Windows\System32. Pero también puedes abrir Shell32.dll desde  VB.NET mediante "Agregar/Elemento Existente" (CTRL+D), entonces se te carga como un archivo de recursos en C++ y como archivo agregado en un proyecto Windows Forms. Desde el cual podrás acceder a su contenido.



Desde Resoruce Hacker el contenido XML es perfectamente legible, pero desde .NET, no tanto, ya que se muestra como binario. Si lo cargas desde NET, puedes hacer un copia y pega en el Notepad ya que el texto del recurso XML en realidad es un simple texto plano.


La información XML del archivo Shell32.dll, da cuatro datos respecto a una tarea de windows. Primero la información de la tarea '<!-- Change screen reader -->', luego el ID, Nombre, Keywords y comando:

Código (xml) [Seleccionar] Expandir

...
<!-- Change screen reader -->
       <sh:task id="{B57D7134-6BAB-47B2-A506-E885E104EC99}">
             <sh:name>@shell32.dll,-24754</sh:name>
             <sh:keywords>@shell32.dll,-24755</sh:keywords>
             <sh:command>shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageNoVisual</sh:command>
       </sh:task>
...


ABRIR TODAS LAS TAREAS DE WINDOWS
Mal llamado GodMode (modo dios) o MasterPanel, ya que su verdadero nombre es "All Task" en inglés o "Todas las tareas"

Código (vbnet) [Seleccionar] Expandir


       Process.Start("explorer.exe", "shell:::{ed7ba470-8e54-465e-825c-99712043e01c}")

ABRIR ALGUNAS CARPETAS ESPECIALES

Código (vbnet) [Seleccionar] Expandir

 
     'Herramientas administrativas               shell:::{D20EA4E1-3957-11d2-A40B-0C5020524153}
       'Panel de Control                           shell:::{21EC2020-3AEA-1069-A2DD-08002b30309d}
       'Fuentes                                    shell:::{D20EA4E1-3957-11d2-A40B-0C5020524152}
       'Equipo                                     shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}
       'Documentos                                 shell:::{450D8FBA-AD25-11D0-98A8-0800361B1103}
       'History                                    shell:::{ff393560-c2a7-11cf-bff4-444553540000}
       'Red (WORKGROUP)                            shell:::{208d2c60-3aea-1069-a2d7-08002b30309d}
       'Impresoras                                 shell:::{2227A280-3AEA-1069-A2DE-08002B30309D}
       'Programs Folder                            shell:::{7be9d83c-a729-4d97-b5a7-1b7313c39e0a}
       'Papelera de reciclaje                      shell:::{645FF040-5081-101B-9F08-00AA002F954E}
       'Menú Inicio                                shell:::{48e7caab-b918-4e58-a94d-505519c795dc}
       'Información y herramientas de rendimiento  shell:::{78F3955E-3B90-4184-BD14-5397C15F1EFC}
       'Centro de accesibilidad                    shell:::{D555645E-D4F8-4c29-A827-D93C859C4F2A}
       'Windows Defender                           shell:::{D8559EB9-20C0-410E-BEDA-7ED416AECC2A}
       'Mapa de red                                shell:::{E7DE9B1A-7533-4556-9484-B26FB486475E}
       'Windows SideShow                           shell:::{E95A4861-D57A-4be1-AD0F-35267E261739}
       'Personalización                            shell:::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921}
       'Informe de problemas y soluciones          shell:::{FCFEECAE-EE1B-4849-AE50-685DCF7717EC}
       'Escáneres y cámaras                        shell:::{00f2886f-cd64-4fc9-8ec5-30ef6cdbe8c3}
       'Opciones de energía                        shell:::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}
       'Propiedades barra de tareas                shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}
       'Obtener programas                          shell:::{15eae92e-f17a-4431-9f28-805e482dafd4}
       'Programas predeterminados                  shell:::{17cd9488-1228-4b2f-88ce-4298e93e0966}
       'Dispositivos Bluetooth                     shell:::{28803F59-3A75-4058-995F-4EE5503B023C}
       'Centro de copias de seguridad y restauración   shell:::{335a31dd-f04b-4d76-a925-d6b47cf360df}
       'Windows Update                             shell:::{36eef7db-88ad-4e81-ad49-0e313f0c35f8}
       'Propiedades de Windows Sidebar             shell:::{37efd44d-ef8d-41b1-940d-96973a50e9e0}
       'Get Programs Online                        shell:::{3e7efb4c-faf1-453d-89eb-56026875ef90}
       'Firewall de Windows                        shell:::{4026492F-2F69-46B8-B9BF-5654FC07E423}
       'Opciones de reconocimiento de voz          shell:::{58E3C745-D971-4081-9034-86E34B30836A}
       'Desfragmentador de disco                   shell:::{5d9a6bda-b06a-42c0-b50f-5174bcb472de}
       'Centro de movilidad de Windows             shell:::{5ea4f148-308c-46d7-98a9-49041b1dd468}
       'Cuentas de usuario                         shell:::{60632754-c523-4b62-b45c-4172da012619}
       'Opciones de carpeta                        shell:::{6DFD7C5C-2451-11d3-A299-00C04F8EF6AF}
       'Administrador de dispositivos              shell:::{74246bfc-4c96-11d0-abef-0020af6b0b7a}
       'Windows CardSpace                          shell:::{78CB147A-98EA-4AA6-B0DF-C8681F69341C}

       Process.Start("explorer.exe", "shell:::{78F3955E-3B90-4184-BD14-5397C15F1EFC}")




ALGUNAS TAREAS

Código [Seleccionar] Expandir




Accommodate learning abilities:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageQuestionsCognitive

Accommodate low vision:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierToSee

Adjust screen resolution for reading:
%windir%\system32\control.exe desk.cpl,Settings,@Settings

Change how your keyboard works:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageKeyboardEasierToUse

Change how your mouse works:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierToClick

Change screen reader:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageNoVisual

Change the Narrator voice:
%windir%\system32\narrator.exe

Control the computer without the mouse or keyboard:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageNoMouseOrKeyboard

Hear a tone when keys are pressed:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageFilterKeysSettings

Hear text read aloud with Narrator:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}

Ignore repeated keystrokes using FilterKeys:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageFilterKeysSettings

Let Windows suggest Ease of Access settings:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageQuestionsEyesight

Magnify portions of the screen using Magnifier:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierToSee

Move the pointer with the keypad using MouseKeys:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageKeyboardEasierToUse

Optimize for blindness:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageNoVisual

Optimize visual display:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierToSee

Press key combinations one at a time:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageKeyboardEasierToUse

Replace sounds with visual cues:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierWithSounds

Turn High Contrast on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}

Turn Magnifier on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}

Turn off background images:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierToSee

Turn off unnecessary animations:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierToSee

Turn On-Screen keyboard on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}

Underline keyboard shortcuts and access keys:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageKeyboardEasierToUse

Use audio description for video:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}\pageEasierToSee

View current accessibility settings:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\7\::{D555645E-D4F8-4c29-A827-D93C859C4F2A}

Create and format hard disk partitions:
%windir%\system32\mmc.exe %windir%\system32\diskmgmt.msc

Defragment your hard drive:
%windir%\system32\dfrgui.exe

Diagnose your computer's memory problems:
%windir%\system32\mdsched.exe

Edit group policy:
%windir%\system32\mmc.exe %windir%\system32\gpedit.msc

Generate a system health report:
%windir%\system32\perfmon.exe /report

How to add new hardware:
mshelp://windows/?id=dfd48704-eb89-4e9f-b3de-552f0ca60640

Schedule tasks:
%windir%\system32\mmc.exe %windir%\system32\taskschd.msc

Set up data sources (ODBC):
%windir%\system32\odbcad32.exe

Set up iSCSI initiator:
%windir%\system32\iscsicpl.exe

View event logs:
%windir%\system32\mmc.exe %windir%\system32\eventvwr.msc

View event logs:
%windir%\system32\mmc.exe %windir%\system32\eventvwr.msc

View local services:
%windir%\system32\mmc.exe %windir%\system32\services.msc

Add or remove programs:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}

Change or remove a program:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}

How to install a program:
mshelp://windows/?id=fe7ea80e-52a2-48d6-947a-05e02e78bc37

Install a program from the network:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{15EAE92E-F17A-4431-9F28-805E482dAFD4}

Show which programs are installed on my computer:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}

Turn Windows features on or off:
%windir%\system32\OptionalFeatures.exe

Turn Windows features on or off:
%windir%\system32\CompMgmtLauncher.exe

Uninstall a program:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}

View installed updates:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}\::{D450A8A1-9568-45C7-9C0E-B4F9FB4537BD}

Change default e-mail program:
%windir%\system32\ComputerDefaults.exe

Change default programs that Windows uses:
%windir%\system32\ComputerDefaults.exe

Make a file type always open in a specific program:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}\pageFileAssoc

Set program defaults for this computer:
%windir%\system32\ComputerDefaults.exe

Set your default programs:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}\pageDefaultProgram

Use an older program with this version of Windows:
%windir%\system32\mshta.exe res://%windir%\system32\acprgwiz.dll/compatmode.hta

Change settings for a Bluetooth enabled device:
%windir%\system32\control.exe bthprops.cpl,,1

Set up a Bluetooth enabled device:
%windir%\system32\control.exe bthprops.cpl

Back up your computer:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{335a31dd-f04b-4d76-a925-d6b47cf360df}

Restore data, files, or computer from backup:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{335a31dd-f04b-4d76-a925-d6b47cf360df}

Schedule automated backups:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{335a31dd-f04b-4d76-a925-d6b47cf360df}

Change advanced color management settings for displays, scanners, and printers:
%windir%\system32\colorcpl.exe

Add clocks for different time zones:
%windir%\system32\control.exe timedate.cpl,,1

Automatically adjust for daylight saving time:
%windir%\system32\control.exe timedate.cpl

Change the time zone:
%windir%\system32\control.exe timedate.cpl

Set the time and date:
%windir%\system32\control.exe timedate.cpl

Find which version of Windows you are using:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{CB1B7F8C-C50A-4176-B604-9E24DEE8D4D1}

Get started with Windows:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{CB1B7F8C-C50A-4176-B604-9E24DEE8D4D1}

Migrate files and settings from one computer to another:
%windir%\system32\migwiz\migwiz.exe

Check for new solutions:
%windir%\system32\wercon.exe -solutioncheck

Choose how to check for solutions:
%windir%\system32\wercon.exe -showweropts

View problem history:
%windir%\system32\wercon.exe -problemhistory

Change default settings for media or devices:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{9C60DE1E-E5FC-40f4-A487-460851A8D915}

Play CDs or other media automatically:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{9C60DE1E-E5FC-40f4-A487-460851A8D915}

Start or stop using autoplay for all media and devices:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{9C60DE1E-E5FC-40f4-A487-460851A8D915}

Change search options for files and folders:
%windir%\system32\rundll32.exe shell32.dll,Options_RunDLL 2

Change the file type associated with a file extension:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\8\::{17cd9488-1228-4b2f-88ce-4298e93e0966}\pageFileAssoc

Show hidden files and folders:
%windir%\system32\rundll32.exe shell32.dll,Options_RunDLL 7

Show or hide file extensions:
%windir%\system32\rundll32.exe shell32.dll,Options_RunDLL 7

Specify single- or double-click to open:
shell:::{6DFD7C5C-2451-11D3-A299-00C04F8EF6AF}

Use Classic Windows folders:
shell:::{6DFD7C5C-2451-11D3-A299-00C04F8EF6AF}

Install or remove a font:
%windir%\system32\control.exe /name Microsoft.Fonts

View installed fonts:
%windir%\system32\control.exe /name Microsoft.Fonts

Set up USB game controllers:
%windir%\system32\control.exe joy.cpl

Adjust commonly used mobility settings:
%windir%\system32\mblctr.exe /open

Adjust screen brightness:
%windir%\system32\mblctr.exe /open

Adjust settings before giving a presentation:
%windir%\system32\presentationsettings.exe

Connect to a projector or other external display:
%windir%\system32\mblctr.exe /open

Block or allow pop-ups:
%windir%\system32\control.exe inetcpl.cpl,,2

Block or allow third-party cookies:
%windir%\system32\control.exe inetcpl.cpl,,2

Change how web pages are displayed in tabs:
%windir%\system32\control.exe inetcpl.cpl,,0

Change security settings:
%windir%\system32\control.exe inetcpl.cpl,,1

Change temporary Internet file settings:
%windir%\system32\control.exe inetcpl.cpl,,0

Change the default Web browser:
%windir%\system32\ComputerDefaults.exe

Change the search provider in Internet Explorer:
%windir%\system32\control.exe inetcpl.cpl,,0

Change your homepage:
%windir%\system32\control.exe inetcpl.cpl,,0

Configure proxy server:
%windir%\system32\control.exe inetcpl.cpl,,4

Connect to the Internet:
%windir%\system32\rundll32.exe xwizards,RunWizard {7071ECA0-663B-4bc1-A1FA-B97F3B917C55} /z -ShowFinishPage

Delete browsing history:
%windir%\system32\control.exe inetcpl.cpl,,0

Delete cookies or temporary files:
%windir%\system32\control.exe inetcpl.cpl,,0

Enable or disable session cookies:
%windir%\system32\control.exe inetcpl.cpl,,2

Manage browser add-ons:
%windir%\system32\control.exe inetcpl.cpl,,5

Tell if an RSS feed is available on a website:
%windir%\system32\control.exe inetcpl.cpl,,3

Turn autocomplete in Internet Explorer on or off:
%windir%\system32\control.exe inetcpl.cpl,,3

Change cursor blink rate:
%windir%\system32\control.exe /name Microsoft.Keyboard

Check keyboard status:
%windir%\system32\control.exe /name Microsoft.Keyboard /page 1

Change button settings:
%windir%\system32\control.exe main.cpl

Change how the mouse pointer looks:
%windir%\system32\control.exe main.cpl,,1

Change how the mouse pointer looks when it's moving:
%windir%\system32\control.exe main.cpl,,2

Change mouse click settings:
%windir%\system32\control.exe main.cpl

Change mouse wheel settings:
%windir%\system32\control.exe main.cpl,,3

Change the mouse pointer display or speed:
%windir%\system32\control.exe main.cpl,,2

Customize the mouse buttons:
%windir%\system32\control.exe main.cpl

Make it easier to see the mouse pointer:
%windir%\system32\control.exe main.cpl,,2

Add gadgets to Sidebar:
%programfiles%\windows sidebar\sidebar.exe /showgadgets

Add the Clock gadget to Windows Sidebar:
%programfiles%\windows sidebar\sidebar.exe /showgadgets

Choose whether to keep Sidebar on top of other windows:
%programfiles%\windows sidebar\sidebar.exe /cpl

Uninstall a gadget:
%programfiles%\windows sidebar\sidebar.exe /uninstallgadgets

Compare features with your current configuration:
%windir%\system32\WindowsAnytimeUpgrade.exe /UpgradeOnline

Get new programs online at Windows Marketplace:
%windir%\system32\rundll32.exe %windir%\system32\appwiz.cpl,GetProgramsOnline

Manage programs you buy online (digital locker):
%windir%\DigitalLocker\digitalx.exe

Enable offline files:
%windir%\system32\control.exe cscui.dll,,0

Encrypt your offline files:
%windir%\system32\control.exe cscui.dll,,2

Manage disk space used by your offline files:
%windir%\system32\control.exe cscui.dll,,1

Set up parental controls for any user:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{96AE8D84-A250-4520-95A5-A47A7E3C548B}

View activity reports:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{96AE8D84-A250-4520-95A5-A47A7E3C548B}\pageActivityViewer

View parental control settings for your account:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{96AE8D84-A250-4520-95A5-A47A7E3C548B}\pageUserHub

Set up dialing rules:
%windir%\system32\control.exe telephon.cpl

Install drivers for older devices with Add Hardware wizard:
%windir%\system32\hdwwiz.exe

Update device drivers:
%windir%\system32\mmc.exe devmgmt.msc

View hardware and devices:
%windir%\system32\mmc.exe devmgmt.msc

View hardware and devices:
%windir%\system32\mmc.exe devmgmt.msc

Change battery settings:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}

Change power-saving settings:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}

Change what closing the lid does:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}\pageGlobalSettings

Change what the power buttons do:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}\pageGlobalSettings

Change when the computer sleeps:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}\pagePlanSettings

Choose when to turn off display:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}\pagePlanSettings

Require a password when the computer wakes:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}\pageGlobalSettings

Turn hibernation on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}\pagePlanSettings

Add a printer:
%windir%\system32\rundll32.exe printui.dll,PrintUIEntry /il

Change default printer:
%windir%\system32\control.exe /name Microsoft.Printers

Remove a printer:
%windir%\system32\control.exe /name Microsoft.Printers

Send a fax:
%windir%\system32\wfs.exe

Send a fax:
%windir%\system32\wfs.exe

View all printers:
%windir%\system32\control.exe /name Microsoft.Printers

Change display language:
%windir%\system32\control.exe intl.cpl,,/p:"keyboard"

Change keyboards or other input methods:
%windir%\system32\control.exe intl.cpl,,/p:"keyboard"

Change the country or region:
%windir%\system32\control.exe intl.cpl,,/p:"location"

Change the date, time, or number format:
%windir%\system32\control.exe intl.cpl

Change the languages used for partially translated menus and dialogs:
%windir%\system32\control.exe intl.cpl,,/p:"keyboard"

Change the way currency is displayed:
%windir%\system32\control.exe intl.cpl

Change the way dates and lists are displayed:
%windir%\system32\control.exe intl.cpl

Change the way measurements are displayed:
%windir%\system32\control.exe intl.cpl

Change the way time is displayed:
%windir%\system32\control.exe intl.cpl

Install or uninstall display languages:
%windir%\system32\lpksetup.exe

Scan a document or picture:
%windir%\system32\wfs.exe

Scan a document or picture:
%windir%\system32\wfs.exe

View scanners and cameras:
%ProgramFiles%\Windows Photo Gallery\ImagingDevices.exe

Change how Windows searches:
%windir%\system32\control.exe srchadmin.dll,,2

Check firewall status:
%windir%\system32\FirewallSettings.exe

Check this computer's security status:
%windir%\system32\control.exe wscui.cpl

Adjust system volume:
%windir%\system32\sndvol.exe

Change sound card settings:
%windir%\system32\control.exe mmsys.cpl,,0

Change system sounds:
%windir%\system32\control.exe mmsys.cpl,,2

Manage audio devices:
%windir%\system32\control.exe mmsys.cpl ,,0

Change text to speech settings:
%windir%\system32\control.exe %windir%\system32\speech\speechux\sapi.cpl

Print the speech reference card:
mshelp://windows/?id=f968a8dd-011d-40fe-84be-93273d6580f0

Set up a microphone:
%windir%\system32\rundll32.exe %windir%\system32\speech\speechux\SpeechUX.dll,RunWizard MicTraining

Start speech recognition:
%windir%\speech\common\sapisvr.exe -SpeechUX

Take speech tutorials:
%windir%\system32\rundll32.exe %windir%\system32\speech\speechux\SpeechUX.dll,RunWizard Tutorial

Train the computer to recognize your voice:
%windir%\system32\rundll32.exe %windir%\system32\speech\speechux\SpeechUX.dll,RunWizard UserTraining

Resolve sync conflicts:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{9C73F5E5-7AE7-4E32-A8E8-8D23B85255BF}\::{E413D040-6788-4C22-957E-175D1C513A34}

Sync with other computers, mobile devices, or network folders:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{9C73F5E5-7AE7-4E32-A8E8-8D23B85255BF}

View sync results:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{9C73F5E5-7AE7-4E32-A8E8-8D23B85255BF}\::{BC48B32F-5910-47F5-8570-5074A8A5636A}

Activate Windows:
%windir%\system32\slui.exe

Adjust the appearance and performance of Windows:
%windir%\system32\SystemPropertiesPerformance.exe

Allow remote access to your computer:
%windir%\system32\SystemPropertiesRemote.exe

Allow Remote Assistance invitations to be sent from this computer:
%windir%\system32\SystemPropertiesRemote.exe

Change workgroup name:
%windir%\system32\SystemPropertiesComputerName.exe

Check processor speed:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\5\::{BB06C0E4-D293-4f75-8A90-CB05B6477EEE}

Configure advanced user profile properties:
%windir%\system32\rundll32.exe sysdm.cpl,EditUserProfiles

Create a restore point:
%windir%\system32\SystemPropertiesProtection.exe

Edit environment variables for your account:
%windir%\system32\rundll32.exe sysdm.cpl,EditEnvironmentVariables

Edit the system environment variables:
%windir%\system32\SystemPropertiesAdvanced.exe

How to change the size of virtual memory:
mshelp://windows/?id=89ca317f-649d-40a6-8934-e5707ee5c4b8

Join a domain:
%windir%\system32\SystemPropertiesComputerName.exe

Rename this computer:
%windir%\system32\SystemPropertiesComputerName.exe

Restore system files and settings from a restore point:
%windir%\system32\rstrui.exe

See the name of this computer:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\5\::{BB06C0E4-D293-4f75-8A90-CB05B6477EEE}

Select users who can use remote desktop:
%windir%\system32\SystemPropertiesRemote.exe

Show how much RAM is on this computer:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\5\::{BB06C0E4-D293-4f75-8A90-CB05B6477EEE}

Show which domain my computer is on:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{BB06C0E4-D293-4f75-8A90-CB05B6477EEE}

Show which operating system my computer is running:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{BB06C0E4-D293-4f75-8A90-CB05B6477EEE}

Show which workgroup this computer is on:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{BB06C0E4-D293-4f75-8A90-CB05B6477EEE}

Turn automatic creation of restore points on or off:
%windir%\system32\SystemPropertiesProtection.exe

View advanced system settings:
%windir%\system32\SystemPropertiesAdvanced.exe

View basic information about your computer:
shell:::{26ee0668-a00a-44d7-9371-beb064c98683}\5\::{BB06C0E4-D293-4f75-8A90-CB05B6477EEE}

View running processes with Task Manager:
%windir%\system32\taskmgr.exe

Auto-hide the taskbar:
shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}

Change Start menu to Classic view:
%windir%\System32\rundll32.exe shell32.dll,Options_RunDLL 3

Customize icons on the taskbar:
%windir%\System32\rundll32.exe shell32.dll,Options_RunDLL 4

Customize the Start menu:
%windir%\system32\rundll32.exe shell32.dll,Options_RunDLL 3

Customize the taskbar:
shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}

Find missing Start menu:
shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}

Group similar windows on the taskbar:
shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}

Lock or unlock the taskbar:
shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}

Organize Start menu:
%windir%\system32\rundll32.exe shell32.dll,Options_RunDLL 3

Remove icons from notification area (system tray) on the desktop:
%windir%\System32\rundll32.exe shell32.dll,Options_RunDLL 4

Restore Start menu defaults:
%windir%\system32\rundll32.exe shell32.dll,Options_RunDLL 3

Show or hide inactive icons on the taskbar:
%windir%\System32\rundll32.exe shell32.dll,Options_RunDLL 4

Show or hide the notification area on the taskbar:
%windir%\System32\rundll32.exe shell32.dll,Options_RunDLL 4

Show or hide the Quick Launch toolbar on the taskbar:
shell:::{0DF44EAA-FF21-4412-828E-260A8728E7F1}

Show or hide volume (speaker) icon on the taskbar:
%windir%\System32\rundll32.exe shell32.dll,Options_RunDLL 4

Turn toolbars on the taskbar on or off:
%windir%\System32\rundll32.exe shell32.dll,Options_RunDLL 6

Add or remove user accounts:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pageAdminTasks

Change account type:
%windir%\system32\netplwiz.exe

Change your account picture:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pagePickMyPicture

Change your Windows password:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}

Create a password reset disk:
%windir%\system32\rundll32.exe keymgr.dll,PRShowSaveWizardExW

Create administrator account:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pageAdminTasks\pageNameNewAccount

Create an account:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pageAdminTasks\pageNameNewAccount

Create or remove your account password:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}

Create standard user account:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pageAdminTasks\pageNameNewAccount

Edit local users and groups:
%windir%\system32\mmc.exe %windir%\system32\lusrmgr.msc

Give administrative rights to a domain user:
%windir%\system32\netplwiz.exe

Give other users access to this computer:
%windir%\system32\netplwiz.exe

How to change your Windows password:
mshelp://windows/?id=5c07e067-286d-4b8d-b342-431306e696aa

Make changes to accounts:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pageAdminTasks

Manage file encryption certificates:
%windir%\system32\rekeywiz.exe

Manage network passwords:
%windir%\system32\rundll32.exe keymgr.dll KRShowKeyMgr

Turn guest account on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pageAdminTasks

Turn User Account Control (UAC) on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\9\::{60632754-c523-4b62-b45c-4172da012619}\pageChangeSecuritySettings

Allow a program through Windows Firewall:
%windir%\system32\FirewallSettings.exe 1

Turn Windows Firewall on or off:
%windir%\system32\FirewallSettings.exe

Get new programs online at Windows Marketplace:
%windir%\system32\rundll32.exe %windir%\system32\appwiz.cpl,GetProgramsOnline

Manage programs you buy online (digital locker):
%windir%\DigitalLocker\digitalx.exe

Check for updates:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\10\::{36eef7db-88ad-4e81-ad49-0e313f0c35f8}

Turn automatic updating on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\10\::{36eef7db-88ad-4e81-ad49-0e313f0c35f8}\pageSettings

Check your computer's Windows Experience Index base score:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{78F3955E-3B90-4184-BD14-5397C15F1EFC}

Free up disk space by deleting unnecessary files:
%windir%\system32\cleanmgr.exe

Use tools to improve performance:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\5\::{78F3955E-3B90-4184-BD14-5397C15F1EFC}

Manage BitLocker keys:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\10\::{D9EF8727-CAC2-4e60-809E-86F80A666C91}

Protect your computer by encrypting data on your disk:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\10\::{D9EF8727-CAC2-4e60-809E-86F80A666C91}

Change People Near Me settings:
%windir%\system32\control.exe collab.cpl,,2

Sign in or out of People Near Me:
%windir%\system32\control.exe collab.cpl,,1

Change pen flicks settings:
%windir%\system32\control.exe TabletPC.cpl @0,flicks

Change tablet pen settings:
%windir%\system32\control.exe TabletPC.cpl @0,pen

Enable or disable handwriting personalization:
%windir%\system32\control.exe TabletPC.cpl @1,handwriting

Turn pen flicks on and off:
%windir%\system32\control.exe TabletPC.cpl @0,flicks

Turn the touch pointer on and off:
%windir%\system32\control.exe TabletPC.cpl @0,touch

Calibrate the screen:
%windir%\system32\control.exe TabletPC.cpl @1,general

Change screen orientation:
%windir%\system32\control.exe TabletPC.cpl @1,display

Set tablet buttons to perform certain tasks:
%windir%\system32\control.exe TabletPC.cpl @1,buttons

Specify which hand I write with:
%windir%\system32\control.exe TabletPC.cpl @1,general

Send or receive a file:
%windir%\system32\control.exe irprops.cpl

Change device settings:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{E95A4861-D57A-4be1-AD0F-35267E261739}\pageChangeSettingsDeviceSelector

Change the order of gadgets:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{E95A4861-D57A-4be1-AD0F-35267E261739}\pageReorderGadgetsDeviceSelector

Configure an auxiliary display:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{E95A4861-D57A-4be1-AD0F-35267E261739}

Set up a secondary display to use with Windows SideShow:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{E95A4861-D57A-4be1-AD0F-35267E261739}

Turn gadgets on or off:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{E95A4861-D57A-4be1-AD0F-35267E261739}

Wake computer to update devices:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\2\::{E95A4861-D57A-4be1-AD0F-35267E261739}\pageAutoWake

Adjust font size (DPI):
%windir%\system32\DpiScaling.exe

Adjust screen resolution:
%windir%\system32\control.exe desk.cpl,Settings,@Settings

Change desktop background:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\1\::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921}\pageWallpaper

Change display settings:
%windir%\system32\control.exe desk.cpl,Settings,@Settings

Change screen saber:
%windir%\system32\control.exe desk.cpl,screensaver,@screensaver

Change size of on-screen items:
%windir%\system32\DpiScaling.exe

Change the color scheme:
%windir%\system32\control.exe desk.cpl,appearance,@appearance

Change the theme:
%windir%\system32\control.exe desk.cpl,Themes,@Themes

Customize colors:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\1\::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921}\pageColorization

Enable or disable transparent glass on windows:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\1\::{ED834ED6-4B5A-4bfe-8F11-A626DCB6A921}\pageColorization

How to correct monitor flicker (refresh rate):
mshelp://windows/?id=52f7448b-d524-44e4-b43d-15b5a2968537

How to use ClearType to sharpen the screen text:
mshelp://windows/?id=c3a4da66-c335-45f5-a71f-d162d1b64ed4

Lock the computer when I leave it alone for a period of time:
%windir%\system32\control.exe desk.cpl,screensaver,@screensaver

Set screen saber password:
%windir%\system32\control.exe desk.cpl,screensaver,@screensaver

Set up computer to use multiple monitors:
%windir%\system32\control.exe desk.cpl,Monitor,@Monitor

Show or hide common icons on the desktop:
%windir%\system32\control.exe desk.cpl,,0

Turn screen saber on or off:
%windir%\system32\control.exe desk.cpl,screensaver,@screensaver

View the name of the video card:
%windir%\system32\control.exe desk.cpl,Settings,@Settings

Manage Information Cards that are used to log on to online services:
%windir%\system32\control.exe /name Microsoft.CardSpace

Add a device to the network:
%windir%\system32\rundll32.exe %systemroot%\System32\xwizards.dll,RunWizard {d1a4299a-0adf-11da-b070-0011856571de}

Connect to a network:
shell:::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{38A98528-6CBF-4CA9-8DC0-B1E1D10F7B1B}

Connect to a wireless network:
%windir%\system32\rundll32.exe xwizards,RunWizard {7071ECE0-663B-4bc1-A1FA-B97F3B917C55} /z -ShowFinishPage

Identify and repair network problems:
%windir%\system32\Rundll32.exe ndfapi,NdfRunDllDiagnoseIncident

Manage saved networks:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{8E908FC9-BECC-40f6-915B-F4CA0E70D03D}

Manage wireless networks:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{1FA9085F-25A2-489B-85D4-86326EEDCD87}

Set up a dial-up connection:
%windir%\system32\rundll32.exe xwizards,RunWizard {7071ECE0-663B-4bc1-A1FA-B97F3B917C55} /z -ShowFinishPage

Set up a virtual private network (VPN) connection:
%windir%\system32\rundll32.exe xwizards,RunWizard {7071ECE0-663B-4bc1-A1FA-B97F3B917C55} /z -ShowFinishPage

Set up an ad hoc (computer-to-computer) network:
%windir%\system32\rundll32.exe xwizards,RunWizard {7071ECE0-663B-4bc1-A1FA-B97F3B917C55} /z -ShowFinishPage

Set up file sharing:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{8E908FC9-BECC-40f6-915B-F4CA0E70D03D}

Share printers:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{8E908FC9-BECC-40f6-915B-F4CA0E70D03D}

View network computers and devices:
shell:::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}

View network connections:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{7007ACC7-3202-11D1-AAD2-00805FC1270E}

View network status and tasks:
shell:::{26EE0668-A00A-44D7-9371-BEB064C98683}\3\::{8E908FC9-BECC-40f6-915B-F4CA0E70D03D}

Scan for spyware and other potentially unwanted software:
%ProgramFiles%\windows defender\MSASCui.exe -quickscan

Stop a program from running at startup:
%ProgramFiles%\windows defender\MSASCui.exe -showSWE:Startup

View currently running programs:
%ProgramFiles%\windows defender\MSASCui.exe -showSWE:Running



[ACTUALIZAR .NET FRAMEWORK PARA VERSIONES VIEJAS DE VS.NET]

ACTUALIZAR .NET FRAMEWORK PARA VERSIONES VIEJAS DE VS.NET

Antes de nada quiero comentar que este sistema que ahora muestro  no se si pudiera perjudicar de alguna manera a VS. En cualquier caso es reversible , ya que todo consiste en crear una carpeta la cual le vamos a indicar a VS que esa es la que debe usar para obtener las librerías de Framework.


Hasta lo que yo he podido comprobar todo por ahora me funciona correctamente. Pero hay muchas cosas que no uso y puede que nunca llegue a hacerlo. Así que no si esto pudiera perjudicar en algo.

Pues nada, dicho queda y voy al asunto.

Si usas versiones como VS.NET 2010   e instalas paquetes como estos:

[21/02/2011]
Microsoft .NET Framework 4 Client Profile
Microsoft .NET Framework 4 Full Profile

O bien Microsoft .NET Framework 4.5 pero no compatible con XP :
Microsoft .NET Framework 4.5

Te puedes encontrar que a pesar de ello no se actualiza el framework y NET continúa usando las versión .NET Framework Client Profile  v4.0.0.0. , o que no se pueden usar todas las clases que en teoría dispone.

NET ignorará  la nueva versión en el sistema, y no estará en la lista. En teoría debería instalarse en:

Código [Seleccionar] Expandir

C:\Archivos de programa\Reference Assemblies\Microsoft\Framework\.NETFramework

Sin embargo, no lo hace. En realidad se instala en:

Código [Seleccionar] Expandir

C:\WINDOWS\Microsoft.NET\Framework

Entonces lo que se puede hacer es pasar la última versión de framework manualmente a:

Código [Seleccionar] Expandir

C:\Archivos de programa\Reference Assemblies\Microsoft\Framework\.NETFramework


Si es tu caso, al intentar usar determinadas clases como System.Web éste no dispondrá de todas sus clases y funciones. Además no estará en la lista de referencias, y ésta será bastante limitada.

Pongo como ejemplo 'System.Web' en la imagen siguiente que se puede ver solo aparecen dos componentes de System.Web



Además, por defecto, VS2010, ni VS2012 agregan System.Web.dll



Así que al importar System.Web solo están disponibles tres clases.




Para tener actualizado el Framework de VS y tener acceso a todas las clases se puede hacer lo siguiente:

PASO 1
Dirígete a:

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0

Esta carpeta contiene las librerías de .NET Framework v4.0.  

Cambia el nombre  por  [...\v4.0.bak]

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0.bak



De esta forma podrás revertir el proceso y volver al estado original si hubiese algún problema.

Una vez hecho esto, si ejecutas Visual Studio, comprobarás que al intentar crear un nuevo proyecto VS no puede seleccionar ningún Framework.




PASO 2
Dirígete a:

Código [Seleccionar] Expandir

C:\Windows\Microsoft.NET\Framework


Y copia la carpeta más reciente de Framework que contenga en:

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework

Por ejemplo:

Código [Seleccionar] Expandir

C:\Windows\Microsoft.NET\Framework\v4.0.30319


Lo copias en:

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework


Entonces el directorio quedaría así:


La carpeta suele ser bastante pesada. Unos 300 MB  más o menos. Realmente no es necesario copiar  todos los archivos pero resulta más cómodo.

PASO 3 CAMBIO DE NOMBRES

Hay que cambiar el nombre  de la nueva carpeta [..\v4.0.xxx] a [...\v4.0]



Cambiar también, el nombre del archivo VSList.xml que hay en:

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\RedistList

Y renombrarlo con el nombre [FrameworkList.xml]:

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\RedistList\ FrameworkList.xml



PASO 4
La carpeta [v4.0.xxx] que se ha creado y renombrado por [...\v4.0] le falta una subcarpeta, la cual está en la carpeta original [...\v4.0] que se ha renombrado [...\v4.0.bak].

Hay que copiar la carpeta en el nuevo directorio [...\v4.0].

La carpeta se llama [Profile]

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0.bak\Profile



PASO 5

Ahora dirígete a:

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0

Ordena los archivos que contiene por tipos, selecciona todas las librerías DLL y copias y reemplazas en:

Código [Seleccionar] Expandir

C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\Profile\Client

Te saldrá un diálogo de confirmación, dices sí a todo. Pero ojo,  no te equivoques y lo hagas en [v4.0.bak]. Recuerda que esta carpeta debe quedar intacta por si quieres volver a dejar todo como estaba.

Si ahora ejecutas VS verás que ahora sí hay un Framework v4.0 disponible.




Ahora VS cargará por defecto las librerías actualizadas, pero  no todas, ya que de modo predeterminado solo agrega estas:



Al 'Agregar referencia', la lista de librearías disponibles habrá aumentado notablemente, como se puede ver esta imagen con System.Web:




Una vez agregado:




Al importar se cargan todas las clases.




He intentado de simplificar el proceso, pero de alguna manera u otra me acaba dando errores. No se muy bien como funciona la carga de librerías en VS, pero parece que utilizando este sistema no da errores. Créeme que he probado y toqueteado de todo y al final siembre acaba dando algún error.

Por ahora parece, que de esta manera todo va bien y funciona incluso en XP.


S2s

Hola

¿Hay alguna clase o función en Net para crear tablas Html?. Mi idea es crear una tabla HTML a partir de datos de un datagridview o ListView.

Lo que yo he hecho por ahora es algo como lo siguiente:

Código (vbnet) [Seleccionar] Expandir

   
       Dim builder As New System.Text.StringBuilder
       With builder
           .AppendLine("<table border=""1"" style=""border-collapse: collapse;"">")
           .AppendLine("<caption>Leyenda</caption>")
           .AppendLine("<tbody>")
           .AppendLine("<tr>")
           .AppendLine(String.Format("<td>{0}</td>", "Celda1"))
           .AppendLine(String.Format("<td>{0}</td>", "Celda2"))
           .AppendLine("</tr>")
           .AppendLine("<tr>")
           .AppendLine(String.Format("<td>{0}</td>", "Celda3"))
           .AppendLine(String.Format("<td>{0}</td>", "Celda4"))
           .AppendLine("</tr>")
           .AppendLine("</tbody>")
           .AppendLine("</table>")
       End With



Pero es muy tedioso



He encontrado algo que puede ser lo que busco.

HtmlTable Class

del system.web.dll

Código (vbnet) [Seleccionar] Expandir

Imports System.Web.UI.HtmlControls

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim i As Integer
       Dim j As Integer
        Dim Table1 As HtmlTable
       Dim row As HtmlTableRow
       Dim cell As HtmlTableCell

      '//...
   End Sub
End Class

Hola

He notado que al introducir el USB se autoejecuta wmplayer.exe debido a que el puntero del ratón cambiaba de forma intermitente del puntero normal al de espera, lo cual resulta muy molesto. No solo por el puntero, si no porque me molesta a la hora de realizar tareas. Además wmplayer.exe se ejecuta de forma oculta, sin ventana.

Entonces tengo que ejecutar el Task Manager (taskmgr.exe) para visualizar los procesos y cerrar wmplayer.exe.

No se por qué se ejecuta, ni qué es lo que hace wmplayer.exe. Yo supongo que busca archivos de vídeo o música.

He probado buscar algo que haga referencia a esto pero no he encontrado nada.

¿Alguna idea al respecto?

Gracias

Hola

Los iconos de sonido y red me han desaparecido y al intentar activarlos veo que la los cuadritos de activación están deshabilitados y no lo puedo activar.  Supongo que algún HP a accedido al registro de windows y lo ha desactivado pero no se donde es.

Los cuadritos están deshabilitados  



Nota: Windows Vista.

Gracias



No puedo usar Gpedit porque es una versión Home Premium y no está disponible



Lo he resuelto simplemente reiniciando explorer.

Es una página creo que alemana, y es sobre trucos para juegos.


European Codebase

y dice esto:

Código [Seleccionar] Expandir

El script devolvió el siguiente error:

El servidor de base de datos (MySQL) no pudo ser contactado!



Akutell es un problema.

Nos esforzamos por ofrecer la solución más rápida posible al problema. Desafortunadamente, no podemos decir cuánto tiempo va a tomar, por favor probarlo en un momento posterior de nuevo. Nos disculpamos y lamentar su inconveniencia El Webmaster





Nota interna:
Número de error:
2054 Texto de error: Conexión a 03:22, no se admite 03:23 y 4.0 del servidor


Solía entrar para buscar trucos, pero ya no se puede.

He probado hacerlo desde TOR, pero tampoco puedo verla.

Hola

La duda que tengo es sobre el control ProgressBar y es que no termina la barra.

Este código, cuando el valor de la barra llega a 100 o al máximo de la misma debe cerrarse la aplicación. Sin embargo se cierra antes que la barra llegue a 100 o al máximo establecido. Usando exactamente un código equivalente en VB6, esto no pasa. ¿Por qué ocurre?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Private Time1 As New Timer()
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Call InitializeMyTimer()
   End Sub


   Private Sub InitializeMyTimer()
       Time1.Interval = 20
       AddHandler Time1.Tick, AddressOf IncreaseProgressBar
       Time1.Start()
   End Sub
   Private Sub IncreaseProgressBar(ByVal sender As Object, ByVal e As EventArgs)
       ProgressBar1.Increment(1)
       If ProgressBar1.Value = ProgressBar1.Maximum Then
           Time1.Stop()
           Close()
       End If
   End Sub

End Class

Gracias

[Aconfesional]

Hola

No me gusta tocar estos temas porque genera muchos picores, urticaria y le hierve la sangre a más de uno/a. Pero no dejo de preguntarme ¿cómo puede ser?

Vamos a ver, ayer, 'Viernes Santo', canales de TV con una programación llena de 'cruces cristinas' por doquier, curas, historia bíblica, así como películas y noticias, menos en los infantiles creo y espero; Administraciones publicas cerradas por fiesta, bibliotecas públicas cerradas por fiesta, colegios públicos cerrados por fiesta. Y esto en un 'Estado aconfesional' y laico según el Wikipedia.

Según el diccionario de la RAE:

Aconfesional: Que no pertenece o está adscrito a ninguna confesión religiosa.

Laico: Independiente de cualquier organización o confesión religiosa.


Teniendo en cuenta estas definiciones ¿Es España un estado aconfesional o laico cuando sus funcionarios hacen fiesta independientemente de su religión o no religión personal? ¿Es lógico que se considere festivo un día  o semana en base a una única doctrina religiosa? En este caso, ¿la católica?.

A mi ver la Constitución Española de 1978 tiene contradicciones al respecto.


La Constitución española de 1978.

Código [Seleccionar] Expandir


Artículo 16

1. Se garantiza la libertad ideológica, religiosa y de culto de los individuos y las comunidades sin más limitación, en sus manifestaciones, que la necesaria para el mantenimiento del orden público protegido por la ley.

2. Nadie podrá ser obligado a declarar sobre su ideología, religión o creencias.

3. Ninguna confesión tendrá carácter estatal. Los poderes públicos tendrán en cuenta las creencias religiosas de la sociedad española y mantendrán las consiguientes relaciones de cooperación con la Iglesia Católica y las demás confesiones.

Por un lado dice "Ninguna confesión tendrá carácter estatal", entonces ayer no debería haber sido festivo, pero luego añade "Los poderes públicos tendrán en cuenta las creencias religiosas de la sociedad española y mantendrán las consiguientes relaciones de cooperación con la Iglesia Católica y las demás confesiones."

Aquí hay trampa --->"las creencias religiosas de la sociedad española". Y luego añade "y mantendrán las consiguientes relaciones de cooperación con la Iglesia Católica y las demás confesiones". Primero que da por echo (aunque no lo dice explícitamente) que "las creencias religiosas de la sociedad española" son la católica. Oigan, yo soy español y soy ateo, no me identifico con ninguna religión y habrán también españoles/as que no son católicos y son de otras religiones y creencias o de ninguna. Porque claro, se da por echo que TOOOODOS los españoles/as son católicos/as. El que es católico dirá -a ver, es que la religión mayoritaria en España es la católica y el estado promueve en interés de la mayoría-. Claro, y por eso ayer es festivo y me tengo que fastidiar y esperar al martes que viene si quiero hacer alguna gestión administrativa PÚBLICA. Por eso los niños que ya se consideran de una u otra religión o de ninguna tienen que hacer fiesta (claro que seguro que están encantados). Por eso ayer, tuve la sensación que los servicios de seguridad del estado hicieron servicios mínimos, ya que tras moverme un rato con el coche por la ciudad y caminando no veía ni un sólo policía. Sinceramente, me sentí inseguro en plena crisis terrorista. Como puede ser que en los tiempos que corren, se reduzca la seguridad ciudadana en un país (esta es la sensación que tuve ayer), porque según una determinada religión dicho día debe ser festivo. Luego dirán que es que iban de incógnito, o que la situación está controlada.


Pero ojo, también dice "y las demás confesiones." ¿Significa eso que habría que hacer fiesta por cada día  que se pudiera considerar festivo para una u otra religión? Jajaja, estaríamos todos los días de fiesta.


Si os fijáis, cada vez que el estado organiza un acto público, como juras de cargo, funerales, etc. está presente de forma monopolizada la religión católica. No es normal por ejemplo que en un funeral a personas que han muerto, por ejemplo, en un atentado terrorista, se celebre siguiendo el ritual católico. Lo cual es una falta de respeto a las diferentes creencias o no creencias que pudieran tener las víctimas.


Foto de Mariano Rajoy jurando cargo en un país "aconfesional" llamado España. XD


S2s


Todas las religiones dicen ser pacíficas, pero todas ellas han matado en nombre de su deidad.

[DEVUELVE ACCESO DENEGADO]

hola

Desde Vista y posterior funciona este código:

Vista/Windows7

Código [Seleccionar] Expandir

@Echo off

REM     <<<< Crea acceso directo >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
echo Set oWS = WScript.CreateObject("WScript.Shell") > %~dp0CreateShortcut.vbs
echo sLinkFile = "%userprofile%\Desktop\Notepad.lnk" >> %~dp0CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %~dp0CreateShortcut.vbs
echo oLink.TargetPath = "%systemroot%\System32\Notepad.exe" >> %~dp0CreateShortcut.vbs
echo oLink.Save >> %~dp0CreateShortcut.vbs
cscript %~dp0CreateShortcut.vbs
del  %~dp0CreateShortcut.vbs
REM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


XP [DEVUELVE ACCESO DENEGADO ( y como Administrador)]

Código [Seleccionar] Expandir


@Echo off

REM     <<<< Crea acceso directo >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
echo Set oWS = WScript.CreateObject("WScript.Shell") > %~dp0CreateShortcut.vbs
echo sLinkFile = "%userprofile%\Escritorio\Notepad.lnk" >> %~dp0CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> %~dp0CreateShortcut.vbs
echo oLink.TargetPath = "%systemroot%\System32\Notepad.exe" >> %~dp0CreateShortcut.vbs
echo oLink.Save >> %~dp0CreateShortcut.vbs
cscript %~dp0CreateShortcut.vbs
del  %~dp0CreateShortcut.vbs
REM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


Gracias



He hecho un prueba creando un paquete de instalación con WinRAR, de modo que se ejecute como administrador. En tal caso, si que funciona. ¿Como puedo ejecutarlo como Administrador directamente?, ya que realmente lo ejecuto desde una cuenta con privilegios de administrador. No entiendo porqué me da Acceso denegado..

[SOLUCIONADO]

Ya lo he solucionado quitando %~dp0 y cambiando el directorio mediante PUSHD.


Ahora funciona en ambos sistemas y en Administrador o No adeministrador

Código [Seleccionar] Expandir

REM     <<<< Crea acceso directo >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
PUSHD %APPPATH%
echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%userprofile%\Escritorio\Notepad.lnk" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "%systemroot%\System32\Notepad.exe" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del  CreateShortcut.vbs
REM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

[invitado]

Hola

Pues tengo una duda. A ver si alguien sabe porque ocurre lo siguiente.

Hace tiempo instalé Virtualbox y tras muchos intentos y buscar tutoriales en Internet conseguí conectar el SO invitado (Windows XP SP2) a Internet.
(Instalé los drivers del controlador de red en XP)

Configurando VB, del modo:

Código [Seleccionar] Expandir


<Red>
  - Adaptador 1
      - [v] Habilitar adaptador de red
         - Contectado a: Adaptador de puente
            [Nombre] :  Intel(R) Wireless Wifi Link 5100
            >Avanzadas<
                      - Intel PRO/1000 MT Server (82545EM)
                       -Descripción MAC:  Aleatoria
                       -Modo promiscuo: Denegar
                       - [v] Cable conectado


Estuve usando dicha conexión unas semanas, pero luego dejé de usarlo.

NOTA: La opción NAT no funcionaba.

He restaurado el sistema original del portátil, y he vuelto a instalar VBox, pero ahora usando la misma configuración no funciona (conexión limitada o nula).

Sin embargo ahora usando la configuración NAT, funciona la conexión.

Código [Seleccionar] Expandir


<Red>
  - Adaptador 1
      - [v] Habilitar adaptador de red
         - Contectado a: NAT
            [Nombre] :  Intel(R) Wireless Wifi Link 5100
            >Avanzadas<
                      - Intel PRO/1000 MT Server (82545EM)
                       -Descripción MAC:  Aleatoria
                       -Modo promiscuo: Denegar
                       - [v] Cable conectado



No se si el echo de usar una versión actualizada de VBox tiene algo que ver.

graicias



                                           

         

[Windows6.0-KB2763674-x86.msu]

Hola

Alucino con las soluciones de Microsoft.

Resulta que tengo un problema para instalar la nueva versión de FlashPlayer, entonces me entero que tengo que actualizar algo llamado SHA relacionado con los certificados. Descargo un archivo llamado Windows6.0-KB2763674-x86.msu

Al ejecutarlo se ejecuta WUSA.EXE(Instalador independiente de Windows Update) pero no hace nada de nada. Así que busco una solución a este problema y ¿Qué hace Microsoft? Me propone instalar actualización (KB929761):

https://support.microsoft.com/es-es/kb/929761:

Y aquí viene lo gracioso, la actualización de KB929761 USA WUSA.EXE 

Hola

Necesito saber como se llaman los programas o qué términos usar para buscar en Internet, de esos programas que se ejecutan cuando se apaga el sistema o cuando se enciende y que pueden borrar o modificar archivos del sistema ya que no están usados ni protegidos, debidamente justo en ese momento. Términos en inglés o español.

Necesito poder ejecutar un bat o programa justo en ese instante y que el sistema no cierre sesión o apague el ordenador hasta que no termine el proceso del programa.  

Pero no consigo encontrar nada en Internet. cuando busco encuentro programas para apagar el ordenador, reiniciar y cosas así.

Se puede hacer desde  Gpedit, pero no está disponible en versiones Home de windows solo en profesionales creo.


La mayoría de troyanos, virus y hacks lo hacen (mis intenciones no van por ahí). Así como esos programas de Activación de windows y cosas así.

Yo programo con VB y Net y siempre he querido saber como hacerlo pero no tengo ni idea de como encontrar información al respecto.


Gracias.

Hola

Desde una cuenta sin privilegios y  dos archivos uno Start.cmd y otro Prueba.txt en el mismo directorio ejecuto...

Código [Seleccionar] Expandir

Start  "" Prueba.txt

Y el archivo  Prueba.txt se abre.

Pero si lo ejecuto desde una cuenta como administrador, tengo que poner la dirección completa del archivo

Código [Seleccionar] Expandir

Start  "" C:\...\ Prueba.txt

¿Porqué? No entiendo. Para que funcione con el código anterior tengo que "Ejecutar como Administrador", estando en una cuenta con privilegios de Administrador.

Tampoco sirve poner :

Código [Seleccionar] Expandir

Start  ""  %apppath%\Prueba.txt

Dice que no se encuentra el archivo "\Prueba.txt" e ignora %apppath%

¿Cual es el problema?
Gracias



Creo que el problema es que cuando ejecuto el archivo cmd es como si se ejecutara desde C:\windows\system32 que es donde se encuentra cmd.exe

¿Hay alguna manera de no tener que poner el directorio completo y cambiar el directorio desde donde se ejecuta cmd?

Hola

He instalado XP en VirtualBox y he habilitado "Habilitar controlador USB".

Cuando se carga el XP selecciono en la lista del menú del VirtualBoxl el dispositivo USB que quier usar y XP se bloquea durante unos 30 segundos. Además que afecta al sistema anfitrión en general durante esos 30 segundos.

He instalado varias versiones y los packs correspondientes a dichas versiones y nada, que no hay manera.

¿Alguna idea de porqué no funciona?

hay muchos tutoriales en internet y en principio es simple... pero no funciona  

http://www.tecnicomo.com/software/como-habilitar-dispositivos-usb-en-virtualbox/

Gracias


Ahora me ha aparecido un mensaje:

Código [Seleccionar] Expandir

Fallo al conectar el dispositivo USB JetFlash MAss Storage Device [1100] a la máquina virtual MyXP.

USB device 'JetFlash Mass Storage Device' with UUID {f9ab40...} is busy with a previous request. Please try again later.

Detalles>
Código Resultado: E_INVALIDARG (0x80070057)
Componente:       HostUSBDevice

[borrar la lista de ejecutables del menú inicio]

Hola

Me he hecho un programa personal para limpiar el sistema cada vez que se enciende la compu y cuando se apaga. Estoy usando comandos de consola

Me faltan varias cosas...

Una de ellas es borrar la lista de ejecutables del menú inicio en windows. No logro averiguar donde está. Ojo  , no confundir con la lista de archivos recientes.




La otra es borrar todos los index.dat en el disco:

Código [Seleccionar] Expandir

@echo off
del c:\index.dat /f/q/s/a

Pero esto último parece que no lo puedo hacer mientras se ejecuta el sistema con normalidad puesto que me dan acceso denegado. Voy a probar modificando el registro para que ejecute bajo shutdown.

No sabía si preguntar  en el foro de windows o aquí.

Gracias



Hola

Por fin lo averigüé  

Y por mi cuenta porque no encontré nada en la red... aunque supongo que ahora que se sabe se encuentra jeje

La lista se encuentra en el registro pero de una forma algo extraña e indescifrable para un inexperto (o sea yo mismo). Se encuentra en:

Código [Seleccionar] Expandir


HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count

Ignoro si la clave {75048700-EF1F-11D0-9888-006097DEACF9} es la misma en todos los sistemas.

Se pueden  borrar todos los valores de la clave Count directamente y la lista de programas desaparece. No hace falta reiniciar, ni refrescar Explorer:

Código [Seleccionar] Expandir


@echo off

Reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count" /va  /f



Esto borra todos los valores de la clave Count. Ahora la lista de programas desaparecerá

S2s




Aunque se borre la lista aun quedarían por quitar (si interesa) los enlaces de programas anclados en el menú inicio, que se encuentran en la parte superior.  La referencia a los mismos se encuentran en:

Código [Seleccionar] Expandir

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StartPage

De nuevo, esta otra clave contiene valores del tipo REG_BINARY o REG_DWORD, que hace indescifrable el contenido y dificil de editar.

En este caso no sirve borrarlos directamente. Hay que desanclar manualmente todos los enlaces, después ir a dicha clave  usando Regedit.exe y extraer el contenido StartPage en un archivo REG. Esto es para obtener los valores cuando NO HAY ningún enlace anclado en el menú.

Ahora cuando se quiera eliminar los enlaces anclados en el menú, mediante consola se ejecuta el archivo REG creado, del modo siguiente:

Código [Seleccionar] Expandir

@Echo off
Regedit /s Clean_StartPage.reg

(si se quiere hacer desde consola)

S2s

[AMD Cool 'n'Quiet Driver]

Hola

Estoy buscando este driver  para Windows 7 64 bits:
Advanced Micro Devices (AmdK8)

Viene con AMD Cool 'n'Quiet Driver para placa base ASUS.

Debería estar aquí pero no lo encuentro:

http://support.amd.com/es-xl/download


A ser posible mostrar enlaces de confianza, ¿ok? Nada de descarga de EXEs directos...   de 2 o 3 Mbytes. Ta claro que no son los drivers

Gracias




Placa base: ASUSTeK Computer INC.
BIOS: ASUS CROSSHAIR ACPI BIOS Revision 0702
CPU:A MD Athlon(tm) 64 X2 Dual Core Processor 5000+

[Ahora sí]

Hola

Tengo un problema con el arraque. He instalado Windows7 y XP, pero XP no me arranca.

Estos son mis pasos:

1. Instalo Windows 7 En C:/

2. Instalo  XP en D:/

3. Como al instalar XP, el PC arranca desde XP ignorando W7, introduczo el disco de W7 e inicio la reparación del disco y el arranque.

4. Ahora inicia desde W7 e ignora XP. Para que muestre el menú de arranque y muestre la opción de instalar uno u otro desde Windows 7 ejecuto los siguientes comandos desde la consola de windows. En realidad, creo un achivo cmd con el notepad y lo ejecuto como administrador.

Código [Seleccionar] Expandir

bcdedit -create {ntldr} -d "Microsoft Windows XP Professional"

bcdedit -set {ntldr} device partition=C:

bcdedit -set {ntldr} path ntldr

bcdedit -displayorder {ntldr} -addlast


Ahora sí, se muestra la opción de iniciar un Sistema u otro PERO, cuando selecciono XP, aparece el siguiente mensaje:

Código [Seleccionar] Expandir

Windows failed to start. A recent hardware or software change might be the cause. To fix the problem:

1. Insert your windows installation disc and restar your computer.
2. Choose your languege settings, and the click "Next."
3. Click "Repair your computer."

If you do not have this disc, contact your system administrator or computer manufacturer for assistance.

File: ntldr

Status: 0xc000000d

info: The selected entry could not be loaded because the application is missing or corrupt.


He comprobado  C:/ y se encuentran los siguientes archivos necesarios para el arranque de XP :

boot.ini
NTDETECT.COM
ntldr

Sin embargo el XP no me arranca...

Ayuda por favor.

Gracias



SOLUCIONADO

El error estaba en esta línea, faltaba poner la barra "\":

Código [Seleccionar] Expandir

bcdedit -set {ntldr} path \ntldr

Por eso no encontraba el archivo ntldr

NOTA:
Para los más quisquillosos. antes de que se me replique, lo más lógico es instalar ambos sistemas de anterior a posterior (si.. si... que lo se... ), es decir primero XP y luego Windows7, porque si no, el sistema viejo (xp) no reconoce el nuevo (w7) y entonces el sistema arranca desde el viejo, ignorando el nuevo.

Pero yo quería instalar primero en C:, Windows 7, porque posiblemente borre XP más adelante. Y esto se soluciona usando la reparación del disco de W7 y bcdedit (o con programas que prefiero no usar) .

Sl2s

[ThunderRT6]

Hola

Es algo que se ha preguntado mucho pero que parece no haber respuesta y es como cambiar el ClassName de un formulario VB.

He comprobado el ClassName de todas las aplicaciones que tengo y jamás me ha aparecido el ThunderRT6... o WindowsForms10.Window.8... típico de formularios de VB. Luego ¿Nadie programa con VB? Con el viejo VB6 no se podía, ¿ahora tampoco? O es que VB es solo para memos  


S2s

Hola

Antes de nada, quiero decir que no tengo conocimientos de electrónica.

Por lo que he sabido un USB tiene una salida de unos 5V a creo que 100mA (esto no tengo claro si es mas o menos).

Tengo un LED de 4.5V que quiero alimentar con el USB pero necesito bajar los 5V a 4.5V

No se si este cálculo sería correcto

R= V/I ->  R=0.5V / 0.1A -> R= 5 ohm

                __+___---5ohm---___
USB ____<___-_______________> LED

Gracias

[espere]

Hola

Quiero crear un archivo CMD de modo que al ejecutarlo, ejecute varios programas de instalación A, B, C, etc, y espere, a que termine un programa de instalación antes de iniciar el siguiente.

No se esto si esto podrá hacer desde la consola.

Gracias

Hola

He conseguido normalizar una URL de esas con símbolos % y códigos hexadecimales. Por ejemplo:

Código [Seleccionar] Expandir

"https%3A%2F%2Fes.noticias.locas.com%2Fdescubren-un-jupitiano-en-j%C3%BApiter-666999.html"

(no te molestes en ir que no existe, es inventado)

Agradezco la ayuda al foro y en especial a Elektro que me ha resuelto el tema de pasar un código UTF8 a Unicode.

Código (vbnet) [Seleccionar] Expandir


Option Strict Off
Imports System.Text.RegularExpressions

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim strUrl As String = ("https%3A%2F%2Fes.noticias.locas.com%2Fdescubren-un-ni%C3%B1o-jupitiano-en-j%C3%BApiter-666999.html")        'Enlace
       MsgBox(NormalizarURL(strUrl))
   End Sub

   Public Function NormalizarURL(ByVal strUrl as String) As String
       'strUrl = strUrl.Replace("%3A%2F%2F", "://")
       Dim PatternUTF8_1 As String = "(%..%..?)"                                                       'Expresiones regular
       Dim PatternUTF8_2 As String = "(%..?)"                                                          'Expresiones regulares
       Dim MyRegexUTF8_1 As New Regex(PatternUTF8_1, RegexOptions.IgnoreCase)                          'Regex para doble PatternUTF8_1
       Dim MyRegexUTF8_2 As New Regex(PatternUTF8_2, RegexOptions.IgnoreCase)                          'Regex para doble PatternUTF8_2
       Dim MyMatchUTF8_1 As Match = MyRegexUTF8_1.Match(CStr(strUrl))
       Dim MyMatchUTF8_2 As Match = MyRegexUTF8_2.Match(CStr(strUrl))
       While MyMatchUTF8_1.Success
           Dim UTFChar As String = MyMatchUTF8_1.Groups(0).Value                                       'Obtiene el primer valor de cada coincidencia          
           Dim HexChar1 As Byte = CType(Convert.ToInt32(UTFChar.Substring(1, 2), 16), Byte)                'Obtiene el valor entero del primer valor hexadecimal obtenido del código utf-8
           Dim HexChar2 As Byte = CType(Convert.ToInt32(UTFChar.Substring(4, 2), 16), Byte)                    'Obtiene el valor entero del segundo valor hexadecimal obtenido del código utf-8
           '//Convierte carácter hexadecimal UTF-8 a UNICODE por ejemplo "C3 BA" a "ú"
           Dim CharUnicode As String = System.Text.Encoding.UTF8.GetString(New Byte() {HexChar1, HexChar2})
           strUrl = strUrl.Replace(UTFChar, CharUnicode)                                                      'Reemplaza el carácter hexadecimal UTF-8 por Unicode
           MyMatchUTF8_1 = MyMatchUTF8_1.NextMatch()                                                   'Continúe el bucle hasta la siguiente coincidencia.
       End While
       While MyMatchUTF8_2.Success
           Dim UTFChar As String = MyMatchUTF8_2.Groups(0).Value
           '//Convierte y remplaza un carácter hexadecimal a Unicode por ejemplo "2F" a "/"
           strUrl = strUrl.Replace(UTFChar, Convert.ToChar(Convert.ToInt32(UTFChar.Substring(1, 2), 16)))
           MyMatchUTF8_2 = MyMatchUTF8_2.NextMatch()                                                       'Continúe el bucle hasta la siguiente coincidencia.
       End While
       Return CStr(strUrl)
   End Function
End Class


Saludos

Hola

Este código se supone me debería devolver una "á" pero en cambio devuelve letras chinas

Código (vbnet) [Seleccionar] Expandir

               Dim UTFString As String = Convert.ToChar(Convert.ToInt32("C3A1", 16))
       Dim Result As String = Encoding.Unicode.GetString(Encoding.UTF8.GetBytes(UTFString))
       TextBox1.Text = Result


¿Alguien sabe por qué?
Saludos


info:

UTF-8 encoding table and Unicode characters

[Redirecciona a...:]

Hola

No consigo obtener el enlace a los que redirecciona google por ejemplo:

Código [Seleccionar] Expandir


https://www.google.es/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwiK3Ii9zr7KAhXD0RQKHekoC9kQFggcMAA&url=http%3A%2F%2Fwww.recursosvisualbasic.com.ar%2Fhtm%2Fvb-net%2F54-obtener-links-de-una-pagina-web.htm&usg=AFQjCNGMpwVIQ7z-vWEq6Urag9Vf_UAKGg&bvm=bv.112454388,d.d24

Redirecciona a...:

Código [Seleccionar] Expandir

http://www.recursosvisualbasic.com.ar/htm/vb-net/54-obtener-links-de-una-pagina-web.htm


Yo utilizo el siguiente código para obtener el enlace al que redirecciona una determianda URL

Código (vbnet) [Seleccionar] Expandir


#Region "Normalizar URL"
   Public Function ResolverURL(ByVal strUrl As String) As String
       Dim RedirectUrl As String = Nothing
        strUrl = DecodeUrl(strUrl)
       Try
           Dim WebRequest As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(strUrl), System.Net.HttpWebRequest)
           With WebRequest
               .UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
               'WebRequest.MaximumAutomaticRedirections = 1
               .AllowAutoRedirect = True  '<==importante
               '.ProtocolVersion = System.Net.HttpVersion.Version11
                .Method = "GET"
               '.Timeout = 1000
           End With

           Using webResponse As System.Net.HttpWebResponse = DirectCast(WebRequest.GetResponse, Net.HttpWebResponse)
               RedirectUrl = webResponse.ResponseUri.AbsoluteUri
               webResponse.Close() '<===importante
           End Using
       Catch ex As System.Net.WebException
           If ex.Status = Net.WebExceptionStatus.NameResolutionFailure Then
               MessageBox.Show("El Sitio no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
           End If
       End Try
       Return RedirectUrl
   End Function
  Public Function DecodeUrl(ByVal strUrl As String) As String
       Dim HexCaracter As String()
       HexCaracter = strUrl.Split(CChar("%"))
       For I As Integer = 1 To HexCaracter.Length - 1
           Dim Cr As String = HexCaracter(I).Substring(0, 2)
           Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
           strUrl = strUrl.Replace("%" & Cr, newCr)
       Next
       Return strUrl
   End Function
#End Region



Este código se usa del modo siguiente:

Código (vbnet) [Seleccionar] Expandir


Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox1.Text = ResolverURL(URL)
   End Sub


Sin embargo no me funciona con los enlaces que ofrece Google en el listado de búsqueda.

S2s



Una forma que he ideado es esta:

Código (vbnet) [Seleccionar] Expandir



  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim strUrl as String = "https://www.google.es/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwidgYbs98HKAhUJLhoKHRwBBzYQFggcMAA&url=https%3A%2F%2Fes.wikipedia.org%2Fwiki%2FAlbert_Einstein&usg=AFQjCNEpx7ZvmsTJayPwnY-RF0W1AbWLGw&bvm=bv.112454388,d.d2s"

        strUrl = DecodeUrl(strUrl)

       Dim uri As New Uri(strUrl)
       Dim dirs As String = uri.GetComponents(UriComponents.AbsoluteUri, UriFormat.UriEscaped)

       Try
           Dim dirArray As String() = dirs.Split(CChar("="))
           For I As Integer = 1 To dirArray.Length - 1
               If dirArray(I).Length > 4 Then
                   If dirArray(I).Substring(0, 4) = "http" Then
                       strUrl = dirArray(I).Replace("&usg", "")
                       Exit For
                   End If
               End If
           Next
       Catch ex As Exception
       End Try

       TextBox1.Text = strUrl

End Sub
   Public Function DecodeUrl(ByVal strUrl As String) As String
       Dim HexCaracter As String()
       HexCaracter = strUrl.Split(CChar("%"))
       For I As Integer = 1 To HexCaracter.Length - 1
           Dim Cr As String = HexCaracter(I).Substring(0, 2)
           Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
           strUrl = strUrl.Replace("%" & Cr, newCr)
       Next
       Return strUrl
   End Function


Pero mi intención es que conseguir un método general que sirva para cualquier URL sin afectar a URLs que no redireccionen. De otro modo tengo que hacer que el programa determine si es redireccionable y si lo es, si éste es de Google para aplicar el código que acabo de mostrar... Esto no me convence.




Bueno, lo he resuelto de la siguiente manera. Que como dije  obtiene la URL a la que redirecciona de forma selectiva. Si es de Google aplica un método y si no lo es aplica el otro.

Código (vbnet) [Seleccionar] Expandir


#Region "Normalizar URL"
   Public Function NormalizarUrl(ByVal strUrl As String) As String
       strUrl = DecodeUrl(strUrl)
       Task.Factory.StartNew(Sub()
                                 If strUrl.Contains("www.google.es/url?") = True Then
                                     '//Obtiene la Url a la que redirecciona
                                     strUrl = ResolverUrlGoogle(strUrl)
                                 Else
                                     '//Si el Url redireciona a otra Url obtiene la Url a la que redirecciona
                                     strUrl = ResolverURL(strUrl)
                                 End If
                                 ComboBox1.Invoke(DirectCast(Sub() ComboBox1.Text = strUrl, MethodInvoker))
                             End Sub)
     
   
       Return strUrl
   End Function
   Public Function DecodeUrl(ByVal strUrl As String) As String
       Dim HexCaracter As String()
       HexCaracter = strUrl.Split(CChar("%"))
       For I As Integer = 1 To HexCaracter.Length - 1
           Dim Cr As String = HexCaracter(I).Substring(0, 2)
           Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
           strUrl = strUrl.Replace("%" & Cr, newCr)
       Next
       Return strUrl
   End Function
   Public Function ResolverUrlGoogle(ByVal strUrl As String) As String

       Dim uri As New Uri(strUrl)
       Dim dirs As String = uri.GetComponents(UriComponents.AbsoluteUri, UriFormat.UriEscaped)
       Try
           Dim dirArray As String() = dirs.Split(CChar("="))
           For I As Integer = 1 To dirArray.Length - 1
               If dirArray(I).Length > 4 Then
                   If dirArray(I).Substring(0, 4) = "http" Then
                       strUrl = dirArray(I).Replace("&usg", "")
                       Exit For
                   End If
               End If
           Next
       Catch ex As Exception
       End Try
       Return strUrl
   End Function
   Public Function ResolverURL(ByVal strUrl As String) As String
       Dim RedirectUrl As String = Nothing
       strUrl = DecodeUrl(strUrl)

       Try
           Dim WebRequest As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(strUrl), System.Net.HttpWebRequest)
           With WebRequest
               WebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
               'WebRequest.MaximumAutomaticRedirections = 1
               WebRequest.AllowAutoRedirect = True  '<==importante
           End With
           Using webResponse As System.Net.HttpWebResponse = DirectCast(WebRequest.GetResponse, Net.HttpWebResponse)
               RedirectUrl = webResponse.ResponseUri.AbsoluteUri
               webResponse.Close() '<===importante
           End Using
       Catch ex As System.Net.WebException
           If ex.Status = Net.WebExceptionStatus.NameResolutionFailure Then
               MessageBox.Show("El Sitio no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
           End If
       End Try
       Return RedirectUrl
   End Function
#End Region


Sirve para evitar errores al usar System.Net.HttpWebRequest o System.Net.WebClient con URLs que redireccionan.



NOTA:
He hecho algunas correcciones y modificaciones respecto al código que expuse ayer.
Disculpen las molestias

He añadido por ejemplo esta función:

Código (vb) [Seleccionar] Expandir

Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function

Ya que yo creía que sólo había que sustituir "%3A" por ":" y "%2F" por "/". Entonces he visto otro enlace con "%3F" y comprendí que se trata de número de un carácter convertido a hexadecimal. Es decir 3A = 58 que equivale a ":" y 2F = 47 que equivale a "/". He hecho esa función para sustituir cualquier código hexadecimal por su carácter correspondiente. 


Por otro lado la función ResolverUrlGoogle tampoco estaba bien del todo . No todos los enlaces, pasados por split se encuentran el la posición 10 del array. Así que hago que  busque la url dentro del array. De todos modos aún no está perfecto  porque hay enlaces, aunque poco comunes, que se devuelven incompletos o con algún carácter demás.


Sl2s

[<img src="..." height="128" width="128" alt"..."/>]

Hola

La verdad no comprendo como funcionan las expresiones regulares, pese a que hay ejemplos en la ayuda msdn.

Estoy intentando obtener la Url de las imágenes de una página html junto con los valores Width, height y alt.

El problema está en que no siempre está en el mismo orden. Es decir primero puede establecerse src después height, width y luego alt:

<img src="..." height="128" width="128" alt"..."/>

También:

<img src="..." width"128" height="128" alt"..."/>


O por el contrario, establecerse el width o el heigth antes que el src:

<img width"128" height="128" src="..."  alt"..."/>

<img height"128" width="128" src="..."  alt"..."/>


Utilizando el sistema de las expresiones regulares con Regex ocurre que sólo obtiene los valores siempre y cuando estén el orden establecido en el pattern:

Código (vbnet) [Seleccionar] Expandir

Dim Pattern As String = "<img[^>]+(src)\s*=\s*""?([^ "">]+)""?(?:[^>]+(width|height)\s*=\s*""?([^ "">]+)""?\s+(height|width)\s*=\s*""?([^ "">]+)""?)?(?:[^>]+(alt)\s*=\s*""?([^"">]+)""?)?"

       Dim re As New Regex(Pattern, RegexOptions.IgnoreCase)
       Dim m As Match = re.Match(code)

       While m.Success

           For I As Integer = 0 To m.Groups.Count - 1
               ListBox1.Items.Add(m.Groups(I).Value)
           Next

       End While


'¿Como puedo obtener los valores independientemente del orden en que se encuentren?

Necesito encontrar los valores Width, height independientemente de si están antes que el src o después


Gracias