日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

用VB6完成隱藏與顯示"程序"選單

用VB6完成隱藏與顯示"程序"選單

更新時間:2022-05-07 文章作者:未知 信息來源:網絡 閱讀次數:

王永耀

很多系統安全軟件如“超級兔子”、“系統優化大師”等,都有一項很酷的功能,就是能夠自由隱藏和顯示“開始”選單中“程序”各項的功能。假如在我們的程序中也能實現這樣的功能,是不是會為程序添色不少呢?其實,我們用VB可以輕松實現這樣的功能。

實現方法
其中最重要的一點就是:在Win 98中,“程序”項的顯示和隱藏可以通過改變c:WindowsStart Menuprograms(注:這里假設您的Windows安裝在c盤)文件夾下各文件或文件夾的屬性來實現。要隱藏“程序”中的項目,只要相應的文件或文件夾屬性設成“隱藏”;要顯示項目,也只要去掉相應對象的“隱藏”屬性即可。那么,怎樣控制文件的屬性呢?在VB中,API函數有很重要的作用,可以實現很多強大的功能。其中,GetFileAttributes函數可以得到文件的屬性、SetFileAttributes函數可以更改文件屬性、GetWindowsDirectory函數可以得到系統目錄,有了這三個API“法寶”坐鎮,程序實現就很容易了。當程序啟動時調用GetWindowsDirectory函數得到系統目錄的路徑,再用Dir函數在一個列表框中列出“系統目錄Start Menuprograms ”目錄下的所有文件和文件夾,并調用GetFileAttributes函數來獲得各文件和文件夾的屬性,若屬性為“隱藏”,就把相應的列表項勾選(表示此項已隱藏)。在列表框中勾選你想要隱藏的項目,接著調用SetFileAttributes函數,將勾選項相應的文件或文件夾的屬性改為“隱藏”(表示將其隱藏),去掉未勾選項相應的文件或文件夾的“隱藏”屬性。這樣,一切就搞定了。

程序代碼及講解
首先新建一個Project工程,并在Form1中建立一個列表框list1,其style屬性為:Checkbox(復選框式樣);四個命令按鈕:command1、command2、command3和command4。  

具體程序代碼如下:

'declarations部分,聲明API函數
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpfilename As String) As Long
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpfilename As String, ByVal dwFileAttributes As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nsize As Long) As Long
'聲明變量
Dim i As Integer
Dim lngpath As Long
Dim tmppath As String
Dim strpath As String
Dim strdir As String
'定義子過程1,用于顯示“程序”選單各項,并確定是否已經隱藏
Sub getfileattr()
i = 0
tmppath = Space(50)
lngpath = GetWindowsDirectory(tmppath, Len(tmppath))
strpath = Left(tmppath, lngpath) && "Start MenuPrograms"
'programs路徑
strdir = Dir(strpath, vbDirectory + vbNormal + vbHidden + vbArchive + vbReadOnly + vbSystem)
'將所有程序項目添加到列表框中
Do While strdir <> ""
If strdir <> "." And strdir <> ".." Then
List1.AddItem strdir
i = i + 1
If (GetFileAttributes(strpath && strdir) And vbHidden) Then
'得到文件或文件夾屬性,若為隱藏則勾選
List1.Selected(i - 1) = True
End If
End If
strdir = Dir
Loop
'下一個文件或路徑
End Sub
'定義子過程2
Sub setfileattr()
tmppath = Space(50)
lngpath = GetWindowsDirectory(tmppath, Len(tmppath))
strpath = Left(tmppath, lngpath) && "Start MenuPrograms"
'得到“programs”路徑
For i = 0 To (List1.ListCount - 1)
If List1.Selected(i) = True Then
'勾選則隱藏,反之則顯示
SetFileAttributes strpath + List1.List(i), vbHidden
Else
SetFileAttributes strpath + List1.List(i), vbNormal
End If
Next i
End Sub
Private Sub Command1_Click()
Call setfileattr
'調用子過程2改變文件屬性
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
For i = 0 To List1.ListCount - 1
'全選
List1.Selected(i) = True
Next i
End Sub
Private Sub Command4_Click()
For i = 0 To List1.ListCount - 1
'全否
List1.Selected(i) = False
Next i
End Sub
Private Sub Form_Load()
Form1.Caption = "隱藏和顯示程序選單"
Command1.Caption = "確定"
Command2.Caption = "退出"
Command3.Caption = "全選"
Command4.Caption = "全否"
Call getfileattr
'調用子過程1,得到文件屬性并初始化列表框各項
End Sub

按F5運行后,程序下的文件和文件夾會一個不漏地顯示在列表框里,再勾選幾個,按“確認”,打開“開始選單”的“程序”,剛才勾選的幾個不見了。再次運行程序,看看列表框里,是不是剛才勾選的現在依然勾選著呢?那就是告訴你,“程序”選單中已經隱藏了這些項。通過修改文件屬性還可以完成許多的功能,如管理“發送”(send to)、“收藏夾”(favorites)等,就看你如何靈活運用了。

以上程序在Windows 98、VB 6.0企業版下調試通過。 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 亚洲精品久久久久久久网站 | 91小视频在线 | 色婷婷亚洲十月十月色天 | 久久久久久久岛国免费观看 | 秋霞鲁丝片免费观观看 | 国产人妖xxxxx免费看 | 99精品国产自在现线观看 | 天天干天天操天天舔 | 91资源在线播放 | 中文字幕国产一区 | 日韩一区二区三区在线视频 | 在线视频你懂的国产福利 | 国产一二三在线观看 | 国产精品18久久久久久久久久 | 麻豆一区二区免费播放网站 | 天天做天天爱天天爽综合区 | 操摸| 日本乱人伦在线观看免费 | 亚洲国产日韩在线人高清不卡 | 特黄a级三级三级野战 | 精品久久一| 欧美噜噜| 扬名立万在线观看 | 性感美女视频免费网站午夜 | 2021国产三级精品三级在专区 | 国产在线精品一区二区三区不卡 | 久久国产这里只精品免费 | 欧美精品免费在线 | 99精品视频在线观看 | 免费看黄的视频网站 | 日本免费三片在线观看 | 波多野结衣手机视频一区 | 91视频大全| 成人影院一区二区三区 | 日本无卡无吗中文免费 | 欧美国产影院 | 国产三级精品美女三级 | 免费看片在线 | 国产丰满麻豆videossexhd 国产丰满眼镜女在线观看 国产夫妻久久线观看 | 经典三级四虎在线观看 | 久草中文在线观看 |