Hallo

[WhiteCollar]

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!?!



(bin vb anfänger)

Mfg TerrorTom

[HardCore.1337]

ich kenn mich mit VB nicht aus, aber vlt. gibt es ja eine art Random(Zufalls) Funktion

[WhiteCollar]

Ja sowas denke ich auch habe auch schon ähnliche codes gesehen bekomme die aba net mehr hin^^ were cool wenn jemand denn code hätte^^

[Jeoni]

Hey,
pack mal das in dein Timer.Tick:

Dim random As New Random()
Randomize()
My.Computer.Keyboard.SendKeys(random.Next(99999999, 1000000000)

Hoffe, dass das klappt. Er müsste jetzt jeden Tick eine Zahl zwischen 100000000 und 99999999 generieren.

Hoffe ich konnte helfen
Jeoni

[WhiteCollar]

Thxxx man funkt supa aba ein fehler haste gemacht^^ ist aba logisch denke haste nur übersehen^^
es muss bei

Dim random As New Random()
Randomize()
My.Computer.Keyboard.SendKeys(random.Next(99999999 , 1000000000)

Eine klammer dahinter die fehlt^^
also

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^^

[Project Rivalry]

timer1.start()

=DDDD

[WhiteCollar]

ja ne xDD ich meine durch ein hotkey^^

[Project Rivalry]

hm das ist etwas komplexer morgen kann ich dirs posten heute kb mehr xD

[Secredo]

GetAsyncKeyState.
Google sagt dir den Rest. ;D

Wenn der Hotkey nur funktionieren muss, wenn die Form aktiviert ist kannst du auch mit dem KeyDown Event von der Form arbeiten.


MfG Secredo

[Project Rivalry]

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 


So fügste en Hotkey dazu:

PHP Code:

 HotKey.AddHotKey(Keys.F1, Nothing, "Keys1") 


Keys1 ist die id die verwendeste im code wie oben

Keys.F1 ist in dem Fall F1 auf deiner tastatur

[WhiteCollar]

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:

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 ("{^}")

[Project Rivalry]

PHP Code:

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 


[WhiteCollar]

ehmm der hat bei mir ne fehlermeldung in der ersten zeile bei

Public Class Form1
Public WithEvents HotKey As New clsHotKey(Me)

[Project Rivalry]

du must wieder die klasse hinzufügen

[WhiteCollar]

Wie jetzt?^^