Guest User

Untitled

a guest
Dec 16th, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.75 KB | None | 0 0
  1. Public Sub start_both()
  2. SetControlProperty(btn_start, False, 0)
  3. SetControlProperty(btn_stop, True, 0)
  4. SetControlProperty(Scheduler_No, False, 1)
  5. SetControlProperty(Scheduler_Yes, False, 1)
  6. SetControlProperty(Proxybeast_Action, False, 1)
  7. SetControlProperty(Proxybeast_Source, False, 1)
  8. SetControlProperty(proxybeast_export, False, 1)
  9. SetControlProperty(proxybeast_sendemail, False, 1)
  10. SetControlProperty(proxybeast_sendftp, False, 1)
  11. SetControlProperty(check_scraper_integrated, False, 1)
  12. SetControlProperty(check_scraper_own, False, 1)
  13. SetControlProperty(check_blacklist_integrated, False, 1)
  14. SetControlProperty(check_blacklist_own, False, 1)
  15. SetControlProperty(btn_blacklistown, False, 1)
  16. SetControlProperty(btn_scrapeown, False, 1)
  17. SetControlProperty(check_limit, False, 1)
  18. SetControlProperty(proxybeast_limit, False, 1)
  19. SetControlProperty(proxybeast_threads, False, 1)
  20. ProxiesDBDataSet.Proxies.Clear()
  21. ProxySet.Clear()
  22. ProxySet.TrimExcess()
  23. c = 0
  24. url = 0
  25.  
  26. SetControlProperty(proxybeast_timeout, False, 1)
  27. SetControlProperty(proxybeast_proxytypeurl, False, 1)
  28. SetControlProperty(check_proxytype, False, 1)
  29. proxies_total.Text = "0"
  30. proxies_anonymous.Text = "0"
  31. proxies_checked.Text = "0"
  32. proxies_dead.Text = "0"
  33. proxies_elite.Text = "0"
  34. proxies_live.Text = "0"
  35. proxies_transparent.Text = "0"
  36. ucount = ProxiesDBDataSet.Proxies.Rows.Count
  37. proxies_unchecked.Text = ucount.ToString
  38. proxies_unknown.Text = "0"
  39. acount = 0
  40. dcount = 0
  41. ccount = 0
  42. trancount = 0
  43. anoncount = 0
  44. elicount = 0
  45. unkcount = 0
  46. row = 0
  47. connectioncount = 0
  48. maxconnections = proxybeast_maxconnections.Value
  49.  
  50. If Scheduler_Yes.Checked Then
  51. SetControlProperty(proxybeast_repeat, False, 1)
  52. SetControlProperty(check_email, False, 1)
  53. SetControlProperty(check_ftp, False, 1)
  54. SetControlProperty(check_export_anon_disable, False, 1)
  55. SetControlProperty(check_export_anon_anonymous, False, 1)
  56. SetControlProperty(check_export_anon_transparent, False, 1)
  57. SetControlProperty(check_export_anon_elite, False, 1)
  58. SetControlProperty(check_export_speed_fast, False, 1)
  59. SetControlProperty(check_export_speed_medium, False, 1)
  60. SetControlProperty(check_export_speed_slow, False, 1)
  61. For Each c As Control In Panel1.Controls
  62. If TypeOf c Is CheckBox Then
  63. SetControlProperty(c, False, 1)
  64. End If
  65. Next
  66. SetControlProperty(btn_exportsave, False, 1)
  67. SetControlProperty(proxybeast_email_host, False, 1)
  68. SetControlProperty(proxybeast_email_password, False, 1)
  69. SetControlProperty(proxybeast_email_port, False, 1)
  70. SetControlProperty(proxybeast_email_sendto, False, 1)
  71. SetControlProperty(proxybeast_email_username, False, 1)
  72. SetControlProperty(check_custombody, False, 1)
  73. SetControlProperty(btn_emailbody, False, 1)
  74. SetControlProperty(btn_emailtest, False, 1)
  75.  
  76. SetControlProperty(proxybeast_ftp_host, False, 1)
  77. SetControlProperty(proxybeast_ftp_password, False, 1)
  78. SetControlProperty(proxybeast_ftp_port, False, 1)
  79. SetControlProperty(proxybeast_ftp_username, False, 1)
  80. SetControlProperty(btn_testftp, False, 1)
  81. SetControlProperty(btn_reset, False, 1)
  82. End If
  83. End Sub
Add Comment
Please, Sign In to add comment