麻烦看程序的问题

837987273

QQ邮箱邮件随机发送器1.0.rar (2.06 KB, 下载次数: 9)

2011-7-23 22:52 上传

点击文件名下载附件
就是这个程序 现在一点开始发送就卡死······，我做的是QQ自动发邮件的东西

笨潴

1. 
   
2. .版本 2
   
3. .支持库 internet
   
4. 
   
5. .程序集 窗口程序集1
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. 
   
9. 
   
10. 
    
11. .子程序 _按钮1_被单击
    
12. 
    
13. 线程_启动 (&子程序1, 1)
    
14. 
    
15. .子程序 子程序1
    
16. 
    
17. 连接发信服务器 (发送服务器.内容, , 邮箱.内容, 密码.内容, )
    
18. 延时 (5000)
    
19. 起始QQ号 ＝ 起始号.内容
    
20. 结束QQ号 ＝ 结束号.内容
    
21. 剩下的QQ号 ＝ 到文本 (到数值 (结束QQ号) － 到数值 (起始号))
    
22. 进度条1.最大位置 ＝ 到整数 (剩下的QQ号)
    
23. 
    
24. .判断循环首 (剩下的QQ号 ≠ “0”)
    
25.     延时 (2000)
    
26.     发送邮件 (编辑框1.内容, 编辑框2.内容, 剩下的QQ号 ＋ “@qq.com”, , , 邮箱.内容, )
    
27.     延时 (1000)
    
28.     重要显示.标题 ＝ 到文本 (到数值 (重要显示.标题) ＋ 到数值 (“1”))
    
29.     进度条1.位置 ＝ 进度条1.位置 ＋ 1
    
30.     剩下的QQ号 ＝ 到文本 (到数值 (剩下的QQ号) － 到数值 (“1”))
    
31. 
    
32. .判断循环尾 ()
    
33. 信息框 (“发送完毕。”, 0, )
    

复制代码

heiyi

写好了，你看看啊

QQ邮箱邮件随机发送器1.0.rar (1.93 KB, 下载次数: 3)

2011-7-23 22:59 上传

点击文件名下载附件