selfrm.frm

我自己写的查QQ在线用户的程序.本来是用来群发的.后来QQ的程序改了就不能用了.

Combo1(1).AddItem "漳州"
Combo1(1).AddItem "南平"
Combo1(1).AddItem "龙岩"
Combo1(1).AddItem "宁德"
Combo1(1).ListIndex = 0

Case "江西"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "南昌"
Combo1(1).AddItem "景德镇"
Combo1(1).AddItem "萍乡"
Combo1(1).AddItem "新余"
Combo1(1).AddItem "九江"
Combo1(1).AddItem "鹰潭"
Combo1(1).AddItem "赣州"
Combo1(1).AddItem "吉安"
Combo1(1).AddItem "宜春"
Combo1(1).AddItem "抚州"
Combo1(1).AddItem "上饶"
Combo1(1).ListIndex = 0

Case "山东"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "济南"
Combo1(1).AddItem "青岛"
Combo1(1).AddItem "淄博"
Combo1(1).AddItem "枣庄"
Combo1(1).AddItem "东营"
Combo1(1).AddItem "潍坊"
Combo1(1).AddItem "烟台"
Combo1(1).AddItem "威海"
Combo1(1).AddItem "济宁"
Combo1(1).AddItem "泰安"
Combo1(1).AddItem "日照"
Combo1(1).AddItem "莱芜"
Combo1(1).AddItem "德州"
Combo1(1).AddItem "临沂"
Combo1(1).AddItem "聊城"
Combo1(1).AddItem "滨州"
Combo1(1).AddItem "菏泽"
Combo1(1).ListIndex = 0

Case "河南"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "郑州"
Combo1(1).AddItem "开封"
Combo1(1).AddItem "洛阳"
Combo1(1).AddItem "平顶山"
Combo1(1).AddItem "焦作"
Combo1(1).AddItem "鹤壁"
Combo1(1).AddItem "新乡"
Combo1(1).AddItem "安阳"
Combo1(1).AddItem "濮阳"
Combo1(1).AddItem "许昌"
Combo1(1).AddItem "漯河"
Combo1(1).AddItem "三门峡"
Combo1(1).AddItem "南阳"
Combo1(1).AddItem "商丘"
Combo1(1).AddItem "信阳"
Combo1(1).AddItem "周口"
Combo1(1).AddItem "驻马店"
Combo1(1).AddItem "济源"
Combo1(1).ListIndex = 0

Case "湖北"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "武汉"
Combo1(1).AddItem "黄石"
Combo1(1).AddItem "襄樊"
Combo1(1).AddItem "十堰"
Combo1(1).AddItem "荆州"
Combo1(1).AddItem "宜昌"
Combo1(1).AddItem "荆门"
Combo1(1).AddItem "鄂州"
Combo1(1).AddItem "孝感"
Combo1(1).AddItem "黄冈"
Combo1(1).AddItem "咸宁"
Combo1(1).AddItem "随州"
Combo1(1).AddItem "仙桃"
Combo1(1).AddItem "天门"
Combo1(1).AddItem "潜江"
Combo1(1).AddItem "神农架"
Combo1(1).AddItem "恩施土家族苗族自治州"
Combo1(1).ListIndex = 0

Case "湖南"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "长沙"
Combo1(1).AddItem "株洲"
Combo1(1).AddItem "湘潭"
Combo1(1).AddItem "衡阳"
Combo1(1).AddItem "邵阳"
Combo1(1).AddItem "岳阳"
Combo1(1).AddItem "常德"
Combo1(1).AddItem "张家界"
Combo1(1).AddItem "益阳"
Combo1(1).AddItem "郴州"
Combo1(1).AddItem "怀化"
Combo1(1).AddItem "娄底"
Combo1(1).AddItem "湘西土家族苗族自治州"
Combo1(1).ListIndex = 0

Case "广东"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "广州"
Combo1(1).AddItem "深圳"
Combo1(1).AddItem "珠海"
Combo1(1).AddItem "汕头"
Combo1(1).AddItem "韶关"
Combo1(1).AddItem "佛山"
Combo1(1).AddItem "江门"
Combo1(1).AddItem "湛江"
Combo1(1).AddItem "茂名"
Combo1(1).AddItem "肇庆"
Combo1(1).AddItem "惠州"
Combo1(1).AddItem "梅州"
Combo1(1).AddItem "汕尾"
Combo1(1).AddItem "河源"
Combo1(1).AddItem "阳江"
Combo1(1).AddItem "清远"
Combo1(1).AddItem "东莞"
Combo1(1).AddItem "中山"
Combo1(1).AddItem "潮州"
Combo1(1).AddItem "揭阳"
Combo1(1).AddItem "云浮"
Combo1(1).ListIndex = 0

