爱华网Public Sub jiancha()
Dim n As Integer
Form1.GetJingCheng
Form1.List1.Refresh
Dim I AsInteger
For I = 0 To Form1.List1.ListCount - 1
Select Case LCase(Form1.List1.List(I))
Case "game.exe"
youximing = youximing & "天龙八部/英雄岛封测版/华夏免费版，"
Case "my.exe","xypqlayer.exe"
youximing = youximing & "梦幻西游，"
Case "crossfire.exe"
youximing = youximing &"穿越火线，"
Case "dnfchina.exe","dnf.exe"
youximing = youximing &"地下城与勇士，"
Case"asktao.mod"
youximing = youximing &"问道，"
Case"qqgame.exe"
youximing = youximing &"QQ游戏，"
Case"qqspeed.exe"
youximing = youximing &"QQ飞车，"
Case"palonline.exe"
youximing = youximing &"仙剑OL，"
Case"digimon.exe"
youximing = youximing &"数码宝贝OL，"
Case"cap2.exe"
youximing = youximing & "资本主义2，"
Case"rich4.exe"
youximing = youximing &"大富翁4，"
Case"hot2.exe"
youximing = youximing &"钢铁雄心2，"
Case"blood.exe","starcraft.exe"
youximing = youximing & "星际争霸，"
Case"rt2.exe"
youximing = youximing & "火车大亨2，"
Case"sango3.exe"
youximing = youximing & "三国群英传3，"
Case "frozenthrone.exe"
youximing = youximing & "魔兽 冰封王座，"
Case "warcraftIII.exe"
youximing = youximing & "魔兽3，"
Case "yuri.exe","ra2.exe"
youximing = youximing & "红色警戒2，"
Case"ims.exe"
youximing = youximing & "S模拟人生，"
Case"age2_x1.exe"
youximing = youximing & "帝国时代征服者，"
Case"empires2.exe"
youximing = youximing & "帝国时代2，"
Case"pal.exe"
youximing = youximing & "仙剑奇侠传，"
Case"raptor.exe"
youximing = youximing & "f22，"
Case "crazykart.exe"
youximing = youximing & "疯狂赛车，"
Case"cstrike.exe"
youximing = youximing & "反恐精英CS，"
Case"KartRider.exe"
youximing = youximing & "卡丁车，"
Case"ca.exe"
youximing = youximing & "泡泡堂，"
Case"cstrike-online.exe"
youximing = youximing & "反恐精英online，"
Case"qqfo.exe"
youximing = youximing & "QQ幻想，"
Case"Client.exe"
youximing = youximing & "QQ堂/热血江湖，"
Case "qqsg.exe"
youximing = youximing & "QQ三国，"
Case"qqxu.exe"
youximing = youximing & "QQ炫舞，"
Case"elementclient.exe"
youximing = youximing & "完美世界/诛仙/武林外传，"
Case"cabalmain.exe"
youximing = youximing & "惊天动地，"
Case"gameclient.exe"
youximing = youximing & "浩方平台，"
Case"cdcgames.exe"
youximing = youximing & "特种部队，"
Case"wow.exe"
youximing = youximing & "魔兽世界，"
Case"audition.exe"
youximing = youximing & "劲舞团，"
Case"tw2.exe"
youximing = youximing & "天下贰，"
Case "gongfuclient.exe", "gongfuiga.exe"
youximing = youximing & "功夫世界，"
Case "neu2.exe"
youximing = youximing & "新飞飞，"
Case "zhengtu.exe"
youximing = youximing & "征途，"
End Select
Next I
End Sub
