VB on Lin's Blog

VB.NET で MD5 ハッシュを計算する方法（System.Security.Cryptography）

Tue, 26 Jul 2011 12:17:23 +0000

最近パスワード生成ツールを作っていて、MD5 の計算が必要になりました。PHP では md5() を呼ぶだけで MD5 ハッシュが得られますが、VB では実際に MD5 を使ったことがありませんでした。.NET に MD5 の機能がなければ自分で実装しなければならないのではと心配でしたが……Orz。MSDN で調べたところ、ちゃんと用意されていました。少し手間取りましたが、MSDN に getMD5hash という関数があったので、そのまま使わせてもらうことにしました。

.NET プログラムから Windows の環境変数（システム変数）を取得する方法 - VB.NET の例

Fri, 11 Feb 2011 09:55:35 +0000

CMD を使ったことがある人なら、環境変数というものを知っているでしょう。環境変数を使うと、ユーザー名のように、コンピューターごとに異なる情報を手軽に取得できます。CMD で環境変数を使うのはとても簡単で、%環境変数名% という形式で書くだけです。しかし .NET プログラムでは、それほど簡単ではありません。Environ 関数を使う必要があります。

DNS Firewall - 指定したサイトへのアクセスを制限し、DNS の対応先をすばやく変更

Fri, 21 Jan 2011 11:46:20 +0000

DNS Firewall は、ある Web 運営者が最近作成したプログラムです。主な機能は、特定の Web サイトへのアクセスを禁止することです。たとえば、家に子どもがいて、アダルトサイトや Facebook を見せたくない場合は、その 2 つのサイトの URL をプログラムに入力します。すると、このパソコンからそのサイトに接続できなくなります！ DNS Firewall の仕組みは実はとても単純です。Windows に標準で入っている hosts ファイルを書き換え、禁止したサイトの DNS の対応先を 127.0.0.1、つまり自分のパソコンに向けるのです。そのため、ブラウザからそのサイトに届かなくなります xD

【VB】【C++】n!（階乗）の計算

Wed, 05 Jan 2011 05:58:10 +0000

n の階乗を計算するのは、とても簡単なことです。このプログラムを書いたのは、順列・組み合わせのためでした。答えがおよそどれくらいの数になるのかを知りたかったので、階乗の値を求める n! の関数を書きました。階乗とは 123…..n のことです。順列では、並べるものが5つあれば、結果は最大でも 5432*1 の値、つまり最大120通りの答えになります。

以下では n! を Function として作成しました。VB 版と C++ 版があります。ループを学び始めたばかりの人は、この関数でループの使い方を練習できます。また、integer では値が収まらないかもしれないと心配したため、戻り値は string で返すようにしました。この Function を使うときは、戻り値を先に数値型に変換する必要があります。

【VB】文字列を1文字ずつ分割する（Mid + For ループ）

Tue, 28 Dec 2010 20:01:36 +0000

実は、この記事で扱う「文字列を1文字ずつ分割する」処理はとても簡単ですが、ACM の問題ではよく必要になります。たとえば順列・組み合わせの問題では、計算の前に文字列を文字に分割しなければなりません。シーザー暗号にも同じ処理が使われます。以下では VB.NET で例を示しますが、ほかのプログラミング言語でも同じことができ、原理は同じです。

【VB.Net】フォルダ内の特定形式のファイルパスを取得して ArrayList に格納する（少し修正すれば他の .NET 言語でも使えます）

Sun, 07 Nov 2010 15:45:56 +0000

前回、新バージョンの Desktop Locker のエンターテインメント機能を作っていたときに、Resources フォルダ内の音楽ファイルをすべて自動で取得する必要がありました。そこで以下のコードを考えました。フォルダ内の特定の形式のファイルパスを取得して ArrayList に格納するものです。たとえば music フォルダ内のすべての mp3 ファイルを取得したい場合に、このコードを使えます。

Yahoo! Messenger をプログラムから操作する方法（ステータス変更・ログイン・ログアウトなど）（VB の例）

