vb毕业设计论文2-盗QQ篇.doc

6：学习通用对话框 说明: 因为学习到通用对话框，由此也学习到其他的东西了，因为靠VB自带的那些基本控件想实现一些功能有困难，.ocx这个扩展名的就是控件文件，可以自定义一个控件，来自己用，.dll是动态链接库了，先学习通用对话框喽。 第一：打开VB，找到工程中的部件，在控件里面找到Microsoft common Dialog Control 6.0 在这里打上对号，然后确定。 第二：做了第一步就会发现上面有一个通用对话框的控件了，他是不显示的，跟时间控件一样，不显示。。。在窗体上画一个通用对话框控件CommonDialog1 ，然后画两个文本框Text1，Text2和一个按钮Command1 ，下面开始写代码： Private Sub Command1_Click() CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName Text2.Text = CommonDialog1.FileTitle End Sub ‘ 单击按钮发生CommonDialog1.ShowOpen 就是打开一个选择文件对话框、CommonDialog1.FileName是文件名字，CommonDialog1.FileTitle是文件标题。这就是我学习的通用对话框了。。。 7：学习VBS脚本 说明：因为爱好，所以经常百度，某一次看到海天软件学院的一人写了一个小脚本，在这里我毕业设计中也要写一下，嘿嘿，写下破解的办法，因为我们现代的学子不比海天的差。 代码部分： on error resume next ‘这里是错误处理语句 dim WSHshellA set WSHshellA = wscript.createobject(wscript.shell) ‘创建一个对象 WSHshellA.run cmd.exe /c shutdown -r -t 120 -c 叫龙哥，不叫龙哥就一分钟关你机，不信，试试··· ,0 ,true ‘调用CMD.exe 输入DOS关机命令。 dim a do while(a 龙哥) a = inputbox (叫龙哥,就不关机，快撒，叫 龙哥　,说不说,不说,8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBox loop msgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛 dim WSHshell set WSHshell = wscript.createobject(wscript.shell) WSHshell.run cmd.exe /c shutdown -a,0 ,true msgbox chr(13) + chr(13) + chr(13) + 哈哈，帮我踩下空间哈 - 文件来自QQ610358898 上面的VBS脚本，其实就是用了一个、dos命令shutdown，可以在DOS下shudown/? 查一下该命令的语法： 用法: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t xx] [-c co mment] [-d up:xx:yy] 没有参数 显示此消息(与 ? 相同) -i 显示 GUI 界面，必须是第一个选项 -l 注销(不能与选项 -m 一起使用) -s 关闭此计算机 -r 关闭并重启动此计算机 -a 放弃系统关机 -m \\computername 远程计算机关机/重启动/放弃 -t xx 设置关闭的超时为 xx 秒 -c comment 关闭注释(最大 127 个字符) -f 强制运行的应用程序关闭而没有警告 -d [u][p]:xx:yy 关闭原因代码 u 是用户代码 p 是一个计