Temas

[Hola]

Hola, hace mucho no pasaba por aqui, os vengo a pedir que me den un pequeño empujon, para los que saben de javascript !  

Lo que pasa es que he intentado de todas las maneras posibles, inyectar un codigo javascript/css y no he podido lograr hacerlo, a ver intento modificar las propiedades del chat de facebook.. y volverlo mas grande, encontre este script y si, lo se que puedo cargar el script con Tampermonkey, pero yo quiero hacerlo desde un ContextMenu en Chrome.. Es decir, quiero lograr hacer en el ContextMenu un CheckBox, al estar en True, se active el script..



Bien, este es el codigo que intento inyectar

Código (javascript) [Seleccionar] Expandir


addStyle(".fbDockChatTabFlyout{width:260px!important;height:500px!important;}");
addStyle("div.conversationContainer{height:1000px!important;}");

function addStyle(css) {
if (typeof GM_addStyle !== 'undefined') {
return GM_addStyle(css);
}
else if (heads = document.getElementsByTagName('head')) {
var style = document.createElement('style');
try { style.innerHTML = css; }
catch(x) { style.innerText = css; }
style.type = 'text/css';
heads[0].appendChild(style);
}
}

Si hay alguna manera de hacerlo, me pueden orientar?

Esta es la menera en que lo trate de hacer, pero no doy resultado...



Pero cuando inserto el codigo para aplicar los valores, este no carga




Igual, ya intente hacerlo de esta manera

Código (javascript) [Seleccionar] Expandir

window.onload=code ;

function code(){
   if (typeof GM_addStyle !== 'undefined') {
return GM_addStyle(css);
}
else if (heads = document.getElementsByTagName('head')) {
var style = document.createElement('style');
try { style.innerHTML = css; }
catch(x) { style.innerText = css; }
style.type = 'text/css';
heads[0].appendChild(style);
}
}

Código (javascript) [Seleccionar] Expandir

function checkboxOnClick(info, tab) {
addStyle(".fbDockChatTabFlyout{width:260px!important;height:500px!important;}");
addStyle("div.conversationContainer{height:1000px!important;}");
}
var checkbox1 = chrome.contextMenus.create({"title": "test", "type": "checkbox", "onclick":checkboxOnClick});

Y nada  Alguna sugerencia?

[Hola]

Hola, hace rato no me pasaba por este foro..
Bueno el caso es que necesito ayuda, estoy iniciando en JS, y estoy atrapado en una parte del codigo...
Es facil lo que necesito hacer, pero no se como hacerlo..



Necesito cambiar una parte de un texto de un link,
El punto 1, al pasar el cursor muestra el location.pathname + el host, en este caso (soundrad.com/progora/puppyboy-flex-preview) de la cancion, como se mustra en el punto 2, necesito cambiar "soundrad" por "souncloud", y a su vez abrir ese link en otra pagina..

Un ejemplo mas o menos de lo que trato de hacer, remplazar "soundrad" por "souncloud", y abrir ese link http://es.savefrom.net/?url= + link_remplazado..

¿Se entiende mas o menos lo que trato de hacer?

[1.]

Hola, hace mucho que no me paso por este foro.. bueno, saludos a todos...

Tengo una duda, y me gustaria que me ayudaran a resolverla...

Pasa lo siguiente, soy fanatico de soundcloud, y me gusta descargar canciones.. pero pues me gusta ser facilista, no lo digo por pereza, sino por estetica..

La cuestion es esta, tengo una extensión que me copia automaticamente el link y me manda a la pagina para descargar pero, tiene un problema. les voy a mostrar con imagenes, para que me entiendan...

Estoy escuchando esta cancion..
1. Esta es la aplicacion, al precionar el boton, copia automaticamente el link de la cancion y me manda a la pagina para descargalo..



2.Pero aqui esta el error, no copia el link de la cancion actual en "Reproducion"



Entonces, toca que estar dentro de la cancion, para poder descargarla, es algo molesto ¿Verdad?




Bueno, no me quede con la duda de saber como lograr dicha hazaña, e investigue un poco, encontre esta aplicacion que se llama "Context Menu", pero solo sirve para realizar busqueda de texto, mas no para abrir enlaces, os muestro.. un poco de que hablo..



Esto solo sirve para buscar texto, mas no para abrir url's



Alguien tiene alguna sugerencia de como lograr hacer eso que os digo?

[Hola]

Hola, Estoy intentando hacer un Zoom donde pueda ver casi los pixeles de la pantalla, ¿Puede alguien ayudarme o dar algun ejemplo? me serviviria de mucha ayuda

