2002年05月01日 水

ず〜っと忙しくて更新できなかったけど、本だけは買っていたので・・・。

買った。

名探偵コナン 37巻 青山剛昌

しゃにむにGO! 11巻 羅川真里茂

東京クレイジーパラダイス 19巻 仲村佳樹

18巻買った。時の作家が藤崎真緒になってた(汗)

クレヨンしんちゃん 32巻 臼井儀人

グイン・サーガ 84巻 劫火 栗本薫

ビジュアルセレクション 名探偵コナン 時計仕掛けの摩天楼 上下巻

ビジュアルセレクション 名探偵コナン 14番目の標的(ターゲット) 上下巻

ビジュアルセレクション 名探偵コナン 世紀末の魔術師 上下巻

ビジュアルセレクション 名探偵コナン 瞳の中の暗殺者 上下巻

ビジュアルセレクション 名探偵コナン 天国へのカウントダウン 上下巻

風の大陸 第二十二部 告発 竹河聖

Rubyアプリケーションプログラミング 前田修吾・まつもとゆきひろ・やまだあきら・永井秀利 共著

シネマの帝国 1巻 赤石路代

ちょびっツ 5巻 CLAMP

探偵レボリューション 4巻 森本里菜

う〜ん。こーやって並べてみるとたくさん買ってるんだなぁ。。。

VB.NET。

.NETな開発環境ってIDE無くてよいなら、無料で手に入るんだね。 ここを読んでる人たちはとーぜん知ってるだろうけど、一応 ダウンロード先 を示しておこう。

・・・ってことで・・・。

VB.NET Tips。

Tipsと呼べないほどのことだけど、まぁ、まだ情報も少ないだろうから書いておくことに意味があるかな。。。

コンピュータ名＆ユーザ名の取得方法。

Option Explicit
Option Strict

Imports System
Imports System.Windows.Forms

Public Module modMain
  Sub Main()
    Dim compname As String = SystemInformation.ComputerName
    Dim username As String = SystemInformation.UserName
    Console.WriteLine("ComputerName is " & compname)
    Console.WriteLine("UserName is " & username)
  End Sub
End Module

んで、コンパイルするときは

>vbc /target:exe /debug+ /reference:System.dll,System.Windows.Forms.dll /out:.\sample1.exe sample1.vb

コンパイルするときに、/referenceの後ろに書くアセンブリ名はカンマで区切るらしいんだけど、 そのとき、カンマとアセンブリ名の間をスペースであけるとコンパイルに失敗するみたい。 最初はめちゃめちゃ悩んだので気をつけよう。

System.Net.Dns.GetHostByNameのサンプル

ホスト名より、IPAddressを取得するサンプル。 ついでに、コマンドライン引数の取得の仕方もわかるようになってたりする。

Option Explicit
Option Strict

Imports System
Imports System.Net

Public Module modMain

  Public Sub Main(args As String())
    Dim i As Integer

    If args.Length = 0 Then
      '引数がないときは自分のホスト
      OutputIPAddressList(Dns.GetHostName)
    Else
      For i = 0 To args.Length - 1
        OutputIPAddressList(args(i))
      Next i
    End If
  End Sub

  Private Sub OutputIPAddressList(ByVal HostName As String)
    Dim i As Integer
    Dim HostEntry As IPHostEntry = Dns.GetHostByName(HostName)
    Dim IPs As IPAddress() = HostEntry.AddressList

    Console.WriteLine("HostName: " & HostName)
    For i = 0 To IPs.Length - 1
      Console.WriteLine("IPAddress(" & i.ToString & "): " & IPs(i).ToString)
    Next i
  End Sub

End Module

このページにリンクを張りたい人はご自由にどうぞ。
疑問・感想・要望・不満・文句・愚痴等々ありましたら↓までメール下さいましm(_ _)m