' Microsoft SQL Server Integration Services Script Task
' Write scripts using Microsoft Visual Basic
' The ScriptMain class is the entry point of the Script Task.
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Net
Imports System.IO


Public Class ScriptMain
' The execution engine calls this method when the task executes.
' To access the object model, use the Dts object. Connections, variables, 
events,
' and logging features are available as static members of the Dts class.
' Before returning from this method, set the value of Dts.TaskResult to 
indicate success or failure.
'
' To open Code and Text Editor Help, press F1.
' To open Object Browser, press Ctrl+Alt+J.
Public Sub Main()
'
' Add your code here
'
Dim ch As Integer
Dim req As HttpWebRequest
Dim myProxy As New WebProxy
Dim newUri As New Uri("http://myproxy:8080")
Dim resp As HttpWebResponse
Dim istream As Stream
Dim varHttp, strUrl As String
strUrl = "http://" & CType(Dts.Variables("in_url").Value, String)
req = CType(WebRequest.Create(strUrl), HttpWebRequest)
myProxy.Address = newUri
myProxy.Credentials = New NetworkCredential("user", "password")
req.Proxy = myProxy
resp = CType(req.GetResponse(), HttpWebResponse)
istream = resp.GetResponseStream()
varHttp = ""
Do While True
ch = istream.ReadByte()
If ch = - 1  Then Exit Do
varHttp = varHttp & Microsoft.VisualBasic.Chr(ch)
Loop
resp.Close()
Dts.Variables("http").Value = varHttp
Dts.Variables("url").Value = strUrl
Dts.TaskResult = Dts.Results.Success
End Sub
End Class