Hey lieber Member,
ich hab vor einigen Tagen auf YouTube ein Video gesehen und wollte es mal nachmachen. Sind auch meine erste Erfahrungen mit diesem Programm.
Einmal hab ich es zum laufen gebracht, aber nun erscheint immer eine Fehler-Meldung.
Villt könnte mir jemand helfen.
C
#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
ChecarJanela()
Func ChecarJanela()
;Default pos
$x = 7
$y = 54
$largura = 547
$altura = 145
;MsgBox($MB_SYSTEMMODAL,"","X: " & $aPos[0] & " Y:" & $aPos[1] & " Largura:" & $aPos[2] & " Altura:" & $aPos[3])
Local $aPos = WinGetPos("WhatsApp - Google Chrome")
if $aPos[0] == $x And $aPos[1] == $y And $aPos[2] == $largura And $aPos[3] == $altura Then
IniciarBot()
Else
AjustarJanela($x,$y,$largura,$altura)
EndIf
EndFunc
Func AjustarJanela($x,$y,$largura,$altura)
WinMove("WhatsApp - Google Chrome","",$x,$y,$width,$height)
ChecarJanela()
EndFunc
Func IniciarBot()
While 1
ProcurarPixelOnline()
WEnd
EndFunc
Func ProcurarPixelOnline()
$tempo=TimerInit()
$tempoRegistrado = 0
While 1
$pixel = PixelSearch(0, 0,377, 175,0x5F5F5F)
If not @error Then
if $tempoRegistrado = 0 Then
$hora = @HOUR & ":" & @MIN & ":" & @SEC
$tempoRegistrado = 1
EndIf
$novo = TimerDiff ($tempo)
$novo = (1000)+$novo
$segundos = Round ($novo/1000)
$novoMin = Floor ($segundos/60)
$novoSeg = Mod ($segundos, 60)
If $novoSeg < 10 Then
$novoSeg = "0" & $novoSeg
$tempoOnline = $novoMin & ":" & $novoSeg
EndIf
Else
If Not IsDeclared("hora") Then
$hora = 0
Endif
Sleep(500)
If Not IsDeclared("tempoOnline") Then
ExitLoop
Else
Local $hFile = FileOpen("C:\Users\Jean\Desktop\" & @MDAY & "-" & @MON & "-" & @YEAR & ".txt", 1)
FileWrite($hFile, "[" & $hora & "] Tempo online: " & $tempoOnline & @CRLF)
FileClose($hFile)
ExitLoop
Endif
EndIf
WEnd
EndFunc
Alles anzeigen