開機后只運行VB編寫程序的辦法

發(fā)布時間:2024-01-10
用vb編寫個監(jiān)控程序,想一直運行,不允許退出,防止操作人員玩系統(tǒng)自帶的游戲
1、程序中窗口屬性borderstyle設(shè)為none,沒有最小化和關(guān)閉按鈕。退出程序需輸入正確密碼(軟鍵盤)。
2、在注冊表(regedit)“hkey_local_machine\software\microsoft\windows\currentversion\run”下新建一個字符串,其值設(shè)置為自動執(zhí)行程序名,將它的數(shù)據(jù)設(shè)成程序所在目錄,即可將該程序設(shè)置自動執(zhí)行。
3、隱藏任務(wù)欄
'聲明
public declare function setwindowpos lib user32 (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byval cy as long, byval wflags as long) as long
public declare function findwindow lib user32 alias findwindowa (byval lpclassname as string, byval lpwindowname as string) as long
public const swp_showwindow = &h40
public const swp_hidewindow = &h80
public const swp_noactivate = &h10
'程序開始禁止任務(wù)欄,退出時顯示任務(wù)欄
hide = findwindow(shell_traywnd, vbnullstring) '禁止任務(wù)欄
call setwindowpos(hide, 0, 0, 0, 0, 0, swp_hidewindow)
hide = findwindow(shell_traywnd, vbnullstring) '顯示任務(wù)欄
call setwindowpos(hide, 0, 0, 0, 0, 0, swp_showwindow)
以上只限于沒有鍵盤的情況下,有鍵盤很難禁止其它程序運行。
上一個:電機馬達的可持續(xù)性發(fā)展如何實現(xiàn)?
下一個:房地產(chǎn)登記中,土地的使用年期是怎樣確定的?

sony筆記本開機啟動項按什么鍵(sony筆記本u盤啟動項)
城市電力網(wǎng)變電容載比規(guī)定有哪些?
apple macbook pro尺寸(macbookpro尺寸大小)
三國名將排行榜前20名(三國名將前10名)
元器件采購攻略:如何應(yīng)對元器件質(zhì)量問題?
國內(nèi)領(lǐng)先(德國kubler溫度控制器為您的工業(yè)生產(chǎn)保駕護航)
aoc電視能投屏嗎(aoc投屏設(shè)置在哪)
怎樣用鮮花來美化餐桌
手機能代替u盤重裝系統(tǒng)嗎(手機可以代替u盤做系統(tǒng)么)
惠普筆記本系統(tǒng)重裝為什么啟動不了(惠普重裝系統(tǒng)啟動不了)
十八禁 网站在线观看免费视频_2020av天堂网_一 级 黄 色 片免费网站_绝顶高潮合集Videos