[VB.NET] Autoit - Clickscript Maker

[HackTec]

==============================================
==============================================

==============================================
==============================================


Download


==============================================

VT:


==============================================

Source :

 Spoiler

Public Class Form1

Private Declare Function GetAsyncKeyState _
Lib "user32" (ByVal vKey As Integer) As Integer
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
Private Const VK_MBUTTON = &H4

Dim Eingetragen As String = ""

Dim XEingetragen As String = "0"
Dim YEingetragen As String = "0"









Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Dim firststart As String = "0"

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
XEingetragen = MousePosition.X.ToString
YEingetragen = MousePosition.Y.ToString

Xtest.Text = XEingetragen
Ytest.Text = YEingetragen



If Power.Checked = True Then
Timer2.Start()
If XEingetragen <> "0" Then Xcheck.Checked = True
If YEingetragen <> "0" Then Ycheck.Checked = True

End If

End Sub

Dim FuncFarming As String = ""

Dim FarmKlick As String = ""
Dim FarmKlick1 As String = "mouseclick(""left"","

Dim FarmX As String = XEingetragen
Dim FarmY As String = YEingetragen
Dim Farm1 As String = "1"
Dim FarmSleep00 As String = "Sleep("
Dim FarmSleep01 As String = "Sleep(1000)"


' "mouseclick(""left"",X,Y,1)"


Dim Satz00 As String = "0"
Dim Satz01 As String = "0"
Dim Satz02 As String = "0"
Dim Satz03 As String = "0"
Dim Satz04 As String = "0"
Dim Satz05 As String = "0"



Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If firststart = "0" Then
If Power.Checked = True Then
If GetAsyncKeyState(VK_LBUTTON) Then
firststart = "1"
End If
End If
End If

If firststart = "1" Then
If Power.Checked = True Then
If GetAsyncKeyState(VK_LBUTTON) Then

FarmX = XEingetragen
FarmY = YEingetragen


Timer2.Stop()


FarmKlick = FarmKlick1 + FarmX + "," + FarmY + "," + Farm1 + ")" + vbNewLine + FarmSleep01




FuncFarm.Text = FuncFarm.Text + vbNewLine + FarmKlick + vbNewLine + FarmKlick + vbNewLine
End If
End If



'Saveme.Text = Saveme.Text + Xtest.Text + vbNewLine + Ytest.Text + vbNewLine + vbNewLine
End If



End Sub

Dim Rechnen00 As String = "0"
Dim Rechnen01 As String = "0"
Dim Rechnen02 As String = "0"
Dim Rechnen03 As String = "0"
Dim Rechnen04 As String = "0"
Dim Rechnen05 As String = "0"
Dim Rechnen06 As String = "0"


Dim RechnenYY As String = "0"
Dim RechnenXX As String = "0"

Dim RechnenX As String = "0"
Dim RechnenY As String = "0"
Dim RechnenEnd As String = "0"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Power.Checked = False
Timer1.Stop()
Timer2.Stop()



RechnenX = Val(ReiterMin.Value.ToString) * Val(60)
RechnenY = Val(ReiterSek.Value.ToString)


RechnenXX = Val(RechnenX) + Val(RechnenY)

RechnenYY = Val(RechnenXX) * Val(1000)


Dim rechneX01 As String = ""


rechneX01 = Val(RechnenYY) + Val(RechnenYY)


RechnenEnd = "Sleep(" + rechneX01 + ")"





FuncFarm.ReadOnly = False
FuncFarm.Enabled = True
Timer1.Stop()
Timer2.Stop()


If XEingetragen = "0" Then
If YEingetragen = "0" Then
MsgBox("Fehler")
End If
End If


If XEingetragen <> "0" Then
Xcheck.Checked = True
If YEingetragen <> "0" Then
Xcheck.Checked = True
End If
End If



Dim Farmsave As String = ""

Farmsave = vbNewLine + FuncFarm.Text + vbNewLine + RechnenEnd + vbNewLine









FuncFarm.Text = ""
FuncFarm.Text = funcHotkey.Text + vbNewLine + FuncFarmStart.Text + Farmsave + vbNewLine + FuncFarmEnd.Text + FuncStop.Text + vbNewLine + FuncExit.Text + vbNewLine


Power.Checked = False



If My.Computer.FileSystem.FileExists("ClickScript.au3 ") = True Then
My.Computer.FileSystem.DeleteFile("ClickScript.au3 ")
My.Computer.FileSystem.WriteAllText("ClickScript.a u3", FuncFarm.Text, True)
End If

If My.Computer.FileSystem.FileExists("ClickScript.au3 ") = False Then
My.Computer.FileSystem.WriteAllText("ClickScript.a u3", FuncFarm.Text, True)
End If



MsgBox("Fertig ")
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
FuncFarm.ReadOnly = False
FuncFarm.Enabled = True
End If
If CheckBox1.Checked = False Then
FuncFarm.ReadOnly = True
FuncFarm.Enabled = False
End If


End Sub

Private Sub Power_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Power.CheckedChanged



If Power.Checked = True Then
Power.Text = "Catch Mouse"
Timer1.Start()
Timer2.Start()
Power.BackColor = Color.DarkGreen
End If
If Power.Checked = False Then
Power.Text = "Waiting..."
Timer1.Stop()
Timer2.Stop()
Power.BackColor = Color.Red
End If
End Sub

Private Sub ReiterMin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReiterMin.ValueChanged

End Sub

Private Sub ReiterSek_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReiterSek.ValueChanged

End Sub


End Class