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

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

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

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

4、想要調(diào)用其他一些系統(tǒng)功能該怎么辦呢？此時，Windows提供的Rundll32.exe可大顯身手了。下面我們來認(rèn)識一下這些用法，也許會給您帶來一點驚喜。1要打開設(shè)置系統(tǒng)時間的控制面板文件（Timedate.cpl)只需運行如下代碼：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，新建一個窗體，Name為Server，在窗體中加入一個winsock控件，Name設(shè)為sckSe

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

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