パソコンを自分の作ったプログラム専用機にしたい

質問

パソコンを自分の作ったVBプログラム以外操作できないようにしたいのです。

プログラムを起動した後は

デスクトップにあるアイコンを消す。
スタートメニューを使用不可にする。
右クリックを出来ないようにする。

これを解除するためにはフォームになんらかの（パスワード等）操作をする事を考えています。

APIを使用して実現したいと考えているのですが教えていただける方又参考になるwebページをお願いします。

回答No.2

sha-girl · ベストアンサー

VBのみでは無理です。(絶対無理とは言い切れませんけど・・・)
VC++だとctrl+alt+del を押したことを
windowsに伝えないようにすることができます。
またこの場合VC++でVBのプログラムを制御するプログラムが
必要になります。
スタートメニューを使用不可にするというか、デスクトップ画面自体を
自分の領域で覆う必要があります。

補足

ctrl+alt+del については押されても困らないということを前提にしても　VBのみでは苦しいでしょうか？

回答No.5

todo36

Windows2000では、グループポリシーで設定できるらしい.

↓の『W2Kを特定のアプリケーション専用機にする方法？』(2002/10/27)以下参照

参考URL：

news://msnews.microsoft.com/microsoft.public.jp.win2000

お礼

windows98で考えていますが情報としてありがたく頂きます。

回答No.4

TAGOSAKU7

よーく調べると、先ほどのサンプルは９５系マシン用で、NT系では動かないかもしれません。

参考文献はCだけど。。。
載せておきます

参考URL：

http://members.tripod.com/~masapico/doc_DisableSAS.html

回答No.3

TAGOSAKU7

Private Declare Function SystemParametersInfo Lib "user32" Alias _
　　"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
　　lpvParam As Any, ByVal fuWinIni As Long) As Long

Const SPI_SCREENSAVERRUNNING = 97

Private Sub Command1_Click()
'無効にする
　　Dim ret As Integer
　　Dim pOld As Boolean
　　ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)

End Sub

Private Sub Command2_Click()
'もとにもどす
　　Dim ret As Integer
　　Dim pOld As Boolean
　　ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub

「CTRL+ALT+DEL」の制御はVBでもできるみたいでした。。。

後は「窓の手」を導入
http://www.asahi-net.or.jp/~VR4M-IKW/

参考URL：

http://www.asahi-net.or.jp/~VR4M-IKW/

補足

win98 95で試したのですが変化がないのですが
このプログラムはどのような動作をするのでしょう？

ctrl+alt+del については押されても困らないです。

回答No.1

TAGOSAKU7

ctrl+alt+del
でアプリを強制終了されたらそれまでだと思うのですが、それに対しての対処は無理だと思います。

それは運用でカバーするなら、WIN2000を導入して、「窓の手」というソフトを導入するだけで解決するかも？