vb-oboegaki blog　ＶＢ開発者の覚書

'=========================================
'漢字入力時にそのカナ入力を取得して、
'振り仮名として取得します。このルーチンは
' ( み～くんパパの仕事部屋 VB.NETサンプル)
' ( [IME]ふりがな取得クラス)
'を使用しています。
'=========================================
01.まず、「IMEComp.vb」を取得して、プロジェクトに追加します。
　　( み～くんパパの仕事部屋 VB.NETサンプル)を検索してください。
フォームには２つのＴｅｘｔＢｏｘを追加します
　SH_名称
SH_振り仮名

'-------
02.プロジェクトで以下の宣言をします。
Public Class サンプルＰＲＧ
Private WithEvents clsTextBox1Furi As IMEComp.Furigana
'-------
03.フォームのＬｏａｄルーチンに以下を追加します。
Private Sub サンプルＰＲＧ_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
clsTextBox1Furi = New IMEComp.Furigana(Me.SH_名称)
'--------
04.以下のルーチンを追加します。
Private Sub clsTextBox1Furi_Converted(ByVal sender As Object, ByVal e As IMEComp.ConvertedEventArgs) Handles clsTextBox1Furi.Converted

If sender.Equals(SH_名称) Then
If IsNarrow(e.FuriganaString) Then SH_振り仮名.Text &= e.FuriganaString
End If

End Sub

'========================================
'WindowsServerのリスタート（リブート）を行います
'24H運転のサーバーで、データのバックアップを行った後に
'リスタート処理を行います。待ち受け処理をしているＰＲＧも
'あるので、メモリをクリーンにするためにも行っています。
'========================================
'いくつか方法があるようです。
'VBスクリプトによる方法
'IISによる方法
'プログラムによる方法
'　　この中で使用するＤＬＬは、「ＳＡＫ図書館」にある
'　　sakinfo.dll を使用します
'　　『sakif110.lzh 22,247 bytes』　検索してください。
'------------------------------------
01.VBスクリプトによる方法
　　'--------
　　ＲＥＳＴＡＲＴ.ＶＢＳを手に入れます。
　　以下のアドレスからダウンロードできるようです。
　　ftp://ftp.microsoft.com/reskit/win2000/restart.vbs
　　'--------
　　RESTART.VBSを　C:\　に登録します
　　（パスが通ればどこでもよいみたいです）
　　バッチファイルを作成します。
　　（ＲＥＳＴＡＲＴ.ＶＢＳと同じ場所に）
　　'-----
　　cscript c:\restart.vbs /S サーバー名 /R
　　'-----
　　このバッチファイルをタスクに設定して、動作を確認。
　　'======================
　　'注意点
　　'======================
　　WindowsServer2003,2008等は、何かプログラムが起動していると
　　このスクリプトが動作しないようです。
　　
'-------------------------------------
02.ＩＩＳによる方法（ＩＩＳが起動している必要があります）
'-------------------------------------
　　この方法は試していません。
　　> iisreset /reboot
　　これで、リブートするようです。
'-------------------------------------
03.プログラムによる方法
'-------------------------------------
　　以下の宣言をしておきます。
Public Declare Function ExitWin Lib "sakinfo.dll" (ByVal mode As Long, ByVal errmsg As String) As Long
'** ExitWindowsEx 定数
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const EWX_POWEROFF = 8
'------------------------------
'次の関数を定義して、コールすればリブートします。
'------------------------------
Sub ReBoot_Win()
Dim errmsg As String

'** 準備
errmsg = Space(300)

'** Windows リブート
If ExitWin(EWX_REBOOT, errmsg) = 0 Then
errmsg = Left(errmsg, InStrRev(errmsg, Chr(0)) - 1)
MsgBox("ExitWin エラー" & Chr(10) & Chr(10) & errmsg)
End If

'** 終了
End

End Sub