Upload formato mp3!

[rubenvol106]

Boas pessoal a vossa ajuda tem sido indispensavel para as minhas duvidas da PAP

Está praticamente acabada so preciso de saber como fazer upload de um "ficheiro".mp3 e como posso fazer ligação para uma impressora para impressão do que tenho no ecra!

[Caça]

Uma duvida de cada vez, se são dividas diferentes abre tópicos diferentes.

---

Fazer upload para onde?

[Lukas S.]

Caça aproveito e tiro já a duvida ... imagina que quero fazer upload de algo usando o mediafire eu posso usar a função

fileUpEx.PostedFile.SaveAs()

????

Uma coisa simples tipo TextBox mais um botão no botão eu colocaria essa função sendo que o path sera mediafire.com correcto?

EDIT: Procurei por uma API pelos vistos não existe para vb .net a unica coisa que existe é esta api mas não sei pra que linguagem

http://developers.mediafire.com/index.php/REST_API

[Caça]

A função para fazer upload no MediaFire(se for possível) é através de funções disponibilizados por eles, não te si dizer ao certo como são e como se utilizam.

Eles provavelmente devem ter um WebService para esse efeito..

[Lukas S.]

Hmmmm Obrigado pelo esclarecimento 😉

[bioshock]

http://pastebin.com/Cj1syDss

É só traduzir para VB.NET

[Lukas S.]

Wohooo Obrigado  😁

Edit

Será mais ou menos isto ?

Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Net
Imports System.Text
Imports System.Xml
Imports System.Text.RegularExpressions

