Release [Open Source] .Net MediaFire Executer - Esegui le applicazioni direttamente in memoria !

[Garu]

Vista l'incredibile mole di release inutili dalle quali mi ritrovato periodicamente la cartella download letteralmente invasa ho creato grazie zio google un' applicazione che dato un url di mediafire lo risolve in un collegamento diretto (regex <3 ) e tramite un webclient legge il contenuto del file online e lo avvia direttamente nella ram, senza scaricare o salvare nulla sull'harddisk.

Screen (GameBooster Theme!)

Download:

Perfavore, Entra oppure Registrati per vedere i Link!

Source (Non ho fatto molto caso alla pulizia - ottimizzazione per via del poco tempo):

Spoiler

Imports System.Text.RegularExpressions

Public Class Form1
Private Function GetDirectLink(ByVal Url As String) As String
Try
Dim str As String = New System.Net.WebClient().DownloadString(Url)
Dim ret As String = Regex.Match(str, "(?<=kNO = " & Chr(34) & ").*?(?=" & Chr(34) & ")").Value
If Not String.IsNullOrEmpty(ret) Then Return (ret) Else Return String.Empty
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Function
Private Sub Avvia(ByVal Url As String)
If IsValidUrl(Url) Then
DownloadExecute(GetDirectLink(Url))
Else
MsgBox("Url immesso non valido")
End If


End Sub

Private Sub GameBoosterSideButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GameBoosterSideButton1.Click
Avvia(GameBoosterTextBoxRound1.Text)
End Sub


Private Sub GameBoosterButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GameBoosterButton1.Click
Me.Close()
End Sub
Private Function IsValidUrl(ByVal Url As String) As Boolean
If Not Url = Nothing Then


If Url.Contains("http://www.mediafire.com/") = True And Url.Length > 25 Then
Return True
Else
Return False
End If
Else
Return False


End If
End Function


End Class

Imports System.NetImports System.Threading
Imports System.Reflection


Module Executer
Public Sub DownloadExecute(ByVal url As String)
Try
Dim c As New WebClient
Execute(c.DownloadData(url))
Catch ex As Exception
MsgBox(ex.Message)
My.Computer.Clipboard.SetText(ex.Message)
End Try

End Sub
Public Sub Execute(ByVal bytes As Byte())
Dim t As New Thread(AddressOf DoExecute)
t.TrySetApartmentState(ApartmentState.STA)


t.Start(bytes)
End Sub
Public Sub DoExecute(ByVal d As Byte())
Try
If d(&H3C) = &H80 Then
Dim asm As Assembly = Assembly.Load(d)
Dim entryPoint As MethodInfo = asm.EntryPoint
Dim o As Object() = Nothing
If entryPoint.GetParameters().Length > 0 Then
o = New Object() {New String() {"1"}}
End If
entryPoint.Invoke(Nothing, o)


' Application.Exit()
Else
MsgBox("Not a .net application!")
End If


Catch Ex2 As IO.FileNotFoundException


MsgBox("Errore durante il caricamento")
Catch ex As Exception


MsgBox(ex.Message)


End Try
End Sub
End Module

 

[Rapinder]

Riferimento: [Open Source] .Net MediaFire Executer - Esegui le applicazioni direttamente i

Come al solito bella release, molto utile per chi scarica molto da internet(tutti). ;)

 

[System32]

Riferimento: [Open Source] .Net MediaFire Executer - Esegui le applicazioni direttamente i

Interessante...l'unica pecca però è se l'utente stacca la connessione...

Comunque good work Garu ;)

NB: Per tutti i link viene visualizzato questo messaggio : Il server ha commesso una violazione del protocollo.. Section=ResponseStatusLine

 

[Garu]

Riferimento: [Open Source] .Net MediaFire Executer - Esegui le applicazioni direttamente i

Interessante...l'unica pecca però è se l'utente stacca la connessione...

Comunque good work Garu ;)

NB: Per tutti i link viene visualizzato questo messaggio : Il server ha commesso una violazione del protocollo.. Section=ResponseStatusLine

Quell'eccezione è strana, mi è capitata solo una volta, quindi non ho avuto il tempo di analizzarla, comunque sembro non essere l'unico ad avere questo tipo di problemi, vedrò di cercare una soluzione... molto strano.