Hallo ich bin gerade dabei ein Tool zu scripten(was es ist werde ich noch nicht verraten) mit Visual Basic 2010
Ich habe aber ein Problem ich habe einen Timer der zahlen senden soll also er soll Zahlen senden die ca. 9 Stellen haben aber immer eine andere
z.b. my.computer.keyboard.sendkey (135634235)
aber die zahl soll immer anderes sein also eine Variabele also beim ersten mal senden kommt 135634235 dan nochaml senden dann kommt 9846274912
usw also immer anders ? wie bekomme ich das hin ???
Habe schon paar Code´s ausprobiert aba erfolglos... Bitte könnt ihr mir helfen!?!
Thxxx man funkt supa aba ein fehler haste gemacht^^ ist aba logisch denke haste nur übersehen^^
es muss bei
Quote:
Dim random As New Random()
Randomize()
My.Computer.Keyboard.SendKeys(random.Next(99999999 , 1000000000)
Eine klammer dahinter die fehlt^^
also
Quote:
Dim random As New Random()
Randomize()
My.Computer.Keyboard.SendKeys(random.Next(99999999 , 1000000000))
So ^^ eine problem habe ich noch ich muss den timmer mit einem hotkey starten kann mir jemand den code dafür geben bitte habe schon paar ausprobier aba hat nix gefunkt^^ also Timer1 muss gestartet werden^^
so wie es aussieht will er nen spambot machen und mit sendkeys würde es wenn die form offen ist alles zum hängen bringen du
du fügst ne neue class hinzu:
PHP Code:
Public Class clsHotKey
Implements IMessageFilter
Private Declare Function RegisterHotKey Lib "user32" (ByVal Hwnd As IntPtr, ByVal ID As Integer, ByVal Modifiers As Integer, ByVal Key As Integer) As Integer
Private Declare Function UnregisterHotKey Lib "user32" (ByVal Hwnd As IntPtr, ByVal ID As Integer) As Integer
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal IDString As String) As Short
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal Atom As Short) As Short
Public Class HotKeyObject
Private mHotKey As Keys
Private mModifier As MODKEY
Private mHotKeyID As String
Private mAtomID As Short
Public Property HotKey() As Keys
Get
Return mHotKey
End Get
Set(ByVal value As Keys)
mHotKey = value
End Set
End Property
Public Property Modifier() As MODKEY
Get
Return mModifier
End Get
Set(ByVal value As MODKEY)
mModifier = value
End Set
End Property
Public Property HotKeyID() As String
Get
Return mHotKeyID
End Get
Set(ByVal value As String)
mHotKeyID = value
End Set
End Property
Public Property AtomID() As Short
Get
Return mAtomID
End Get
Set(ByVal value As Short)
mAtomID = value
End Set
End Property
Sub New(ByVal NewHotKey As Keys, ByVal NewModifier As MODKEY, ByVal NewHotKeyID As String)
mHotKey = NewHotKey
mModifier = NewModifier
mHotKeyID = NewHotKeyID
End Sub
End Class
Private mForm As Form
Private Const WM_HOTKEY As Integer = &H312
Private mHotKeyList As New System.Collections.Generic.Dictionary(Of Short, HotKeyObject)
Private mHotKeyIDList As New System.Collections.Generic.Dictionary(Of String, Short)
Public Event HotKeyPressed(ByVal HotKeyID As String)
Public Enum MODKEY As Integer
MOD_ALT = 1
MOD_CONTROL = 2
MOD_SHIFT = 4
MOD_WIN = 8
End Enum
Sub New(ByVal OwnerForm As Form)
mForm = OwnerForm
Application.AddMessageFilter(Me)
End Sub
Public Sub AddHotKey(ByVal KeyCode As Keys, ByVal Modifiers As MODKEY, ByVal HotKeyID As String)
If mHotKeyIDList.ContainsKey(HotKeyID) = True Then Exit Sub
Dim ID As Short = GlobalAddAtom(HotKeyID)
mHotKeyIDList.Add(HotKeyID, ID)
mHotKeyList.Add(ID, New HotKeyObject(KeyCode, Modifiers, HotKeyID))
RegisterHotKey(mForm.Handle, ID, mHotKeyList(ID).Modifier, mHotKeyList(ID).HotKey)
End Sub
Public Sub RemoveHotKey(ByVal HotKeyID As String)
If mHotKeyIDList.ContainsKey(HotKeyID) = False Then Exit Sub
Dim ID As Short = mHotKeyIDList(HotKeyID)
mHotKeyIDList.Remove(HotKeyID)
mHotKeyList.Remove(ID)
UnregisterHotKey(mForm.Handle, CInt(ID))
GlobalDeleteAtom(ID)
End Sub
Private Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
If m.Msg = WM_HOTKEY Then
RaiseEvent HotKeyPressed(mHotKeyList(CShort(m.WParam)).HotKeyID)
End If
End Function
End Class
Das schreibste under Form1 oder deine andere Form
PHP Code:
Public WithEvents HotKey As New clsHotKey(Me)
das ist der sub wenn für alle hotkeys die du hinzgefügt hast
PHP Code:
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed
das kannste da drunter dann schreiben z.B:
PHP Code:
If HotkeyId = "Keys1" then
timer1.start()
end if
end sub
Okay bekomme das net hin xDD ich habe eine idee
ich sage euch mal was ich machen will^^
Also ich habe gedacht ich mache mal ein Toll das die Registrierungsseite von Metin2 p server vollspammt die kein Captcha haben also
habe angefangen mit :
3 button´s
1. Start
2. Stop
3.Close
so dann noch ein Timer
So dann die Codes:
Quote:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim random As New Random()
Randomize()
My.Computer.Keyboard.SendKeys(random.Next(99999999 , 1000000000))
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234512)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234512)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234512)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234567)
My.Computer.Keyboard.SendKeys("{Enter}")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
kann mir jemand diesen Code mit einem hotkey zu starten und stoppen einbauen???
am besten mit ^dem button unter der esc taste also ("{^}")
Public Class Form1
Public WithEvents HotKey As New clsHotKey(Me)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
HotKey.AddHotKey(Keys.F1, Nothing, "Keys1") ' fügt einen Hotkey hinzu beim Laden der Form
HotKey.AddHotKey(Keys.F2, Nothing, "Keys2") ' fügt einen Hotkey hinzu beim Laden der Form
HotKey.AddHotKey(Keys.F3, Nothing, "Keys3") ' fügt einen Hotkey hinzu beim Laden der Form
End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed
If HotKeyID = "Keys1" Then ' in dem fall wenn F1 dann startet der den Timer1 und somit deinen Spam
Timer1.Enabled = True
End If
If HotKeyID = "Keys2" Then ' in dem fall stoppt er den timer1 und somit deinen Spam
Timer1.Enabled = False
End If
If HotKeyID = "Keys3" Then 'in dem fall beednet er den Prozess mach das mit end da wird auf jedenfall alles beendet von deinem programm
End
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim random As New Random()
Randomize()
My.Computer.Keyboard.SendKeys(random.Next(99999999, 1000000000))
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234512)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234512)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234512)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(1234567)
My.Computer.Keyboard.SendKeys("{Enter}")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
Hallo 10/17/2009 - Metin2 - 16 Replies Hallo, ich benutze den von banane Cheat bitte helfen Sie mir, wenn ich drücken metin2ko es derzeit nicht funktionieren, vielen Dank für die Hilfe
hallo 06/15/2009 - Metin2 Private Server - 1 Replies hi ich wollte mal was fragen unswar ich spiele Clubmt2 und bin im ot im wasser gefangen relog alles versucht geht nix wie soll ich wieder rauskommen ich kann den gm ga net anschreiben weil da ja deutsche nicht erlaubt sind also was soll ich machn??? danke würde mich voll freuen wenn ihr mir helfen könntet
Hallo Echo, Hallo Blauwiggle 01/12/2009 - Guild Wars - 9 Replies Hey ich versuche hier mal an Blauwiggle ranzukommen... Antwortest du ABSICHTLICH nicht auf meine PNs an dich oder bekommst die nur net mit.
Wenn du mir keinen RA Bot verkaufen möchtest dann schreib mir das wenigstens eben... Ansonsten ^^ würde ich mich freuen ein Kunde von dir werden zu dürfen.
Hoffe ich bekomme hier mal ne Antwort!
Bis denne!
Hallo, Habt ihr einen echten Zocker PC ?Hallo 01/08/2009 - Technical Support - 12 Replies Hallo,
Nach suche in der SuFu generell nichts gefunden.
Also Ich wollte mal wissen wer von euch einen echten leistngsstarken zocker PV besitzt ? Ich habe ja jetzt noch einen normalen PC aba ich will mir noch einen ZP besorgen. (Wegen dem Zitat bitte nicht in Handel verschieben) Wenn jemand einen guten Rechner kennt einen echt starken zu einem angemessenen Preis Pls eine PN an mich!
:mofo:
@Striker
