crivast

Generar letras aleatorias en VB.NET 2008, 2010 en adelante.. Controles necesarios: 1 Boton 1 TextBox Código para generar letras (explicado) Private Function GenerarCadena(ByVal numeroCaracteres As Integer) As String ' Dimensionamos un array para almacenar tanto las ' letras mayúsculas como minúsculas (52 letras). ' Dim letras(51) As String ' Rellenamos el array. ' Dim n As Integer For item As Int32 = 65 To 90 letras(n) = Chr(item) letras(n + 1) = letras(n).ToLower n += 2 Next Dim cadenaAleatoria As String = String.Empty ' Iniciamos el generador de números aleatorios ' Dim rnd As New Random(DateTime.Now.Millisecond) For n = 0 To numeroCaracteres Dim numero As Integer = rnd.Next(0, 51) cadenaAleatoria &= letras(numero) Next Return cadenaAleatoria End Function En el boton ponemos el siguiente codigo: TextBox1.Text = GenerarCadena(24) Vamos a explicar este ultimo codigo.. TextBox1.Text = GenerarCadena(24) 24 es la cantidad de números y letras aleatorias que queremos generar si queremos generar solo 3 le ponemos 4 siempre sumando un numero mas al que queremos.

Saca la ID de cualquier persona de facebook aunque no este en tu lista de amigos! Programa hecho por mi Facebook ID detector Sirve para sacar la ID de cualquier facebook *Que es la ID de un facebook? La id de un facebook era lo que antes en el perfil de una persona su link de pagina era www.facebook.com/profile.php?id=999384745785 eso sigue existiendo, pero muy pocas personas lo tienen por que ahora se ponen nombres de usuario osea que su link de pagina es www.facebook.com/pepe.perez Ya sabiendo para que sirve el programa, les dejo una captura de como es Link de descarga: Desde mi web Aclaración: Una vez abierto el link delen click en "Click para continuar" y después esperan. Instrucciones 1- Donde dice nombre de usuario vas al facebook de la persona a la que queres sacarle la ID y copias su nombre de usuario ej. "pepito.perez" 2- deja todo así como esta y dale al botón "Conseguir ID" y espera un momento a que el programa termine de buscar en la base de datos. Luego te va a salir algo como esto en color rojo: {"id":"100000936665088", Y el resto de la informacion de esa persona, menos el pass pero bueno.. espero que les aya gustado

Como sacar el codigo fuente de una web con Visual Basic NET (2008 y 2010 en adelante) Bueno, como primer paso vamos a crear un nuevo proyecto en Visual Basic y agregamos: 1 WebBrowser 1 Boton 1 Textbox (Pongan la opcion multiline y agrandelo) Codigo: Try Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://google.com" Dim response As System.Net.HttpWebResponse = request.GetResponse() Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) Dim sourcecode As String = sr.ReadToEnd() TextBox1.Text = sourcecode Catch ex As Exception MessageBox.Show("Invalid Url" Return End Try ---------------------------- Para aplicarlo hagan doble click en el boton1 y peguenlo ahi. Bien! como podran ver el codigo tiene como default sacar el codigo fuente de Google, pero lo pueden cambiar por la pagina que uds quieran, pero para hacerlo mas comodo y no tener que andar editando el codigo por cada web que desees sacar el codigo fuente, vamos a hacer lo siguiente.. Agregamos otro Textbox y ponemos este codigo: Try Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://" & TextBox2.Text) Dim response As System.Net.HttpWebResponse = request.GetResponse() Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) Dim sourcecode As String = sr.ReadToEnd() TextBox1.Text = sourcecode Catch ex As Exception MessageBox.Show("Invalid Url" Return End Try ---------------------------- En este caso tenes que poner WWW. y la web que quieras en el textbox2 Con eso ya tendriamos todo bien, suerte con eso!

Como crear un Slider en Visual Basic NET (2008 y 2010 en adelante) Si sabes usar bien el photoshop podes crear sliders como esos. Como primer paso tenemos que ir a visual basic y crear un nuevo proyecto y agregar: 2 PictureBoxs (A uno le ponemos en la propiedad Name "pic_slider" y al otro "pic_Barra" pic_slider (Imagen que se mueve de un lado al otro) pic_Barra (Imagen que permanece en el mismo lugar) Una vez hecho eso vamos a los codigos, hacemos doble click en el formulario y borramos todo lo que tiene y pegamos este codigo: Option Explicit On Option Strict On Public Class Form1 'Bandera para el evento MouseUp del picturebox Dim bFlag As Boolean = False ' Valores máximos y mínimos del slider Dim iValueMax As Integer Dim iValueMin As Integer Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load iValueMax = 100 iValueMin = 0 End Sub Private Sub PictureBox2_MouseDown( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic_slider.MouseDown Dim Posx As Integer Dim PosTempx As Integer bFlag = True While bFlag = True 'Cursor.Position.X devuelve la posición x del cursor en la pantalla Posx = System.Windows.Forms.Cursor.Position.X PosTempx = Posx ' temporal par a la pos x Posx = Posx - (Me.Left + pic_slider.Width) If (PosTempx <> Posx) And _ (Posx >= pic_Barra.Left) And _ (Posx + pic_slider.Width) <= (pic_Barra.Left + pic_Barra.Width) Then 'Cambia el Left pic_slider.Left = Posx ' value Dim iValor As Integer ' muestra el Value en el label iValor = CInt((pic_slider.Left - pic_Barra.Left) _ * (iValueMax - iValueMin) / _ (pic_Barra.Width - pic_slider.Width)) + iValueMin lblValue.Text = iValor.ToString End If ' para no ocupar todos los recursos mientras se desliza el slider Application.DoEvents() End While End Sub Private Sub PictureBox2_MouseUp( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic_slider.MouseUp bFlag = False ' crear un tooltiptext Dim ToolTip As New ToolTip() With ToolTip .IsBalloon = True ' tipo ballon .ToolTipIcon = ToolTipIcon.Info ' icono .ToolTipTitle = "Ejemplo ..." ' titulo .InitialDelay = 1 'tiempo en aparecer ' texto Dim sText As String = "Máximo: " & iValueMax.ToString & vbCrLf & _ "Mínimo: " & iValueMin.ToString & vbCrLf & _ "Valor: " & lblValue.Text.ToString ' Lo establece .SetToolTip(pic_slider, sText) End With End Sub End Class Imagen final del proyecto: Con eso ya tendriamos todo funcionando, Deje algunas anotaciones en el codigo para que sepan como funciona. Suerte con eso!

Bienvenidos, aca les dejo el video que subi a YouTube link: http://www.youtube.com/watch?v=GN-eDgv1Kv4&feature=mfu_in_order&list=UL Link: solamente lo paso por facebook por que te tengo que dar un N° De activasion para el programa Facebook: http://www.facebook.com/profile.php?id=1547498933 No es necesario desactivar ningun antivirus, es 100% confiable

Saludos! les traigo este codigo para aplicar transparencia a los controles de Visual Basic como por Ej. Paneles, Pictureboxs entre otros logrando este efecto: El cuadro negro transparente que en este caso es un panel, ya ustedes sabran como aplicarlo a sus programas para que sean mas profesionales o elegantes.. (Esta es una imagen sacada de google no del programa pero asi es como queda. Bien! pasemos al codigo. Lo que necesitas para lograr este efecto: - 1 Trackbar - 1 Panel o picturebox o lo que quieras hacer semi transparente con color de fondo negro o bien podes ponerle una imagen Codigo: Panel1.backcolor = color.fromargb(trackbar1.value,color.black) Vamos a explicarlo un poco, no necesariamente necesitas un Trackback para definir la transparencia del control podes poner Panel1.backcolor = color.fromargb(75,color.black) e ir fijandote la transparencia que deseas. Para aplicar el codigo hace doble click en el formulario (Form load) y ponelo ahi y con eso ya estaria bien hecho.

Bienvenidos a mi post!Que es SocialDock?SocialDock es como un RocketDock pero solo de redes sociales, sirve para administrar todas tus redes sociales con solo iniciar sesion en cada una desde el panel.Tiene un diseño moderno y actualizable. No es tan dificil de usar, ademas, le da un poco de estilo a tu escritorio.Si bien este programa todavia no saco su Beta parece ser prometedor y totalmente gratis (Asegurado).Que defectos tiene?El programa tiene 1 solo defecto, no tiene una buena calidad, los iconos de las redes sociales estan con un borde negro pero casi no se nota... se disfraza con el fondo de escritorio.este error sera corregido en la versión 1.5 o 2.0Como conozco al que lo esta programando le pedi algunas imágenes de lo que es...Asi queda en tu escritorioEste es el segundo panel donde tambien vas a poder abrir tus redes sociales, a este panel lo podes personalizar con skins que van a estar disponibles cuando este listo el programa.Aca esta el panel de configuracion para iniciar sesion en todas las redes sociales previamente.Hay mas imagenes pero algunas partes del programa como por ej el navegador que trae para visualizar las redes, no esta listo todaviaY bueno.. eso es todo! siganmen para que sepan cuando ya se va a poder descargar la beta

Comprobar conexion a internet con Visual Basic NET (2008 y 2010 en adelante) Hola! Les traigo este sencillo codigo para comprobar si tenes conexion a internet con visual basic para que se lo pongas a tus aplicaciones o para uso personal ustedes sabran el uso que le pueden dar... Controles necesarios: 1 Boton Dentro del boton vamos a poner este codigo: If My.Computer.Network.IsAvailable() Then If My.Computer.Network.Ping("www.google.es", 1000) Then MsgBox("Conectado." Else MsgBox("Error de conexión." End If Else MsgBox("No conectado" End If Con eso ya tendriamos todo funcionando bien, suerte con eso! esto es un codigo mas para agregar a la caja de herramientas de Visual Basic