problems with VB.NET equivalent in C#

[Dr-Delta]

Hi
I could not solve this problem.
could someone help me?
Please tell vb.net equivalent of following:

#region using

using System;
using System.Web;
using BlogEngine.Core.Web.Controls;
using BlogEngine.Core;
using System.Net.Mail;
using System.Threading;

#endregion

/// <summary>
/// Pings all the ping services specified on the 
/// PingServices admin page and send track- and pingbacks
/// </summary>
[Extension("Pings all the ping services specified on the PingServices admin page and send track- and pingbacks", "1.3", "BlogEngine.NET")]
public class SendPings
{

  /// <summary>
  /// Hooks up an event handler to the Post.Saved event.
  /// </summary>
  static SendPings()
  {
        Post.Saved += new EventHandler<SavedEventArgs>(Post_Saved);
		Page.Saved += new EventHandler<SavedEventArgs>(Post_Saved);
  }

  /// <summary>
  /// Sends the pings in a new thread.
  /// <remarks>
  /// It opens a new thread and executes the pings from there,
  /// because it takes some time to complete.
  /// </remarks>
  /// </summary>
  private static void Post_Saved(object sender, SavedEventArgs e)
  {
		if (e.Action == SaveAction.None || e.Action == SaveAction.Delete)
			return;

        IPublishable item = (IPublishable)sender;

		if (item.IsVisibleToPublic)
		{
			Uri url = item.AbsoluteLink;
			ThreadPool.QueueUserWorkItem(delegate { Ping(item, url); });
		}
  }

  /// <summary>
  /// Executes the pings from the new thread.
  /// </summary>
  private static void Ping(IPublishable item, Uri itemUrl)
  {
		try
		{
			System.Threading.Thread.Sleep(500);

			// Ping the specified ping services.
			BlogEngine.Core.Ping.PingService.Send(itemUrl);

			// Send trackbacks and pingbacks.
			if (!BlogSettings.Instance.EnableTrackBackSend && !BlogSettings.Instance.EnablePingBackSend)
				return;

			if (item.Content.ToUpperInvariant().Contains("\"HTTP"))
				BlogEngine.Core.Ping.Manager.Send(item, itemUrl);
		}
		catch (Exception)
		{
		  // We need to catch this exception so the application doesn't get killed.
		}
  }

}

I tried using C# to VB.NET code converter which gave me this:

Imports System
Imports System.Web
Imports BlogEngine.Core.Web.Controls
Imports BlogEngine.Core
Imports System.Net.Mail
Imports System.Threading

<Extension("Pings all the ping services specified on the PingServices admin page and send track- and pingbacks", "1.3", "BlogEngine.NET")> _
Public Class SendPings
    Shared Sub New()
        AddHandler Post.Saved, AddressOf Post_Saved
        AddHandler Page.Saved, AddressOf Post_Saved
    End Sub

    Private Shared Sub Post_Saved(ByVal sender As Object, ByVal e As SavedEventArgs)
        If e.Action = SaveAction.None OrElse e.Action = SaveAction.Delete Then
            Exit Sub
        End If

        Dim item As IPublishable = DirectCast(sender, IPublishable)
        If item.IsVisibleToPublic Then
            Dim url As Uri = item.AbsoluteLink
             ThreadPool.QueueUserWorkItem(AddressOf Ping, item)
        End If
   End Sub

    Private Shared Sub Ping(ByVal item As IPublishable, ByVal itemUrl As Uri)
        Try
            System.Threading.Thread.Sleep(500)

            ' Ping the specified ping services.
            BlogEngine.Core.Ping.PingService.Send(itemUrl)

            ' Send trackbacks and pingbacks.
            If Not BlogSettings.Instance.EnableTrackBackSend AndAlso Not BlogSettings.Instance.EnablePingBackSend Then
                Exit Sub
            End If

            If item.Content.ToUpperInvariant().Contains("""HTTP") Then
                BlogEngine.Core.Ping.Manager.Send(item, itemUrl)
            End If
        Catch generatedExceptionName As Exception
            ' We need to catch this exception so the application doesn't get killed.
        End Try
    End Sub

End Class

the error is
Method 'Private Shared Sub Ping(item As BlogEngine.Core.IPublishable, itemUrl As System.Uri)' does not have a signature compatible with delegate 'Delegate Sub WaitCallback(state As Object)'.

Which on build in visual studio 2008 gives an error.

Please help

[Atheist]

Deja vu: http://www.vbforums.com/showthread.p...highlight=ping

[David Anton]

It's a little awkward in 2008:

#Region "using"

Imports System
Imports System.Web
Imports BlogEngine.Core.Web.Controls
Imports BlogEngine.Core
Imports System.Net.Mail
Imports System.Threading

#End Region

''' <summary>
''' Pings all the ping services specified on the 
''' PingServices admin page and send track- and pingbacks
''' </summary>
<Extension("Pings all the ping services specified on the PingServices admin page and send track- and pingbacks", "1.3", "BlogEngine.NET")> _
Public Class SendPings

  ''' <summary>
  ''' Hooks up an event handler to the Post.Saved event.
  ''' </summary>
  Shared Sub New()
		AddHandler Post.Saved, AddressOf Post_Saved
		AddHandler Page.Saved, AddressOf Post_Saved
  End Sub

  ''' <summary>
  ''' Sends the pings in a new thread.
  ''' <remarks>
  ''' It opens a new thread and executes the pings from there,
  ''' because it takes some time to complete.
  ''' </remarks>
  ''' </summary>
  Private Shared Sub Post_Saved(ByVal sender As Object, ByVal e As SavedEventArgs)
		If e.Action = SaveAction.None OrElse e.Action = SaveAction.Delete Then
			Return
		End If

		Dim item As IPublishable = CType(sender, IPublishable)

		If item.IsVisibleToPublic Then
			Dim url As Uri = item.AbsoluteLink
			ThreadPool.QueueUserWorkItem(Function() AnonymousMethod1(item, url))
		End If
  End Sub
  
  Private Shared Function AnonymousMethod1(ByVal item As IPublishable, ByVal url As Uri) As Object
	  Ping(item, url)
	  Return Nothing
  End Function

  ''' <summary>
  ''' Executes the pings from the new thread.
  ''' </summary>
  Private Shared Sub Ping(ByVal item As IPublishable, ByVal itemUrl As Uri)
		Try
			System.Threading.Thread.Sleep(500)

			' Ping the specified ping services.
			BlogEngine.Core.Ping.PingService.Send(itemUrl)

			' Send trackbacks and pingbacks.
			If (Not BlogSettings.Instance.EnableTrackBackSend) AndAlso (Not BlogSettings.Instance.EnablePingBackSend) Then
				Return
			End If

			If item.Content.ToUpperInvariant().Contains("""HTTP") Then
				BlogEngine.Core.Ping.Manager.Send(item, itemUrl)
			End If
		Catch e1 As Exception
		  ' We need to catch this exception so the application doesn't get killed.
		End Try
  End Sub

End Class

In 2010 (VB10), you can just use a "Sub" lambda and avoid the wrapper 'anonymous method':

ThreadPool.QueueUserWorkItem(Sub() Ping(item, url))