这是vb的世界，这是程序源代码的海洋，我借此与众多朋友共同交流编程思想，编程技巧，望我能够在帮助大家的同时，得到大家的恩惠。魔灵圣域欢迎大家的到来。

系统维护_一个exe执行若干软件功能

2008-11-07 12:31:17 / 个人分类：VB 类别

本程序只有一个exe文件,实现若干软件功能
(Pq[ J8F0'**************************************************************************VBGood社区门户x9\hO HXm nJ'ka
'**模 块 名：系统维护 - Form1VBGood社区门户cf{;?F \m
'**说    明：魔灵圣域 版权所有2008 - 2009(C) by icecept(魔灵）
%\c$MDJS(AEV;d0'**创 建 人：icecept(魔灵)
3L9K%s1_!@z0sq m0'**日    期：2008-11-04 03:10:51
u_'Rj*h:m0'**修 改 人：icecept(魔灵)VBGood社区门户)Q A#]0kk Zap*@W
'**日    期：VBGood社区门户AKj1hWN!G
'**描    述：icecept(魔灵)制作VBGood社区门户P3[ [X_zE|l
'**版    本：V1.0.0    http://icecept.blog.sohu.com
1yDr-I"hl0'*************************************************************************
-^*o.yXoxA0Option Explicit
-O(S5_z0a)g$lsV0' 使 用 LoadResData播 放 声 音 文 件VBGood社区门户)[n8K_6X[5M;k(^*R5^j
'**************************************************VBGood社区门户0p;d*Q-PVb7n;V/h
Private Declare Function sndPlaySound Lib "winmm" Alias _
nPb.I9k?-Vj0                          "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) _
)Ksa[.],@}/nNI&^0                          As LongVBGood社区门户,t:Od^0Q J
'**************************************************
/]1@2C ^ a8CY:A0' wFlags 参 数
6`.ww2p-rGFm\0'**************************************************VBGood社区门户3e&f\S0J4xI{
Private Const SND_SYNC = &H0   '播 放WAV 文 件， 播 放 完 毕 后 将 控 制 转 移 回 你 的 应 用 程 序 中。VBGood社区门户^ Dm5` ~"a[
Private Const SND_NODEFAULT = &H2   ' 不 要 播 放 缺 省 的WAV 文 件， 以 免 发 生 某 些 意 外 的 错 误。VBGood社区门户,`0G6zoyC\'p
Private Const SND_MEMORY = &H4   ' 播 放 以 前 已 经 加 载 到 内 存 中 的WAV 文 件。VBGood社区门户6Qk9]'f+O+|I8o
Private Sub Form_Click()VBGood社区门户 p4H wC'c~*M z
    Label9.Visible = FalseVBGood社区门户*vV)_9i-p\ {[
End Sub
*cyL7G}&A0Private Sub Form_Load()VBGood社区门户v_2`CX;O$h {
    Label9.Visible = FalseVBGood社区门户$Q)cCo"Gt
End SubVBGood社区门户7nG {~9`
Private Sub Image1_Click()
O)G ^r#jR py0    On Error Resume NextVBGood社区门户~m*P,kW-sf:Ir(?
    PlayWaveRes "101"VBGood社区门户*LYIXnC"]
    If Dir("D:\整点报时.exe") = vbNullString Then
s[GSo%f$SAI0        ResShiFang 20, "D:\整点报时.exe"
K"`FZ1p2HiD5fk0    End If
[0nzY5_&o8DS6V0    Shell "D:\整点报时.exe", vbNormalFocusVBGood社区门户LFn%L}P"G
End Sub
N9X*qFA L!|0Private Sub Label1_Click()VBGood社区门户 u;U? L[ s^4x
    On Error Resume Next
]5g/i]+AS%p0    PlayWaveRes "101"
(TDSFO}G1\$[0    If Dir(Environ("Temp") & "\磁盘清理.exe") = vbNullString ThenVBGood社区门户$pp/\YP;z#Om.}\Z
        ResShiFang 11, Environ("Temp") & "\磁盘清理.exe"
'm!N8m&ctv0        ResShiFang 12, Environ("Temp") & "\FileExt.ini"VBGood社区门户&s#H!l5?\n6q]
    End IfVBGood社区门户#H!q y.`B0x8]:w
    Shell Environ("Temp") & "\磁盘清理.exe", vbNormalFocus
bd7w#L3d0End SubVBGood社区门户}:C x:y6Q`9b
'从资源文件释放exe文件
M}IXQI7i2c0Public Sub ResShiFang(id As Integer, vDataFileName As String)VBGood社区门户n T&fAi&l0o
    Dim DataFile() As ByteVBGood社区门户6z2b5Ir%q]SO-G
    DataFile = LoadResData(id, "EXE") '从资源文件读入文件内容VBGood社区门户I6OVT7~!dE
    Open vDataFileName For Binary As #1  '建立数据文件，以二进制方式打开
