frmchat.frm

能用的网吧计费管理系统(客户端).zip

Text1.Text = "象断线的风筝一样徒劳地挣扎了两下，然后无可救药的落进了对方的温柔陷阱……"
Case "求爱"
Text1.Text = "突然大喊一声，这是我的第三千八百次初恋，求求你，接受我的这一小片痴情吧！"
Case "男人的冲动"
Text1.Text = "强忍住烦躁和一刹那的烈火焚心，从房间里冲到花园，果断地纵身跳进冰凉的游泳池中，大家惊讶的发现，不一会儿，诺大一个游泳池的水居然全沸腾了！"
Case "女人的冲动"
Text1.Text = "紧紧咬住自己的嘴唇，眼睛象水滴一样生动地注视着对方，用可以摧毁一个国家，杀死一个国王，揉碎一颗心的声音说道，云想衣裳，花想容，我又怎么会不想呢。"
Case "比酷"
Text1.Text = "刷的抽出一把闪闪发光的戒刀，一刀将自己的大好头颅切了下来，嘴里还不停的嘀咕，和我比酷，谁能比我酷？"
Case "想自杀"
Text1.Text = "突然拔出一把手枪，指着自己的头，泪眼婆娑的看着大家。"
Case "要砍人"
Text1.Text = "狂笑三声，从身后抽出一柄斧头，大喊着，天下没有公理了，让我来伸张正义！"
Case "喝醉了"
Text1.Text = "浑身酒气挣扎着踉跄走了两步，突然不留神，一个跟头直直插进了路边的水沟里。"
Case "吐舌头"
Text1.Text = "在血盘大口里吐了吐青白的舌头! "
Case "想到了"
Text1.Text = "重重地拍了一下脑袋, 终于想到了! "
Case "生气"
Text1.Text = "作出生气的表情!火冒三丈～想要打人～ "
Case "拍巴掌"
Text1.Text = "使劲地拍巴掌,啪啪啪啪啪.....拍得手都红起来了! "
Case "脸红"
Text1.Text = "脸都红了,恨没有地洞, 好钻进去躲起来 :~ "
Case "羞答答地吻"
Text1.Text = "象朵含羞草一样躲了起来，又突然跑回来，轻轻地、快快地吻了对方一下，转身就跑了。"
Case "狂吻对方"
Text1.Text = "象暴风雨一样扑了过来，嘴里说着，不能没有你，……可惜，脚下一滑，一嘴吻在对方的鞋帮子上。"
Case "道别1"
Text1.Text = "向在场的人道别: 走咯! 我会想你们的"
Case "道别2"
Text1.Text = "如果你们记得我，别忘记给我留言哦！"
Case "道别3"
Text1.Text = "飘啊飘的一段情，有雨也有风……蓦然回首你仍在，浪漫红尘中……我走了……"
Case "道别4"
Text1.Text = "凄婉地说道：“世上没有不散的宴席，我先走一步了，大家保重。” "
Case "道别5"
Text1.Text = "向大家说 BYE BYE! 千山我独行... 不必相送."
Case "拍胸脯"
Text1.Text = "把胸脯拍得噼啪响：“武林中拳头大的说话，有种的上来比划比划！” "
Case "扮死"
Text1.Text = "两眼翻白，腿儿蹬了几下，脑袋一歪，死了。 "
Case "想破头"
Text1.Text = "想啊想，结果把脑袋给想破了，白白的脑浆流了一地! "
Case "害怕"
Text1.Text = "被吓得双腿直哆嗦. "
Case "昏倒"
Text1.Text = "口吐白沫，昏倒在地 "
Case "问好(girl)"
Text1.Text = "盈盈一拜,笑笑地说:各位大哥,小女子有礼了.. "
Case "问好(boy)"
Text1.Text = "大咧咧地说:大姐姐,小姐姐!本公子这厢有礼啦!"
Case "问好1"
Text1.Text = "环顾四周，全聊天室山河一片大好，于是清了清喉咙：“同志们好。” "
Case "感动"
Text1.Text = "感动极了，两行热泪夺眶而出。 "
Case "喊冤"
Text1.Text = "一把眼泪一把鼻涕地喊：冤枉啊!! "
Case "自言自语"
Text1.Text = "自言自语道:“我,先天下人之忧而忧, 后天下人之乐而乐...这个这个好象不太妥” "
Case "逃跑"
Text1.Text = "大叫一声：“风紧，扯呼”,撒开腿就跑，片刻就消失在一片茫茫白雾中 "
Case "兴奋地唱"
Text1.Text = "兴奋地唱：“我是一只小鸭子，伊呀伊呀哟！” "
Case "深情地唱"
Text1.Text = "深情地唱道：“我早已为你种下，九百九十九朵玫瑰。”"
Case "大哭"
Text1.Text = "咚一声! 坐在地上哇啦大哭~ "
Case "笑"
Text1.Text = "笑得象花儿一样 "
Case "傻笑"
Text1.Text = "露出像白痴般的笑容....:O~ "
Case "狂笑"
Text1.Text = "向天狂笑：“普天之下，竟然没有我的对手..."
Case "凝视"
Text1.Text = "深情的凝视前方 "
Case "喝闷酒"
Text1.Text = "躲在一边一声不吭，独个儿大口大口地喝着闷酒。"
Case "害羞"
Text1.Text = "低着头，玩弄着自己的手指，羞得满脸通红"
Case "自吻"
Text1.Text = "正疯狂的亲吻着镜子中的自己..."
Case "敬酒"
Text1.Text = "丢几罐冰凉的啤酒给大家，然后说:「干啦 !」"
Case "跳舞"
Text1.Text = "像发了疯似的一个人在聊天室中跳起舞来"
Case "哭泣"
Text1.Text = "躲在聊天室的角落偷偷哭泣"
Case "念经"
Text1.Text = "嘴里念念有辞的,好像正在背三字经."
Case "自卑"
Text1.Text = "对自己的长像极度不满意, 决定向双亲提出抗议."
Case "喊加油"
Text1.Text = "大喊加油~ 加油~"
Case "发狗疯"
Text1.Text = "像疯狗似的见人就吠. 嗷~呜~"
Case "宾果"
Text1.Text = "大声叫了一声: 宾果!"
Case "牙痒"
Text1.Text = "牙齿又在痒...想找跟狗骨头咬咬."
Case "玩蟑螂"
Text1.Text = "像只小猫似的正在凌虐刚从聊天室抓到的蟑螂."
 Case "喝咖啡"
