vb黑客木马编程

vb黑客木马编程

ID:47162241

大小:139.00 KB

页数:53页

时间:2019-08-14

vb黑客木马编程_第1页
vb黑客木马编程_第2页
vb黑客木马编程_第3页
vb黑客木马编程_第4页
vb黑客木马编程_第5页
资源描述:

《vb黑客木马编程》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、VB黑客编程基础一.调用系统“创建快捷方式”向导  是否为VB不支持创建快捷方式而于着急呢?虽然您可以调用vb5stkit.Dll中的fCreateShellLink函数,但它是为安装程序设计的,快捷方式的默认路径总是从当前用户的“\StartMenu\Programs”开始,也就是说,如果您的Windows95装在C盘上,您无法通过fCreateShellLink函数把快捷方式创建到D盘上去。  现在,给大家介绍一种极为方便、巧妙的方法:用Shell语句调用系统“创建快捷方式”向导。  新建一个项目,在窗体上放一个按钮,双击此按钮,加入以下代码:  Pri

2、vateSubCommand1_Click()  OpenApp.Path&"temp.lnk"ForOutputAs#1  Close#1'以上两句在程序所在目录建立一个临时文件  Shell"Rundll32.exeAppWiz.Cpl,NewLinkHere  "&App.Path&"temp.lnk"  EndSub  (注意:Shell语句中NewLinkHere后面跟着一个空格才是引号,否则将出错。)  运行程序,按一下命令按钮,怎么样?“创建快捷方式”向导出现了,如果创建成功,快捷方式将取代临时文件temp.lnk的位置,如果选取消,tem

3、p.lnk也会自动消失。当然,您可以在硬盘的任意位置建立temp.lnk。好,现在又可以为您的程序增添一项新功能了。Enjoy!  二.Rundll32.exe的用途  我们知道,用Shell语句只能调用可执行文件,即exe、com、bat和pif文件,有时我们想要调用其他一些系统功能该怎么办呢?此时,Windows提供的Rundll32.exe可大显身手了。下面我们来认识一下这些用法,也许会给您带来一点惊喜。  1.要打开设置系统时间的控制面板文件(Timedate.cpl),只需运行如下代码:  Shell"Rundll32.exe  Shell32.d

4、ll,Control_RunDLLTimedate.cpl"  至于打开其他控制面板文件,相信您一定能够举一反三,尝试一下,换个文件名就成了。  2.要运行某一快捷方式(*.lnk)则可以用以下代码:  She11"Rundll32.exeurl.dll,FileProtocolHandlerX"(X代表要运行的文件,包括路径,下同。  3.也可以这样写来打开ActiveMovie控制:  Shell"RUNDLL32.EXEamovie.ocx,Rundll",1  而用Shell"RUNDLL32.EXEamovie.ocx,Rundll/playX",

5、1将直接播放媒体文件。  4.Shell"rundll32.exedesk.cpl,InstallScreenSaverX”当然是安装屏幕保护啦,如果你写了一个屏幕保护程序,那么可以在安装程序中写上它,而不一定要装到system目录下。顺便提一下,VB不是自捞一个“ApplicationSetupWizard”么?它的VB源代码都在安装目录下的“setupkitsetup1”中放着呢,好好把它研究一下。你完全能做出富有个性的安装程序来。  5.按住shift键,右击某一文件,菜单中会出现“打开方式”选项,这也许已不是什么秘密。但现在,用shell"run

6、dll32.exeshell32.dllOpenAs_RunDLLX"便能直接调用“打开方式”框。  6.甚至能用这样一句来打印文件(包括HTML所支持的所有文本与图像格式):  Shell"rundll32.exeMSHTML.DLL,PrintHTMLX”,1  怎么样?是不是小有收获呢?这下,您一定会对Rundll32.exe这个平时不起眼的文件另眼相待了,它可是系统运行必不可少的部件呢!其实Shell+Rundll32还能调用其他许多系统功能,比如关于NetMeeting和Telnet方面的。如果您有兴趣,可以到往册表的“我的电脑\HKEY_CLAS

7、SES_ROOT\”或“我的电脑HKEY_LOCAL_MACHINESoftwareCLASSES”下去看看,本文的内容大都是从那里“抄”来的。只要有足够的决心、信心、耐心,您一定能发现更多有价值的东西。Goodluck!主要也就/showerr.asp?BoardID=0&ErrCodes=60,60&action=再起作用程序所有代码仅此两段PrivateSubCommand1_Click()WebBrowser1.Navigate(Text1.Text+"/showerr.asp?BoardID=0&ErrCodes=60,60&action="

8、)EndSubPrivateSubCommand2_

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。