+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: [RELEASE] URL Shortener (/Thread-RELEASE-URL-Shortener)
[RELEASE] URL Shortener - Classified - 11-11-2015
This is a small tool that i made which came in handy for me.
Code:
Imports System.Net
Public Class Form1
Private Sub Shortener_Click(sender As Object, e As EventArgs) Handles Shortener.Click
Dim Web As New WebClient
Dim Shortener As String = Web.DownloadString("http://slsh.us/api/?action=shorturl&format=simple&url=" & URLShorten.Text)
ShortenedURL.Text = Shortener
End Sub
Private Sub Copy_Click(sender As Object, e As EventArgs) Handles Copy.Click
Clipboard.SetText(ShortenedURL.Text)
End Sub
Private Sub LaunchSite_Click(sender As Object, e As EventArgs) Handles LaunchSite.Click
Process.Start(ShortenedURL.Text)
End Sub
End Class![[Image: 4ff76ad92bf99ce581aedfe5392c5f54.png]](https://i.gyazo.com/4ff76ad92bf99ce581aedfe5392c5f54.png)
Download Link/AV Scan
AV Scan-https://www.virustotal.com/en/file/143ff55f880488e7f5f0eee196e17bf511d4575dbeb59b03cf410a8090c7ee6d/analysis/1447273682/
Download Link-https://www.sendspace.com/file/pq5pn9
RE: [RELEASE] URL Shortener - Killpot - 11-11-2015
Only thing I would say is 1. Way too much white space in the program, and 2 you never really dispose of the WebClient, if you know you'll be too lazy to remember, just throw it inside a using statement.