├── Desktop File Uploader.v12.suo ├── Desktop File Uploader ├── hlth.ico ├── bin │ └── Debug │ │ ├── Desktop File Uploader.pdb │ │ ├── Desktop File Uploader.vshost.exe │ │ ├── Desktop File Uploader.exe.config │ │ ├── Desktop File Uploader.vshost.exe.config │ │ └── Desktop File Uploader.xml ├── obj │ └── Debug │ │ ├── Desktop File Uploader.pdb │ │ ├── Desktop_File_Uploader.Form1.resources │ │ ├── DesignTimeResolveAssemblyReferences.cache │ │ ├── Desktop_File_Uploader.Resources.resources │ │ ├── TempPE │ │ └── My Project.Resources.Designer.vb.dll │ │ ├── DesignTimeResolveAssemblyReferencesInput.cache │ │ ├── Desktop File Uploader.vbproj.GenerateResource.Cache │ │ ├── Desktop File Uploader.xml │ │ └── Desktop File Uploader.vbproj.FileListAbsolute.txt ├── App.config ├── My Project │ ├── Settings.settings │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Application.Designer.vb │ ├── Resources.Designer.vb │ ├── Settings.Designer.vb │ └── Resources.resx ├── FIleInfo.vb ├── Desktop File Uploader.vbproj ├── Form1.vb └── Form1.Designer.vb ├── README.md └── Desktop File Uploader.sln /Desktop File Uploader.v12.suo: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader.v12.suo -------------------------------------------------------------------------------- /Desktop File Uploader/hlth.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/hlth.ico -------------------------------------------------------------------------------- /Desktop File Uploader/bin/Debug/Desktop File Uploader.pdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/bin/Debug/Desktop File Uploader.pdb -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/Desktop File Uploader.pdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/obj/Debug/Desktop File Uploader.pdb -------------------------------------------------------------------------------- /Desktop File Uploader/bin/Debug/Desktop File Uploader.vshost.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/bin/Debug/Desktop File Uploader.vshost.exe -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/Desktop_File_Uploader.Form1.resources: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/obj/Debug/Desktop_File_Uploader.Form1.resources -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/DesignTimeResolveAssemblyReferences.cache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/obj/Debug/DesignTimeResolveAssemblyReferences.cache -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/Desktop_File_Uploader.Resources.resources: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/obj/Debug/Desktop_File_Uploader.Resources.resources -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache -------------------------------------------------------------------------------- /Desktop File Uploader/App.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/Desktop File Uploader.vbproj.GenerateResource.Cache: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/X-SLAYER/FIleUploader-From-Desktop/master/Desktop File Uploader/obj/Debug/Desktop File Uploader.vbproj.GenerateResource.Cache -------------------------------------------------------------------------------- /Desktop File Uploader/bin/Debug/Desktop File Uploader.exe.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /Desktop File Uploader/bin/Debug/Desktop File Uploader.vshost.exe.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # FIleUploader-From-Desktop 2 | Upload your files anonymously and free From Desktop Just By Drag & Drop one Or Multiple File (Folder To The Software) 3 | Right Click and Copy The FIles URL After Uploading 4 | 5 | 6 | ![alt text](https://i.imgur.com/Y6CvsxZ.png) 7 | -------------------------------------------------------------------------------- /Desktop File Uploader/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Desktop File Uploader/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 | 2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /Desktop File Uploader/FIleInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System.Text.RegularExpressions 2 | 3 | Public Class FIleInfo 4 | 5 | Private fullLink As String 6 | Private shortLink As String 7 | 8 | 9 | Public Sub SetInfo(ByVal _from As String) 10 | On Error Resume Next 11 | Me.fullLink = Regex.Match(_from, """full"":""(.*?)"",").Groups(1).Value 12 | Me.shortLink = Regex.Match(_from, ",""short"":""(.*?)""},").Groups(1).Value 13 | End Sub 14 | 15 | 16 | Public Sub GetClipboard(ByVal who As String) 17 | On Error Resume Next 18 | If who.ToLower() = "short" Then 19 | Clipboard.SetText(Me.shortLink, TextDataFormat.Text) 20 | Else 21 | Clipboard.SetText(Me.fullLink, TextDataFormat.Text) 22 | End If 23 | End Sub 24 | 25 | End Class 26 | -------------------------------------------------------------------------------- /Desktop File Uploader/bin/Debug/Desktop File Uploader.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | DesktopFileUploader 6 | 7 | 8 | 9 | 10 | 11 | Returns the cached ResourceManager instance used by this class. 12 | 13 | 14 | 15 | Overrides the current thread's CurrentUICulture property for all 16 | resource lookups using this strongly typed resource class. 17 | 18 | 19 | 20 | A strongly-typed resource class, for looking up localized strings, etc. 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/Desktop File Uploader.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | DesktopFileUploader 6 | 7 | 8 | 9 | 10 | 11 | Returns the cached ResourceManager instance used by this class. 12 | 13 | 14 | 15 | Overrides the current thread's CurrentUICulture property for all 16 | resource lookups using this strongly typed resource class. 17 | 18 | 19 | 20 | A strongly-typed resource class, for looking up localized strings, etc. 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /Desktop File Uploader.sln: -------------------------------------------------------------------------------- 1 | 2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 2013 4 | VisualStudioVersion = 12.0.21005.1 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Desktop File Uploader", "Desktop File Uploader\Desktop File Uploader.vbproj", "{14CF24E4-7F18-4FF2-9DC8-E1EA7290A15A}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {14CF24E4-7F18-4FF2-9DC8-E1EA7290A15A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {14CF24E4-7F18-4FF2-9DC8-E1EA7290A15A}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {14CF24E4-7F18-4FF2-9DC8-E1EA7290A15A}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {14CF24E4-7F18-4FF2-9DC8-E1EA7290A15A}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | EndGlobal 23 | -------------------------------------------------------------------------------- /Desktop File Uploader/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /Desktop File Uploader/obj/Debug/Desktop File Uploader.vbproj.FileListAbsolute.txt: -------------------------------------------------------------------------------- 1 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\bin\Debug\Desktop File Uploader.exe.config 2 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\bin\Debug\Desktop File Uploader.exe 3 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\bin\Debug\Desktop File Uploader.pdb 4 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\bin\Debug\Desktop File Uploader.xml 5 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\obj\Debug\Desktop_File_Uploader.Form1.resources 6 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\obj\Debug\Desktop_File_Uploader.Resources.resources 7 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\obj\Debug\Desktop File Uploader.vbproj.GenerateResource.Cache 8 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\obj\Debug\Desktop File Uploader.exe 9 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\obj\Debug\Desktop File Uploader.xml 10 | c:\users\x-slayer\documents\visual studio 2013\Projects\Desktop File Uploader\Desktop File Uploader\obj\Debug\Desktop File Uploader.pdb 11 | -------------------------------------------------------------------------------- /Desktop File Uploader/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.Desktop_File_Uploader.Form1 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /Desktop File Uploader/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My.Resources 16 | 17 | 'This class was auto-generated by the StronglyTypedResourceBuilder 18 | 'class via a tool like ResGen or Visual Studio. 19 | 'To add or remove a member, edit your .ResX file then rerun ResGen 20 | 'with the /str option, or rebuild your VS project. 21 | ''' 22 | ''' A strongly-typed resource class, for looking up localized strings, etc. 23 | ''' 24 | _ 28 | Friend Module Resources 29 | 30 | Private resourceMan As Global.System.Resources.ResourceManager 31 | 32 | Private resourceCulture As Global.System.Globalization.CultureInfo 33 | 34 | ''' 35 | ''' Returns the cached ResourceManager instance used by this class. 36 | ''' 37 | _ 38 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 39 | Get 40 | If Object.ReferenceEquals(resourceMan, Nothing) Then 41 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Desktop_File_Uploader.Resources", GetType(Resources).Assembly) 42 | resourceMan = temp 43 | End If 44 | Return resourceMan 45 | End Get 46 | End Property 47 | 48 | ''' 49 | ''' Overrides the current thread's CurrentUICulture property for all 50 | ''' resource lookups using this strongly typed resource class. 51 | ''' 52 | _ 53 | Friend Property Culture() As Global.System.Globalization.CultureInfo 54 | Get 55 | Return resourceCulture 56 | End Get 57 | Set(ByVal value As Global.System.Globalization.CultureInfo) 58 | resourceCulture = value 59 | End Set 60 | End Property 61 | End Module 62 | End Namespace 63 | -------------------------------------------------------------------------------- /Desktop File Uploader/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.Desktop_File_Uploader.My.MySettings 68 | Get 69 | Return Global.Desktop_File_Uploader.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /Desktop File Uploader/My Project/Resources.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | text/microsoft-resx 107 | 108 | 109 | 2.0 110 | 111 | 112 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 113 | 114 | 115 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | -------------------------------------------------------------------------------- /Desktop File Uploader/Desktop File Uploader.vbproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Debug 6 | AnyCPU 7 | {14CF24E4-7F18-4FF2-9DC8-E1EA7290A15A} 8 | WinExe 9 | Desktop_File_Uploader.My.MyApplication 10 | Desktop_File_Uploader 11 | Desktop File Uploader 12 | 512 13 | WindowsForms 14 | v4.5 15 | 16 | 17 | AnyCPU 18 | true 19 | full 20 | true 21 | true 22 | bin\Debug\ 23 | Desktop File Uploader.xml 24 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 25 | 26 | 27 | AnyCPU 28 | pdbonly 29 | false 30 | true 31 | true 32 | bin\Release\ 33 | Desktop File Uploader.xml 34 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 35 | 36 | 37 | On 38 | 39 | 40 | Binary 41 | 42 | 43 | Off 44 | 45 | 46 | On 47 | 48 | 49 | hlth.ico 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | Form 79 | 80 | 81 | Form1.vb 82 | Form 83 | 84 | 85 | 86 | True 87 | Application.myapp 88 | 89 | 90 | True 91 | True 92 | Resources.resx 93 | 94 | 95 | True 96 | Settings.settings 97 | True 98 | 99 | 100 | 101 | 102 | Form1.vb 103 | 104 | 105 | VbMyResourcesResXFileCodeGenerator 106 | Resources.Designer.vb 107 | My.Resources 108 | Designer 109 | 110 | 111 | 112 | 113 | MyApplicationCodeGenerator 114 | Application.Designer.vb 115 | 116 | 117 | SettingsSingleFileGenerator 118 | My 119 | Settings.Designer.vb 120 | 121 | 122 | 123 | 124 | 125 | 126 | 127 | 134 | -------------------------------------------------------------------------------- /Desktop File Uploader/Form1.vb: -------------------------------------------------------------------------------- 1 | Imports System.Net 2 | Imports System.Text 3 | Imports System.IO 4 | Imports System.Text.RegularExpressions 5 | 6 | 7 | Public Class Form1 8 | 9 | 'CODED BY X-SLAYER 10 | '03/06/2019 09:41 pm 11 | 'YOUTUBE : https://www.youtube.com/c/XSLAYERTN 12 | 'INSTAGRAM : https://www.instagram.com/ih3_b/ 13 | 'FACEBOOK : https://www.facebook.com/XSLAYER404 14 | 15 | 16 | Public MoveForm As Boolean 17 | Public MouseX, MouseY As Integer 18 | '//------------------------------------------------------- 19 | Private Items As New Dictionary(Of WebClient, ListViewItem) 20 | Private Files As New ArrayList 21 | 22 | 23 | Private Sub GetURI(ByVal Fichier As String) 24 | Try 25 | IM.Images.Add(Icon.ExtractAssociatedIcon(Fichier)) 26 | Dim NewItem As New ListViewItem 27 | NewItem.UseItemStyleForSubItems = False 28 | NewItem.Text = Path.GetFileName(Fichier) 29 | NewItem.SubItems.Add("Getting Data...").ForeColor = Color.Yellow 30 | NewItem.ImageIndex = IM.Images.Count - 1 31 | Dim Info As New FIleInfo 32 | NewItem.Tag = Info 33 | Lv1.Items.Add(NewItem) 34 | Using WC As New WebClient 35 | WC.Encoding = Encoding.UTF8 36 | AddHandler WC.DownloadStringCompleted, AddressOf COMPLETE 37 | WC.DownloadStringTaskAsync(New Uri("https://anonfile.com/")) 38 | Items.Add(WC, NewItem) 39 | Files.Add(Fichier) 40 | End Using 41 | Catch ex As Exception 42 | MsgBox(ex.Message) 43 | End Try 44 | End Sub 45 | 46 | Private Sub COMPLETE(sender As Object, e As DownloadStringCompletedEventArgs) 47 | On Error Resume Next 48 | If e.Cancelled = True Then 49 | Items(sender).SubItems(1).Text = "Cancelled..." 50 | Items(sender).SubItems(1).ForeColor = Color.Orange 51 | ElseIf e.Error IsNot Nothing Then 52 | Items(sender).SubItems(1).Text = "Error..." 53 | Items(sender).SubItems(1).ForeColor = Color.Red 54 | ElseIf e.Result IsNot Nothing Then 55 | Dim URL As String = "https://anonfile.com/api/upload" 56 | Dim token As String = Regex.Match(e.Result, " {'X-CSRF-Token': '(.*?)'}").Groups(1).Value 57 | Using WC As New WebClient 58 | 59 | WC.Headers.Add("Origin", "https://anonfile.com") 60 | WC.Headers.Add("X-CSRF-Token", token) 61 | WC.Headers.Add("X-Requested-With", "XMLHttpRequest") 62 | 63 | AddHandler WC.UploadProgressChanged, AddressOf LOADING 64 | AddHandler WC.UploadFileCompleted, AddressOf COMPLETE 65 | 66 | WC.UploadFileTaskAsync(New Uri(URL), Files(Items(sender).Index)) 67 | 68 | Dim NewItem As ListViewItem = Items(sender) 69 | Items.Remove(sender) 70 | Items.Add(WC, NewItem) 71 | 72 | End Using 73 | Else 74 | Items(sender).SubItems(1).Text = "Error..." 75 | End If 76 | End Sub 77 | 78 | Private Sub LOADING(sender As Object, e As UploadProgressChangedEventArgs) 79 | On Error Resume Next 80 | Items(sender).SubItems(1).Text = "Uploading: (" & FileSize(e.BytesSent) & "/" & FileSize(e.TotalBytesToSend) & ")..." 81 | End Sub 82 | 83 | Private Sub COMPLETE(sender As Object, e As UploadFileCompletedEventArgs) 84 | Try 85 | If e.Cancelled = True Then 86 | Items(sender).SubItems(1).Text = "Cancelled..." 87 | Items(sender).SubItems(1).ForeColor = Color.OrangeRed 88 | ElseIf e.Error IsNot Nothing Then 89 | Items(sender).SubItems(1).Text = "Error..." 90 | Items(sender).SubItems(1).ForeColor = Color.Red 91 | ElseIf e.Result IsNot Nothing Then 92 | Dim Result As String = Encoding.UTF8.GetString(e.Result) 93 | If Result.Contains("{""status"":true,") Then 94 | Items(sender).Tag.SetInfo(Result) 95 | Items(sender).SubItems(1).Text = "Done." 96 | Items(sender).SubItems(1).ForeColor = Color.Green 97 | ElseIf Result.Contains("The file is too large") Then 98 | Items(sender).SubItems(1).Text = "Max File Size = 5GB." 99 | Items(sender).SubItems(1).ForeColor = Color.DarkOrange 100 | End If 101 | End If 102 | Catch ex As Exception 103 | MsgBox("Error : " & ex.Message) 104 | End Try 105 | 106 | End Sub 107 | 108 | #Region "DRAG & DROP , FILE SIZE" 109 | 110 | 111 | 112 | Private Function FileSize(ByVal Tamanho As Double) As String 113 | Dim Tipos As String() = {"B", "KB", "MB", "GB"} 114 | Dim TamanhoDouble As Double = Tamanho 115 | Dim CSA As Integer = 0 116 | While TamanhoDouble >= 1024 AndAlso CSA + 1 < Tipos.Length 117 | CSA += 1 118 | TamanhoDouble = TamanhoDouble / 1024 119 | End While 120 | Return [String].Format("{0:0.##} {1}", TamanhoDouble, Tipos(CSA)) 121 | End Function 122 | 123 | Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop, Lv1.DragDrop 124 | For Each X In e.Data.GetData(DataFormats.FileDrop) 125 | If File.Exists(X) Then 126 | GetURI(X) 127 | ElseIf Directory.Exists(X) Then 128 | For Each O In Directory.GetFiles(X, "*.*", SearchOption.AllDirectories) 129 | GetURI(O) 130 | Next 131 | End If 132 | Next 133 | End Sub 134 | 135 | Private Sub Form1_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter, Lv1.DragEnter 136 | If e.Data.GetDataPresent(DataFormats.FileDrop) Then 137 | e.Effect = DragDropEffects.All 138 | End If 139 | End Sub 140 | 141 | #End Region 142 | 143 | Private Sub CopyFullLinkToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyFullLinkToolStripMenuItem.Click 144 | On Error Resume Next 145 | Lv1.FocusedItem.Tag.GetClipboard("FULL") 146 | End Sub 147 | 148 | Private Sub CopyShortLinkToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyShortLinkToolStripMenuItem.Click 149 | On Error Resume Next 150 | Lv1.FocusedItem.Tag.GetClipboard("SHORT") 151 | End Sub 152 | 153 | #Region "Form Moving" 154 | 155 | Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown, lb1.MouseDown, P1.MouseDown 156 | MoveForm = True 157 | MouseX = Cursor.Position.X - Me.Left 158 | MouseY = Cursor.Position.Y - Me.Top 159 | End Sub 160 | 161 | Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove, lb1.MouseMove, P1.MouseMove 162 | If MoveForm Then 163 | MoveForm = True 164 | Me.Left = Cursor.Position.X - MouseX 165 | Me.Top = Cursor.Position.Y - MouseY 166 | End If 167 | End Sub 168 | 169 | Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp, lb1.MouseUp, P1.MouseMove 170 | MoveForm = False 171 | End Sub 172 | 173 | #End Region 174 | 175 | Private Sub FileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FileToolStripMenuItem.Click 176 | Dim I As New OpenFileDialog 177 | I.Title = "Browse File" 178 | I.Filter = "All Files (*.*)|*.*" 179 | If I.ShowDialog = Windows.Forms.DialogResult.OK Then 180 | GetURI(I.FileName) 181 | End If 182 | End Sub 183 | 184 | Private Sub FolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FolderToolStripMenuItem.Click 185 | Dim I As New FolderBrowserDialog 186 | I.Description = "Browse Folder" 187 | I.ShowNewFolderButton = True 188 | If I.ShowDialog = Windows.Forms.DialogResult.OK Then 189 | For Each O In Directory.GetFiles(I.SelectedPath, "*.*", SearchOption.AllDirectories) 190 | GetURI(O) 191 | Next 192 | End If 193 | End Sub 194 | 195 | Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click 196 | End 197 | End Sub 198 | 199 | Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked 200 | MsgBox("Coded By : X-SLAYER" & vbCrLf & "Youtube : X-SLAYER", MsgBoxStyle.Information, "About Coder") 201 | End Sub 202 | 203 | Private Sub CM1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles CM1.Opening 204 | If Lv1.Items.Count = 0 Then 205 | CopyFullLinkToolStripMenuItem.Enabled = False 206 | CopyShortLinkToolStripMenuItem.Enabled = False 207 | ElseIf Lv1.FocusedItem.SubItems(1).Text.Contains("Done") Then 208 | CopyFullLinkToolStripMenuItem.Enabled = True 209 | CopyShortLinkToolStripMenuItem.Enabled = True 210 | End If 211 | 212 | End Sub 213 | End Class 214 | -------------------------------------------------------------------------------- /Desktop File Uploader/Form1.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class Form1 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) 27 | Me.Lv1 = New System.Windows.Forms.ListView() 28 | Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) 29 | Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) 30 | Me.CM1 = New System.Windows.Forms.ContextMenuStrip(Me.components) 31 | Me.BrowseFolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 32 | Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() 33 | Me.CopyFullLinkToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 34 | Me.CopyShortLinkToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 35 | Me.IM = New System.Windows.Forms.ImageList(Me.components) 36 | Me.Panel1 = New System.Windows.Forms.Panel() 37 | Me.P1 = New System.Windows.Forms.PictureBox() 38 | Me.lb1 = New System.Windows.Forms.Label() 39 | Me.FolderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 40 | Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 41 | Me.PictureBox1 = New System.Windows.Forms.PictureBox() 42 | Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() 43 | Me.CM1.SuspendLayout() 44 | Me.Panel1.SuspendLayout() 45 | CType(Me.P1, System.ComponentModel.ISupportInitialize).BeginInit() 46 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 47 | Me.SuspendLayout() 48 | ' 49 | 'Lv1 50 | ' 51 | Me.Lv1.AllowDrop = True 52 | Me.Lv1.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer)) 53 | Me.Lv1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 54 | Me.Lv1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) 55 | Me.Lv1.ContextMenuStrip = Me.CM1 56 | Me.Lv1.Dock = System.Windows.Forms.DockStyle.Bottom 57 | Me.Lv1.ForeColor = System.Drawing.Color.White 58 | Me.Lv1.FullRowSelect = True 59 | Me.Lv1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None 60 | Me.Lv1.LargeImageList = Me.IM 61 | Me.Lv1.Location = New System.Drawing.Point(0, 54) 62 | Me.Lv1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) 63 | Me.Lv1.Name = "Lv1" 64 | Me.Lv1.Size = New System.Drawing.Size(379, 442) 65 | Me.Lv1.SmallImageList = Me.IM 66 | Me.Lv1.TabIndex = 1 67 | Me.Lv1.UseCompatibleStateImageBehavior = False 68 | Me.Lv1.View = System.Windows.Forms.View.Details 69 | ' 70 | 'ColumnHeader1 71 | ' 72 | Me.ColumnHeader1.Text = "File" 73 | Me.ColumnHeader1.Width = 161 74 | ' 75 | 'ColumnHeader2 76 | ' 77 | Me.ColumnHeader2.Text = "Status" 78 | Me.ColumnHeader2.Width = 212 79 | ' 80 | 'CM1 81 | ' 82 | Me.CM1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BrowseFolderToolStripMenuItem, Me.ToolStripSeparator1, Me.CopyFullLinkToolStripMenuItem, Me.CopyShortLinkToolStripMenuItem}) 83 | Me.CM1.Name = "CM1" 84 | Me.CM1.Size = New System.Drawing.Size(159, 76) 85 | ' 86 | 'BrowseFolderToolStripMenuItem 87 | ' 88 | Me.BrowseFolderToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FolderToolStripMenuItem, Me.FileToolStripMenuItem}) 89 | Me.BrowseFolderToolStripMenuItem.Image = CType(resources.GetObject("BrowseFolderToolStripMenuItem.Image"), System.Drawing.Image) 90 | Me.BrowseFolderToolStripMenuItem.Name = "BrowseFolderToolStripMenuItem" 91 | Me.BrowseFolderToolStripMenuItem.Size = New System.Drawing.Size(158, 22) 92 | Me.BrowseFolderToolStripMenuItem.Text = "Browse" 93 | ' 94 | 'ToolStripSeparator1 95 | ' 96 | Me.ToolStripSeparator1.Name = "ToolStripSeparator1" 97 | Me.ToolStripSeparator1.Size = New System.Drawing.Size(155, 6) 98 | ' 99 | 'CopyFullLinkToolStripMenuItem 100 | ' 101 | Me.CopyFullLinkToolStripMenuItem.Enabled = False 102 | Me.CopyFullLinkToolStripMenuItem.Image = CType(resources.GetObject("CopyFullLinkToolStripMenuItem.Image"), System.Drawing.Image) 103 | Me.CopyFullLinkToolStripMenuItem.Name = "CopyFullLinkToolStripMenuItem" 104 | Me.CopyFullLinkToolStripMenuItem.Size = New System.Drawing.Size(158, 22) 105 | Me.CopyFullLinkToolStripMenuItem.Text = "Copy Full Link" 106 | ' 107 | 'CopyShortLinkToolStripMenuItem 108 | ' 109 | Me.CopyShortLinkToolStripMenuItem.Enabled = False 110 | Me.CopyShortLinkToolStripMenuItem.Image = CType(resources.GetObject("CopyShortLinkToolStripMenuItem.Image"), System.Drawing.Image) 111 | Me.CopyShortLinkToolStripMenuItem.Name = "CopyShortLinkToolStripMenuItem" 112 | Me.CopyShortLinkToolStripMenuItem.Size = New System.Drawing.Size(158, 22) 113 | Me.CopyShortLinkToolStripMenuItem.Text = "Copy Short Link" 114 | ' 115 | 'IM 116 | ' 117 | Me.IM.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit 118 | Me.IM.ImageSize = New System.Drawing.Size(17, 17) 119 | Me.IM.TransparentColor = System.Drawing.Color.Transparent 120 | ' 121 | 'Panel1 122 | ' 123 | Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer)) 124 | Me.Panel1.Controls.Add(Me.PictureBox1) 125 | Me.Panel1.Controls.Add(Me.P1) 126 | Me.Panel1.Controls.Add(Me.lb1) 127 | Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top 128 | Me.Panel1.Location = New System.Drawing.Point(0, 0) 129 | Me.Panel1.Name = "Panel1" 130 | Me.Panel1.Size = New System.Drawing.Size(379, 37) 131 | Me.Panel1.TabIndex = 3 132 | ' 133 | 'P1 134 | ' 135 | Me.P1.Image = CType(resources.GetObject("P1.Image"), System.Drawing.Image) 136 | Me.P1.Location = New System.Drawing.Point(58, 5) 137 | Me.P1.Name = "P1" 138 | Me.P1.Size = New System.Drawing.Size(24, 24) 139 | Me.P1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize 140 | Me.P1.TabIndex = 1 141 | Me.P1.TabStop = False 142 | ' 143 | 'lb1 144 | ' 145 | Me.lb1.ForeColor = System.Drawing.Color.White 146 | Me.lb1.Location = New System.Drawing.Point(0, 0) 147 | Me.lb1.Name = "lb1" 148 | Me.lb1.Size = New System.Drawing.Size(376, 37) 149 | Me.lb1.TabIndex = 0 150 | Me.lb1.Text = "AnonFile Uploader Desktop | X-SLAYER" 151 | Me.lb1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter 152 | ' 153 | 'FolderToolStripMenuItem 154 | ' 155 | Me.FolderToolStripMenuItem.Image = CType(resources.GetObject("FolderToolStripMenuItem.Image"), System.Drawing.Image) 156 | Me.FolderToolStripMenuItem.Name = "FolderToolStripMenuItem" 157 | Me.FolderToolStripMenuItem.Size = New System.Drawing.Size(152, 22) 158 | Me.FolderToolStripMenuItem.Text = "Folder" 159 | ' 160 | 'FileToolStripMenuItem 161 | ' 162 | Me.FileToolStripMenuItem.Image = CType(resources.GetObject("FileToolStripMenuItem.Image"), System.Drawing.Image) 163 | Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" 164 | Me.FileToolStripMenuItem.Size = New System.Drawing.Size(152, 22) 165 | Me.FileToolStripMenuItem.Text = "File" 166 | ' 167 | 'PictureBox1 168 | ' 169 | Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand 170 | Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) 171 | Me.PictureBox1.Location = New System.Drawing.Point(363, -3) 172 | Me.PictureBox1.Name = "PictureBox1" 173 | Me.PictureBox1.Size = New System.Drawing.Size(17, 20) 174 | Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom 175 | Me.PictureBox1.TabIndex = 2 176 | Me.PictureBox1.TabStop = False 177 | ' 178 | 'LinkLabel1 179 | ' 180 | Me.LinkLabel1.AutoSize = True 181 | Me.LinkLabel1.LinkColor = System.Drawing.Color.Blue 182 | Me.LinkLabel1.Location = New System.Drawing.Point(3, 37) 183 | Me.LinkLabel1.Name = "LinkLabel1" 184 | Me.LinkLabel1.Size = New System.Drawing.Size(41, 15) 185 | Me.LinkLabel1.TabIndex = 4 186 | Me.LinkLabel1.TabStop = True 187 | Me.LinkLabel1.Text = "About" 188 | ' 189 | 'Form1 190 | ' 191 | Me.AllowDrop = True 192 | Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) 193 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 194 | Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer)) 195 | Me.ClientSize = New System.Drawing.Size(379, 496) 196 | Me.Controls.Add(Me.LinkLabel1) 197 | Me.Controls.Add(Me.Panel1) 198 | Me.Controls.Add(Me.Lv1) 199 | Me.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 200 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 201 | Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) 202 | Me.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) 203 | Me.MaximizeBox = False 204 | Me.MinimizeBox = False 205 | Me.Name = "Form1" 206 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 207 | Me.Text = "AnonFile Uploader Desktop | X-SLAYER" 208 | Me.CM1.ResumeLayout(False) 209 | Me.Panel1.ResumeLayout(False) 210 | Me.Panel1.PerformLayout() 211 | CType(Me.P1, System.ComponentModel.ISupportInitialize).EndInit() 212 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 213 | Me.ResumeLayout(False) 214 | Me.PerformLayout() 215 | 216 | End Sub 217 | Friend WithEvents Lv1 As System.Windows.Forms.ListView 218 | Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader 219 | Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader 220 | Friend WithEvents IM As System.Windows.Forms.ImageList 221 | Friend WithEvents CM1 As System.Windows.Forms.ContextMenuStrip 222 | Friend WithEvents BrowseFolderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 223 | Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator 224 | Friend WithEvents CopyFullLinkToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 225 | Friend WithEvents CopyShortLinkToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 226 | Friend WithEvents Panel1 As System.Windows.Forms.Panel 227 | Friend WithEvents lb1 As System.Windows.Forms.Label 228 | Friend WithEvents P1 As System.Windows.Forms.PictureBox 229 | Friend WithEvents FolderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 230 | Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 231 | Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox 232 | Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel 233 | 234 | End Class 235 | --------------------------------------------------------------------------------