将htmlweb委托从c#转换为vb.net

时间:2012-10-09 23:55:34

标签: c# vb.net delegates html-agility-pack

我需要将找到here的代码转换为其vb.net等价物,有人可以帮助我吗?

代码摘录

/// <summary>
/// Represents the method that will handle the PreRequest event.
/// </summary>
public delegate bool PreRequestHandler(HttpWebRequest request);


//And they call that delegate right before making the GetResponse call:
if (PreRequest != null)
{
    // allow our user to change the request at will
    if (!PreRequest(req))
    {
        return HttpStatusCode.ResetContent;
    }              
}

HttpWebResponse resp;

try
{
    resp = req.GetResponse() as HttpWebResponse;
}

//So all you have to do is assign a delegate to PreRequest and set your timeout within that delegate:

var web = new HtmlWeb();
web.PreRequest = delegate(HttpWebRequest webRequest)
{
     webRequest.Timeout = 4;
     return true;
};
var doc = web.Load("http://www.msn.com/");

2 个答案:

答案 0 :(得分:1)

''' <summary> 
''' Represents the method that will handle the PreRequest event. 
''' </summary> 
Public Delegate Function PreRequestHandler(ByVal request As HttpWebRequest) As Boolean


'And they call that delegate right before making the GetResponse call: 
If PreRequest IsNot Nothing Then
    ' allow our user to change the request at will 
    If Not PreRequest(req) Then
        Return HttpStatusCode.ResetContent
    End If
End If

Dim resp As HttpWebResponse

Try
    resp = TryCast(req.GetResponse(), HttpWebResponse)
End Try

'So all you have to do is assign a delegate to PreRequest and set your timeout within that delegate: 

Dim web = New HtmlWeb()
web.PreRequest = Function(webRequest As HttpWebRequest)
     webRequest.Timeout = 4
     Return [True]
End Function
Dim doc = web.Load("http://www.msn.com/")

答案 1 :(得分:0)

转到http://converter.telerik.com/ - 粘贴您的C#代码并获取VB代码。