[Win7][Win8]インターネット接続の共有のIPアドレスの設定方法

インターネット接続の共有で設定されるIPアドレスを変えようと思って調べたら
WinXP時代とはレジストリの配置が異なっているので気をつけないといけないようだ。


[XPまで]
　Hkey_Local_Machine\System\CurrentControlSet\Services\ICSharing\Settings\General

[XP以降]
　Hkey_Local_Machine\System\CurrentControlSet\services\SharedAccess\Parameters

 名前がわかりやすくなったのだけど、なかなか気づけないよこれは。

 以下引用
-----

ホストとの接続の共有ホストの DHCP サービスで使用される IP アドレスの範囲に割り当てられている IP アドレスを変更するにはレジストリ エディターを使用して、次の値を変更します。これらの値は、次のフォルダーに配置されます。
HKLM\System\CurrentControlSet\services\SharedAccess\Parameters

    (REG_SZ)ScopeAddress
    (REG_SZ)StandaloneDhcpAddress

ScopeAddress 値は接続の共有で使用するアドレスの範囲を設定します。StandaloneDhcpAddress 値は、SoftAP と仮想の Wi-Fi が有効になっているときに使用されるアドレスの範囲です。両方の値をネットワーク マスク 255.255.255.0 を使用しは構成できません。

----

参考元URL： http://support.microsoft.com/kb/230148/ja

skypeの広告を消す方法

Skypeを起動して、

　表示→コンパクトビューをクリック。

　ツール→設定→通知→アラート&メッセージ→メッセージを表示の2個のチェックボックスを外す→Skype再起動

インターネットオプションを開いて、
　セキュリティ→制限付きサイト→サイト→[https://apps.skype.com]を追加。

以下のテキストを書いたバッチファイルを作成して管理者として起動する。
　echo 127.0.0.1 cdn.adnxs.com>> C:\Windows\System32\drivers\etc\hosts
　echo 127.0.0.1 m.adnxs.com>> C:\Windows\System32\drivers\etc\hosts
　echo advertising.jp.msn.com>>  C:\Windows\System32\drivers\etc\hosts


これで画面がすっきりする。

更新
2015.04.01

エイプリルフールだけど気にしないで！

広告枠も削除する方法が乗っていたので追記。

C:\users\（ユーザー名）\AppData\Roaming\Skype\（アカウント名）\config.xml

を開いて

＜AdvertPlaceholder＞1＜/AdvertPlaceholder＞

行を削除する。

これでおｋ。

---

Control Panel -> Internet Options -> Security -> Restricted Sites -> Sites -> add g.msn.com and apps.skype.com

Also, to remove the ad placeholder, go to your 

C:\users\youruser\AppData\Roaming\Skype\yourskypeuser\config.xml

and find the line 1

＜AdvertPlaceholder＞1＜/AdvertPlaceholder＞

and remove the line completely

---

VB.NET LinqでGroupByの使い方

いつも使い方を忘れるのでメモ。 サンプルは、List型の配列、Dictionary型でGroupByする時の例。

    Public Class pmodel
        Public key As Integer = 0
        Public dat As String = ""

        Public Sub New(k As Integer, d As String)
            key = k
            dat = d
        End Sub
    End Class
    Private models As New List(Of pmodel)
    Private dic As New Dictionary(Of Integer, pmodel)


    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        models.Clear()
        models.Add(New pmodel(0, "A"))
        models.Add(New pmodel(0, "B"))
        models.Add(New pmodel(1, "C"))
        models.Add(New pmodel(2, "D"))
        models.Add(New pmodel(5, "E"))
        Dim dat1() As IGrouping(Of Integer, pmodel) = models.GroupBy(Function(zz As pmodel) zz.key).ToArray()
        For Each dat As IGrouping(Of Integer, pmodel) In dat1
            For Each d In dat
                Console.WriteLine(String.Format("key={0}, k={1}, v={2}", dat.Key, d.key, d.dat))
            Next
        Next
''' >>>key=0, k=0, v=A
''' >>>key=0, k=0, v=B
''' >>>key=1, k=1, v=C
''' >>>key=2, k=2, v=D
''' >>>key=5, k=5, v=E
''' 

        dic.Clear()
        dic(0) = New pmodel(0, "AA")
        dic(1) = New pmodel(1, "AA")
        dic(2) = New pmodel(2, "BB")
        dic(3) = New pmodel(3, "CC")
        dic(5) = New pmodel(5, "DD")

        Dim dat2() As IGrouping(Of String, pmodel) = dic.Values.GroupBy(Function(d As pmodel) d.dat).ToArray()
        For Each dat As IGrouping(Of String, pmodel) In dat2
            For Each d In dat
                Console.WriteLine(String.Format("key={0}, k={1}, v={2}", dat.Key, d.key, d.dat))
            Next
        Next

    End Sub
''' >>>key=AA, k=0, v=AA
''' >>>key=AA, k=1, v=AA
''' >>>key=BB, k=2, v=BB
''' >>>key=CC, k=3, v=CC
''' >>>key=DD, k=5, v=DD