vb.net屏蔽任務(wù)欄 怎么屏蔽任務(wù)欄

vb中隱藏任務(wù)欄的語句是什么

VB6.0需要使用Windows Api函數(shù)實現(xiàn)隱藏和顯示任務(wù)欄。

創(chuàng)新互聯(lián)服務(wù)電話：18982081108，為您提供成都網(wǎng)站建設(shè)網(wǎng)頁設(shè)計及定制高端網(wǎng)站建設(shè)服務(wù)，創(chuàng)新互聯(lián)網(wǎng)頁制作領(lǐng)域十多年，包括電動窗簾等多個方面擁有多年的營銷推廣經(jīng)驗，選擇創(chuàng)新互聯(lián)，為企業(yè)保駕護(hù)航。

FindWindow函數(shù)檢索句柄到頂層窗口的類名和窗口名稱匹配指定的字符串。此功能不搜索子窗口。該功能不執(zhí)行區(qū)分大小寫的搜索。

IsWindowVisible函數(shù)檢索指定窗口的可見性狀態(tài)。

ShowWindow函數(shù)設(shè)置指定窗口的顯示狀態(tài)。

實現(xiàn)代碼：

Option?Explicit

Private?Declare?Function?FindWindow?Lib?"user32"?Alias?"FindWindowA"?(ByVal?lpClassName?As?String,?ByVal?lpWindowName?As?String)?As?Long

Private?Declare?Function?IsWindowVisible?Lib?"user32"?(ByVal?hwnd?As?Long)?As?Long

Private?Declare?Function?ShowWindow?Lib?"user32"?(ByVal?hwnd?As?Long,?ByVal?nCmdShow?As?Long)?As?Long

Private?Sub?Command1_Click()

Dim?hwnd?As?Long

hwnd?=?FindWindow("Shell_TrayWnd",?"")?'取任務(wù)欄窗口句柄

If?IsWindowVisible(hwnd)??0?Then?????'如果任務(wù)欄是可視狀態(tài)

ShowWindow?hwnd,?0?????????????????????'隱藏任務(wù)欄

Else???????????????????????????????????

ShowWindow?hwnd,?1?????????????????????'顯示任務(wù)欄

End?If

End?Sub

效果：

VB調(diào)用其它程序，如何隱藏任務(wù)欄，只顯示內(nèi)容

樓上的全屏顯示其實沒有用處，因為按一下Esc鍵就退出全屏了，然后就可以編輯了。

你的要求超出VB的能力，我給你支個招，事先把你想要展示的Word文檔、Excel表格、PDF文檔、CAD圖轉(zhuǎn)換成圖片，然后就簡單了，在VB中顯示圖片有很多方法。

轉(zhuǎn)換圖片，也有簡單方法，即采用打印驅(qū)動的方式將文檔“打印”成圖片，這樣就看不到軟件的外觀邊框菜單這些。安裝Microsoft Office時會同時安裝Microsoft Office Document Image Writer，這個就是Office帶的虛擬打印機(jī)。打印時選擇這個虛擬打印機(jī)，輸入一個文件名保存即可。保存的圖片格式是tif。

VB.net里面的工具欄怎么能自動隱藏？

工具欄 一般都有自動隱藏，在工具欄的左或者右上方 有個圖標(biāo)可以選擇隱藏的，我用的VS2010 反正在那里有設(shè)置的！

vb.net中如何禁止從任務(wù)欄關(guān)閉window

綁定窗體的FormClosing事件，執(zhí)行e.Cancel = True即可。

如果你不想在任務(wù)欄上顯示窗體，把窗體的ShowOnTaskbar設(shè)為False。

vb 啟動后隱藏 ，并且不再任務(wù)欄顯示

1.添加一個模塊.名字就用默認(rèn)的吧.再復(fù)制代碼到模塊中.

Option Explicit

Dim rtn As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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 Const SWP_HIDEWINDOW = H80

Public Const SWP_SHOWWINDOW = H40

2.回到form中,添加兩個按鈕,名字為"隱藏任務(wù)欄"、"顯示任務(wù)欄"

3.下面用到代碼了，看好了，要對號入座的。

首先是load

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

其次是顯示任務(wù)欄的

rtn = FindWindow("Shell_traywnd", "")

Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

最后是隱藏任務(wù)欄的

rtn = FindWindow("Shell_traywnd", "")

Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

好了，編程完成！看能否運行

成功！

如果要編成惡意程序的話，只要將隱藏任務(wù)欄的命令復(fù)制到load中，再將整個程序的visible，showintaskbar設(shè)為false就行了,最后再加入unload me 讓它運行完后自動結(jié)束?？次也僮?！

本文標(biāo)題：vb.net屏蔽任務(wù)欄 怎么屏蔽任務(wù)欄
標(biāo)題URL：http://www.muchs.cn/article32/hjeipc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供自適應(yīng)網(wǎng)站、企業(yè)建站、搜索引擎優(yōu)化、商城網(wǎng)站、網(wǎng)站排名、品牌網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)