Case "广西"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "南宁"
Combo1(1).AddItem "柳州"
Combo1(1).AddItem "桂林"
Combo1(1).AddItem "梧州"
Combo1(1).AddItem "北海"
Combo1(1).AddItem "防城港"
Combo1(1).AddItem "钦州"
Combo1(1).AddItem "贵港"
Combo1(1).AddItem "玉林"
Combo1(1).AddItem "百色"
Combo1(1).AddItem "贺州"
Combo1(1).AddItem "河池"
Combo1(1).AddItem "来宾"
Combo1(1).AddItem "崇左"
Combo1(1).ListIndex = 0

Case "海南"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "海口"
Combo1(1).AddItem "三亚"
Combo1(1).AddItem "五指山"
Combo1(1).AddItem "琼海"
Combo1(1).AddItem "儋州"
Combo1(1).AddItem "文昌"
Combo1(1).AddItem "万宁"
Combo1(1).AddItem "东方"
Combo1(1).AddItem "澄迈"
Combo1(1).AddItem "定安"
Combo1(1).AddItem "屯昌"
Combo1(1).AddItem "临高"
Combo1(1).AddItem "白沙黎族自治县昌"
Combo1(1).AddItem "江黎族自治县"
Combo1(1).AddItem "乐东黎族自治县"
Combo1(1).AddItem "陵水黎族自治县"
Combo1(1).AddItem "保亭黎族苗族自治县"
Combo1(1).AddItem "琼中黎族苗族自治县"
Combo1(1).ListIndex = 0

Case "四川"

Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "成都"
Combo1(1).AddItem "自贡"
Combo1(1).AddItem "攀枝花"
Combo1(1).AddItem "泸州"
Combo1(1).AddItem "德阳"
Combo1(1).AddItem "绵阳"
Combo1(1).AddItem "广元"
Combo1(1).AddItem "遂宁"
Combo1(1).AddItem "内江"
Combo1(1).AddItem "乐山"
Combo1(1).AddItem "南充"
Combo1(1).AddItem "宜宾"
Combo1(1).AddItem "广安"
Combo1(1).AddItem "达州"
Combo1(1).AddItem "眉山"
Combo1(1).AddItem "雅安"
Combo1(1).AddItem "巴中"
Combo1(1).AddItem "资阳"
Combo1(1).AddItem "阿坝藏族羌族自治州"
Combo1(1).AddItem "甘孜藏族自治州"
Combo1(1).AddItem "凉山彝族自治州"
Combo1(1).ListIndex = 0
Case "贵州"

Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "贵阳"
Combo1(1).AddItem "六盘水"
Combo1(1).AddItem "遵义"
Combo1(1).AddItem "安顺"
Combo1(1).AddItem "铜仁"
Combo1(1).AddItem "毕节"
Combo1(1).AddItem "黔西南布依族苗族自治州"
Combo1(1).AddItem "黔东南苗族侗族自治州"
Combo1(1).AddItem "黔南布依族苗族自治州"
Combo1(1).ListIndex = 0
Case "云南"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "昆明"
Combo1(1).AddItem "曲靖"
Combo1(1).AddItem "玉溪"
Combo1(1).AddItem "保山"
Combo1(1).AddItem "昭通"
Combo1(1).AddItem "丽江"
Combo1(1).AddItem "思茅"
Combo1(1).AddItem "临沧"
Combo1(1).AddItem "文山壮族苗族自治州"
Combo1(1).AddItem "红河哈尼族彝族自治州"
Combo1(1).AddItem "西双版纳傣族自治州"
Combo1(1).AddItem "楚雄彝族自治州"
Combo1(1).AddItem "大理白族自治州"
Combo1(1).AddItem "德宏傣族景颇族自治州"
Combo1(1).AddItem "怒江傈傈族自治州"
Combo1(1).AddItem "迪庆藏族自治州"
Combo1(1).ListIndex = 0
Case "西藏"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "拉萨"
Combo1(1).AddItem "那曲"
Combo1(1).AddItem "昌都"
Combo1(1).AddItem "山南"
Combo1(1).AddItem "日喀则"
Combo1(1).AddItem "阿里"
Combo1(1).AddItem "林芝"
Combo1(1).ListIndex = 0
Case "陕西"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "西安"
Combo1(1).AddItem "铜川"
Combo1(1).AddItem "宝鸡"
Combo1(1).AddItem "咸阳"
Combo1(1).AddItem "渭南"
Combo1(1).AddItem "延安"
Combo1(1).AddItem "汉中"
Combo1(1).AddItem "榆林"
Combo1(1).AddItem "安康"
Combo1(1).AddItem "商洛"
Combo1(1).ListIndex = 0
Case "甘肃"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "兰州"
Combo1(1).AddItem "金昌"
Combo1(1).AddItem "白银"
Combo1(1).AddItem "天水"
Combo1(1).AddItem "嘉峪关"
Combo1(1).AddItem "武威"
Combo1(1).AddItem "张掖"
Combo1(1).AddItem "平凉"
Combo1(1).AddItem "酒泉"
Combo1(1).AddItem "庆阳"
Combo1(1).AddItem "定西"
Combo1(1).AddItem "陇南"
Combo1(1).AddItem "临夏回族自治州"
Combo1(1).AddItem "甘南藏族自治州"

