[Release] Mining/Fight Tool

[EasyFarm]

Hi.

Hier ein kleines Projekt, welches ich in 2 Minuten gemacht habe für einen Freund.
Doch jetzt ist es hier.

Was kann es?

Entweder Minen, oder Hauen.

Das ganze ist z.B. dafür, dass wenn man eine XP-Farm hat, man nicht immer mit der Maus klicken, muss. Da gleiche für das Minen.
Man muss nun nurnoch W drücken, nicht mehr die Maus.

Ich denke, dass es ganz nützlich ist, und auch gesünder für die Hand ^^

Das ganze ist in VB.net gemacht und diesmal nicht geschützt.

Ihr könnt das ganze also decompilieren oder unten den Code direkt benutzen.

Download im Anhang.

Bild:


Anleitung:
Wenn ihr Kämpfen wollt, geht auf den Tab "Kampf" und drückt ingame F6/F7.
Wenn ihr Minen wollt, geht auf den Tab "Minen" und drückt ingame F6/F7.

Source:

 Spoiler

Public Class Form1
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
dwFlags As Integer, ByVal dx As Integer, _
ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
dwExtraInfo As Integer)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kampf.Tick
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If TabControl1.SelectedTab.Name = "TabPage1" Then



Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.F6)
If hotkey1 = True Then

TextBox1.Text = "1"

End If

Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.F7)
If hotkey2 = True Then
TextBox1.Text = "2"
End If

End If

If TabControl1.SelectedTab.Name = "TabPage2" Then


Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.F6)
If hotkey1 = True Then

TextBox1.Text = "1"

End If

Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.F7)
If hotkey2 = True Then
TextBox1.Text = "2"
End If

End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If TabControl1.SelectedTab.Name = "TabPage1" Then

If TextBox1.Text = "1" Then
Kampf.Start()
Minen.Stop()
Else
Kampf.Stop()
End If

End If

If TabControl1.SelectedTab.Name = "TabPage2" Then
If TextBox1.Text = "1" Then
Minen.Start()
Kampf.Stop()
Else
Minen.Stop()
End If

End If

End Sub

Private Sub Minen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minen.Tick

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)


End Sub
End Class

Mfg. Easy

[Awerox]

Nett, dass du es mit uns teilst, aber meiner Meinung nach unnötig :S

[EasyFarm]

Find ich auch ^^ War für einen Freund

[.Vane]

Muss ihm/ihr leider recht geben, ist wirklich unnötig :S

[LostPeople]

Ist ganz nett, aber wenn man ein wahrer Minecraft Freund ist - macht man das doch lieber per "Hand"

[Awerox]

Originally Posted by .Vane

Muss ihm/ihr leider recht geben, ist wirklich unnötig :S

Willst du damit andeuten, ich wäre ein Mädchen?? xD
Unverschämtheit.

[M7TRA]

in AutoIt 3 zeiler Bischen unötig das ganze in vbnet zu coden , meinst net?

[GentlemanBoostingService]

Originally Posted by DJPlaylist

in AutoIt 3 zeiler Bischen unötig das ganze in vbnet zu coden , meinst net?

Wär natürlicher einfacher, aber wenn man kein AutiIt nicht kann ^^
Man kann unter anderem auch AutoIt in VB.NET benutzen.