傻小子VB系列动画(十)
| 软件大小： | 8.22 MB | 热门等级： |  |
|---|---|---|---|
| 更新时间： | 2006-10-31 18:26:57 | 发布动画： | hack58fb@qq.com |
| 软件性质： | 免费教程 | 开 发 商： | http://www.hack58.net |
| 界面预览： | 无 | 软件类别： | 综合教程 - 综合教程 - 综合教程 |
| 软件语言： | 简体中文 | 应用平台： | |
| 下载次数： | |||
----------------------------------------------------------
黑客动画吧 http://www.hack58.com
致力于中国最专业的黑客安全站点
黑客动画吧，有你更精彩
-----------------------------------------------------------
大家好 我是傻小子 ,今天是第十课
在vb中叫出控制台Item的内容
协助工具 内容rundll32.exe最後一个叁数1代表协助工具中TabStrip中的第1个Tab(键盘)
若为2表第二个Tab(声音)以此类推
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1",vbNormalFocus)
新增移除程式 rundll32.exe最後一个叁数1代表新增移除程式中TabStrip中的第1个Tab安装/移除)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1",vbNormalFocus)
显示器 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 背景,若为1则为萤幕保护装置，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1",vbNormalFocus)
使用Flying Windows.scr 当作Screen Saver
Call Shell("rundll32.exe desk.cpl,InstallScreenSaver c:\windows\system\Flying Windows.scr", vbNormalFocus)
国别设定rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 国别,若为1则为
数字，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0",vbNormalFocus)
JoyStick 设定
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
滑鼠
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0",vbNormalFocus)
键盘
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1",vbNormalFocus)
印表机
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2",vbNormalFocus)
Fonts
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3",vbNormalFocus)
输入法
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @4",vbNormalFocus)
电源
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @5",vbNormalFocus)
MS Exchange设定
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl",vbNormalFocus)
多媒体 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 音效,若为1则为影像，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0",vbNormalFocus)
声音
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1",vbNormalFocus)
数据机
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl",vbNormalFocus)
网路
Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl",vbNormalFocus)
拨号网路
Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)
密码
Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl",vbNormalFocus)
系统 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 一般,若为1则为装置管理员，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0",vbNormalFocus)
新增硬体 精灵
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1",vbNormalFocus)
新增印表机 精灵
Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter",vbNormalFocus)
日期/时间 之日期时间
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl",vbNormalFocus)
日期/时间 之时区
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/f",vbNormalFocus)
Microsoft Mail 邮局
Call Shell("rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl",vbNormalFocus)
开启档案
Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL d:\path\filename.ext",vbNormalFocus)
复制磁碟
Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", vbNormalFocus)
Internet(ie4)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0",vbNormalFocus)
32位元ODBC
Call Shell("rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl",vbNormalFocus)
拨号网路
Call Shell("undll32.exe shell32.dll,Control_RunDLL telephon.cpl users", vbNormalFocus)
----------------------------------------------------
用VB设计VCD播放器
在VB 中 建 立 一 个 新 窗 口, 加 入 多 媒 体 部 件Microsoft Multimedia Control 6.0( 位 于C:\Windows\System\MCI32.OCX), 以 及 对 话 框 部 件 Microsoft Common Dialog Control 6.0( 位 于C:\Windows\System\COMMONDLG32.OCX), 将MCI 控 件 拖 放 至 窗 体Form 上, 调 整 其 大 小, 并 将 窗 体 的 大 小 也 调 整 为 与 其 同 样 大 小; 将 其 九 个 按 钮( 从 左 至 右 为:Prev、Next、Play、Pause、Back、Step、Stop、Record 和 Eject) 中 的Record 按 钮 的Visible 属 性 设 为False, 其 余 按 钮 中 的Visible 属 性 和Enabled 属 性 设 为True , 以 上 按 钮 的 设 置 可 通 过MMControl 的 属 性 栏 内" 自 定 义" 项 来 设 置。 对 话 框 控 件 的DefaultExt 属 性 设 为.DAT, DialogTitle 属 性 设 为" 打 开 多 媒 体 文 件", Filter 属 性 设 为"*.DAT, *.WAV", InitDir 属 性 设 为"G:\MPEGAV"( 假 设 光 驱 盘 符 为G) 。
---- 源 代 码 如 下:
Option Explicit
Private Sub Form_Load()
Dim Response As Integer
MMControl1.DeviceType = "MPEGVideo"
CommonDialog1.ShowOpen
'通过对话框选择不同的VCD文件
MMControl1.filename = CommonDialog1.filename
'选定要播放的文件
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "close"
End Sub
Private Sub MMControl1_BackClick(Cancel As Integer)
'对Back按钮的功能改进
Dim i As Integer
i = MMControl1.Position - 100
'数值100为后退量,可适当调整
If i < 0 Then
MMControl1.From = 0
Else
MMControl1.From = i
End If
MMControl1.Command = "Play"
End Sub
Private Sub MMControl1_StepClick(Cancel As Integer)
'对Step按钮的功能改进
Dim j As Integer
j = MMControl1.Position + 100
'数值100为前进量,可适当调整
If j > MMControl1.Length Then
MMControl1.From = MMControl1.Length
Else
MMControl1.From = j
End If
MMControl1.Command = "Play"
End Sub
---- MCI 控 件 还 有 很 多 属 性, 如 画 面 播 放 位 置hWndDisplay 属 性 等 等, 大 家 可 参 阅 相 关 资 料 自 行 摸 索。
---- 调 整 好 窗 体 的 标 题、 图 标、 颜 色 等, 然 后 编 译 成 .EXE 文 件, 你 就 可 以 在Windows 下 拥 有 自 己 的VCD 播 放 器 了。
http://bbs.hack58.net/read.php?tid-70737.html 网通
http://bbs.hack58.com/read.php?tid-70737.html 电信
群号 16393594 有喜欢的可以加
黑吧傻小子! 大家8888888888888888888888
* 本软件仅供技术研究，请勿使用于非法用途.如有违反，后果自负!
* 如果您发现下载链接错误，请点击报告错误谢谢！
* 站内所有软件均由网友发布，已经通过本站审核，若发现存在安全问题，敬请来信通知我们!