Dim gzBuffer As Byte() = System.Text.ASCIIEncoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UnicodeEncoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UTF32Encoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UTF7Encoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UTF8Encoding.GetBytes(compressedText)

Excepción del tipo 'System.OverflowException' en Host Uploader.exe
La operación aritmética ha provocado un desbordamiento.

Dim gzBuffer As Byte() = Convert.FromBase64String(compressedText)

Excepción del tipo 'System.FormatException' en Host Uploader.exe
Carácter no válido en una cadena Base-64.

Saludos, Sancho.Mazorka   

zip.Read(buffer, 0, buffer.Length)

El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

    Private Function UnZip(ByVal compressedText As String) As String
        Dim gzBuffer As Byte() = System.Text.Encoding.ASCII.GetBytes(compressedText) 'Convert.FromBase64String(compressedText)
        Using ms As New MemoryStream()
            Dim msgLength As Integer = BitConverter.ToInt32(gzBuffer, 0)
            ms.Write(gzBuffer, 4, gzBuffer.Length - 4)
            Dim buffer As Byte() = New Byte(msgLength - 1) {}
            ms.Position = 0
 
            Using zip As New GZipStream(ms, CompressionMode.Decompress)
                    zip.Read(buffer, 0, buffer.Length)
            End Using
 
            Return System.Text.Encoding.UTF8.GetString(buffer)
        End Using
    End Function

    Private Function DecompressFile(ByVal CompressedFilename As String, ByVal DecompressedFilename As String) As Boolean
        Try
            Dim [Stream] As FileStream = New FileStream(CompressedFilename, FileMode.Open)
            Dim [GZipStream] As GZipStream = New GZipStream([Stream], CompressionMode.Decompress)
            Dim sr As StreamReader = New StreamReader(CType([GZipStream], IO.Stream))
 
            My.Computer.FileSystem.WriteAllText(DecompressedFilename, sr.ReadToEnd(), False)
            sr.Close() : [Stream].Close()
            If File.Exists(DecompressedFilename) Then Return True
        Catch ex As IOException
            msgbox(ex.Message)
        Catch ex As Exception
            msgbox(ex.Message)
        End Try
        Return False
    End Function

Saludos, Sancho.Mazorka    

import httplib, urllib, re, string
 
conn = httplib.HTTPConnection("www.alertbucks.com")
#cod = urllib.urlencode({'username':'TU_USER','password':'TU_PASS','code':'458939','loginsubmit':'Login'})
#headers = {"Content-type": "application/x-www-form-urlencoded", "Accept": "text/plain"}
 
#conn.request("GET", "/login.php?",cod,headers)#?username=TU_USER&password=TU_PASS&code=598423&loginsubmit=Login") #"/view.php?ad=426")
 
#print cod, '\n\n\n'
conn.request("GET","/view.php?ad=553")
 
 
#params = urllib.urlencode({'': 1, 'eggs': 2, 'bacon': 0})
#headers = {"Content-type": "application/x-www-form-urlencoded", "Accept": "text/plain"}
#conn = httplib.HTTPConnection("musi-cal.mojam.com:80")
#conn.request("POST", "/cgi-bin/query", params, headers)
 
 
response = conn.getresponse()
#print response.status, response.reason
 
data = response.read()
conn.close()
 
#print data
 
#m = re.search('(?<=")\10+', data)
#print m.group(1)
 
#print '\n-----------------------------------------\n'
 
pattern = re.compile (';')
 
m= pattern.split(data)
print m
#print string.split(m[3].strip(),'"')[1]
#print string.split(m[4].strip(),'"')[1]
#for i in m:
#    print i,'\n'
 
#'success.php?ad=%d&code=%d&verify=1' % (ads, code)
 

import urllib,urllib2
 
aut_h = urllib2.HTTPBasicAuthHandler()  
aut_h.add_password('TU_USER')  
 
opener = urllib2.build_opener(aut_h)
urllib2.install_opener(opener)
 
#params = urllib.urlencode({'username':'TU_USER','password':'TU_PASS','code':'722443','loginsubmit':'Login'})
 
f = urllib.urlopen("http://www.alertbucks.com/login.php?%s" % params)
print f.read()
f.close()
 

Saludos, Sancho.Mazorka   

			trace("On Complete Data");
		}";
		this.__file.postData = "message=" + this.__description + "&password=" + this.__password + "&trafficurl=" + this.__trafficExchange + "&toemail=" + this.__recipientEmail + "&fromemail=" + this.__yourEmail + "&multiemail=" + this.__multiple + "&user=" + data.user;
		/* LA SIGUIENTE LINEA ME INTERESA */
		this.__file.upload(this.__server + "upload_done.php?UPLOAD_IDENTIFIER=" + this.__id + "&user=" + data.user + "&s=" + this.__file.size);
		this.startNonsense();
	}";
	data.updateTransferRate = "function(	n)
 

this.__id

Saludos, Sancho.Mazorka   

Dim binWriter As New BinaryWriter(File.Open("C:\Archivo.gif", FileMode.Create, FileAccess.Write), System.Text.Encoding.Default)

Dim Writer as New StreamWriter("C:\Archivo.gif", False, System.Text.Encoding.Default)

Saludos, Sancho.Mazorka   

Private Sub ws_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles ws.DataArrival
 
        Dim sBufferMensaje As String = ""
        Dim sChunk() As String
 
        Dim sJoinChunk As String = ""
        Dim lChunkBytes As Long = 0
        Dim sTemp As Char = ""
        Dim sTempJoin As String = ""
        Dim unir As New System.Text.StringBuilder
 
        Static bProcHeader As Boolean = False
        Static sMensaje As String = ""
        Static sSplitMensaje(2) As String
 
 
        ws.GetData(sBufferMensaje)
        sMensaje += sBufferMensaje
 
        sSplitMensaje = Split(sMensaje, vbCrLf & vbCrLf, 2, CompareMethod.Text)
 
        'Procesando una vez la cabecera
        If bProcHeader = False And sSplitMensaje(1) <> "" Then
            bProcHeader = True
            ProcesarHeader(sSplitMensaje(0))
            Exit Sub
        End If
 
        'Recibiendo partes del mensaje
        If tValHeader.TransEncoding = "chunked" Or tValHeader.TransEncoding = "Chunked" Then
            Do
                sChunk = Split(sSplitMensaje(1), vbCrLf, 2)
                lChunkBytes = Long.Parse(sChunk(0), Globalization.NumberStyles.AllowHexSpecifier)
 
                If sChunk(1).Length >= lChunkBytes Then
                    sJoinChunk = sJoinChunk & sChunk(1).Substring(0, CInt(lChunkBytes))
 
                    '***   Tengo que hacer esto, porque no funciona el sSplitMensaje(1).Remove(0, lChunkBytes + 4 + sChunk(0).Length)   ***
                    unir.Append(sSplitMensaje(1).ToString)
                    unir.Remove(0, lChunkBytes + 4 + sChunk(0).Length)
                    sSplitMensaje(1) = unir.ToString
                Else
                    Exit Sub
                End If
 
            Loop Until lChunkBytes = 0
 
        ElseIf tValHeader.Length <> 0 Then
            If sSplitMensaje(1).Length <> tValHeader.Length Then Exit Sub
        End If
 
        Dim binWriter As New BinaryWriter(File.Open("C:\Archivo.gif", FileMode.Create, FileAccess.Write), System.Text.Encoding.Default)
 
        If tValHeader.Length = 0 Then
            binWriter.Write(sJoinChunk)
        Else
            binWriter.Write(sSplitMensaje(1))
        End If
        binWriter.Flush()
        binWriter.Close()
 
End Sub