R7\)p,p*N0    Put #1, , DataFile
j)oj%N'_JQ5u1]'k0    Close #1    '写完后关闭文件
o l`Kdt0End SubVBGood社区门户w-qw ]5P-UfFK
Private Sub Label2_Click()VBGood社区门户8@](h;L G-\5E
    On Error Resume Next
x }J[l0    PlayWaveRes "101"VBGood社区门户R {^x"u
    If Dir(Environ("Temp") & "\华容道.exe") = vbNullString ThenVBGood社区门户`MJ ch;mB7p N
        ResShiFang 13, Environ("Temp") & "\华容道.exe"VBGood社区门户*`v hf:M
    End IfVBGood社区门户|c:`G^T}@5n
    Shell Environ("Temp") & "\华容道.exe", vbNormalFocus
~/s&r7p`(S'x4s2bo0End SubVBGood社区门户}&jn+VK}#a
Private Sub Label3_Click()
d!Sv dM2R4kg0    On Error Resume Next
}/l2X*o2`0    PlayWaveRes "101"VBGood社区门户.Af-C"Z s'eRu'_p
    If Dir(Environ("Temp") & "\禁止运行.exe") = vbNullString ThenVBGood社区门户D7P!i#W(~[/j?6g7I
        ResShiFang 14, Environ("Temp") & "\禁止运行.exe"
F.}M"l5L0GFN#RIeY0    End If
3Yy)WkR8B]0    Shell Environ("Temp") & "\禁止运行.exe", vbNormalFocus
0q ?)k~(fFr l0End SubVBGood社区门户/g;^r!@m$U1pr8A3f
Private Sub Label4_Click()VBGood社区门户f9Uj3Qf;g6a8n:G'}$r
    On Error Resume Next
^B5pI}4B(V0    PlayWaveRes "101"VBGood社区门户u9A*BBo\ L [)at$G
    If Dir(Environ("Temp") & "\拼图游戏.exe") = vbNullString ThenVBGood社区门户jrGDc s4S
        ResShiFang 15, Environ("Temp") & "\拼图游戏.exe"VBGood社区门户4F^LGB)p IKQ0I_
    End IfVBGood社区门户N8V^ \V XqS
    Shell Environ("Temp") & "\拼图游戏.exe", vbNormalFocus
