.NET Dropbox Links Gene By SwedHack

[neo22]

[HIDE-THANKS]Imports System.Text

Imports Microsoft.VisualBasic.CompilerServices

Public Class Form1

Private Sub Ambiance_Button_21_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_21.Click

If (TextBox1.Text = "") Then

MessageBox.Show("Error !! No link Found", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand)

End If

Try

TextBox2.Text = ""

Dim text As String = TextBox1.Text

Dim builder As New StringBuilder

[text] = [text].Replace("www.dropbox.com", "dl.dropboxusercontent.com").Replace("?dl=0", "")

TextBox2.Select()

TextBox2.Text = builder.ToString

TextBox2.Text = [text]

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

Dim exception As Exception = exception1

ProjectData.ClearProjectError()

End Try

End Sub

Private Sub Ambiance_Button_22_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_22.Click

Try

Clipboard.SetText(TextBox2.Text)

MessageBox.Show(("Copy link: " & TextBox2.Text), "Copy Success !!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

Dim exception As Exception = exception1

ProjectData.ClearProjectError()

End Try

End Sub

Private Sub Ambiance_Button_23_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_23.Click

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Private Sub Ambiance_Button_24_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_24.Click

End

End Sub

End Class[/HIDE-THANKS]