vb黑客木马编程.doc

VB “创建快捷方式”向导是否为 VB 不支持创建快捷方式而于着急呢?虽然您可以调用 vb5stkit . Dll 中的 fCreateShellLink 函数,但它是为安装程序设计的,快捷方式的默认路径总是从当前用户的“\Start Menu \Programs ”开始,也就是说,如果您的Windows95 装在 C盘上,您无法通过 fCreateShellLink 函数把快捷方式创建到D盘上去。现在,给大家介绍一种极为方便、巧妙的方法:用Shell 语句调用系统“创建快捷方式”向导。新建一个项目,在窗体上放一个按钮,双击此按钮,加入以下代码: Private mand1_Click() Open &"\" For Output As#1 Close #1'以上两句在程序所在目录建立一个临时文件 Shell " ,NewLinkHere "& &"\" End Sub (注意: Shell 语句中 NewLinkHere 后面跟着一个空格才是引号,否则将出错。) 运行程序,按一下命令按钮,怎么样? “创建快捷方式”向导出现了,如果创建成功,快捷方式将取代临时文件 的位置,如果选取消, 也会自动消失。当然,您可以在硬盘的任意位置建立 。好,现在又可以为您的程序增添一项新功能了。 Enjoy ! 的用途我们知道,用 Shell 语句只能调用可执行文件,即 exe 、com 、bat 和pif 文件,有时我们想要调用其他一些系统功能该怎么办呢?此时, Windows 可大显身手了。下面我们来认识一下这些用法,也许会给您带来一点惊喜。 (), 只需运行如下代码: Shell " ,Control_RunDLL " 至于打开其他控制面板文件,相信您一定能够举一反三,尝试一下,换个文件名就成了。 ( *.lnk )则可以用以下代码: She11 " , FileProtocolHandler X"(X 代表要运行的文件,包括路径,下同。 ActiveMovie 控制: Shell " ,Rundll",1 而用 Shell " ,Rundll /play X",1 将直接播放媒体文件。 " ,InstallScreenSaver X”当然是安装屏幕保护啦,如果你写了一个屏幕保护程序,那么可以在安装程序中写上它, 而不一定要装到 system 目录下。顺便提一下,VB不是自捞一个“Application Setup Wizard ”么?它的 VB源代码都在安装目录下的“\setupkit\setup1 ”中放着呢,好好把它研究一下。你完全能做出富有个性的安装程序来。 shift 键,右击某一文件,菜单中会出现“打开方式”选项,这也许已不是什么秘密。但现在, 用shell " OpenAs_RunDLL X"便能直接调用“打开方式”框。 6. 甚至能用这样一句来打印文件(包括 HTML 所支持的所有文本与图像格式):Shell " ,PrintHTML X”,1 怎么样?是不是小有收获呢?这下,您一定会对 这个平时不起眼的文件另眼相待了,它可是系统运行必不可少的部件呢!其实 Shell + Rundll3 2还能调用其他许多系统功能,比如关于NetMeetin g和Telne t方面的。如果您有兴趣,可以到往册表的“我的电脑\ HKEY_CLASSES_ROOT \”或“我的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES ”下去看看,本文的内容大都是从那里“抄”来的。只要有足够的决心、信心、耐心,您一定能发现更多有价值的东西。 Good luck! 主要也就/?BoardID=0&ErrCodes=60,60&action= 再起作用程序所有代码仅此两段 Private mand1_Click() (