Text1.Text = "拿起一杯香香醇醇的咖啡咖啡喝了一口. 嗯, 好香!"
Case "头坏"
Text1.Text = "认为自己一定是头壳坏掉了,才会有这样的言行."
Case "狗腿"
Text1.Text = "觉得自己的狗腿功夫已经到了炉火纯青的地步,只差还没出国比赛拿金牌而已."
Case "头晕"
Text1.Text = "最近一直觉得自己头晕目眩,恶心想吐,不知是不是....."
Case "发抖"
Text1.Text = "害怕地发起抖来，感觉背脊发凉, 头皮发麻~"
Case "清高"
Text1.Text = "一直觉得自已不笨,只是凡人不能理解自己想法而已."
Case "吻凳"
Text1.Text = "四处张望了一下,然后对着凳子深情款款地吻了一下."
Case "傻笑"
Text1.Text = "不知想到了什么,一个人在那吃吃的傻笑."
Case "奸笑"
Text1.Text = "嘿嘿嘿....地奸笑了几声，八成想到什么坏事头上。"


End Select
End Sub

Private Sub Command1_Click()
'发送信息
If Text1.Text = "" Then Exit Sub
Dim tColor As String, tBiaoQing As String
Select Case cmbFontColor.Text
Case "绝对黑色"
tColor = "&H000000"
Case "深蓝忧郁"
tColor = "&H000088"
Case "草原之蓝"
tColor = "&Hff0005"
Case "橄榄树绿"
tColor = "&H008800"
Case "灰蓝种族"
tColor = "&H008888"
Case "海洋之蓝"
tColor = "&H0088ff"
Case "绿色回忆"
tColor = "&H00a010"
Case "蓝色月光"
tColor = "&H1100ff"
Case "夜幕低垂"
tColor = "&H111111"
Case "灰色轨迹"
tColor = "&H333333"
Case "春草青青"
tColor = "&H50b000"
Case "暗夜兴奋"
tColor = "&H880000"
Case "发亮蓝紫"
tColor = "&H8800ff"
Case "卡其制服"
tColor = "&H888800"
Case "伦敦灰雾"
tColor = "&H888888"
Case "兴份过蓝"
tColor = "&H8888ff"
Case "紫的拘谨"
tColor = "&Haa00cc"
Case "流金岁月"
tColor = "&Haaaa00"
Case "卡布其诺"
tColor = "&Hccaa00"
Case "正宗喜红"
tColor = "&Hff0000"
Case "爱的暗示"
tColor = "&Hff0088"
Case "红的发紫"
tColor = "&Hff00ff"
Case "黄金岁月"
tColor = "&Hff8800"
Case "红袍飘飘"
tColor = "&H0000ff"
Case "紫金绣帖"
tColor = "&Hff88ff"
Case "焚心似火"
tColor = "&Hee0005"
Case "红粉佳人"
tColor = "&Hee01ff"
Case "我不知道"
tColor = "&H3388aa"
Case Else
tColor = "&H" & cmbFontColor.Text
End Select

