Dim filePath As String = "C:\Compress\MoveControl.zip"
 Dim sendspaceclient As New Sendspace.SendspaceClient("YourApiKey")
 Dim ssService As New Sendspace.SendspaceService(sendspaceclient)
 ' De manera Sincronica
 'Dim result As Sendspace.SendspaceResponse = ssService.UploadFile(filePath)
 ' De manera Asincronica
 Dim result As Sendspace.SendspaceResponse = Await ssService.UploadFileAsync(filePath)
  MessageBox.Show(result.ToString())

Status.......: ok
File ID......: u9km31
File Name....: MoveControl.zip
Download Url.: https://www.sendspace.com/file/u9km31
Delete Url...: https://www.sendspace.com/delete/u9km31/5bb0402796182faa626e3aa7593137c7

tcpServer = new TcpListener(IPAddress.Any, Int32.Parse(tbPortNumber.Text));

curl_setopt($curl, CURLOPT_USERAGENT, 'Googlebot/2.1 (+http://www.google.com/bot.html)');
//curl_setopt($curl, CURLOPT_USERAGENT, 'Tu userAgent');

WallpaperStyle = 0
TileWallpaper = 0

// create a new ProxySocket
ProxySocket s = new ProxySocket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
// set the proxy settings
s.ProxyEndPoint = new IPEndPoint(IPAddress.Parse("10.0.0.5"), 1080);
s.ProxyUser = "username";
s.ProxyPass = "password";
s.ProxyType = ProxyTypes.Socks5;    // if you set this to ProxyTypes.None, 
                                    // the ProxySocket will act as a normal Socket
// connect to the remote server
// (note that the proxy server will resolve the domain name for us)
s.Connect("www.mentalis.org", 80);
// send an HTTP request
s.Send(Encoding.ASCII.GetBytes("GET / HTTP/1.0\r\nHost: www.mentalis.org\r\n\r\n"));
// read the HTTP reply
int recv = 0;
byte [] buffer = new byte[1024];
recv = s.Receive(buffer);
while (recv > 0) {
    Console.Write(Encoding.ASCII.GetString(buffer, 0, recv));
    recv = s.Receive(buffer);
}
// wait until the user presses enter
Console.WriteLine("Press enter to continue...");
Console.ReadLine();

[+] Reparado: problemas con botones.
[+] Reparado: Error en el Generador del log.
[+] Actualizado: Nuevos Atajos del Teclado.
[+] Agregado: Opcion de guardado de los archivos Abiertos y recuperalos al volver a iniciar la aplicación.
[+] Mejoras: Código interno.

[+] Reparado el error al crear un nuevo Fichero.
[+] Reparado un error en las Opciones para compilar.
[+] Actualizado el Diseño de la Interfaz(iconos..xD)

Importar "Cramel.cml" 
API RegOpenKeyEx(hKey:Entero,lpSubKey:Cadena,ulOptions,samDesired:Entero,Referencia phkResult:Entero):Entero, "Advapi32.dll" "RegOpenKeyExA"
API RegQueryValueEx(hKey:Entero,lpValueName:Cadena,lpReserved:Entero,Referencia lpType:Entero,Referencia lpData:Cadena,Referencia lpcbData:Entero):Entero, "Advapi32.dll" "RegQueryValueExA"
API RegCloseKey(hKey:Entero):Entero, "Advapi32.dll"
'=> Obtiene Nombre del Sistema Operativo
'=> Retorna Cadena
Proc SistemaOperativo():Cadena 
Var SubKey, ValueName, CadenaFinal:Cadena
Var Result,ret,Data,Tipo,resData:Entero
Result = &80000002 'HKLM
SubKey = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
ValueName =  "ProductName"
ret = RegOpenKeyEx(Result, SubKey, 0, &20019, Result)
Si ret<> &0 Entonces Devolver "Desconocido"
ret = RegQueryValueEx(Result, ValueName, 0, 0, CadenaFinal, Data)  
CadenaFinal = RepCarac(0, Data)
ret = RegQueryValueEx(Result, ValueName, 0,  0, CadenaFinal, Data)  
Devolver CadenaFinal
RegCloseKey(Result)
FinProc

Mensaje(SistemaOperativo())

ACTUALIZACION #2
[+] Añadido: Teclas de Acceso Rápido.
[+] Reparado: Error en log de Compilación.
[+] Actualización: Modificaciones Internas.

ACTUALIZACION #1
[+] Reparado el error al crear un nuevo Fichero.
[+] Reparado un error en las Opciones para compilar.
[+] Actualizado el Diseño de la Interfaz(iconos..xD)

    using (WebClient client = new WebClient()) {
        client.Proxy = new WebProxy("ip_proxy", port); 
        client.Proxy.Credentials = new NetworkCredential("user", "pass");
   MessageBox.Show(client.DownloadString("https://underc0de.org/foro"));
    }

Imports System.Net.NetworkInformation
Imports System.Text
Imports WifiHelper
Imports WifiHelper.Types

Dim sb As New StringBuilder()
	For Each ni As NetworkInterface In Wifi.GetWlanInterfaces()
		sb.AppendLine("Name........: " & ni.name)
		sb.AppendLine("Description.: " & ni.Description)
		sb.AppendLine("Guid........: " & ni.Id)
		sb.AppendLine("+++++++++++++++++++++++++++++++++++++++++++++")
		sb.AppendLine()
	Next
    Messagebox.Show(sb.ToString())

Name........: Wi-Fi 2
Description.: 802.11n USB Wireless LAN Card
Guid........: {59FB677D-E975-4AD8-B420-0A51F490FFE7}
+++++++++++++++++++++++++++++++++++++++++++++

Name........: Wi-Fi
Description.: Ralink RT5390R 802.11bgn Wi-Fi Adapter
Guid........: {FDDB1266-7176-45CD-AC21-E56737E036A4}
+++++++++++++++++++++++++++++++++++++++++++++

Dim ni As NetworkInterface = Wifi.GetInterfaceFrom("Ralink RT5390R 802.11bgn Wi-Fi Adapter")

' Obtener Los Profiles disponibles
Dim profiles As IEnumerable(Of WlanProfileInfo) = Wifi.GetProfiles(nic).ToList()
If Not IsNothing(profiles) Then
	'Obtener el Número de profiles disponibles
	Messagebox.Show(profiles.Count())

	' Obtener los Nombres de los SSID Disponibles
	For Each b as WlanProfileInfo in profiles
		MessageBox.Show(b.profileName)
	Next
End If

' Obtener Información de un Profile
Dim res As WifiProfile = Wifi.GetProfileData("Claro", nic)
Dim sb As new StringBuilder()
sb.AppendLine("SSID.......: "  & res.SsidName)
sb.AppendLine("Password..: "  & res.Password)
Messagebox.Show(sb.ToString())

Messagebox.Show(res.ToString())

Name...................: Claro
SSID...................: Claro
Connection Type........: ESS
Connection Mode........: auto
Authentication.........: WPA2PSK
Encryption.............: AES
Key Type...............: passPhrase
Is Protect?............: False
Password...............: 0987654321