【asp精品源码栏目提醒】:网学会员,鉴于大家对asp精品源码十分关注,论文会员在此为大家搜集整理了“vb黑客木马编程(精选大全)(免费)[1] - 软件工程”一文,供大家参考学习!
VB 黑客编程基础一. 调用系统“创建快捷方式”向导 是否为 VB 不支持创建快捷方式而于着急呢?虽然 您可以调用 vb5stkit.Dll 中的fCreateShellLink 函 数,但它是为安装程序
设计的,快捷方式的默认路径 总是从当前用户的“\Start Menu\Programs”开始,也 就是说,如果您的 Windows95 装在 C 盘上,您无法通过 fCreateShellLink 函数把快捷方式创建到 D 盘上去。
现在,给大家介绍一种极为方便、巧妙的方法: 用 Shell 语句调用系统“创建快捷方式”向导。
新建一个项目,在窗体上放一个按钮,双击此按 钮,加入以下代码: Private Sub Command1_Click Open App.Path & quottemp.lnkquot For Output As 1 Close 1 以上两句在程序所在目录建立一 个临时文件 Shell quotRundll32.exe AppWiz.Cpl,NewLinkHere quot& App.Path & quottemp.lnkquot End Sub (注意:Shell 语句中 NewLinkHere 后面跟着一个 空格才是引号,否则将出错。
) 运行程序,按一下命令按钮,怎么样?“创建快 捷方式”向导出现了,如果创建成功,快捷方式将取 代临时文件 temp.lnk 的位置,如果选取消,temp.lnk 也会自动消失。
当然,您可以在硬盘的任意位置建立 temp.lnk。
好,现在又可以为您的程序增添一项新功 能了。
Enjoy! 二. Rundll32.exe 的用途 我们知道,用 Shell 语句只能调用可执行文件,即 exe、com、bat 和 pif 文件,有时我们想要调用其他一 些系统功能该怎么办呢?此时,Windows 提供的 Rundll32.exe 可大显身手了。
下面我们来认识一下这 些用法,也许会给您带来一点惊喜。
1.要打开设置系统时间的控制面板文件 (Timedate.cpl只需运行如下代码: Shell quotRundll32.exe Shell32.dllControl_RunDLL Timedate.cplquot 至于打开其他控制面板文件,相信您一定能够举 一反三,尝试一下,换个文件名就成了。
2.要运行某一快捷方式(.lnk)则可以用以下 代码: She11 quotRundll32.exe url.dll FileProtocolHandler Xquot X 代表要运行的文件,包括 路径,下同。
3. 也可以这样写来打开 ActiveMovie 控制: Shell quotRUNDLL32.EXE amovie.ocx,Rundllquot1 而用 Shell quotRUNDLL32.EXE amovie.ocx,Rundll /play Xquot1 将直接播放媒体文件。
4. Shell quotrundll32.exe desk.cpl,InstallScreenSaver X”当然是安装屏幕保 护啦,如果你写了一个屏幕保护程序,那么可以在安 装程序中写上它,而不一定要装到 system 目录下。
顺 便提一下,VB 不是自捞一个“Application Setup Wizard”么?它的
VB 源代码都在安装目录下的 “setupkitsetup1”中放着呢,好好把它研究一下。
你完全能做出富有个性的安装程序来。
5.按住 shift 键,右击某一文件,菜单中会出现 “打开方式”选项,这也许已不是什么秘密。
但现在, 用 shell quotrundll32.exe shell32.dll OpenAs_RunDLL Xquot 便能直接调用“打开方式”框。
6. 甚至能用这样一句来打印文件(包括 HTML 所 支持的所有文本与图像格式: Shell quotrundll32.exe MS
HTML.DLL,PrintHTML X” 1 怎么样?是不是小有收获呢?这下,您一定会对 Rundll32.exe 这个平时不起眼的文件 它另眼相待了, 可是系统运行必不可少的部件呢! 其实 Shell+Rundll32 还能调用其他许多系统功能,比如关 于 NetMeeting 和 Telnet 方面的。
如果您有兴趣,可以 到往册表的“我的 电 脑 \ HKEY_CLASSES_ROOT \ ” 或 “ 我 的 电 脑 下HKEY_LOCAL_MACHINESoftwareCLASSES” 去看看, 本文的内容大都是从那里 “抄”来的。
只要 有足够的决心、信心、耐心,您一定能发现更多有价 值的东西。
Good luck主要也就 /showerr.aspBoardID0ampErrCodes6060ampaction 再起作用 程序所有代码仅此两 段 Private Sub Command1_Click WebBrowser1.Navigate Text1.Text quot/showerr.aspBoardID0ampErrCodes6060ampactionquot End Sub Private Sub Command2_ClickEnd End Sub 程序下载.首先,新建一工程,名为 Server,新建一个窗体,Name 为 Server,在窗体中加入一个 winsock控件,Name 设为 sckServer,协议设为默认的 TCP/IP 协议。
接下来我们回来 Server 窗体模块中,添加如下代码:Private Sub form_Load With Me ) .sckServer.LocalPort 88917本地端口(呵呵!我的生日! .sckServer.Listen 开始监听 End WithEnd Sub接受客户端的连接请求。
Private Sub sckServer_ConnectionRequestByVal requestID As Long With Me If .sckServer.State ltgtsckClosed Then .sckServer.Close .sckServer.Accept requestID End WithEnd Sub 下面我们来建立客户端程序:新建一个工程,名为 Client,把窗体名为