diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..1b86e7e
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,268 @@
+## Ignore Visual Studio temporary files, build results, and
+## files generated by popular Visual Studio add-ons.
+
+# User-specific files
+*.suo
+*.user
+*.userosscache
+*.sln.docstates
+
+# User-specific files (MonoDevelop/Xamarin Studio)
+*.userprefs
+
+# Build results
+[Dd]ebug/
+[Dd]ebugPublic/
+[Rr]elease/
+[Rr]eleases/
+x64/
+x86/
+bld/
+[Bb]in/
+[Oo]bj/
+[Ll]og/
+
+# Visual Studio 2015 cache/options directory
+.vs/
+# Uncomment if you have tasks that create the project's static files in wwwroot
+#wwwroot/
+
+# MSTest test Results
+[Tt]est[Rr]esult*/
+[Bb]uild[Ll]og.*
+
+# NUNIT
+*.VisualState.xml
+TestResult.xml
+
+# Build Results of an ATL Project
+[Dd]ebugPS/
+[Rr]eleasePS/
+dlldata.c
+
+# DNX
+project.lock.json
+project.fragment.lock.json
+artifacts/
+
+*_i.c
+*_p.c
+*_i.h
+*.ilk
+*.meta
+*.obj
+*.pch
+*.pdb
+*.pgc
+*.pgd
+*.rsp
+*.sbr
+*.tlb
+*.tli
+*.tlh
+*.tmp
+*.tmp_proj
+*.log
+*.vspscc
+*.vssscc
+.builds
+*.pidb
+*.svclog
+*.scc
+
+# Chutzpah Test files
+_Chutzpah*
+
+# Visual C++ cache files
+ipch/
+*.aps
+*.ncb
+*.opendb
+*.opensdf
+*.sdf
+*.cachefile
+*.VC.db
+*.VC.VC.opendb
+
+# Visual Studio profiler
+*.psess
+*.vsp
+*.vspx
+*.sap
+
+# TFS 2012 Local Workspace
+$tf/
+
+# Guidance Automation Toolkit
+*.gpState
+
+# ReSharper is a .NET coding add-in
+_ReSharper*/
+*.[Rr]e[Ss]harper
+*.DotSettings.user
+
+# JustCode is a .NET coding add-in
+.JustCode
+
+# TeamCity is a build add-in
+_TeamCity*
+
+# DotCover is a Code Coverage Tool
+*.dotCover
+
+# Visual Studio code coverage results
+*.coverage
+*.coveragexml
+
+# NCrunch
+_NCrunch_*
+.*crunch*.local.xml
+nCrunchTemp_*
+
+# MightyMoose
+*.mm.*
+AutoTest.Net/
+
+# Web workbench (sass)
+.sass-cache/
+
+# Installshield output folder
+[Ee]xpress/
+
+# DocProject is a documentation generator add-in
+DocProject/buildhelp/
+DocProject/Help/*.HxT
+DocProject/Help/*.HxC
+DocProject/Help/*.hhc
+DocProject/Help/*.hhk
+DocProject/Help/*.hhp
+DocProject/Help/Html2
+DocProject/Help/html
+
+# Click-Once directory
+publish/
+
+# Publish Web Output
+*.[Pp]ublish.xml
+*.azurePubxml
+# TODO: Comment the next line if you want to checkin your web deploy settings
+# but database connection strings (with potential passwords) will be unencrypted
+*.pubxml
+*.publishproj
+
+# Microsoft Azure Web App publish settings. Comment the next line if you want to
+# checkin your Azure Web App publish settings, but sensitive information contained
+# in these scripts will be unencrypted
+PublishScripts/
+
+# NuGet Packages
+*.nupkg
+# The packages folder can be ignored because of Package Restore
+**/packages/*
+# except build/, which is used as an MSBuild target.
+!**/packages/build/
+# Uncomment if necessary however generally it will be regenerated when needed
+#!**/packages/repositories.config
+# NuGet v3's project.json files produces more ignoreable files
+*.nuget.props
+*.nuget.targets
+
+# Microsoft Azure Build Output
+csx/
+*.build.csdef
+
+# Microsoft Azure Emulator
+ecf/
+rcf/
+
+# Windows Store app package directories and files
+AppPackages/
+BundleArtifacts/
+Package.StoreAssociation.xml
+_pkginfo.txt
+
+# Visual Studio cache files
+# files ending in .cache can be ignored
+*.[Cc]ache
+# but keep track of directories ending in .cache
+!*.[Cc]ache/
+
+# Others
+ClientBin/
+~$*
+*~
+*.dbmdl
+*.dbproj.schemaview
+*.jfm
+*.pfx
+*.publishsettings
+node_modules/
+orleans.codegen.cs
+
+# Since there are multiple workflows, uncomment next line to ignore bower_components
+# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622)
+#bower_components/
+
+# RIA/Silverlight projects
+Generated_Code/
+
+# Backup & report files from converting an old project file
+# to a newer Visual Studio version. Backup files are not needed,
+# because we have git ;-)
+_UpgradeReport_Files/
+Backup*/
+UpgradeLog*.XML
+UpgradeLog*.htm
+
+# SQL Server files
+*.mdf
+*.ldf
+
+# Business Intelligence projects
+*.rdl.data
+*.bim.layout
+*.bim_*.settings
+
+# Microsoft Fakes
+FakesAssemblies/
+
+# GhostDoc plugin setting file
+*.GhostDoc.xml
+
+# Node.js Tools for Visual Studio
+.ntvs_analysis.dat
+
+# Visual Studio 6 build log
+*.plg
+
+# Visual Studio 6 workspace options file
+*.opt
+
+# Visual Studio LightSwitch build output
+**/*.HTMLClient/GeneratedArtifacts
+**/*.DesktopClient/GeneratedArtifacts
+**/*.DesktopClient/ModelManifest.xml
+**/*.Server/GeneratedArtifacts
+**/*.Server/ModelManifest.xml
+_Pvt_Extensions
+
+# Paket dependency manager
+.paket/paket.exe
+paket-files/
+
+# FAKE - F# Make
+.fake/
+
+# JetBrains Rider
+.idea/
+*.sln.iml
+
+# CodeRush
+.cr/
+
+# Python Tools for Visual Studio (PTVS)
+__pycache__/
+*.pyc
+
+# Cake - Uncomment if you are using it
+# tools/
diff --git a/MainForm.Designer.vb b/MainForm.Designer.vb
index b990058..6904af8 100644
--- a/MainForm.Designer.vb
+++ b/MainForm.Designer.vb
@@ -48,10 +48,14 @@ Partial Class MainForm
Me.web_browser_grp = New System.Windows.Forms.GroupBox()
Me.webBrowser = New System.Windows.Forms.WebBrowser()
Me.hit_timer = New System.Windows.Forms.Timer(Me.components)
+ Me.statusStrip1 = New System.Windows.Forms.StatusStrip()
+ Me.hit_count = New System.Windows.Forms.ToolStripStatusLabel()
+ Me.hit_cntdown = New System.Windows.Forms.ToolStripStatusLabel()
Me.main_control_grp.SuspendLayout
Me.proxy_grp.SuspendLayout
Me.hitspeed_grp.SuspendLayout
Me.web_browser_grp.SuspendLayout
+ Me.statusStrip1.SuspendLayout
Me.SuspendLayout
'
'main_control_grp
@@ -71,6 +75,7 @@ Partial Class MainForm
'
'stop_btn
'
+ Me.stop_btn.Enabled = false
Me.stop_btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.stop_btn.ForeColor = System.Drawing.Color.Red
Me.stop_btn.Location = New System.Drawing.Point(358, 80)
@@ -79,9 +84,11 @@ Partial Class MainForm
Me.stop_btn.TabIndex = 4
Me.stop_btn.Text = "Stop"
Me.stop_btn.UseVisualStyleBackColor = true
+ AddHandler Me.stop_btn.Click, AddressOf Me.Stop_btnClick
'
'start_btn
'
+ Me.start_btn.Enabled = false
Me.start_btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.start_btn.ForeColor = System.Drawing.Color.Blue
Me.start_btn.Location = New System.Drawing.Point(275, 80)
@@ -90,6 +97,7 @@ Partial Class MainForm
Me.start_btn.TabIndex = 3
Me.start_btn.Text = "Start"
Me.start_btn.UseVisualStyleBackColor = true
+ AddHandler Me.start_btn.Click, AddressOf Me.Start_btnClick
'
'load_site_btn
'
@@ -100,6 +108,7 @@ Partial Class MainForm
Me.load_site_btn.TabIndex = 2
Me.load_site_btn.Text = "Load Website"
Me.load_site_btn.UseVisualStyleBackColor = true
+ AddHandler Me.load_site_btn.Click, AddressOf Me.Load_site_btnClick
'
'url_box
'
@@ -108,6 +117,7 @@ Partial Class MainForm
Me.url_box.Name = "url_box"
Me.url_box.Size = New System.Drawing.Size(380, 26)
Me.url_box.TabIndex = 0
+ AddHandler Me.url_box.TextChanged, AddressOf Me.Url_boxTextChanged
'
'label1
'
@@ -145,7 +155,7 @@ Partial Class MainForm
Me.proxy_box.Name = "proxy_box"
Me.proxy_box.Size = New System.Drawing.Size(245, 20)
Me.proxy_box.TabIndex = 0
- Me.proxy_box.Text = "121.183.4.54:51325 "
+ Me.proxy_box.Text = "null"
'
'hitspeed_grp
'
@@ -194,14 +204,42 @@ Partial Class MainForm
Me.webBrowser.Location = New System.Drawing.Point(3, 16)
Me.webBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.webBrowser.Name = "webBrowser"
+ Me.webBrowser.ScriptErrorsSuppressed = true
Me.webBrowser.Size = New System.Drawing.Size(439, 104)
Me.webBrowser.TabIndex = 0
'
+ 'hit_timer
+ '
+ AddHandler Me.hit_timer.Tick, AddressOf Me.Hit_timerTick
+ '
+ 'statusStrip1
+ '
+ Me.statusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.hit_count, Me.hit_cntdown})
+ Me.statusStrip1.Location = New System.Drawing.Point(0, 371)
+ Me.statusStrip1.Name = "statusStrip1"
+ Me.statusStrip1.Size = New System.Drawing.Size(469, 22)
+ Me.statusStrip1.TabIndex = 6
+ Me.statusStrip1.Text = "statusStrip1"
+ '
+ 'hit_count
+ '
+ Me.hit_count.Font = New System.Drawing.Font("Segoe UI", 9!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+ Me.hit_count.ForeColor = System.Drawing.Color.Purple
+ Me.hit_count.Name = "hit_count"
+ Me.hit_count.Size = New System.Drawing.Size(0, 17)
+ '
+ 'hit_cntdown
+ '
+ Me.hit_cntdown.Font = New System.Drawing.Font("Segoe UI", 9!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+ Me.hit_cntdown.Name = "hit_cntdown"
+ Me.hit_cntdown.Size = New System.Drawing.Size(0, 17)
+ '
'MainForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(469, 375)
+ Me.ClientSize = New System.Drawing.Size(469, 393)
+ Me.Controls.Add(Me.statusStrip1)
Me.Controls.Add(Me.web_browser_grp)
Me.Controls.Add(Me.hitspeed_grp)
Me.Controls.Add(Me.proxy_grp)
@@ -209,7 +247,7 @@ Partial Class MainForm
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "MainForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
- Me.Text = "Fake Hits Generator"
+ Me.Text = "Fake Hits Generator 0.4 Classic"
Me.main_control_grp.ResumeLayout(false)
Me.main_control_grp.PerformLayout
Me.proxy_grp.ResumeLayout(false)
@@ -217,8 +255,14 @@ Partial Class MainForm
Me.hitspeed_grp.ResumeLayout(false)
Me.hitspeed_grp.PerformLayout
Me.web_browser_grp.ResumeLayout(false)
+ Me.statusStrip1.ResumeLayout(false)
+ Me.statusStrip1.PerformLayout
Me.ResumeLayout(false)
+ Me.PerformLayout
End Sub
+ Private hit_cntdown As System.Windows.Forms.ToolStripStatusLabel
+ Private hit_count As System.Windows.Forms.ToolStripStatusLabel
+ Private statusStrip1 As System.Windows.Forms.StatusStrip
Private hit_timer As System.Windows.Forms.Timer
Private web_browser_grp As System.Windows.Forms.GroupBox
Friend webBrowser As System.Windows.Forms.WebBrowser
diff --git a/MainForm.resx b/MainForm.resx
index 387ade7..7ff8eb5 100644
--- a/MainForm.resx
+++ b/MainForm.resx
@@ -120,6 +120,9 @@
17, 17
+
+ 112, 17
+
diff --git a/MainForm.vb b/MainForm.vb
index 4b52b5a..a4f2678 100644
--- a/MainForm.vb
+++ b/MainForm.vb
@@ -5,6 +5,10 @@
' Time: 8:21 PM
'
Public Partial Class MainForm
+ Dim Timer_Value As Integer
+ Dim Speed As Integer
+ Dim Hits As Integer
+
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()
@@ -13,4 +17,57 @@ Public Partial Class MainForm
' TODO : Add constructor code after InitializeComponents
'
End Sub
+
+ Sub Load_site_btnClick(sender As Object, e As EventArgs)
+
+ If String.IsNullOrEmpty(url_box.Text) Or String.IsNullOrEmpty(hit_speed_val_box.Text) Then
+ MsgBox("Input details are missing!",vbExclamation,"Error")
+
+ Else
+ If proxy_box.Text = "null" Then
+ webBrowser.Navigate(url_box.Text)
+ Else
+ Use_Proxy.UseProxy(proxy_box.Text)
+ webBrowser.Navigate(url_box.Text)
+ End If
+
+ start_btn.Enabled = True
+ load_site_btn.Enabled = False
+
+ End If
+ End Sub
+
+ Sub Start_btnClick(sender As Object, e As EventArgs)
+ hit_timer.Enabled = True
+ Speed = hit_speed_val_box.Text
+ Hits = 0
+ start_btn.Enabled = False
+ stop_btn.Enabled = True
+ End Sub
+
+ Sub Hit_timerTick(sender As Object, e As EventArgs)
+ Timer_Value += 1
+ hit_cntdown.Text = "Waiting : " & Timer_Value.ToString
+
+ If Timer_Value = Speed Then
+ webBrowser.Refresh
+ webBrowser.Navigate(url_box.Text)
+ hit_count.Text = "Hits : " & Hits.ToString
+ Timer_Value = 0
+ Hits += 1
+ End If
+ End Sub
+
+ Sub Stop_btnClick(sender As Object, e As EventArgs)
+ hit_timer.Enabled = False
+ stop_btn.Enabled = False
+ load_site_btn.Enabled = True
+ hit_cntdown.Text = "Waiting : Stopped"
+ End Sub
+
+ Sub Url_boxTextChanged(sender As Object, e As EventArgs)
+ load_site_btn.Enabled = True
+ start_btn.Enabled = False
+ stop_btn.Enabled = False
+ End Sub
End Class
diff --git a/Use_Proxy.vb b/Use_Proxy.vb
index 18c40d9..b767674 100644
--- a/Use_Proxy.vb
+++ b/Use_Proxy.vb
@@ -17,7 +17,7 @@ Public Class Use_Proxy
Public proxyBypass As IntPtr
End Structure
- Public Sub UseProxy(ByVal strProxy As String)
+ Public Shared Sub UseProxy(ByVal strProxy As String)
Const INTERNET_OPTION_PROXY As Integer = 38
Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
diff --git a/bin/Debug/Fake Hits Generator.exe b/bin/Debug/Fake Hits Generator.exe
deleted file mode 100644
index da77806..0000000
Binary files a/bin/Debug/Fake Hits Generator.exe and /dev/null differ
diff --git a/bin/Debug/Fake Hits Generator.pdb b/bin/Debug/Fake Hits Generator.pdb
deleted file mode 100644
index 631c2e9..0000000
Binary files a/bin/Debug/Fake Hits Generator.pdb and /dev/null differ
diff --git a/obj/Debug/Fake Hits Generator.exe b/obj/Debug/Fake Hits Generator.exe
deleted file mode 100644
index da77806..0000000
Binary files a/obj/Debug/Fake Hits Generator.exe and /dev/null differ
diff --git a/obj/Debug/Fake Hits Generator.pdb b/obj/Debug/Fake Hits Generator.pdb
deleted file mode 100644
index 631c2e9..0000000
Binary files a/obj/Debug/Fake Hits Generator.pdb and /dev/null differ
diff --git a/obj/Debug/Fake Hits Generator.vbproj.FileListAbsolute.txt b/obj/Debug/Fake Hits Generator.vbproj.FileListAbsolute.txt
deleted file mode 100644
index c4884b4..0000000
--- a/obj/Debug/Fake Hits Generator.vbproj.FileListAbsolute.txt
+++ /dev/null
@@ -1,7 +0,0 @@
-C:\Users\IP-Man\Documents\SharpDevelop Projects\Fake Hits Generator\Fake Hits Generator\bin\Debug\Fake Hits Generator.exe
-C:\Users\IP-Man\Documents\SharpDevelop Projects\Fake Hits Generator\Fake Hits Generator\bin\Debug\Fake Hits Generator.pdb
-C:\Users\IP-Man\Documents\SharpDevelop Projects\Fake Hits Generator\Fake Hits Generator\obj\Debug\Fake Hits Generator.vbprojResolveAssemblyReference.cache
-C:\Users\IP-Man\Documents\SharpDevelop Projects\Fake Hits Generator\Fake Hits Generator\obj\Debug\Fake_Hits_Generator.MainForm.resources
-C:\Users\IP-Man\Documents\SharpDevelop Projects\Fake Hits Generator\Fake Hits Generator\obj\Debug\Fake Hits Generator.vbproj.GenerateResource.Cache
-C:\Users\IP-Man\Documents\SharpDevelop Projects\Fake Hits Generator\Fake Hits Generator\obj\Debug\Fake Hits Generator.exe
-C:\Users\IP-Man\Documents\SharpDevelop Projects\Fake Hits Generator\Fake Hits Generator\obj\Debug\Fake Hits Generator.pdb
diff --git a/obj/Debug/Fake Hits Generator.vbproj.GenerateResource.Cache b/obj/Debug/Fake Hits Generator.vbproj.GenerateResource.Cache
deleted file mode 100644
index 196f80b..0000000
Binary files a/obj/Debug/Fake Hits Generator.vbproj.GenerateResource.Cache and /dev/null differ
diff --git a/obj/Debug/Fake Hits Generator.vbprojResolveAssemblyReference.cache b/obj/Debug/Fake Hits Generator.vbprojResolveAssemblyReference.cache
deleted file mode 100644
index c25dd84..0000000
Binary files a/obj/Debug/Fake Hits Generator.vbprojResolveAssemblyReference.cache and /dev/null differ
diff --git a/obj/Debug/Fake_Hits_Generator.MainForm.resources b/obj/Debug/Fake_Hits_Generator.MainForm.resources
deleted file mode 100644
index 4607ffc..0000000
Binary files a/obj/Debug/Fake_Hits_Generator.MainForm.resources and /dev/null differ