dejo una imagen de basicamente que es lo que necesito, lo juro he intentado de casi todo, magnify y nada se distorsiona mucho

Esta es una captura del Magnify de AutoIt Window Info


Quiero exactamente hacer esa funcion desde el VB.NET

['Aqui que me regrese el nombre a un boton "Play"]

Buenas, estoy tratando de averiguar como logro que al finalizar de reproducir una cancion me regrese un valor

Esta es la propiedad del reproductor

Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
       Select Case e.newState
           Case WMPLib.WMPPlayState.wmppsPlaying
               ToolStripStatusLabel2.Text = "Reproduciendo"
           Case WMPLib.WMPPlayState.wmppsPaused
               ToolStripStatusLabel2.Text = "En Pausa"
           Case WMPLib.WMPPlayState.wmppsStopped
               ToolStripStatusLabel2.Text = "Sin Reproducción"
       End Select
   End Sub

Me pregunto si existe algo como esto
           

Case WMPLib.WMPPlayState.wmppsFinish 'Aqui que me regrese el nombre a un boton "Play"
               B_PlayPause.Text = "Play"

Estas son la propiedades del boton "Play/Pause"

Private Sub B_PlayPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_PlayPause.Click
       If B_PlayPause.Text = "Pause" Then
           AxWindowsMediaPlayer1.Ctlcontrols.pause()
           B_PlayPause.ImageIndex = 1
           B_PlayPause.Text = "Play"
       Else
           AxWindowsMediaPlayer1.Ctlcontrols.play()
           B_PlayPause.ImageIndex = 0
           B_PlayPause.Text = "Pause"
       End If
   End Sub

[Hola]

Hola, Hace rato no me paso por el foro.

Quería hacer una pregunta, Bueno estoy pensando en hacer un "Bot"
Veras, tengo la idea de hacer que este programa trabaje por si solo, por medio de un motor de búsqueda, algo como una comparación de imágenes

Algo como esto, es un ejemplo :p

Si esta "imagen" se parece a esta "imagen" Entonces
Dar click encima de la imagen y continuar hasta encontrar otra "imagen"
Pero si esta "imagen" no se parece
Continuar dando clik hasta encontrar la "imagen"

No se si me explico bien 

[Hola]

Hola, ¿Alguna sugerencia de como arreglo este problema?



Desde ya, Gracias 

Hola, me preguntaba si se puede hacer un programa que descargue todos los recursos de una pagina "Juego Flash"

Tengo las "ID's" de los archivos algo asi por ejemplo


http://www.juego.com/juego/swf/id/001.swf
http://www.juego.com/juego/swf/id/002.swf
http://www.juego.com/juego/swf/id/003.swf
http://www.juego.com/juego/swf/id/004.swf
http://www.juego.com/juego/swf/id/005.swf

y se me toma muy molesto estar cambiando los "ID" de cada .swf

¿Existe alguna manera de hacerlo mas rapido? algo asi de poner todas las ID's en un "File.txt" y que el programa pase de Id, en Id y las descargue

Hola foro, estoy intentado hacer un programa que guarde mis contraseñas "Soy algo olvidadizo"  

El - Necesito que aqui se guarden todos los cambios y que al abrir el programa los datos sigan hay guardados y cargados
Edito: Estoy atascado en esta parte
Quiero que al editar los nombres, contraseñas o el sitio web este lo guarde automaticamente, y al abrir el programa cargan los mismos datos que deje ya antes

Código (vbnet) [Seleccionar] Expandir


Dim saveFileDialog1 As New SaveFileDialog()

       saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
       saveFileDialog1.FilterIndex = 2
       saveFileDialog1.RestoreDirectory = True

       If saveFileDialog1.ShowDialog() = DialogResult.OK Then
           Using sw As New IO.StreamWriter(saveFileDialog1.FileName, False)
               'write each row of the ListView out to a tab-delimited line in a file
               For i As Integer = 0 To Me.ListView1.Items.Count - 1
                   sw.WriteLine(((ListView1.Items(i).Text & vbTab) + ListView1.Items(i).SubItems(0).ToString() & vbTab) + ListView1.Items(i).SubItems(1).ToString())
               Next
           End Using
       End If


Hola.

Queria compartir con ustedes este programa, la idea fue basicamente del programa "SnippingTool" - Recortes de Windows



La interfaz del programa es muy simple.


Tiene 4 Formatos de imagenes ", , , "



Se pueden escoger entre 3 Tipos de bordes al usar la función de "Recorte rectangular"



Tiene un Submenu, para facilitar la tarea



Modo "FullScreen"



Posee una Lupa "Magnifying Glass"



La primera vez que el programa se ejecuta, se crea automáticamente la carpeta "Screenshots" en la biblioteca "MyPictures"
Se puede acceder a dicha carpeta, pulsando el botón



Actualmente posee 2 Tipos de configuración



Poner a la bandeja del sistema




Poner la ventana siempre visible


Bueno es algo muy simple, facilita la tarea de estar yendo a "Paint" y recortar .Etc eso es todo espero que les guste

Host: RGhost
Descargar
Compilado en .exe - el modo "lupa no funciona" tratare de arreglaro

PD: Creo que me equivoque de sección, puden moverlo al foro de "Software"

Hola tengo un problema algo grande, estoy con el proyecto de crear un programa que cree una carpeta o que se seleccione una carpeta personalizada para guardar Screenshots

Algo asi


Al abrir el programa se crea automaticamente la ruta "C:\Users\Tavito\Desktop\Screenshots"

Código (vbnet) [Seleccionar] Expandir


Imports System.IO 'Todo el codigo esta resumido por partes
Public Class Form1
   Private Folder As String 'Crea la ruta de la carpeta "Screenshots"

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
       If Not Directory.Exists(Folder) Then 'Si no existe dicho directorio
           Directory.CreateDirectory(Folder) 'Entonces lo crear
       End If
       LabelFolder.Text = Folder 'Y en el "LabelFolder" muestra la ruta que se creo
   End Sub


Pero, si yo quiero seleccionar otra carpeta

Código (vbnet) [Seleccionar] Expandir


Private Sub CheckFolder_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckFolder.CheckedChanged
       If CheckFolder.Checked = True Then
           FolderBrowserDialog1.ShowDialog()
           LabelFolder.Text = FolderBrowserDialog1.SelectedPath() 'Aqui va la ruta de la carpeta que se selecciono
       Else
           LabelFolder.Text = Folder 'Si por algun motivo quiero usar nuevamente la carpeta "Screenshots". Pero la elimine por accidente
           CheckFolder.Checked = False
           Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")
           If Not Directory.Exists(Folder) Then
               Directory.CreateDirectory(Folder)
           End If
       End If
   End Sub


El proceso de crear la carpeta no me da ningun problema, el problema esta aqui al tomar la captura de pantalla

Resumire el codigo por partes

Código (vbnet) [Seleccionar] Expandir

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Imaging
Public Class Form1

   Private Folder As String 'Crea la ruta de la carpeta
   Private Nombre As String = "Image " 'Aqui asigna el nombre a todas las imagenes
   Private Template As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'Aqui almacena los formatos de las imagenes
       ComboBox1.DataSource = New ImageFormat() {ImageFormat.Bmp, ImageFormat.Gif, ImageFormat.Jpeg, ImageFormat.Png, ImageFormat.Tiff}
   End Sub


   Dim bmp As Bitmap
   Dim graphics As Graphics

   Private Sub ButtonScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonScreen.Click
       Dim SearchPattern As String = String.Concat(Nombre, "??.", ComboBox1.SelectedItem)
       Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)
       Dim Numb As Integer = 0
       If Files.Length > 0 Then
           Array.Sort(Files)
           Numb = Integer.Parse(Files(Files.Length - 1).Substring(Template.Length, 2)) + 1
       End If
       Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)
       Using Grap As Graphics = graphics.FromImage(Bmp)
           Grap.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
           Dim Format As ImageFormat = DirectCast(ComboBox1.SelectedItem, ImageFormat)
           Bmp.Save(String.Concat(Template, Numb.ToString("00"), ".", Format), Format)
       End Using
   End Sub

