vb黑客木馬編程(精選大全)

1、VB黑客編程基礎(chǔ)一.調(diào)用系統(tǒng)“創(chuàng)建快捷方式”向?qū)欠駷閂B不支持創(chuàng)建快捷方式而于著急呢？雖然您可以調(diào)用vb5stkitDll中的fCreateShellLink函數(shù)，但它是為安裝程序設(shè)計(jì)的，快捷方式的默認(rèn)路徑總是從當(dāng)前用戶的“＼StartMenu＼Programs”開(kāi)始，也就是說(shuō)，如果您的Windows95裝在C盤(pán)上，您無(wú)法通過(guò)fCreateShellLink函數(shù)把快捷方式創(chuàng)建到D盤(pán)上去?，F(xiàn)在，給大家介紹一種極為方便、巧妙的方法：用Sh

2、ell語(yǔ)句調(diào)用系統(tǒng)“創(chuàng)建快捷方式”向?qū)АＰ陆ㄒ粋€(gè)項(xiàng)目，在窗體上放一個(gè)按鈕，雙擊此按鈕，加入以下代碼：PrivateSubComm1_Click()OpenApp.Path＆“temp.lnk“FOutputAs#1Close#1以上兩句在程序所在目錄建立一個(gè)臨時(shí)文件Shell“Rundll32.exeAppWiz.Cpl，NewLinkHere“＆App.Path＆“temp.lnk“EndSub（注意：Shell語(yǔ)句中NewLinkH

3、ere后面跟著一個(gè)空格才是引號(hào)，否則將出錯(cuò)。）運(yùn)行程序，按一下命令按鈕，怎么樣？“創(chuàng)建快捷方式”向?qū)С霈F(xiàn)了，如果創(chuàng)建成功，快捷方式將取代臨時(shí)文件temp.lnk的位置，如果選取消，temp.lnk也會(huì)自動(dòng)消失。當(dāng)然，您可以在硬盤(pán)的任意位置建立temp.lnk。好，現(xiàn)在又可以為您的程序增添一項(xiàng)新功能了。Enjoy！二.Rundll32.exe的用途我們知道，用Shell語(yǔ)句只能調(diào)用可執(zhí)行文件，即exe、com、bat和pif文件，有時(shí)我們

4、想要調(diào)用其他一些系統(tǒng)功能該怎么辦呢？此時(shí)，Windows提供的Rundll32.exe可大顯身手了。下面我們來(lái)認(rèn)識(shí)一下這些用法，也許會(huì)給您帶來(lái)一點(diǎn)驚喜。1要打開(kāi)設(shè)置系統(tǒng)時(shí)間的控制面板文件（Timedate.cpl)只需運(yùn)行如下代碼：Shell“Rundll32.exeShell32.dllControl_RunDLLTimedate.cpl“主要也就showerr.aspBoardID=0&ErrCodes=6060&action=再起

5、作用程序所有代碼僅此兩段PrivateSubComm1_Click()WebBrowser1.Navigate(Text1.Text“showerr.aspBoardID=0&ErrCodes=6060&action=“)EndSubPrivateSubComm2_Click()EndEndSub程序下載.首先，新建一工程，名為Server，新建一個(gè)窗體，Name為Server，在窗體中加入一個(gè)winsock控件，Name設(shè)為sckSe

6、rver，協(xié)議設(shè)為默認(rèn)的TCP／IP協(xié)議。接下來(lái)我們回來(lái)Server窗體模塊中，添加如下代碼：PrivateSubfm_Load()WithMe.sckServer.LocalPt=88917本地端口（呵呵！我的生日！）.sckServer.Listen開(kāi)始監(jiān)聽(tīng)EndWithEndSub接受客戶端的連接請(qǐng)求。PrivateSubsckServer_ConnectionRequest(ByValrequestIDAsLong)WithMe

7、If.sckServer.StatesckClosedThen.sckServer.Close.sckServer.Accept(requestID)EndWithEndSub下面我們來(lái)建立客戶端程序：新建一個(gè)工程，名為Client，把窗體名為Client，在上面加入一個(gè)winsock控件，名為sckClient，協(xié)議為T(mén)CP／IP協(xié)議。再加一個(gè)按鈕cmdConnect在窗體模塊中加入代碼：PrivateSubfm_Load()With