Combo1(1).ListIndex = 0
Case "青海"

Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "西宁"
Combo1(1).AddItem "海东"
Combo1(1).AddItem "海北藏族自治州"
Combo1(1).AddItem "黄南藏族自治州"
Combo1(1).AddItem "海南藏族自治州"
Combo1(1).AddItem "果洛藏族自治州"
Combo1(1).AddItem "玉树藏族自治州"
Combo1(1).AddItem "海西蒙古族藏族自治州"
Combo1(1).ListIndex = 0
Case "宁夏"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "银川"
Combo1(1).AddItem "石嘴山"
Combo1(1).AddItem "吴忠"
Combo1(1).AddItem "固原"
Combo1(1).ListIndex = 0

Case "新疆"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "乌鲁木齐"
Combo1(1).AddItem "克拉玛依"
Combo1(1).AddItem "石河子"
Combo1(1).AddItem "阿拉尔"
Combo1(1).AddItem "图木舒克"
Combo1(1).AddItem "五家渠"
Combo1(1).AddItem "吐鲁"
Combo1(1).AddItem "哈密"
Combo1(1).AddItem "和田"
Combo1(1).AddItem "阿克苏"
Combo1(1).AddItem "喀什"
Combo1(1).AddItem "克孜勒苏柯尔克孜自治州"
Combo1(1).AddItem "巴音郭楞蒙古自治州"
Combo1(1).AddItem "昌吉回族自治州"
Combo1(1).AddItem "博尔塔拉蒙古自治州"
Combo1(1).AddItem "伊犁哈萨克自治州"
Combo1(1).ListIndex = 0

Case "香港"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "香港"
Combo1(1).ListIndex = 0

Case "澳门"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "澳门"

Combo1(1).ListIndex = 0

Case "台湾"
Combo1(1).Clear

Combo1(1).AddItem "不限"
Combo1(1).AddItem "台北"
Combo1(1).AddItem "高雄"
Combo1(1).AddItem "基隆"
Combo1(1).AddItem "台中"
Combo1(1).AddItem "台南"
Combo1(1).AddItem "新竹"
Combo1(1).AddItem "嘉义"
Combo1(1).AddItem "台北县"
Combo1(1).AddItem "宜兰县"
Combo1(1).AddItem "新竹县"
Combo1(1).AddItem "桃园县"
Combo1(1).AddItem "苗栗县"
Combo1(1).AddItem "台中县"
Combo1(1).AddItem "彰化县"
Combo1(1).AddItem "南投县"
Combo1(1).AddItem "嘉义县"
Combo1(1).AddItem "云林县"
Combo1(1).AddItem "台南县"
Combo1(1).AddItem "高雄县"
Combo1(1).AddItem "屏东县"
Combo1(1).AddItem "台东县"
Combo1(1).AddItem "花莲县"
Combo1(1).AddItem "澎湖县"
Combo1(1).ListIndex = 0

Case "国外"
Combo1(1).Clear
Combo1(1).AddItem "不限"
Combo1(1).AddItem "美国"
Combo1(1).AddItem "日本"
Combo1(1).AddItem "英国"
Combo1(1).AddItem "法国"
Combo1(1).AddItem "德国"
Combo1(1).AddItem "加拿大"
Combo1(1).AddItem "澳大利亚"
Combo1(1).AddItem "俄罗斯"
Combo1(1).AddItem "新西兰"
Combo1(1).AddItem "意大利"
Combo1(1).AddItem "韩国"
Combo1(1).AddItem "比利时"
Combo1(1).AddItem "瑞士"
Combo1(1).AddItem "新加坡"
Combo1(1).AddItem "墨西哥"
Combo1(1).AddItem "荷兰"
Combo1(1).AddItem "巴西"
Combo1(1).AddItem "印度"
Combo1(1).AddItem "爱尔兰"
Combo1(1).AddItem "马来西亚"
Combo1(1).AddItem "丹麦"
Combo1(1).AddItem "南非"
Combo1(1).AddItem "西班牙"
Combo1(1).AddItem "其他"
Combo1(1).ListIndex = 0

End Select

End If

End Sub
Private Sub SetcomboEnf()
Dim i As Integer
For i = 0 To 3
Combo1(i).ListIndex = 0
Combo1(i).Enabled = False
Next
Check1.Enabled = False
Check2.Enabled = False
End Sub
Private Sub SetcomboEnt()
Dim i As Integer
For i = 0 To 3
Combo1(i).ListIndex = 0
Combo1(i).Enabled = True
Next
Check1.Enabled = True
Check2.Enabled = True
End Sub

Private Sub Form_Load()
SetcomboEnf
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
SetcomboEnf
Option3.Enabled = True
End If

End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
SetcomboEnt
Option3.Enabled = False
End If
End Sub