I'm lookin for a couple of good sources that can help the average beginner.
Such as:
Generators, etc.
Thanks!
(Nov 15, 2014 04:08 PM)Achievement Hunter Wrote: I'm lookin for a couple of good sources that can help the average beginner.
Such as:
Generators, etc.
Thanks!
GDI Region Screen Capture with API upload https://hackforums.net/showthread.php?tid=4537480
Proper Spammer: https://hackforums.net/showthread.php?tid=4508274
DO NOT DEAL WITH THIS MEMBER
(Nov 15, 2014 04:43 PM)AEDEAD Wrote: GDI Region Screen Capture with API upload https://hackforums.net/showthread.php?tid=4537480
Proper Spammer: https://hackforums.net/showthread.php?tid=4508274
OP explicitly said GOOD sources. Not shit sources randomly plucked from the internet.
(Nov 15, 2014 04:51 PM)Odus Wrote: OP explicitly said GOOD sources. Not shit sources randomly plucked from the internet.
Please refrain from shit posting, OP is shit posting as well I believe due to this past threads in this section.
I already told him to use Dreamincode or MSDN for reference.
(Nov 15, 2014 04:58 PM)AEDEAD Wrote: Please refrain from shit posting, OP is shit posting as well I believe due to this past threads in this section.
I already told him to use Dreamincode or MSDN for reference.
He isn't shit posting, it's truth posting. You are one of the worse coders around here. And OP did ask for good sources he can C/p from.
(Nov 15, 2014 05:02 PM)Cornflower Blue இڿڰۣ-ڰۣ— Wrote: He isn't shit posting, it's truth posting. You are one of the worse coders around here. And OP did ask for good sources he can C/p from.
The source I provided was 100% copy and pastable, my gdi region selection along with the IMGUR API are provided as source only in the thread, i never uploaded a project files for that. He could definitely learn a lot from it even the minor things.
You are shit posting too, as I told the person before you, please refrain from shit posting.
To stay on topic, and to show how good of a programmer I am i'll post my spammer source here!
Code Public Class Form1
Private Lines() As String, RND As Random
Public Const WM_HOTKEY As Integer = &H312
Public Const NULL As Integer = &H0
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
Dim B As Boolean
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Call RegisterHotKey(Me.Handle, 1, NULL, Keys.F5)
Call RegisterHotKey(Me.Handle, 2, NULL, Keys.F6)
Call RegisterHotKey(Me.Handle, 3, NULL, Keys.F1)
Call RegisterHotKey(Me.Handle, 4, NULL, Keys.Escape)
FontComboBox1.Populate(True)
B = False
End Sub
Private Sub MainForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
Call UnregisterHotKey(Me.Handle, 1)
Call UnregisterHotKey(Me.Handle, 2)
Call UnregisterHotKey(Me.Handle, 3)
Call UnregisterHotKey(Me.Handle, 4)
Application.ExitThread()
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_HOTKEY Then
Dim id As IntPtr = m.WParam
Select Case (id.ToString)
Case "1" : B = True : While B = True : SpamText() : End While
Case "2" : B = False
Case "3" : SpamText()
Case "4" : End
End Select
End If
MyBase.WndProc(m)
End Sub
Public Function HandleSendKeys(ByVal Richtextbox1 As String) As String
Richtextbox1 = Replace$(Richtextbox1, "{", Chr(1) & "{" & Chr(2))
Richtextbox1 = Replace$(Richtextbox1, "}", Chr(1) & "}" & Chr(2))
Richtextbox1 = Replace$(Richtextbox1, Chr(1), "{")
Richtextbox1 = Replace$(Richtextbox1, Chr(2), "}")
Richtextbox1 = Replace$(Richtextbox1, "+", "{+}")
Richtextbox1 = Replace$(Richtextbox1, "^", "{^}")
Richtextbox1 = Replace$(Richtextbox1, "%", "{%}")
Richtextbox1 = Replace$(Richtextbox1, "~", "{~}")
Richtextbox1 = Replace$(Richtextbox1, "(", "{(}")
Richtextbox1 = Replace$(Richtextbox1, ")", "{)}")
Richtextbox1 = Replace$(Richtextbox1, "[", "{[}")
Richtextbox1 = Replace$(Richtextbox1, "]", "{]}")
HandleSendKeys = Richtextbox1
End Function
Public Sub SpamText()
RichTextBox1.ReadOnly = True
Lines = RichTextBox1.Lines
If Lines.Count > 0 Then
For Each strLine As String In Lines
SendKeys.Send(HandleSendKeys(strLine)) : SendKeys.Send("{ENTER}")
Next
Application.DoEvents()
RichTextBox1.ReadOnly = False
End If
End Sub
End Class
Nov 15, 2014 05:11 PM
(This post was last modified: Nov 15, 2014 05:15 PM by Nikey646.)
(Nov 15, 2014 04:58 PM)AEDEAD Wrote: Please refrain from shit posting, OP is shit posting as well I believe due to this past threads in this section.
I already told him to use Dreamincode or MSDN for reference.
Shit posting? You call the thread's you linked quality? One literally has an image of a dick in it. If that isn't shit posting, i dunno what is.
Edit:
(Nov 15, 2014 05:10 PM)AEDEAD Wrote: The source I provided was 100% copy and pastable, my gdi region selection along with the IMGUR API are provided as source only in the thread, i never uploaded a project files for that. He could definitely learn a lot from it even the minor things.
You are shit posting too, as I told the person before you, please refrain from shit posting.
To stay on topic, and to show how good of a programmer I am i'll post my spammer source here!
Code Public Class Form1
Private Lines() As String, RND As Random
Public Const WM_HOTKEY As Integer = &H312
Public Const NULL As Integer = &H0
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
Dim B As Boolean
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Call RegisterHotKey(Me.Handle, 1, NULL, Keys.F5)
Call RegisterHotKey(Me.Handle, 2, NULL, Keys.F6)
Call RegisterHotKey(Me.Handle, 3, NULL, Keys.F1)
Call RegisterHotKey(Me.Handle, 4, NULL, Keys.Escape)
FontComboBox1.Populate(True)
B = False
End Sub
Private Sub MainForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
Call UnregisterHotKey(Me.Handle, 1)
Call UnregisterHotKey(Me.Handle, 2)
Call UnregisterHotKey(Me.Handle, 3)
Call UnregisterHotKey(Me.Handle, 4)
Application.ExitThread()
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_HOTKEY Then
Dim id As IntPtr = m.WParam
Select Case (id.ToString)
Case "1" : B = True : While B = True : SpamText() : End While
Case "2" : B = False
Case "3" : SpamText()
Case "4" : End
End Select
End If
MyBase.WndProc(m)
End Sub
Public Function HandleSendKeys(ByVal Richtextbox1 As String) As String
Richtextbox1 = Replace$(Richtextbox1, "{", Chr(1) & "{" & Chr(2))
Richtextbox1 = Replace$(Richtextbox1, "}", Chr(1) & "}" & Chr(2))
Richtextbox1 = Replace$(Richtextbox1, Chr(1), "{")
Richtextbox1 = Replace$(Richtextbox1, Chr(2), "}")
Richtextbox1 = Replace$(Richtextbox1, "+", "{+}")
Richtextbox1 = Replace$(Richtextbox1, "^", "{^}")
Richtextbox1 = Replace$(Richtextbox1, "%", "{%}")
Richtextbox1 = Replace$(Richtextbox1, "~", "{~}")
Richtextbox1 = Replace$(Richtextbox1, "(", "{(}")
Richtextbox1 = Replace$(Richtextbox1, ")", "{)}")
Richtextbox1 = Replace$(Richtextbox1, "[", "{[}")
Richtextbox1 = Replace$(Richtextbox1, "]", "{]}")
HandleSendKeys = Richtextbox1
End Function
Public Sub SpamText()
RichTextBox1.ReadOnly = True
Lines = RichTextBox1.Lines
If Lines.Count > 0 Then
For Each strLine As String In Lines
SendKeys.Send(HandleSendKeys(strLine)) : SendKeys.Send("{ENTER}")
Next
Application.DoEvents()
RichTextBox1.ReadOnly = False
End If
End Sub
End Class
Your "Spammer" will freeze unless you force the UI Thread to process other events. Learn to Multi-thread properly, or at least use a timer.
If the Dictionary had a definition for a Horrible Coder, it would just link to your Hack Forums Profile. You use Holdovers from the VB6 Language in VB.Net, and most likely a 4.0+ Framework. Your "Proper Spammer" uses a single Thread and will freeze horribly on large amount's of text, while shitting on Timers, which can at least run without freezing the UI Thread or requiring Application.DoEvents() to successfully execute.
(Nov 15, 2014 05:11 PM)Nikey646 Wrote: Shit posting? You call the thread's you linked quality? One literally has an image of a dick in it. If that isn't shit posting, i dunno what is.
Edit:
Your "Spammer" will freeze unless you force the UI Thread to process other events. Learn to Multi-thread properly, or at least use a timer.
If the Dictionary had a definition for a Horrible Coder, it would just link to your Hack Forums Profile. You use Holdovers from the VB6 Language in VB.Net, and most likely a 4.0+ Framework. Your "Proper Spammer" uses a single Thread and will freeze horribly on large amount's of text, while shitting on Timers, which can at least run without freezing the UI Thread or requiring Application.DoEvents() to successfully execute.
O Dayum, get own3d son.
-Achievement Hunter
|