Sun, 07 Nov 2010 14:39:23 +0000

一昨日、クラスの友達が面白半分に、Yahoo! Messenger のステータスを変えるいたずらプログラムを送り合い始めました。それがきっかけで、このステータスいたずらプログラムの発展版を作ってみようというひらめきを得ました。Yahoo! Messenger のステータスを変更するプログラムを作るのは、実はそれほど難しくありません。Yahoo が Messenger を簡単に設定できる COM コンポーネントを提供しているからです。この COM は YahooMessengerLib と呼ばれ、私の知る限り、Yahoo! Messenger に対して次の操作ができます：ステータスの変更、現在のステータスの取得、Yahoo! Messenger へのログインまたはログアウト。それでは、YahooMessengerLib という COM コンポーネントの使い方を紹介しましょう～

キーボードのスキャンコード対応表（私の自作ではありません）

Sun, 12 Jul 2009 23:34:46 +0000

ここで、一枚の図を共有します。

postmessage でキーボードのシミュレーションをしている場合に使うことになります。

これはインターネット上で見つけたものです。

VB の Ctrl+F5 によるコンパイル

Sat, 04 Jul 2009 12:58:47 +0000

みなさんに良いものをシェアします〜

今後は VB のコンパイルに Ctrl+F5 のショートカットを使うのがおすすめです。

コンパイルされたファイルが小さくなるからです。

また、Ctrl+F5 でプログラムをコンパイルすると、

コンパイルされたプログラムは、プロジェクトフォルダー内の binRelease フォルダーに配置されます。

VB - Redim で配列の要素数を再設定する

Thu, 02 Jul 2009 10:25:30 +0000

VB を勉強したことがある人なら、Dim 構文はきっとご存じですよね。

Dim は変数（配列）を宣言し、プログラムのためにメモリ上の領域を確保するようコンピューターに伝える文です。

しかし、配列にいくつのデータが入るのか分からないこともあります。

そのような場合に最初から非常に大きな値を指定するのは無駄です。

今回紹介する Redim は、配列の要素数を後から再設定できる文です。

ソースコード共有 - HOT SCRIPTS

Sat, 02 May 2009 03:42:00 +0000

プログラムを書いているとき、参考になるソースコードを探すことはよくありますよね。
ここで紹介するのは、世界最大のソースコード共有サイトだと言われているサイトです。
最大というわけではないと思いますが、トップ 2 には間違いなく入っています :)
URL：http://www.hotscripts.com/

このサイトを開くと、まずカテゴリーのページが表示されます。
カテゴリーはプログラミング言語ごとに分かれています。
主なものは PHP、CGI、ASP、Perl、Java Scripts
.AJAX、C & C++、Ruby On Rails（RoR）、Python など、それぞれのソースコードです。
使いたい言語を選んで、ゆっくり探すことができます。
または、右上の検索機能を使うこともできます。
ただし、中国語では入力しないでください。
外国のサイトなので、中国語のプログラムはあまり多くないからです。
特定のカテゴリーに絞って検索することもできますし、
すべてを対象に検索する（All……と書かれたもの）こともできます。
検索ボックスのドロップダウンメニューから選ぶだけです。

お目当てのプログラムが見つかったら、簡単に説明を確認することができます。

ダウンロードしたい場合は、ウィンドウの Download ボタンをクリックするだけです。

また、注意が必要な点もあります。有料のプログラムがあることです。
通常、（Sponsor）のマークが付いているものは有料です。
このサイトにはアカウント登録機能もあります。
ただ、私が利用したときは、アカウント登録は必要ありませんでした。

海外のサイトが苦手な方は
英語が読めない方は
中国語のサイト「藍色小舖（Blueshop）」でもソースファイルを探せます。
http://www.blueshop.com.tw/download/default.asp

【VB.NET】rename でファイル名を変更する

Thu, 23 Apr 2009 10:12:00 +0000

今日は、VB 本体が提供している方法を使ってファイル名を変更する方法をご紹介します。

構文は次のとおりです：

Filesystem.rename(a,b)