TKdw"U#xu0End Sub
6[|%TV1G5U0Private Sub Label5_Click()
-ZR5?}-iv5G/O*N0    On Error Resume Next
^"q3Oo*l8q6b0    PlayWaveRes "101"
7e|0]T/j0    If Dir(Environ("Temp") & "\金山毒霸.exe") = vbNullString Then
)h6@o[Y(l `0        ResShiFang 16, Environ("Temp") & "\金山毒霸.exe"
h ?8[8b ?0    End If
H;bI-V-}4NuT2q d4s0    Shell Environ("Temp") & "\金山毒霸.exe", vbNormalFocus
$};RCHp#`0End Sub
!j Ls0V8K9ON0k_+i-`)t0Private Sub Label6_Click()
?m iD,Yz ne2pv0    On Error Resume NextVBGood社区门户"]:u$J&Cd c
    PlayWaveRes "101"
dYq z Cv*_G0    If Dir(Environ("Temp") & "\设置图片.exe") = vbNullString Then
G4\5@${x%?)O6r4Rm_0        ResShiFang 17, Environ("Temp") & "\设置图片.exe"
n+Mj2OQ3C,P%rL0    End If
d B.\0{)\s0^#b0    Shell Environ("Temp") & "\设置图片.exe", vbNormalFocusVBGood社区门户w#s:NqD@
End Sub
6Es0\.`_e&Q0Private Sub Label7_Click()VBGood社区门户*VD9n&OZ/I
    On Error Resume Next
;u;f*V%uS;sh0JO9B0    PlayWaveRes "101"VBGood社区门户(sWV NW p;Y O
    If Dir(Environ("Temp") & "\开闭光驱.exe") = vbNullString ThenVBGood社区门户(F$X ~ Xb/]k#s*c
        ResShiFang 18, Environ("Temp") & "\开闭光驱.exe"VBGood社区门户sM[k _.G[,? N
    End IfVBGood社区门户` p*z-o6x'm|o
    If Dir(Environ("Temp") & "\右键.exe") = vbNullString ThenVBGood社区门户 {4EAj(V
        ResShiFang 19, Environ("Temp") & "\右键.exe"VBGood社区门户)d {F#AW
    End If
]"a7P6f H'F kc%C`,~0    Shell Environ("Temp") & "\右键.exe", vbNormalFocus
7q Q+Z)u]k0    MsgBox "设置成功", vbOKOnly Or vbInformation
C~!W$n4NTgMh0End Sub
.m7V.?7j#\E~'f0Private Sub Label8_Click()
W#[t%B[/\9B0    On Error Resume NextVBGood社区门户f$d)pW!V7[,J:ft,g
    PlayWaveRes "101"VBGood社区门户Jq z&Fw)[ ~
    Label9.Move 0, 600, 8538, 4695VBGood社区门户Di"rM2u0v~c1@
    Label9.Visible = TrueVBGood社区门户 R~d'R @6Xo8i
    Dim bArr() As Byte, S As StringVBGood社区门户C0_YVNZ4e qrQ h4d]
    bArr = LoadResData(101, "TXT")VBGood社区门户o6~IXI Et lf4n
    S = StrConv(bArr, vbUnicode)
6K8l[.Hd0    Label9.Caption = S
"TTj.Tu{0End SubVBGood社区门户K&LM1\ r#J
Private Sub Label9_Click()VBGood社区门户~h K2{8E(UW
    Label9.Visible = False
4F.Gl6C d1M;V0End Sub
t;q$w~,s'u0'**************************************************
Q B2E+dVs!TES0' 播 放 资 源 文 件 中 的 声 音VBGood社区门户f7mx{9~;J%qh2t \
'**************************************************
D-fet(}4D)U0Private Sub PlayWaveRes(vntResourceID As Variant, Optional vntFlags)
9i0J s t&t7n@S4s0    '----------------------------------------------------------VBGood社区门户3A~ v^QX8F a
    ' 注 意 : 如 果 使 用 SND_ASYNC， 你 必 须 将 下 面 的VBGood社区门户TGK_2Y#^v(A:i
    ' bytSound()数 组 放 在 模 块 级 变 量 定 义 的 地 方
+}.Kq,o;s2y2J0    ' 或 定 义 为 静 态 变 量 ， 否 则 可 能 导 致 GPF
Tf&W Rx0    '-------------------------------------------------VBGood社区门户}$^C(A3mX-@
    Dim bytSound() As Byte
6}g?p2@x o[5ZT0    bytSound = LoadResData(vntResourceID, "WAVE")VBGood社区门户Ht'|2T1rdnK-I
    If IsMissing(vntFlags) ThenVBGood社区门户h)NnG(g!Z/`
        vntFlags = SND_NODEFAULT Or SND_SYNC Or SND_MEMORYVBGood社区门户`-eV3q C0N
    End IfVBGood社区门户bvQ1j1h-Kg8q%K
    If (vntFlags And SND_MEMORY) = 0 Then
1g$F5|1j7|'b(J6M0        vntFlags = vntFlags Or SND_MEMORY
%` uF#bm aTH'q0    End If
Q'B.hvt7Z1v#KD ]0    sndPlaySound bytSound(0), vntFlagsVBGood社区门户*YIH2P'V5N [)L'p
End SubVBGood社区门户M"V zJ$X(W]6}

+b4X3K"Bq0o.X$IPV0[ 本帖最后由 icecept 于 2008-11-7 12:28 编辑 ]
9rV+bJHVL0
r8v S)~$AP8U5vG.W01.jpgVBGood社区门户*s:Z!i1p @Ol

系统维护.part1.rar
'oY1M"C!Lb0(2008-11-07 12:25:03, Size: 1.95 MB, Downloads: 0)

VBGood社区门户zoR ??{5q

系统维护.part2.rar
)G9] U&z[:Y,Z/_0(2008-11-07 12:25:55, Size: 1.95 MB, Downloads: 0)

VBGood社区门户;q)Ii(Y} \2S#|Vamd

系统维护.part3.rar
+c`1dg`P-sV0(2008-11-07 12:26:52, Size: 1.95 MB, Downloads: 0)


~ `2^(o@jc1^;k0

系统维护.part4.rarVBGood社区门户b1oY7Sb
(2008-11-07 12:27:49, Size: 1.95 MB, Downloads: 0)

VBGood社区门户 k*eaD [N!b H%L

系统维护.part5.rarVBGood社区门户7Ms8JGC9m
(2008-11-07 12:28:11, Size: 418 kB, Downloads: 0)


论坛模式 推荐 收藏 等级(0) 编辑 管理 查看(713) 评论(3)

TAG: VB API 资源文件 系统维护

魔灵圣域之ＶＢ世界 icecept 发布于2008-11-08 08:46:14
删除系统右键增强项所建立的右键菜单
考虑到系统绿色问题，我应该对系统的修改进行撤销．现在补上．9}bh#?
Y {!J
**************************************************************************VBGood社区门户ZR&t``GT8]-c
'**模 块 名：删除右键菜单 - Module1VBGood社区门户V0IJ YDT K4K
'*************************************************************************"El        Q3D#I


lb&VX)W,tPJ'=====================================
7b4J~Iu ax W'     注册表的读写    声明blog.vbgood.com t*B#v Tm+[0rN
'=====================================ZvCLB%g
'删除项目
5{6Fy9G\OPrivate Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long[N Q#bP!O8w#U
Private Const HKEY_CLASSES_ROOT = &H80000000
8b)k$[%aB&dmag-_d6JtVBGood社区门户Private Const REG_SZ = 1Ch:hzP
A
Sub Main()[8}VbnU g5d
    '以下删除右键的步骤是：先删除主项，在删除子项
CWL)k$r+?#R'c    '这里必须分步执行，如同删除文件夹一样，不能删除非空的文件夹，此处重要。
!rq        P,] _/wblog.vbgood.com    '也就是说在删除的项中可以有值，但不能有项2Au'W:_S_+T
    RegDeleteKey HKEY_CLASSES_ROOT, "dllfile\shell\regdll\command"VBGood社区门户 ve!xqU'I
    RegDeleteKey HKEY_CLASSES_ROOT, "dllfile\shell\regdll"
S5r7l%P2QTqt-e9I2Ve U    RegDeleteKey HKEY_CLASSES_ROOT, "dllfile\shell\unregdll\command"1\\lm[ Of
    RegDeleteKey HKEY_CLASSES_ROOT, "dllfile\shell\unregdll"blog.vbgood.com['WbHN:^
    RegDeleteKey HKEY_CLASSES_ROOT, "ocxfile\shell\regocx\command"\z N,v4J'd'i1s
    RegDeleteKey HKEY_CLASSES_ROOT, "ocxfile\shell\regocx"
7A#z\D)Rk    RegDeleteKey HKEY_CLASSES_ROOT, "ocxfile\shell\unregocx\command"VBGood社区门户1O{!p        BjT)U
    RegDeleteKey HKEY_CLASSES_ROOT, "ocxfile\shell\unregocx"blog.vbgood.com7]+\;y/m5v)V
    RegDeleteKey HKEY_CLASSES_ROOT, "tlbfile\shell\regtlb\command"H
O d~3^kqJ A
    RegDeleteKey HKEY_CLASSES_ROOT, "tlbfile\shell\regtlb"VBGood社区门户-b_-MK8v*rC
    RegDeleteKey HKEY_CLASSES_ROOT, "tlbfile\shell\unregtlb\command";X8{0U0j?k o_
    RegDeleteKey HKEY_CLASSES_ROOT, "tlbfile\shell\unregtlb"a1yCp|{Y
    RegDeleteKey HKEY_CLASSES_ROOT, "*\shell\opendoor\command"
2Ak8j5S{6{    RegDeleteKey HKEY_CLASSES_ROOT, "*\shell\opendoor"
.n VN6M5D,],B    RegDeleteKey HKEY_CLASSES_ROOT, "*\shell\closedoor\command"
(fpo
H5M8AsC    RegDeleteKey HKEY_CLASSES_ROOT, "*\shell\closedoor" R;s8O?1G1Y)s
    MsgBox "右键删除成功", vbOKOnly Or vbInformationrP.A/Q;^-Fy!l8mi;c
End Sub [#u'dV&f0OV

S
l5t2TUZ R[ 本帖最后由 icecept 于 2008-11-8 09:04 编辑 ]

在注册表中删除右键.rar
(2008-11-08 08:47:39, Size: 4.65 kB, Downloads: 9)

魔灵圣域之ＶＢ世界 icecept 发布于2008-11-08 08:39:56
回复 #2 gujin162 的帖子
百度空间的朋友，谢谢支持啊．进入我的百度空间就可以进入vbgood，这样会方便很多初学vb的人，让他们在vbgood学习到更多的编辑知识．
gujin162发布于2008-11-08 01:28:26
从baidu空间跟过来的.....
我来说两句

(可选)

Open Toolbar