susesKaninchens Autoit einsteiger TuT [Video]

      susesKaninchens Autoit einsteiger TuT [Video]

      TuT 1)
      Installation, und Hello World, dazu noch alles was man wissen sollte bis dahin.
      youtu.be/FdKU_I5b5wU
      Spoiler anzeigen

      AutoIt Quelltext

      1. ConsoleWrite('Hallo Welt')
      2. MsgBox(0, 'Hallo', 'Hallo Welt')


      TuT 2)
      Schleifen und Varriablen und If-Abfragen mit Else.
      youtu.be/n_ya4aKhGHQ
      Spoiler anzeigen

      AutoIt Quelltext

      1. While 1
      2. MsgBox(0, "", "")
      3. WEnd
      4. Do
      5. MsgBox(0, "", "")
      6. Until Not 1
      7. For $iZahler = 1 To 10
      8. MsgBox(0, "", $iZahler)
      9. Next
      10. $iZahler = 0
      11. While 1
      12. $iZahler += 1
      13. If $iZahler < 10 Then
      14. ExitLoop
      15. Else
      16. MsgBox(0, "", $iZahler)
      17. EndIf
      18. WEnd


      TuT 3)
      Struktur und Funktionen, Hotkey und Kleinkram
      youtu.be/0ahTU48pCCE
      Spoiler anzeigen

      AutoIt Quelltext

      1. $Zustand = 1
      2. HotKeySet("e", "_Exit")
      3. HotKeySet("s", "_StratStop")
      4. ;~ HotKeySet("p", "_Pause")
      5. While 1
      6. Sleep(200)
      7. WEnd
      8. ;~ Func _Start()
      9. ;~ While 1
      10. ;~ ToolTip("Hallo")
      11. ;~ Sleep(1000)
      12. ;~ WEnd
      13. ;~ EndFunc ;==>_Start
      14. ;~ Func _Pause()
      15. ;~ ToolTip("")
      16. ;~ While 1
      17. ;~ Sleep(200)
      18. ;~ WEnd
      19. ;~ EndFunc ;==>_Pause
      20. Func _StratStop()
      21. If $Zustand = 1 Then
      22. $Zustand = 0
      23. While 1
      24. ToolTip("Hallo")
      25. Sleep(1000)
      26. WEnd
      27. Else
      28. $Zustand = 1
      29. ToolTip("")
      30. While 1
      31. Sleep(200)
      32. WEnd
      33. EndIf
      34. EndFunc ;==>_StratStop
      35. Func _Exit()
      36. Exit
      37. EndFunc ;==>_Exit


      TuT 4)
      Maus bewegen und Tasten senden
      youtu.be/ebGLJlMeh8k
      Spoiler anzeigen

      AutoIt Quelltext

      1. HotKeySet("e", "_Exit")
      2. HotKeySet("s", "_Start2")
      3. ;~ While 1
      4. ;~ MouseMove(0, 0)
      5. ;~ MouseMove(@DesktopWidth, @DesktopHeight)
      6. ;~ MouseMove(@DesktopWidth / 2, @DesktopHeight / 2)
      7. ;~ WEnd
      8. While 1
      9. Sleep(200)
      10. WEnd
      11. ;~ Func _Start()
      12. ;~ MouseClick("left", 64, 55)
      13. ;~ EndFunc
      14. Func _Start2()
      15. Send("{LCTRL}s")
      16. EndFunc ;==>_Start2
      17. ;~ Func _Start2()
      18. ;~ ControlSend('C:\Users\Marco\Desktop\Tut\TuT 4.au3 * SciTE', "", 'Scintilla1', "{LCTRL}s")
      19. ;~ EndFunc
      20. Func _Exit()
      21. Exit
      22. EndFunc ;==>_Exit


      TuT 5)
      Bilder finden und anklicken, dazu noch Kleinigkeiten.
      youtu.be/Z9mg_OlzSBI (Sorry wegen der Musik, aber ich höre immer Musik beim Programmieren, das bekomme ich kaum noch mit)
      Spoiler anzeigen

      AutoIt Quelltext

      1. #include 'ImageSearch.au3'
      2. Dim $x, $y, $xOld, $yOld
      3. For $i = 0 To 4
      4. _ImageSearchArea(@ScriptDir & "\Test.png", 0, $xOld, $yOld, @DesktopWidth, @DesktopHeight, $x, $y, 20)
      5. $yOld = $y + 1
      6. MouseMove($x, $y)
      7. Next


      TuT 6)
      Tool um Bilder zu machen für Bots, dazu lernen wir GDI+ kennen, AdlibRegister und wir lernen Screenshots zu machen.
      youtu.be/cArWx8qr9Fw
      Spoiler anzeigen

      AutoIt Quelltext

      1. #include <GDIPlus.au3>
      2. #include <GUIConstantsEx.au3>
      3. #include <ScreenCapture.au3>
      4. #include <GUIConstantsEx.au3>
      5. #include <WinAPI.au3>
      6. #include <WindowsConstants.au3>
      7. #include <WindowsConstants.au3>
      8. HotKeySet("{F9}", '_MakeImage')
      9. Dim $Bild_Name
      10. Dim $Input_Bild
      11. Global $hBild
      12. $i = 1
      13. #Region ### START Koda GUI section ### Form=
      14. $Form1 = GUICreate("Bilder macher", 781, 588, 201, 96)
      15. $Pic1 = GUICtrlCreatePic("", 8, 8, 745, 529)
      16. $Label1 = GUICtrlCreateLabel("Bildname:", 8, 552, 110, 32)
      17. $Input_Bild = GUICtrlCreateInput($i, 128, 552, 121, 21)
      18. $Label1 = GUICtrlCreateLabel("F9 um Bild zu machen", 584, 552)
      19. $hSlider = GUICtrlCreateSlider(264, 552, 300)
      20. GUICtrlSetData(-1, 10)
      21. GUISetState(@SW_SHOW)
      22. #EndRegion ### END Koda GUI section ###
      23. _GDIPlus_Startup()
      24. AdlibRegister("_Image", 100)
      25. While True
      26. $nMsg = GUIGetMsg()
      27. Switch $nMsg
      28. Case $GUI_EVENT_CLOSE
      29. _GDIPlus_Shutdown()
      30. Exit
      31. EndSwitch
      32. WEnd
      33. Func _Image()
      34. $aPos = MouseGetPos()
      35. $hBild = _ScreenCapture_Capture(@ScriptDir & "\TEMP.png", $aPos[0] - GUICtrlRead($hSlider), $aPos[1] - GUICtrlRead($hSlider), $aPos[0] + 1*GUICtrlRead($hSlider), $aPos[1] + GUICtrlRead($hSlider), False)
      36. $g_hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\TEMP.png")
      37. _GDIPlus_ImageSaveToFile($g_hImage, @ScriptDir & "\TEMP.jpg")
      38. _GDIPlus_ImageDispose($g_hImage)
      39. GUICtrlSetImage($Pic1, @ScriptDir & "\TEMP.jpg")
      40. EndFunc ;==>_Image
      41. Func _MakeImage()
      42. $aPos = MouseGetPos()
      43. _ScreenCapture_Capture(GUICtrlRead($Input_Bild) & ".png", $aPos[0] - GUICtrlRead($hSlider), $aPos[1] - GUICtrlRead($hSlider), $aPos[0] + 1*GUICtrlRead($hSlider), $aPos[1] + GUICtrlRead($hSlider), False)
      44. $i += 1
      45. GUICtrlSetData($Input_Bild, $i)
      46. EndFunc

      Dieser Beitrag wurde bereits 22 mal editiert, zuletzt von „susesKaninchen“ ()