' ReSharper disable PossibleNullReferenceException
Namespace Uploader
    Class Program
        Private Shared Sub Main(ByVal args As String())
            If args.Length < 2 Then
                Console.WriteLine("Proper Usage: Uploader <FolderName> <File1> <File2> ...")
                Return
            End If
            Dim folder = args(0)
            Dim files = New [string](args.Length - 2) {}
            Array.Copy(args, 1, files, 0, args.Length - 1)

            Dim web = New CookieWebClient()
            'Must get the ukey by loading the root first
            web.DownloadString("http://www.mediafire.com/")

            '
            '                 * Now we do a login so we can get session, user, etc..
            '                 * Content Type must be "application/x-www-form-urlencoded"
            '                 

            web.Headers.[set](HttpRequestHeader.ContentType, "application/x-www-form-urlencoded")
            web.UploadString("http://www.mediafire.com/dynamic/login.php", "POST", [string].Format("login_email={0}&login_pass={1}&login_remember=on", "EMAIL ADDRESS", "PASSWORD"))

            '
            '                 * Need to get the 'session_token', Sadly this is in the javascript that is on the main page.
            '                 * It is a 72-byte long hash of some kind. Lucally, its the only 72-byte long hash on the page,
            '                 * so a simple regex can snag it.
            '                 *
            '                 * Also, we MUST set the user agent, else the javascript won't be sent.
            '                 

            web.Headers.[set](HttpRequestHeader.UserAgent, "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_2) AppleWebKit/535.2 (KHTML, like Gecko) Chrome/15.0.874.120 Safari/535.2")
            Dim ret = web.DownloadString("http://www.mediafire.com/myfiles.php")
            Dim reg = Regex.Match(ret, "[0-9a-fA-F]{144}")

            '
            '                 * Now, we need to create the folder, and get its key.
            '                 

            ret = web.DownloadString([string].Format("http://www.mediafire.com/api/folder/create.php?foldername={0}&session_token={1}&version=1", folder, reg.Value))
            Dim xml = New XmlDocument()
            xml.LoadXml(ret)
            Dim folderKey = xml.SelectSingleNode("/response/upload_key").InnerText

            Dim rets = files.[select](Function(file) Upload(web, folderKey, file)).ToList()
            While rets.Count > 0
                For Each info As Object In rets.ToArray()
                    ret = web.DownloadString([string].Format("http://www.mediafire.com/basicapi/pollupload.php?key={0}&MFULConfig={1}", info(1), info(2)))
                    xml.LoadXml(ret)
                    '
                    '                        var builder = new StringBuilder();
                    '                        using (var writer = new StringWriter(builder))
                    '                        {
                    '                            using (var xmlWriter = new XmlTextWriter(writer))
                    '                            {
                    '                                xmlWriter.Formatting = Formatting.Indented;
                    '                                xml.Save(xmlWriter);
                    '                            }
                    '                        }
                    '                        Console.WriteLine(builder);
                    '                        

                    Dim key = xml.SelectSingleNode("/response/doupload/quickkey").InnerText
                    If key.Length <= 0 Then
                        Continue For
                    End If
                    Console.WriteLine("Download URL {0} http://www.mediafire.com/download.php?{1}", Path.GetFileName(info(0)), key)
                    rets.Remove(info)
                Next
            End While
            Console.ReadLine()
        End Sub

        Private Shared Function Upload(ByVal web As CookieWebClient, ByVal folder As [string], ByVal file As [string]) As [string]()
            Dim xml = New XmlDocument()
            Dim keys = New Dictionary(Of [string], [string])()
            xml.LoadXml(web.DownloadString("http://www.mediafire.com/basicapi/uploaderconfiguration.php?"))

            keys.Add("user", xml.SelectSingleNode("/mediafire/config/user").InnerText)
            keys.Add("ukey", xml.SelectSingleNode("/mediafire/config/ukey").InnerText)
            keys.Add("upload_session", xml.SelectSingleNode("/mediafire/config/upload_session").InnerText)
            keys.Add("trackkey", xml.SelectSingleNode("/mediafire/config/trackkey").InnerText)
            keys.Add("folderkey", (If(folder, xml.SelectSingleNode("/mediafire/config/folderkey").InnerText)))
            keys.Add("mful_config", xml.SelectSingleNode("/mediafire/MFULConfig").InnerText)

            Dim query As [string]() = {"type=basic", "ukey=" & keys("ukey"), "user=" & keys("user"), "uploadkey=" & keys("folderkey"), "filenum=0", "uploader=0", _
             "MFULConfig=" & keys("mful_config")}
            web.Headers.[set](HttpRequestHeader.UserAgent, "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_2) AppleWebKit/535.2 (KHTML, like Gecko) Chrome/15.0.874.120 Safari/535.2")
            Dim ret = Encoding.ASCII.GetString(web.UploadFile("http://www.mediafire.com/douploadtoapi?" & [string].Join("&", query), file))
            xml.LoadXml(ret)
		Return New ( file, xml.SelectSingleNode("/response/doupload/key").InnerText, keys("mful_config"))
        End Function

        Public Class CookieWebClient
            Inherits WebClient
            Public Cookies As New CookieContainer()

            Protected Overrides Function GetWebRequest(ByVal address As Uri) As WebRequest
                Dim request = DirectCast(MyBase.GetWebRequest(address), HttpWebRequest)
                If request IsNot Nothing Then
                    request.CookieContainer = Cookies
                    request.KeepAlive = True
                    ServicePointManager.Expect100Continue = False
                End If
                Return request
            End Function
        End Class
    End Class
End Namespace

[rubenvol106]

Upload do pc para o VB

[Caça]

Upload do pc para o VB

Que VB? não percebi...

[rubenvol106]

eu vou dizer o que quero!!!

Quero que quando inicio o meu projecto que se faça ouvir um som .mp3

[Caça]

Para isso vais ter de utilizar um reprodutor como por exemplo o do WindowsMediaPlayer, tens aqui um exemplo de utilização

https://wiki.portugal-a-programar.pt/dev_net:vb.net:wmp

[Lukas S.]

eu vou dizer o que quero!!!

Quero que quando inicio o meu projecto que se faça ouvir um som .mp3

Tem calma que aqui nimguém é teu criado pah!

[rubenvol106]

é uma forma de dizer!!! oh voçes percebem!!! 😄 :D 🙂

[rubenvol106]

Se este projecto der dinheiro eu depois deixo 2% dos lucros para o Portal!!! eh eh

[Caça]

Se este projecto der dinheiro eu depois deixo 2% dos lucros para o Portal!!! eh eh

Isso é que era de valor 🙂

[rubenvol106]

Olha quem sabe!!!

Eu precisava e de ajuda.. esta quase pronto!!!