Am besten holst du dir "OrganizeIncludes". Das findest du links unter "AutoIt Downloads".
Einfach installieren, und in SciTE dann Strg+Shift+Alt+I drücken. OrganzieIncludes fügt sofort die richtigen Includes ein.
Beiträge von SEuBo
-
-
Alternativ, und ohne Array.au3 include:
[autoit]
[/autoit][autoit][/autoit][autoit]
Dim $array[5] = [10,20,15,5,2]MsgBox(0,"",_nMax($array))
[/autoit][autoit][/autoit][autoit]Func _nMax($aArray,$iStart=0,$iEnd=-1)
[/autoit][autoit][/autoit][autoit][/autoit]
If not IsArray($aArray) Then Return SetError(1)
If $iEnd = -1 Then $iEnd = UBound($aArray)-1
Local $iMax = 0
For $i = $iStart to $iEnd
If $aArray[$i] > $iMax Then
$iMax = $aArray[$i]
EndIf
Next
Return $iMax
EndFunc -
Schau mal obs hier dabei ist:
https://autoit.de/index.php?page…80&pageNo=1 -
Liegt (wahrscheinlich) am WinSetOnTop, oder hab ich jetzt wieder an der Lösung vorbeigedacht?
-
Warum Ressourcenfressend?!
[autoit]While 1 * sleep(100)
[/autoit]
If WinExists("SpeedAddressPro_OO") Then
WinSetState("SpeedAddressPro_OO", "", @SW_MAXIMIZE)
WinSetOnTop("SpeedAddressPro_OO", "", 1)
WinActivate("SpeedAddressPro_OO", "")
EndIf
WendMein Rechner schafft das mit 0% CPU Auslastung (und das ist kein High-End PC)
-
Schade, da war ich wohl zu langsam... hier meine Version:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <Date.au3>
_DeleteOld(@DesktopDir,90)Func _DeleteOld($sPath,$iDays,$iMode=0)
[/autoit] [autoit][/autoit] [autoit]
;SEuBo
;$iMode: 0 = Bearbeitet, 1 = Erstellt, 2 = Zugegriffen
If $sPath = "" OR $iMode > 2 OR $iMode < 0 Or $iDays < 0 Or $iDays = "" THen Return SetError(1)
$aArray = _GetFilesFolder_Rekursiv($sPath)
For $i = 1 to $aArray[0]
$aTime = FileGetTime($aArray[$i],$iMode)
If Not @error Then
If _DateDiff("D",$aTime[0]&"/"&$aTime[1]&"/"&$aTime[2]&" "&$aTime[3]&":"&$aTime[4]&":"&$aTime[5],_NowCalc()) > $iDays Then
If StringInStr(FileGetAttrib($aArray[$i]),"R") Then
FileSetAttrib($aArray[$i],"-R",1)
EndIf
If StringInStr(FileGetAttrib($aArray[$i]),"D",1) Then
DirRemove($aArray[$i])
ConsoleWrite("+> "&$aArray[$i] & @CRLF)
Else
FileDelete($aArray[$i])
ConsoleWrite("-> "&$aArray[$i] & @CRLF)
EndIf
If @error Then SetError(2) ; Nicht alle Dateien konnten gelöscht werden.
EndIf
EndIf
Next
EndFunc;==================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0 ,[$sDelim='0']]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück
; optional: $sDelim legt Trennzeichen für Stringrückgabe fest
; 0 -@CRLF (Standard) 1 -@CR 2 -@LF 3 -';' 4 -'|'
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0, $sDelim='0')
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
Switch $sDelim
Case '1'
$sDelim = @CR
Case '2'
$sDelim = @LF
Case '3'
$sDelim = ';'
Case '4'
$sDelim = '|'
Case Else
$sDelim = @CRLF
EndSwitch
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir,$sDelim)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFiles, StringLen($sDelim)), $sDelim, 1)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFiles, StringLen($sDelim))
EndIf
EndFuncFunc _ShowSubFolders($Folder, $Ext='*', $Dir=-1, $Delim=@CRLF)
[/autoit]
If Not IsDeclared("strFiles") Then Global $strFiles = ''
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.Files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & $Delim
Else
$strFiles &= $file.Path & $Delim
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
_ShowSubFolders($Subfolder, $Ext, $Dir, $Delim)
Next
EndFunc -
< Laptop. Ich hab keinen Speaker
-
Hier ist ein super tutorial dafür: Captchas umgehen mit AutoIt
Spoiler anzeigen
ZitatFolgende Inhalte sind nicht erwünscht oder gar komplett verboten.
[...]
- Umgehen von Captchas
- Automatisierung von Webseiten oder Tools, die das in ihren AGBs verbieten -
[autoit]
Dim $array[3][4]=[ _
[/autoit]
["Paul", "Jim", "Richard", "Louis"], _
["a", "b", "c", "d"], _
[1, 2, 3, 4] _
]Leerzeichen + Unterstrich weisen Autoit an, in der nächsten Zeile fortzusetzen
-
die frage ist aber für was braucht man sowas?
Dreimal darfst du raten
-
Das war übrigens Bot # 2 @ Schnitzel. Den Thread gabs auch (in erweiterter Form) im bösen Forum
-
Probier es aus.
-
Ich würd es so machen:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]#cs **************************************************************************
[/autoit] [autoit][/autoit] [autoit]Input scannen und in einem anderen Input verändert wiedergeben
[/autoit] [autoit][/autoit] [autoit]http://www.autoit.de/index.php?page…9141#post129141
[/autoit] [autoit][/autoit] [autoit]#ce **************************************************************************
[/autoit] [autoit][/autoit] [autoit]Dim $Liste[6][2] = [["Letzter Text:",""],["a",1],["b",2],["c",3],["d",4],["e",5]]
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 445, 159, 256, 244)
$Eingabe = GUICtrlCreateInput("Eingabe", 32, 48, 121, 21)
$Ausgabe = GUICtrlCreateInput("Ausgabe", 216, 48, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
_PruefeEingabe()
WEndFunc _PruefeEingabe()
[/autoit]
Local $AusgabeString = GUICtrlRead($Eingabe), $EingabeString = GUICtrlRead($Eingabe)
If GUICtrlRead($Eingabe) <> $Liste[0][1] Then
For $i = 0 to UBound($Liste)-1
$AusgabeString = StringReplace($AusgabeString,$Liste[$i][0],$Liste[$i][1])
Next
GUICtrlSetData($Ausgabe,$AusgabeString)
$Liste[0][1] = GUICtrlRead($Eingabe)
EndIf
EndFunc -
Man muss ja nicht immer alles mit GUIRegisterMsg und sonstigen Profi lösungen machen
so gehts doch auch:Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $aInput[4][2]
$hGUI = GUICreate("Form1", 625, 151, 192, 124)
GUICtrlCreateGroup("CD-Key eingeben: ", 24, 24, 577, 89)
$aInput[0][0] = GUICtrlCreateInput("", 58, 60, 105, 21)
$aInput[1][0] = GUICtrlCreateInput("", 194, 60, 105, 21)
$aInput[2][0] = GUICtrlCreateInput("", 329, 60, 105, 21)
$aInput[3][0] = GUICtrlCreateInput("", 465, 60, 105, 21)
$OK = GUICtrlCreateButton("Okey",500, 120, 105, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
_CheckInput()
WEnd
Func _CheckInput()
For $i = 0 to UBound($aInput)-1
If GUICtrlRead($aInput[$i][0]) <> $aInput[$i][1] Then
;~ ConsoleWrite("-> ungleich "&$i & @CRLF)
If StringLen(GUICtrlRead($aInput[$i][0])) = 4 Then
;~ ConsoleWrite("!> Stringlen" & @CRLF)
If $i < UBound($aInput)-1 Then
;~ ConsoleWrite("+> nächstes " &$i & @CRLF)
GUICtrlSetState($aInput[$i][0],8192)
GUICtrlSetState($aInput[$i+1][0],256)
EndIf
EndIf
$aInput[$i][1] = GUICtrlRead($aInput[$i][0])
GUICtrlSetData($aInput[$i][0],StringLeft(GUICtrlRead($aInput[$i][0]),4))
EndIf
Next
EndFunc -
OT: ich weiß mit 90%er Sicherheit, dass es ein Bot wird. Niemand zensiert die URL von einem Pizzadienst.
Und außerdem ist in jedem heutigen Browser das speichern von Formularfeldeingaben eingebaut. Wer einmal Seine daten eingibt, dem bleiben sie auch gespeichert.Wenn du schon nen Bot schreibst, dann geh doch ins Botforum...
B2T: Ansonsten:
...ist mir schleierhaft, warum du es nicht einfach über ein PHP Script machst?https://autoit.de/index.php?page=Thread&threadID=14154
Falls du unbedingt Benutzer/Passwortabspeicherung in einer Datenbank brauchstDas kannst du auch entsprechend erweitern.
EDIT: POST 900!!!!
-
Geh mal in die Jobbörse stelle deine Gegenleistung rein und fertig, vielleicht macht es dir dann jemand.
Der Thread IST in der Jobbörse.
-
Die Flags werde ich in den nächsten Tagen noch einbauen. Würde das gerne noch heute tun, aber mir fehlt ein bisschen die Zeit. Ziehe morgen um
-
Spoiler anzeigen
[autoit]$hGUI = GUICreate("")
[/autoit] [autoit][/autoit] [autoit]
$button = GUICtrlCreateButton("los",20,20,100,25)
GUISetState()While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $button
For $i = 100 to 360
GUICtrlSetPos($button,20,20,$i)
Sleep(10)
Next
EndSwitch
WEnd -
jop, soll nen bot für ein flashgame werden...
ich finde halt so sachen wie taschenrechner programmieren so langweilig :wacko: deswegen hab ich versucht dafür ne hilfe zu programmieren aber ich scheiter dadran, dass das angucken jedes einzelnen pixels zu lange dauert...verboten?!
Und da schreib ich noch eine Minute vorher ...
Schnitzel: Falls du das liest; Hier ist Nummer 1. Fehlen nur noch 2@revetr: Ja. Schau mal in die Forenregeln. Wenn es um Bots geht, bist du hier im falschen Forum.
-
Alles was Maus / Tastatur / PixelSearch benutzt ist erstmal ein Bot, bis das Gegenteil bewiesen wird.
Nein Spaß beiseite. Ich hab heute wieder so ein Gefühl, dass uns eine Flut von Bottern erreichen wird (die kommen komischerweise immer in Wellen. So alle 3-4 Tagen kommen die zu dritt und warten darauf, dass man ihre Threads closed )