El problema esta aqui

Código (vbnet) [Seleccionar] Expandir

Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)

De que Folder, no vale lo que yo selecciono en el "BrowserDialog1.SelectedPath"

Solo funciona si dejo la ruta que yo mismo proporciono al abrir el programa

Folder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Screenshots")


Ahora si la duda como hago para que

Código (vbnet) [Seleccionar] Expandir

Dim Files As String() = Directory.GetFiles(Folder, SearchPattern)
Almacene la ruta seleccionada en el "LabelFolder" y guarde las imagenes en la carpeta seleccionada

[Usuario]

Hola logre añadir "Nuevos elementos" en el control "Enviar a "
pero cuando lo uso, este solo copia los archivos a la carpeta "Proyectos" alguna forma de que este los "Corte" o "Mueva" sin que en el escritorio quede nada

Para lo de agregar elementos
C:\Users\Usuario\AppData\Roaming\Microsoft\Windows\SendTo

Hola

Estoy intentando hacer que un boton abra un Form2, y que luego ese boton se pueda usar para otra funcion no se si me explico bien algo como esto


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.(No se que poner aqui) Then
            Form2.Show()
        Else
            'Codigo
        End If

Hola me pueden explicar porque me genera error

me resulta muy molesto esto... 







¿Que puedo hacer para solucionar esto?

