----------------------------------------------------------
           黑客动画吧 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