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

6：学习通用对话框说明: 因为学习到通用对话框，由此也学习到其他的东西了，因为靠VB自带的那些基本控件想实现一些功能有困难，.ocx这个扩展名的就是控件文件，可以自定义一个控件，来自己用，.dll是动态链接库了，先学习通用对话框喽。

第一：打开VB，找到工程中的部件，在控件里面找到Microsoft common Dialog Control 6.0 在这里打上对号，然后确定。

第二：做了第一步就会发现上面有一个通用对话框的控件了，他是不显示的，跟时间控件一样，不显示。

在窗体上画一个通用对话框控件CommonDialog1 ，然后画两个文本框Text1，Text2和一个按钮Command1 ，下面开始写代码：Private Sub Command1_Click()CommonDialog1.ShowOpenText1.Text = CommonDialog1.FileNameText2.Text = CommonDialog1.FileTitleEnd Sub‘单击按钮发生CommonDialog1.ShowOpen 就是打开一个选择文件对话框、CommonDialog1.FileName是文件名字，CommonDialog1.FileTitle是文件标题。

这就是我学习的通用对话框了。

7：学习VBS脚本说明：因为爱好，所以经常百度，某一次看到海天软件学院的一人写了一个小脚本，在这里我毕业设计中也要写一下，嘿嘿，写下破解的办法，因为我们现代的学子不比海天的差。

代码部分：on error resume next ‘这里是错误处理语句dim WSHshellAset WSHshellA = wscript.createobject("wscript.shell") ‘创建一个对象WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""叫龙哥，不叫龙哥就一分钟关你机，不信，试试···"" ",0 ,true ‘调用CMD.exe 输入DOS关机命令。

dim ado while(a <> "龙哥")a = inputbox ("叫龙哥,就不关机，快撒，叫""龙哥""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈，帮我踩下空间哈- 文件来自QQ610358898"上面的VBS脚本，其实就是用了一个、dos命令shutdown，可以在DOS下shudown/? 查一下该命令的语法：用法: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t xx] [-c "comment"] [-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 是一个计划的关闭代码xx 是一个主要原因代码(小于256 的正整数)yy 是一个次要原因代码(小于65536 的正整数)看到这个命令的语法就好办了，他可以shutdown –s 关机，我们及可以shutdown –a 关闭系统关机，记得一次上机用过这个脚本，问操作系统老师老师居然没解决，这个首先用DOS 关闭系统关机，然后在进程中找到这个脚本关闭就可以了。

8：文件目录列表框说明：学习到这里差点把握给搞晕了，三个赋值语句，经过好好想想，仔细分析，还是搞透彻了。

代码部分：Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Text1.Text = File1.Path & "\" & File1.FileNameEnd Sub截图:9 ：自作记事本说明：前面我学完了通用对话框，突然有了个想法，写个记事本，经过一个下午的时间，终于完成了自己的记事本，因为现在转Delphi，所以这个记事本没更新BUG，值得骄傲的是我做出自己的记事本了。

用到了动态菜单和api函数，通用对话框，文读写操作，shell 函数等知识。

代码部分：: Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = &H80000Private Const LWA_ALPHA = &H2Private Const GWL_EXSTYLE = (-20)Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal _ hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal _ hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long‘上面的是api函数声明部分Private Sub as_Click()End ‘退出按钮End SubPrivate Sub Command2_Click()Dim shuju, qqOpen "D:\wangchi.wangchi" For Binary As #1Put #1, , Text1.TextClose #1qq = MsgBox("确定保存吗？", vbYesNo, "网痴提醒")If qq = vbYes ThenMsgBox "恭喜，保存成功。

（D：\wangchi）", , "网痴提示"Elseform1.ShowEnd IfEnd SubPrivate Sub Form_Load()Dim rtn As Longrtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '取的窗口原先的样式rtn = rtn Or WS_EX_LAYERED ' 使窗体添加上新的样式WS_EX_LAYERED SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn ' 把新的样式赋给窗体SetLayeredWindowAttributes Me.hwnd, 0, 200, LWA_ALPHAEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Or Button = 1 Thenform1.PopupMenu ly55521 ‘鼠标单击右键显示菜单End IfEnd SubPrivate Sub kkk_Click()Dim str1 As StringDim str As StringOn Error Resume NextCommonDialog1.ShowOpenText1 = ""Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Input #1, str1str = str & str1 & Chr(13) & Chr(10)Text1 = strLoopClose #1End SubPrivate Sub Label2_Click()Dim z1z1 = Shell("cmd.exe", 1)End SubPrivate Sub Label3_Click()Dim z2z2 = Shell("C:\Program Files\Tencent\QQ\Bin\QQ.exe ", 1)End SubPrivate Sub sx_Click()On Error Resume NextCommonDialog1.ShowFontText1.Text = CommonDialog1.FontNameText1.Text = CommonDialog1.FontItalicText1.Text = CommonDialog1.FontNameText1.Text = CommonDialog1.FontSizeEnd SubPrivate Sub Timer1_Timer()Label1.Caption = NowEnd SubPrivate Sub yanse_Click()CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorEnd SubPrivate Sub ziti_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd Sub上面的其中一部分是在菜单编辑器设置好的，然后在写的代码记事本效果截图：10：api函数，编写系统应用软件说明，这是一个api函数的应用举例，api函数就是一本大字典，无穷无尽，或许这也是编程需要有自学能力的原因了，碰到不会的就要去查字典，这里面的是隐藏桌面，工具栏，开始按钮效果。