Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - SγиtαxEяяoя

#61
.NET (C#, VB.NET, ASP) / Re: Extraer datos.
21 Junio 2013, 22:03 PM
No, lo he intentado pero no tengo resultados :(
#62
.NET (C#, VB.NET, ASP) / Extraer datos.
21 Junio 2013, 21:28 PM
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
#63
Cita de: XresH en 21 Junio 2013, 10:06 AM
Excelente esperemos verlo pronto en la zona de software para testear >:D

Muy buena Syntax.

Saludos.


Claro, Bro.

pero tambien debo agradecerte.. :)
#64
He estado trabajando en mi proyecto y bueno es muy sofisticado el programa, pronto lo dejo para que lo descarguen  ;-) ;-)  ;D

#65
Navegando por hay en el SoundCloud

http://api.soundcloud.com/tracks/55191200/download?consumer_key=ZbOZAiYTx8wbuIaqRhfubg

Entonces como le hago para que identifique la cancion que estoy escuchando y la descargue :D
#66
Debes usar un Autorun para que se ejecute cada vez que que insertes el CD
:silbar:

[autorun]
open=Form1.exe


Algo asi



Esto lo guardas en un archivo autorun.inf






para lo de abrir el otro form que este en dentro del CD Obviamente... debe ser algo asi

Código (vbnet) [Seleccionar]
Shell(".\Form2.exe", AppWinStyle.NormalFocus)






pero si el archivo esta dentro de una carpeta tonces

Código (vbnet) [Seleccionar]
Shell(".Programa\Form2.exe", AppWinStyle.NormalFocus)

#67
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 :D

Estas son algunas lineas de codigo que e analizado :D


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 :D

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
#68
Una pregunta Electro el se refiere a esto ?



porque aún no entiendo que es lo que logra hacer
#69
Algo asi ??

Con la tecla "Q" muestra el Form 2.. no se cual es el KeyCode para Tabular
¿¿{TAB}??  :huh: :huh: :huh:

Código (vbnet) [Seleccionar]
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
       If e.KeyCode.ToString = "Q" Then 'Aqui es donde esta la funcion de la tecla
           Me.KeyPreview = True
           Form2.Show()
       End If
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.KeyPreview = True
   End Sub
#70
Ese codigo me lo dio Electro, y funciona puedes adaptarlo a lo que necesites

Código (vbnet) [Seleccionar]
Dim INI_File As String = ".\Test.ini"

' Save INI Settings
    Private Sub Save_INI_Settings()

        Dim Current_Settings As String = _
            "File=" & TextBox_File.Text & Environment.NewLine & _
            "SaveFile=" & CheckBox_SaveFile.Checked

        My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)

    End Sub

' Load INI Settings
    Private Sub Load_INI_Settings()

        Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
        Dim Line As String = String.Empty
        Dim Delimiter As String = "="
        Dim ValueName As String = String.Empty
        Dim Value As Object

        ' Example content of Test.ini:
        '
        ' File=C:\File.txt
        ' SaveFile=True

        Do Until xRead.EndOfStream

            Line = xRead.ReadLine().ToLower
            ValueName = Line.Split(Delimiter).First
            Value = Line.Split(Delimiter).Last

            If ValueName = "File".ToLower Then TextBox_File.Text = Value
            If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value

            Application.DoEvents()

        Loop

        xRead.Close() : xRead.Dispose()

    End Sub