Requests - AutoIt only

Page 13 of 20 « First 31112 13 1415 Last »
08/18/2014 08:08 darkwolf81#181
vorwort: ich kenn mich mit autoit quasi 0 aus , dennoch sind es die kleinen scripts die mir schon lange helfen :)
bin bestimmt schon 2h am googlen aber nichts trifft genau mein problem

wie es sein sollte : ich brauch nen (hoffentlich)kleines script das wenn ich eine taste drücke (in meinem fall jetzt F4) mir (gleichbleibende)buchstaben+AUFSTEIGENDE ZAHL schreibt
bsp:
wenn ich F4 drücke-> schreib "buchstaben1"
wenn ich F4 das nächste mal drücke-> schreib "buchstaben2"
wenn ich F4 das nächste mal drücke-> schreib "buchstaben3"
usw.

das ist was ich momentan nutze - wobei ich hier die zahlen immer selbst eintippen muss was mit der zeit mühsam wird

ich möchte mich hiermit schonmal im voraus bedanken :)
08/18/2014 08:53 Moneypulation#182
Quote:
Originally Posted by darkwolf81 View Post
vorwort: ich kenn mich mit autoit quasi 0 aus , dennoch sind es die kleinen scripts die mir schon lange helfen :)
bin bestimmt schon 2h am googlen aber nichts trifft genau mein problem

wie es sein sollte : ich brauch nen (hoffentlich)kleines script das wenn ich eine taste drücke (in meinem fall jetzt F4) mir (gleichbleibende)buchstaben+AUFSTEIGENDE ZAHL schreibt
bsp:
wenn ich F4 drücke-> schreib "buchstaben1"
wenn ich F4 das nächste mal drücke-> schreib "buchstaben2"
wenn ich F4 das nächste mal drücke-> schreib "buchstaben3"
usw.

das ist was ich momentan nutze - wobei ich hier die zahlen immer selbst eintippen muss was mit der zeit mühsam wird

ich möchte mich hiermit schonmal im voraus bedanken :)
Ist eigentlich ganz simpel^^

Code:
#include <Misc.au3>
$zahl = 1
While 1
   If _IsPressed(73) Then
	  Send("WasAuchImmerDuWillst" & $zahl)
	  $zahl = $zahl + 1
   EndIf
