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