トップ  >  サンプルソース  >  リンク切れチェック(C#/VB.NET)

リンク切れチェック(C#/VB.NET)

2010年01月05日

ブログ(WEBページ)のリンク切れをチェックするサンプル(ソース/コード)です。NonUrlCheck.dll を使っています。リンク切れは検索エンジンに嫌われる(サイトの品質管理を疑われる)ので避けたいものです。このサンプルにはFC2ブログのリンク切れページのタイトルに対応させています。

' ------------------------------------------------------
' リンク切れをチェックするサンプル(VB.NET/VS2005)
' NonUrlCheck.dllを参照設定しています。
Private Sub Button1_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

    ' リンク切れチェックするURLの指定
    NonUrlCheck.UrlCheckClass.Initialize()
    Dim dtUrl As DataTable = _
        NonUrlCheck.UrlCheckClass.InitDtUrl( _
        "http://xxx.blog111.fc2.com/", Nothing)

    ' リンク切れチェック開始
    Dim url As String = ""
    Dim idx As Integer = 0
    Do While idx < dtUrl.Rows.Count
        NonUrlCheck.UrlCheckClass.GetAllUrl(dtUrl, idx)
        If dtUrl.Rows(idx)("Sts").ToString() = "×" Or _
         dtUrl.Rows(idx)("Ttl").ToString() = _
             "404 Error - FC2ブログ" Then
            url = url & _
            dtUrl.Rows(idx)("Url").ToString() & vbCrLf
        End If
        idx += 1
    Loop

    ' リンク切れチェック終了
    NonUrlCheck.UrlCheckClass.Terminate()

    ' リンク切れ結果表示
    If url <> "" Then
        MessageBox.Show("リンク切れがありました" & _
            vbCrLf & url)
    Else
        MessageBox.Show("リンク切れはありません")
    End If
End Sub
' ------------------------------------------------------

// -----------------------------------------------------
// リンク切れをチェックするサンプル(C#.NET/VS2005)
// NonUrlCheck.dllを参照設定しています。
private void button1_Click(object sender, EventArgs e)
{
    // リンク切れチェックするURLの指定
    NonUrlCheck.UrlCheckClass.Initialize();
    DataTable dtUrl = NonUrlCheck.UrlCheckClass.InitDtUrl(
        "http://xxx.blog111.fc2.com/", null);

    // リンク切れチェック開始
    String url = "";
    int idx = 0;
    while (idx < dtUrl.Rows.Count)
    {
        NonUrlCheck.UrlCheckClass.GetAllUrl(dtUrl, ref idx);
        if( dtUrl.Rows[idx]["Sts"].ToString() == "×" ||
         dtUrl.Rows[idx]["Ttl"].ToString() ==
             "404 Error - FC2ブログ" ){
            url = url +
            dtUrl.Rows[idx]["Url"].ToString() + "\n";
        }
        idx += 1;
    }

    // リンク切れチェック終了
    NonUrlCheck.UrlCheckClass.Terminate();

    // リンク切れ結果表示
    if( url != "" )
    {
        MessageBox.Show("リンク切れがありました" +
            "\n" + url);
    }else{
        MessageBox.Show("リンク切れはありません");
    }
}
// -----------------------------------------------------
スポンサーサイト

リンク一覧取得(C#/VB.NET) | トップページへ戻る | WEBページ保存(C#/VB.NET)

このページのトップに戻る

コメント

名前
題名
メールアドレス
WEBサイト
 
コメント
パスワード
  管理者にだけ表示を許可する

このページのトップに戻る

トラックバック

このページのトップに戻る