a は入力ファイル、つまり名前を変更する対象のファイルです。

b は出力されるファイル名です。

注意してください。a と b の両方のパラメーターは、必ずフルパスで指定する必要があります。

たとえば、c:123.txt というファイルを 456.txt に名前変更したい場合は、次のように入力します：

Filesystem.rename("c:123"."c:456.txt")

ご注意ください！私の二つのパラメーターはどちらも拡張子を含み、さらにドライブ名とフォルダー名も含んでいます。

もし b パラメーターにフルネームを指定しなかった場合、名前変更後のファイルはプログラムのルートディレクトリーに移動されてしまいます。

みなさん、わかっていただけましたか？

この構文は 2008 と 2005 で使えました。VB6 では試したことがないので、わかりません。

VB で関数を書く方法（重大な誤りの修正）

Sun, 19 Apr 2009 07:17:00 +0000

今日は、自分で関数を書く方法を説明します。

まず、関数の文法を知っておく必要があります。また、自作の関数はプログラムの最下部に置かなければなりません。

文法:
Function 関数名(Byval 引数 As 引数の型,Byval 引数 As 引数の型)
関数名=実行する内容
End Function

簡単に説明します。関数名は自由に決めてかまいません。関数名をダブルクォーテーションで囲む必要もありません。

引数はあってもなくてもかまいません。関数の性質によります。値を受け取る必要がある関数の場合は、引数を設定しなければなりません。

VB のフォーム表示と終了の構文

Fri, 17 Apr 2009 12:40:00 +0000

VB でフォームを切り替えたい場合は、show() 構文を使えます。
構文は次のとおりです。
フォーム名.show()
「フォーム名」の部分には、切り替えたいフォームの名前を入れます。
たとえば、form2 というフォームに切り替えたい場合は、
form2.show() と入力すれば OK です。

また、新しいフォームを開いたあとに古いフォームを閉じたい場合の構文は次のとおりです。
フォーム名.close()
自分自身を閉じる場合は me.close() ' 自分を閉じるという意味
この構文は、ほかのフォームを閉じるのにも使えます。
ただし、閉じるフォームは自分のプログラムに属している必要があります（当たり前ですが）

[VB] Replace 関数で文字列を置換する

Fri, 17 Apr 2009 12:19:00 +0000

VB で文字列の一部を別の内容に置き換えたい場合は、Replace 関数を使えます。

構文は次のとおりです。

文字列名.replace(A,B)

「文字列名」の部分には、文字列を格納している変数の名前を書きます。

たとえば、S1 に 123456 を格納しておきます。

その場合は S1.replace(A,B) と入力します。

SetWindowPos でウィンドウを常に最前面に表示する

Sat, 14 Feb 2009 15:04:00 +0000

まず、プログラムに Timer コンポーネントを追加します。

タイマー（名前は timer1）を有効にします。

Interval を 100 に設定します。

次に、以下のコードを入力します（そのまま貼り付けて、既存のコードを上書きしてください）。

Option Strict Off
Option Explicit On
Public Class Form1
Inherits System.Windows.Forms.Form
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Dim IntR As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Top = 0
Me.Left = 0
Me.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
IntR = SetWindowPos(Me.Handle.ToInt32, -1, 0, 0, 0, 0, 3)
End Sub
End Class

VB でキーボード操作をシミュレートする

Wed, 26 Nov 2008 10:12:00 +0000

キーボードは、コンピューターを使ううえで今も非常に重要な入力デバイスです。マウスが主流の今日でも、多くのプログラムはキーボードなしでは操作できません。しかし、繰り返しの多い面倒なキー操作は人を疲れさせるため、キー入力をプログラムに代わりに行わせるという発想が生まれました。これにより多くの手間を省けます。按鍵精靈（キーボードマクロツール）がまさにそのようなソフトウェアです。では、VB を使って按鍵精靈に似た機能のプログラムを書くにはどうすればよいのでしょうか。まずは、Windows がキーボードイベントに反応する仕組みを理解しましょう。