WEnd
08/23/2014 23:10 bs_destroyer#183
Hey leute ich bin gerade dabei einen Seafight bot zu schreiben der Monster schießt... Er fährt auch rum aber wenn er ein monster sieht ( in meinem Fall moby dick unterbricht er nicht das fahren... Ich werde den Code hier posten


Hey guys,

I´m about to write a seafight monstershoot bot and he drives allready but if he find the monster he don´t brake up the driving and go to shoot the monster he just keep driving and driving and driving...

I will poste the code
Code:
HotKeySet("{F4}", "_StartBot")
HotKeySet("{F5}", "_PauseBot")
HotKeySet("{F6}", "_EndeBot")

Global $Active = 0


While 1

  ;-----------------------------------------------------------------------------------------Variabelen--------------------------------------------------------

    ;Monster

  $trankus = PixelSearch (406, 180,1194, 790,0x00FC00,1)
  $serena = PixelSearch (406, 180,1194, 790,0x00F900,1)
  $orca = PixelSearch (406, 180,1194, 790,0x00F600,1)
  $mobydick = PixelSearch (406, 180,1194, 790,0x00ED00,1)

  ;conncetionlost

  $connectionlost = PixelSearch (406, 180,1194, 790,0x6C7754,5)

  ;sunken

  $sunken = PixelSearch (406, 180,1194, 790,0x665A38,5)

  ;attackbutton

  $attackbutton = PixelSearch (1375, 390,1375, 390,0xFF8009,15)

  ;monstersearch

  $monstersearch = MouseClick ("left",1293, 162) Send ("v {Space}") Sleep (84200) MouseClick ("left", 1376, 160) Send ("v {SPACE}") Sleep (84200) MouseClick ("left" ,1292, 159) Send ("v {SPACE}") sleep (84200) MouseClick ("left",1377, 246) Send ("v {SPACE}") Sleep (84200)
;Attackin is true
$attacking = PixelSearch (60, 214,60, 214,0x00CF00,5)

;killingmobbydick

	 $killingmobydick = if IsArray ($mobydick) Then MouseClick ("left", $mobydick [0],$mobydick [1]) Sleep (75) MouseClick ("left", $mobydick [0]+35 ,$mobydick [1]+35 ) Sleep (75)if IsArray ($attackbutton) Then Send ("f")Sleep (75) if IsArray ($attacking) Then sleep (20000)EndIf EndIf EndIf
;----------------------------------------------------------------------------------------------Variabeln end -----------------------------------------------------

;sunken

if IsArray ($sunken) then
	MouseClick ("left", $sunken [0],$sunken [1],1)
EndIf

;connetion lost

if IsArray ($connectionlost) Then
	MouseClick ("left", $connectionlost [0] , $connectionlost [1],1)
EndIf
Do
	$monstersearch
	Until $killingmobydick






  WEnd


  Func _StartBot()
	$Active = 1
EndFunc

Func _PauseBot()
	$Active = 0
EndFunc

Func _EndeBot()
   MsgBox (1,"bot status", "Bot is off",10)
	Exit
EndFunc
08/24/2014 10:24 DeluxeDose#184
Du bleibst in der Schleife Do.. Until hängen.
Dein Bot macht solang "$monstersearch" bis "$killingmobydick" erfüllt ist, "$killingmobydick" prüft aber (ich hätte nicht gedacht das man Variablen als Funktionen einsetzen kann, sieht skurril aus) ob $mobydick ein Array ist, was nur einmal am Anfang abgefragt wird. Somit ist $mobydick nie ein Array, weil es nicht nochmal $mobydick sucht.

Pack das lieber in separate Funktionen und lass die While Schleife durchlaufen

Pseudocode:
While True
$aMonster = _sucheMonster()
For $position in $aMonster => _klick_das_monster_an_und_bekaempfe_es()
_suche_weiter()
WEnd
08/24/2014 12:26 YatoDev#185
vielleicht liegt es auch am total schlechten code.
les dir nochmal tutorials durch
08/24/2014 12:52 Moneypulation#186
Ich hoffe du willst den Bot nicht veröffentlichen. Der mag vielleicht bei dir die richtigen Koordinaten anklicken, jedoch gibt es viele verschiedene Bildschirmauflösungen. Außerdem ist der Codestil auch fragwürdig :D
08/25/2014 00:08 bs_destroyer#187
Hahaha ich bin halt noch am üben^^

Und nein der wäre erstmal nur für mich ^^

Mein Angriffsbot funktioniert aber bei den meisten xD
09/02/2014 08:31 pady2211#188
Hey hab ne frage undzwar bräuchte ich jemanden der mir helfen kann ich habe gestern ein script bekommen in welchem die Leertaste Permanent gesendet werden soll (Das ist Perfekt) und dabei wird noch F4 gedrückt jetzt ist mein problem das F4 zu langsam gesendet wir kann mir das jemand schneller stellen?
Script:
Global Const $hotkeyPause = "{PAUSE}", $hotkeyExit = "{ESC}", $keyToSend = "{F4}"
Global Const $timeSleep = 10, $timeKeyInterval = 2000 ; time in ms
Global $running = False
Global $timerKeyToSend, $countKeySent

HotKeySet($hotkeyPause, "_TogglePause")
HotKeySet($hotkeyExit, "_Exit")

While Sleep($timeSleep)
If $running Then
Send("{SPACE}")
If TimerDiff($timerKeyToSend) >= $timeKeyInterval * $countKeySent Then
Send($keyToSend)
$countKeySent += 1
EndIf
EndIf
WEnd

Func _TogglePause()
$running = Not $running
If $running Then
$countKeySent = 1
$timerKeyToSend = TimerInit()
EndIf
EndFunc

Func _Exit()
Exit
EndFunc
09/02/2014 13:11 maxmax37#189
Hi, dafür musst du in der zweiten Zeile bei $timeKeyIntervall = 2000 einfach den Wert ändern.
Das ist in ms angegeben, also im moment ist es alle 2 Sekunden. Für eine Sekunde dann einfach auf 1000 stellen und so weiter.
09/02/2014 13:16 pady2211#190
alles klar danke dir ! :)
09/03/2014 21:59 Moneypulation#191
Quote:
Originally Posted by pady2211 View Post
Hey hab ne frage undzwar bräuchte ich jemanden der mir helfen kann ich habe gestern ein script bekommen in welchem die Leertaste Permanent gesendet werden soll (Das ist Perfekt) und dabei wird noch F4 gedrückt jetzt ist mein problem das F4 zu langsam gesendet wir kann mir das jemand schneller stellen?
Script:
Global Const $hotkeyPause = "{PAUSE}", $hotkeyExit = "{ESC}", $keyToSend = "{F4}"
Global Const $timeSleep = 10, $timeKeyInterval = 2000 ; time in ms
Global $running = False
Global $timerKeyToSend, $countKeySent

HotKeySet($hotkeyPause, "_TogglePause")
HotKeySet($hotkeyExit, "_Exit")

While Sleep($timeSleep)
If $running Then
Send("{SPACE}")
If TimerDiff($timerKeyToSend) >= $timeKeyInterval * $countKeySent Then
Send($keyToSend)
$countKeySent += 1
EndIf
EndIf
WEnd

