Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub start_both()
- SetControlProperty(btn_start, False, 0)
- SetControlProperty(btn_stop, True, 0)
- SetControlProperty(Scheduler_No, False, 1)
- SetControlProperty(Scheduler_Yes, False, 1)
- SetControlProperty(Proxybeast_Action, False, 1)
- SetControlProperty(Proxybeast_Source, False, 1)
- SetControlProperty(proxybeast_export, False, 1)
- SetControlProperty(proxybeast_sendemail, False, 1)
- SetControlProperty(proxybeast_sendftp, False, 1)
- SetControlProperty(check_scraper_integrated, False, 1)
- SetControlProperty(check_scraper_own, False, 1)
- SetControlProperty(check_blacklist_integrated, False, 1)
- SetControlProperty(check_blacklist_own, False, 1)
- SetControlProperty(btn_blacklistown, False, 1)
- SetControlProperty(btn_scrapeown, False, 1)
- SetControlProperty(check_limit, False, 1)
- SetControlProperty(proxybeast_limit, False, 1)
- SetControlProperty(proxybeast_threads, False, 1)
- ProxiesDBDataSet.Proxies.Clear()
- ProxySet.Clear()
- ProxySet.TrimExcess()
- c = 0
- url = 0
- SetControlProperty(proxybeast_timeout, False, 1)
- SetControlProperty(proxybeast_proxytypeurl, False, 1)
- SetControlProperty(check_proxytype, False, 1)
- proxies_total.Text = "0"
- proxies_anonymous.Text = "0"
- proxies_checked.Text = "0"
- proxies_dead.Text = "0"
- proxies_elite.Text = "0"
- proxies_live.Text = "0"
- proxies_transparent.Text = "0"
- ucount = ProxiesDBDataSet.Proxies.Rows.Count
- proxies_unchecked.Text = ucount.ToString
- proxies_unknown.Text = "0"
- acount = 0
- dcount = 0
- ccount = 0
- trancount = 0
- anoncount = 0
- elicount = 0
- unkcount = 0
- row = 0
- connectioncount = 0
- maxconnections = proxybeast_maxconnections.Value
- If Scheduler_Yes.Checked Then
- SetControlProperty(proxybeast_repeat, False, 1)
- SetControlProperty(check_email, False, 1)
- SetControlProperty(check_ftp, False, 1)
- SetControlProperty(check_export_anon_disable, False, 1)
- SetControlProperty(check_export_anon_anonymous, False, 1)
- SetControlProperty(check_export_anon_transparent, False, 1)
- SetControlProperty(check_export_anon_elite, False, 1)
- SetControlProperty(check_export_speed_fast, False, 1)
- SetControlProperty(check_export_speed_medium, False, 1)
- SetControlProperty(check_export_speed_slow, False, 1)
- For Each c As Control In Panel1.Controls
- If TypeOf c Is CheckBox Then
- SetControlProperty(c, False, 1)
- End If
- Next
- SetControlProperty(btn_exportsave, False, 1)
- SetControlProperty(proxybeast_email_host, False, 1)
- SetControlProperty(proxybeast_email_password, False, 1)
- SetControlProperty(proxybeast_email_port, False, 1)
- SetControlProperty(proxybeast_email_sendto, False, 1)
- SetControlProperty(proxybeast_email_username, False, 1)
- SetControlProperty(check_custombody, False, 1)
- SetControlProperty(btn_emailbody, False, 1)
- SetControlProperty(btn_emailtest, False, 1)
- SetControlProperty(proxybeast_ftp_host, False, 1)
- SetControlProperty(proxybeast_ftp_password, False, 1)
- SetControlProperty(proxybeast_ftp_port, False, 1)
- SetControlProperty(proxybeast_ftp_username, False, 1)
- SetControlProperty(btn_testftp, False, 1)
- SetControlProperty(btn_reset, False, 1)
- End If
- End Sub
Add Comment
Please, Sign In to add comment