Select Case cmbBiaoQ.Text
Case "选择表情"
tBiaoQing = "说"
Case "平静"
tBiaoQing = "平静的说"
Case "慌乱"
tBiaoQing = "惊慌失措的说"
Case "高兴"
tBiaoQing = "很高兴的说"
Case "潇洒"
tBiaoQing = "潇洒的说"
Case "微微笑"
tBiaoQing = "微微笑的说"
Case "惋惜"
tBiaoQing = "惋惜的说"
Case "深情"
tBiaoQing = "深情的说"
Case "大笑叁声"
tBiaoQing = "哈！哈！哈！的笑着说"
Case "嘻笑"
tBiaoQing = "笑嘻嘻说"
Case "幸灾乐祸"
tBiaoQing = "幸灾乐祸的说"
Case "眉飞色舞"
tBiaoQing = "眉飞色舞的说"
Case "阴阳怪气"
tBiaoQing = "阴阳怪气的说"
Case "哭天抢地"
tBiaoQing = "哭天抢地的说"
Case "牢骚满腹"
tBiaoQing = "牢骚满腹的说"
Case "理屈词穷"
tBiaoQing = "理屈词穷的说"
Case "江郎才尽"
tBiaoQing = "江郎才尽的说"
Case "凶神恶煞"
tBiaoQing = "凶神恶煞的说"
Case "眉歪眼斜"
tBiaoQing = "眉歪眼斜的说"

Case "牵手"
tBiaoQing = "轻轻牵着对方的手，小声的说"
Case "甩手"
tBiaoQing = "一把甩掉对方的手，恶恨恨的说"

Case "轻蔑"
tBiaoQing = "满脸俱是轻蔑不屑之色的说"
Case "目光凛然"
tBiaoQing = "目光凛然的说"
Case "声嘶力竭"
tBiaoQing = "声嘶力竭的说"
Case "意乱情迷"
tBiaoQing = "意乱情迷的说"
Case "脸色铁青"
tBiaoQing = "脸色铁青的说"
Case "失魂落魄"
tBiaoQing = "失魂落魄的说"
Case "怨毒"
tBiaoQing = "怨毒的说"
Case "目光呆滞"
tBiaoQing = "目光呆滞的说"
Case "柔声"
tBiaoQing = "柔声的说"
Case "眼波动人"
tBiaoQing = "眼波晶莹明亮的说"
Case "怒不可遏"
tBiaoQing = "目光尽赤，怒不可遏的说"
Case "娇笑"
tBiaoQing = "娇笑起来的说"
Case "茫然"
tBiaoQing = "茫然的说"

Case "打耳光"
tBiaoQing = "给了对方一耳光，大骂道"
Case "奸笑"
tBiaoQing = "奸笑着说"
Case "扮奴才像"
tBiaoQing = "奴才嘴脸十足的说"
Case "毛手毛脚"
tBiaoQing = "毛手毛脚的说"
Case "得意"
tBiaoQing = "得意洋洋的说"
Case "耍无赖"
tBiaoQing = "一脸无赖泼皮样子的说"
Case "嘟嘴"
tBiaoQing = "嘟着嘴的说"
Case "抛媚眼"
tBiaoQing = "抛去一个媚眼，然后说"
Case "抱住对方哭"
tBiaoQing = "一把将对方抱住，哭哭涕涕的说"

Case "快要哭"
tBiaoQing = "快要哭的说"

Case "拳打脚踢"
tBiaoQing = "拳打脚踢的说"

Case "不怀好意"
tBiaoQing = "不怀好意的说"
Case "二楞子"
tBiaoQing = "二球劲十足的说"
Case "遗憾"
tBiaoQing = "遗憾的说"

Case "讶异"
tBiaoQing = "瞪大了眼睛 , 很讶异的说"

Case "幸福"
tBiaoQing = "幸福的说"

Case "翻箱倒柜"
tBiaoQing = "翻箱倒柜的说"

Case "悲伤"
tBiaoQing = "悲伤的说"

Case "淫淫笑"
tBiaoQing = "淫淫笑的说"

Case "流口水"
tBiaoQing = "流口水的说"

Case "正气凛然"
tBiaoQing = "正气凛然的说"

Case "生气"
tBiaoQing = "生气的说"

Case "大声"
tBiaoQing = "大声的说"

Case "傻乎乎"
tBiaoQing = "傻乎乎的说"

Case "很满足"
tBiaoQing = "一付很满足的说"

Case "手足无措"
tBiaoQing = "手足无措的说"