Func _TogglePause()
$running = Not $running
If $running Then
$countKeySent = 1
$timerKeyToSend = TimerInit()
EndIf
EndFunc

Func _Exit()
Exit
EndFunc
Das ist doch KDeluxe's Code. Wieso hast du nicht ihn einfach gefragt?
09/03/2014 22:14 YatoDev#192
* rechnen dauert länger als den timer wieder zurückzusetzen.
09/04/2014 22:48 KDeluxe#193
Das stimmt nicht. Den Timer zurückzusetzen kostet mehr Zeit als die Rechenoperation durchzuführen. Die ständige Neuberechnung des Wertes kostet aber zumindest in der Theorie mehr CPU Leistung, in der Praxis wirst du es nicht wahrnehmen können.
Das "Problem" mit der CPU kann man allerdings mit einer Zwischenvariable lösen. Hier wird dann zwar mehr Arbeitsspeicher benötigt aber nehmen wir mal an AutoIt behandelt die Variable als 64 Bit Zahl, dann kostet es in der Annahme ganze 8 Bytes an Arbeitsspeicher. 1 GB (eigentlich GiB) hat 1.073.741.824 Bytes. Auch das wird man in der Praxis nicht merken können (ist übrigens die beste Lösung).
Prüfen kann man es mit einem einfachen Script:
Code:
Const $count = 10000
Const $timeToWait = 1

$i = 1
$timer1 = TimerInit()
$timer2 = TimerInit()
While $i <= $count
    If TimerDiff($timer2) >= $timeToWait Then
        $i += 1
        $timer2 = TimerInit()
    EndIf
WEnd
ConsoleWrite(TimerDiff($timer1) & @CRLF)

$i = 1
$timer1 = TimerInit()
$timer2 = TimerInit()
While $i <= $count
    If TimerDiff($timer2) >= $timeToWait * $i Then
        $i += 1
    EndIf
WEnd
ConsoleWrite(TimerDiff($timer1) & @CRLF)

$i = 1
$timeToWait2 = $timeToWait
$timer1 = TimerInit()
$timer2 = TimerInit()
While $i <= $count
    If TimerDiff($timer2) >= $timeToWait2 Then
        $i += 1
        $timeToWait2 += $timeToWait
    EndIf
WEnd
ConsoleWrite(TimerDiff($timer1) & @CRLF)
Ausgabe:
Code:
10020.6012898994
10000.0034565278
10000.0042246451
Hier sieht man recht "deutlich", dass die ständige Zurücksetzung des Timers mehr Zeit beansprucht als die ständige Neuberechnung der abzuwartenden Zeit.

Zur Verdeutlichung habe ich es noch mit anderen Daten
Code:
Const $count = 12000
Const $timeToWait = 10
durchlaufen lassen:
Code:
120029.230319587
120000.003840586
120000.004608704
Während Lösung 2 und 3 konstant bleiben wächst die benötigte Zeit bei Lösung 1 (Zurücksetzung des Timers) proportional zur Laufzeit des Scripts.

Code:
Const $count = 120000
Const $timeToWait = 1
Code:
120282.833077742
120000.004992762
120000.004224645
09/26/2014 21:08 Cascas89#194
Hi.

Well, I would like to know how to add the function to Pausing and restarting the following script.
I want when I press "pause" return everything to normal (in this case when i press the key "a", the key "a" write only "a") and when I restart the script, press 2 keys at once (in this case when i press the key "a" , the key "a" write "v7").

How can i do it?... i tried many ways but nothing happened.

Thank you.

----------------------------------------------------------------
HotKeySet("{a}", "Press_v_and_7")
HotKeySet('{ESC}', '_EXIT')

Main()
Func Main()
While 1
Sleep(1000)
WEnd
EndFunc


Func Press_v_and_7()

Send("{v down}")
Send("{7 down}")
Send("{v up}")
Send("{7 up}")
Main()
EndFunc

Func _EXIT()
$iMsgBoxAnswer = MsgBox(0, "", "Goodbye")
Exit
EndFunc
--------------------------------------------------------------------------------------
09/27/2014 13:44 KDeluxe#195
Code:
Global $running = False
Global Const $hotKeySend = "{a}", $hotKeyPause = "{PAUSE}", $hotKeyExit = "{ESC}"

HotKeySet($hotKeyPause, "_TogglePause")
HotKeySet($hotKeyExit, "_Exit")

While Sleep(1000)
WEnd

Func _SendVand7()
    Send("v")
    Send("7")
EndFunc

Func _TogglePause()
    $running = Not $running
    If $running Then
        HotKeySet($hotKeySend, "_SendVand7")
    Else
        HotKeySet($hotKeySend)
    EndIf
EndFunc

Func _Exit()
    Exit
EndFunc
Page 13 of 20 « First 31112 13 1415 Last »