Jump to content

Upload formato mp3!


rubenvol106
 Share

Recommended Posts

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

E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Link to comment
Share on other sites

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..

Pedro Martins

Não respondo a duvidas por PM

Link to comment
Share on other sites

Hmmmm Obrigado pelo esclarecimento 😉

E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Link to comment
Share on other sites

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

E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Link to comment
Share on other sites

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!

E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.