[EDITO:]

Hola estoy intentando hacer algo por ejemplo

Tengo un "Textbox" y un "Button" el cual cumple una funcion simple.. revisar si hay texto en el "Textbox" y si cumple un parametro el cual compara un texto

Como lo logro hacer?

EDITO:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Me.TextBox1.Text = "" Then 'Hey que paso ¿Falta la URL?
           MessageBox.Show("Inserte URL", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
       ElseIf Not ((Me.TextBox1.Text.Contains("https://soundcloud.com/")) Or (Me.TextBox1.Text.Contains("http://soundcloud.com/"))) Then 'Por si la pagina esta en https:// o en http://
           MessageBox.Show("Esta no es una URL de Soundcloud", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
       End If
   End Sub

Hola foreros :p

Estoy intentado incorporar un reproductor HTML5 en VB



Este es el codigo

Código [Seleccionar] Expandir

<script src="http://api.html5media.info/1.1.5/html5media.min.js"></script><audio src="http://media.soundcloud.com/stream/Ov55Q8s8fLic?stream_token=6QAma.mp3" controls preload></audio><br><a href="http://summer-hits.com/download" target="_blank">Summer-Hits.com</a>

Hola foro, tengo un problema con esas dos referencias y es este



Ya he descargado las librerias. y nada me arroja mas errores :/

Edito.

Use, System.Core.dll bajo .NET Framework 2.0

y este me va perfecto el que da error ahora es System.Xml.Linq

probare en instalar .NET Framework 2.0 a ver que sucede

Hola a todos me he quedado atascado en una parte de mi proyecto el cual consiste en conseguir el Nombre de la cancion y el artista.

Algo asi como esto..



En el Textbox pegue la direccion de soundclod y al presionar ir.

este me muestre



he intentado de todo pero no logro hacer extraer eso

PD: que no solo sea para ese link tiene que se para todo link de soundcloud

Hola me estoy aventurando en crear un programa para descargar musica del famoso SoundCloud pero no me gustaria hacerlo solo.. por hay encontrare a alguien que guste aventurarse

Estas son algunas lineas de codigo que e analizado

Código [Seleccionar] Expandir


scdlr.JQ.getJSON("https://api.soundcloud.com/resolve.json?callback=?", {url: resolveUrl, client_id:scdlr.clientId, secret_token:secretToken}, function(track)

trackId = track.id.toString()
scdlr.JQ.getJSON("https://api.soundcloud.com/i1/tracks/"+trackId+"/streams?callback=?", {client_id:scdlr.clientId, secret_token:secretToken}, function( data )

El lenguaje no estoy muy seguro creo que es javascript

¿Que dices te aventuras?


Edito he encontrado estoy por hay

https://github.com/013/Soundcloud-Downloader/blob/master/soundcloud-downloader.py

https://github.com/013/Soundcloud-Downloader/blob/master/Old-soundcloud-downloader.py

Por el .Py creo que es de python 100% seguro :p

Estoy intentando hacer esto

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
   End Sub



Pero cuando sumo de esta forma  8.000 + 2.000 = 10



lo que quiero es que al sumar este separa las unidades

Hola Foro, me he creado un programa que descarga unos archivos especificando una ID pero son demasiados los que debo descargar

Mi pregunta es, se puede crear una lista.txt que contenga todas las ID que debe revisar e ir descargando uno por uno ??

Hola mi pregunta es 

Desde un ListBox puedo cambiar los valores de un Timer..
me explico



En un Timer tengo este codigo...

Private Sub Timer1_Tick (Bla... Bla...)
Tick1 += 1
        If Tick1 = 5 Then 'Estos son los tiempos en que cambia de una tecla a otra
            SendKeys.Send("1")
        End If
        If Tick1 = 15 Then 'Estos son los tiempos en que cambia de una tecla a otra
            SendKeys.Send("2")
        End If
        If Tick1 = 25 Then 'Estos son los tiempos en que cambia de una tecla a otra
            SendKeys.Send("3")
        End If

Entonces mi pregunta es... si a los Item's del listbox les proporciono algo asi como esto




No se si me explico bien lo que trato de hacer y si no se puede no hay problema

Hola. me pregunto si hay algun codigo que otorgue la funcion que al pasar el mouse cambie la imagen de un picturebox y que al quitar el mouse vuelva a la imagen anterior

Tengo un formulario el cual contiene 2 "Textbox"

Nombre.Text
Apellido.Text



Lo que quiero hacer es que al abrir el programa, éste cree el archivo .INI con el nombre y apellido automáticamente.



Luego poder cambiar esos valor y al darle clic en el botón 'Guardar' y se guarden esos datos.



Al cerrar el programa y volverlo a abrir Cargue esos datos ya guardados en los mismos Textbox.



Agradezco de antemano cualquier tipo de ayuda.

hola, intentando jugar con las propiedades del form...

logre hacer esto..



Pero me fijo en los bordes tan robustos que tiene la imagen .PNG

hay alguna forma de "pulir" los bordes.. para que queden finos

PD:La imagen esta en la mejor calidad... lo probe con otros fondos

Hola, estoy en la creacion de un auto mouse que de click en especificas coordenadas...

algo como esto







y para ver la coordenada especifica

Código [Seleccionar] Expandir

Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.KeyPreview = True
   End Sub
   Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
       If e.KeyCode.ToString = "F1" Then
           Me.KeyPreview = True
           System.Threading.Thread.Sleep(1000)
           TextBox1.Text = System.Windows.Forms.Cursor.Position.X
           TextBox2.Text = System.Windows.Forms.Cursor.Position.Y
       End If
       If e.KeyCode.ToString = "F2" Then
           Clipboard.SetText(TextBox1.Text & " - " & TextBox2.Text)
           TextBox3.Text = Clipboard.GetText
       End If
   End Sub
End Class

Hola foreros, me preguntaba si podian ayudar en la programacion de un cronometro regresivo

miren este seria el diseño basico y simple



Perdon, si les pido mucho...

en el RadioButton1 "Ejecutar Programa" quiero que abra un programa, pero este programa estara en la misma ruta de la carpeta, ejemplo..
Al termina el tiempo se ejecutara el AutoIt3

y en el RadioButton2 "Ejecutar Sonido" igual que reproduzca el sonido




en los Botones "Iniciar y Detener" pues es obvio iniciar el timer o detenerlo


y en los TextBox "Horas, Minutos y Segundos" yo pueda aplicar el tiempo que quiero poner en regresiva y al finalizar el tiempo se ejecute alguna de las dos acciones. el sonido o el programa

que en una hora con cinco minutos se ejecute el sonido


que en 24 horas ejecute el sonido etc



Espero y no ser molesto, lo se soy un novato pregunton

Veran, me he guiado por un ejemplo en .Bat de un sincronizador de carpetas simple

Código [Seleccionar] Expandir

xcopy C:\Users\*****\Music\Musica D:\Musica /d /y /e
pause

Pero ahora ya quiero pasar a otro nivel Visual Basic, algo simple para los que apenas estamos empezando



Igual esto fue lo que trate de hacer

Código [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("cmd /c xcopy /h/v/s/e/r/y/c/k/m/d " & Chr(34) & "ComboBox1.text" & Chr(34) & " " & Chr(34) & "ComboBox2.text" & Chr(34), vbNormalFocus)
    End Sub

Pero no dio resultado, se que funciona Si, y solo si quito los "ComboBox.text" y pongo la ruta directa..
Creo que me faltara aprender mucho 

> Quiero seleccionar que carpetas sincronizar (En el ComboBox)
> Seleccionar la Ruta a donde sincronizarlas

Hola, me preguntaba si es posible la creacion de un chat, pero Ojo¡¡ 

Que este chat, se pueden conectar otras personas y que no esten en el mismo grupo de hogar ni red

Como podran ver cree un chat siguiendo un tutorial, con todas las ansias se lo mande a mi amigo y me dijo que no veia mis mensajes... esta es una captura





Es decir

Me cree el programa.. y se lo mande a mi amigo que vive en mexico y yo estoy en colombia, y que podamos establecer conexion, se que puede sonar algo retorico como.. usa skype o facebook etc

pero esa no es la idea, la idea es crear uno...
ahora si mi pregunta ¿Se puede hacer? de ser asi ¿Pueden facilitar algun tutorial o codigo?