Beiträge von PenGuin

PenGuin

Rein prophylaktisch, um nicht mit uns anzuecken, lies dir gründlich die Forenregeln durch:

http://www.autoit.de/index.php?page=Forumrules

Dann weißte auch wie wir zu Bots stehen, falls da Fragen kommen^^

Ansonsten: Willkommen!

PenGuin

Kleiner Schönheitsfehler:
Wenn man auf "Neu" drückt und dann Cancel, fragt der die Dinge danach auch noch ab,
nur was bringt es mir,wenn ich Dinge angeben, nur den Termin nicht?

PenGuin

Mit ein wenig Englisch-Kenntnissen, erkennt man den Begriff bereits, wenn man die Hilfe aufmacht und unter GDIPlus sucht ._.
_GDIPlus_GraphicsDrawLine
schau mal da in die Hilfe...

PenGuin

Was bringt Jailbreaken eigentlich? Ich weiß nur, dass man Fremdprogramme laufen lassen kann, gut
aber was bringt mir das?

PenGuin

Vielleicht hilft das, ist nicht von mir!

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Color.au3>
#include <WinAPI.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $threshold
Global $image
Global $width
Global $height
Global $pixels
Global $pathString = "12345678"
Global $scramble = False
Global $rotate = 0
Global $speed

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;; Check hotkeys ;;
If (Not HotKeySet ("{F9}", "Nothing")) Then
MsgBox (16, "Error", "Could not register the F9 hotkey.")
Exit
EndIf
If (Not HotKeySet ("{F10}", "Nothing")) Then
MsgBox (16, "Error", "Could not register the F10 hotkey.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;; Image dialog ;;
$imageFile = FileOpenDialog ("Open image", @WorkingDir, "Images (*.jpg;*.jpeg;*.gif;*.png;*.bmp)", 1)
If (@error) Then Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;; Options dialog ;;
$optGUI = GUICreate ("Settings", 160, 270, -1, -1, $WS_CAPTION, BitOr ($WS_EX_APPWINDOW, $WS_EX_TOOLWINDOW))
GUICtrlCreateGroup ("Image processing", 5, 5, 150, 85)
GUICtrlCreateLabel ("Sensitivity (0~255):", 10, 28, 110, 15)
$thresholdInput = GUICtrlCreateInput ("100", 125, 25, 25, 20, $ES_NUMBER)
GUICtrlCreateLabel ("Width (px):", 10, 48, 110, 15)
$widthInput = GUICtrlCreateInput ("100", 125, 45, 25, 20, $ES_NUMBER)
GUICtrlCreateLabel ("Height (px):", 10, 68, 110, 15)
$heightInput = GUICtrlCreateInput ("100", 125, 65, 25, 20, $ES_NUMBER)
GUICtrlCreateGroup ("Drawing pattern", 5, 95, 150, 140)
$horizontalRadio = GUICtrlCreateRadio ("Horizontal", 10, 115, 110, 15)
$verticalRadio = GUICtrlCreateRadio ("Vertical", 10, 135, 110, 15)
$diagonalRadio = GUICtrlCreateRadio ("Diagonal", 10, 155, 110, 15)
$rotateRadio = GUICtrlCreateRadio ("Spiral", 10, 175, 110, 15)
$scrambleRadio = GUICtrlCreateRadio ("Random", 10, 195, 110, 15)
GUICtrlSetState ($diagonalRadio, $GUI_CHECKED)
GUICtrlCreateLabel ("Mouse speed (0~100):", 10, 213, 110, 15)
$speedInput = GUICtrlCreateInput ("0", 125, 210, 25, 20, $ES_NUMBER)
$okBtn = GUICtrlCreateButton ("Ok", 30, 245, 40, 20)
$cancelBtn = GUICtrlCreateButton ("Cancel", 80, 245, 50, 20)
GUISetState ()

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch (GUIGetMsg ())
Case $GUI_EVENT_CLOSE
Exit
Case $cancelBtn
Exit
Case $okBtn
$threshold = GUICtrlRead ($thresholdInput)
$width = GUICtrlRead ($widthInput)
$height = GUICtrlRead ($heightInput)
$speed = GUICtrlRead ($speedInput)
If (GUICtrlRead ($horizontalRadio) == $GUI_CHECKED) Then
$pathString = "45273618"
ElseIf (GUICtrlRead ($verticalRadio) == $GUI_CHECKED) Then
$pathString = "27453618"
ElseIf (GUICtrlRead ($diagonalRadio) == $GUI_CHECKED) Then
$pathString = "36184527"
ElseIf (GUICtrlRead ($rotateRadio) == $GUI_CHECKED) Then
$pathString = "14678532"
$rotate = 1
ElseIf (GUICtrlRead ($scrambleRadio) == $GUI_CHECKED) Then
$scramble = True
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUIDelete ($optGUI)
ExitLoop
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;; Processing dialog ;;
$GUI = GUICreate ("Processing image...", $width, $height + 20, -1, -1, $WS_CAPTION, BitOr ($WS_EX_APPWINDOW, $WS_EX_TOOLWINDOW))
GUISetBkColor (0xffffff)
$imageBox = GUICtrlCreatePic ($imageFile, 0, 0, $width, $height)
$progress = GUICtrlCreateProgress (0, $height, $width, 20)
GUISetState ()

[/autoit] [autoit][/autoit] [autoit]

;; Get image pixels ;;
$dc = _WinAPI_GetDC ($GUI)
$memDc = _WinAPI_CreateCompatibleDC ($dc)
$bitmap = _WinAPI_CreateCompatibleBitmap ($dc, $width, $height)
_WinAPI_SelectObject ($memDc, $bitmap)
_WinAPI_BitBlt ($memDc, 0, 0, $width, $height, $dc, 0, 0, $SRCCOPY)
$bits = DllStructCreate ("dword[" & ($width * $height) & "]")
DllCall ("gdi32", "int", "GetBitmapBits", "ptr", $bitmap, "int", ($width * $height * 4), "ptr", DllStructGetPtr ($bits))
GUICtrlDelete ($imageBox)

[/autoit] [autoit][/autoit] [autoit]

;; Process the pixels ;;
Dim $pixels[$width][$height]
For $y = 0 To ($height - 1)
For $x = 0 To ($width - 1)
$index = ($y * $width) + $x
$color = DllStructGetData ($bits, 1, $index)

[/autoit] [autoit][/autoit] [autoit]

$red = _ColorGetBlue ($color)
$green = _ColorGetGreen ($color)
$blue = _ColorGetRed ($color)
$shade = ($red + $green + $blue) / 3
If ($shade > $threshold) Then
$color = 0xffffff
$pixels[$x][$y] = 0
Else
$color = 0
$pixels[$x][$y] = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

DllStructSetData ($bits, 1, $color, $index)
Next

[/autoit] [autoit][/autoit] [autoit]

DllCall ("gdi32", "int", "SetBitmapBits", "ptr", $bitmap, "int", ($width * $height * 4), "ptr", DllStructGetPtr ($bits))
_WinAPI_BitBlt ($dc, 0, 0, $width, $height, $memDc, 0, 0, $SRCCOPY)
GUICtrlSetData ($progress, ($y * 100) / $height)
Next

[/autoit] [autoit][/autoit] [autoit]

_WinAPI_ReleaseDC ($GUI, $dc)
GUIRegisterMsg ($WM_PAINT, "OnPaint")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;; Ready to draw ;;
TrayTip ("Fast!", "Press F9 for draw. You can press F10 anytime to exit.", 10)
HotKeySet ("{F9}", "Draw")
HotKeySet ("{F10}", "Quit")

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep (60000)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func OnPaint ($hwndGUI, $msgID, $wParam, $lParam)
Local $paintStruct = DllStructCreate ("hwnd hdc;int fErase;dword rcPaint[4];int fRestore;int fIncUpdate;byte rgbReserved[32]")

[/autoit] [autoit][/autoit] [autoit]

$dc = DllCall ("user32", "hwnd", "BeginPaint", "hwnd", $hwndGUI, "ptr", DllStructGetPtr ($paintStruct))
$dc = $dc[0]

[/autoit] [autoit][/autoit] [autoit]

_WinAPI_BitBlt ($dc, 0, 0, $width, $height, $memDc, 0, 0, $SRCCOPY)

[/autoit] [autoit][/autoit] [autoit]

DllCall ("user32", "hwnd", "EndPaint", "hwnd", $hwndGUI, "ptr", DllStructGetPtr ($paintStruct))
Return $GUI_RUNDEFMSG
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Draw ()

[/autoit] [autoit][/autoit] [autoit]

;~ Run("mspaint.exe","",@SW_MAXIMIZE)
;~ Sleep(5000)
;~ MouseMove(@DesktopWidth/2, @DesktopHeight/2)

[/autoit] [autoit][/autoit] [autoit]

$mouseCenter = MouseGetPos ()
$x0 = $mouseCenter[0] - ($width / 2)
$y0 = $mouseCenter[1] - ($height / 2)

[/autoit] [autoit][/autoit] [autoit]

;; Move the mouse around the drawing perimeter ;;
MouseMove ($x0, $y0)
MouseMove ($x0 + $width, $y0)
MouseMove ($x0 + $width, $y0 + $height)
MouseMove ($x0, $y0 + $height)
MouseMove ($x0, $y0)

[/autoit] [autoit][/autoit] [autoit]

;; Draw all the areas ;;
$stack = CreateStack (1000)
For $y = 0 To ($height - 1)
For $x = 0 To ($width - 1)
If ($pixels[$x][$y] == 1) Then
MouseMove ($x + $x0, $y + $y0, $speed)
MouseDown ("primary")
DrawArea ($stack, $x, $y, $x0, $y0)
MouseUp ("primary")
Else
EndIf
Next
Next

[/autoit] [autoit][/autoit] [autoit]

;; Reset the pixels statuses ;;
For $y = 0 To ($height - 1) Step 1
For $x = 0 To ($width - 1) Step 1
If ($pixels[$x][$y] == 2) Then
$pixels[$x][$y] = 1
EndIf
Next
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func DrawArea (ByRef $stack, $x, $y, $x0, $y0)
Local $path[8]
Local $continue

[/autoit] [autoit][/autoit] [autoit]

$path = MakePath ($pathString)

[/autoit] [autoit][/autoit] [autoit]

While 1
MouseMove ($x + $x0, $y + $y0, $speed)
$pixels[$x][$y] = 2

[/autoit] [autoit][/autoit] [autoit]

If ($scramble) Then ScramblePath ($path)
If ($rotate > 0) Then RotatePath ($path, $rotate)

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;
;; +---+---+---+ ;;
;; | 1 | 2 | 3 | ;;
;; +---+---+---+ ;;
;; | 4 | | 5 | ;;
;; +---+---+---+ ;;
;; | 6 | 7 | 8 | ;;
;; +---+---+---+ ;;
;;;;;;;;;;;;;;;;;;;

[/autoit] [autoit][/autoit] [autoit]

$continue = False
For $i = 0 To 7
Switch ($path[$i])
Case 1
If (($x > 0) And ($y > 0)) Then
If ($pixels[$x - 1][$y - 1] == 1) Then
Push ($stack, $x, $y)
$x -= 1
$y -= 1
$continue = True
ExitLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 2
If ($y > 0) Then
If ($pixels[$x][$y - 1] == 1) Then
Push ($stack, $x, $y)
$y -= 1
$continue = True
ExitLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 3
If (($x > 0) And ($y < 0)) Then
If ($pixels[$x + 1][$y - 1] == 1) Then
Push ($stack, $x, $y)
$x += 1
$y -= 1
$continue = True
ExitLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 4
If ($x > 0) Then
If ($pixels[$x - 1][$y] == 1) Then
Push ($stack, $x, $y)
$x -= 1
$continue = True
ExitLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 5
If ($x < ($width - 1)) Then
If ($pixels[$x + 1][$y] == 1) Then
Push ($stack, $x, $y)
$x += 1
$continue = True
ExitLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 6
If (($x < 0) And ($y > 0)) Then
If ($pixels[$x - 1][$y + 1] == 1) Then
Push ($stack, $x, $y)
$x -= 1
$y += 1
$continue = True
ExitLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 7
If ($y < ($height - 1)) Then
If ($pixels[$x][$y + 1] == 1) Then
Push ($stack, $x, $y)
$y += 1
$continue = True
ExitLoop
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case 8
If (($x < ($width - 1)) And ($y < ($height - 1))) Then
If ($pixels[$x + 1][$y + 1] == 1) Then
Push ($stack, $x, $y)
$x += 1
$y += 1
$continue = True
ExitLoop
EndIf
EndIf
EndSwitch
Next
If ($continue) Then ContinueLoop

[/autoit] [autoit][/autoit] [autoit]

If (Not Pop ($stack, $x, $y)) Then ExitLoop
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func MakePath ($string)
Return StringSplit ($string, "")
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func ScramblePath (ByRef $path)
Local $table = "12345678"
Local $newPath[8]

[/autoit] [autoit][/autoit] [autoit]

For $i = 8 To 1 Step -1
$next = StringMid ($table, Random (1, $i, 1), 1)
$newPath[$i - 1] = Number ($next)
$table = StringReplace ($table, $next, "")
Next

[/autoit] [autoit][/autoit] [autoit]

$path = $newPath
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func RotatePath (Byref $path, $places)
If ($places == 0) Then
Return $path
Else
For $i = 1 To Abs ($places)
$temp = $path[7]
$path[7] = $path[6]
$path[6] = $path[5]
$path[5] = $path[4]
$path[4] = $path[3]
$path[3] = $path[2]
$path[2] = $path[1]
$path[1] = $path[0]
$path[0] = $temp
Next
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func CreateStack ($size)
Dim $stack[$size + 1][2]
$stack[0][0] = 0
$stack[0][1] = $size
Return $stack
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Push (ByRef $stack, $x, $y)
$stack[0][0] += 1
If ($stack[0][0] > $stack[0][1]) Then
$stack[0][1] += 1000
ReDim $stack[$stack[0][1] + 1][2]
EndIf

[/autoit] [autoit][/autoit] [autoit]

$stack[$stack[0][0]][0] = $x
$stack[$stack[0][0]][1] = $y
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Pop (ByRef $stack, ByRef $x, ByRef $y)
If ($stack[0][0] < 1) Then
Return False
EndIf

[/autoit] [autoit][/autoit] [autoit]

$x = $stack[$stack[0][0]][0]
$y = $stack[$stack[0][0]][1]

[/autoit] [autoit][/autoit] [autoit]

$stack[0][0] -= 1
Return True
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Nothing ()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Quit ()
MouseUp ("primary")
Exit
EndFunc

[/autoit]

PenGuin

Würde sagen ja, aber teste es doch, ob es funktioniert : )

PenGuin

Du klingst immer direkt hysterisch, versuch mal weniger Capslock zu benutzen ._.

PenGuin

Schau mal meinen Beitrag an, hab einmal IsPressed und einmal HotKeySet benutzt.

Getrennt:

HotKeySet:

Spoiler anzeigen

[autoit]

HotKeySet("{F5}", "Beispiel1") ;Tastenbelegung

[/autoit] [autoit][/autoit] [autoit]

While 1 ;Endlosschleife
Sleep(50) ;CPU schonen
WEnd ;Endlosschleife zuende

[/autoit] [autoit][/autoit] [autoit]

Func _Beispiel1() ; Funktion Beispiel1
MsgBox(0, "Beispiel1", "Es wurde F5 gedrückt!") ;Öffnet ein Fenster mit dem entsprechenden Text
EndFunc

[/autoit]

_IsPressed:

Spoiler anzeigen

[autoit]

#include <Misc.au3> ;Include für _IsPressed

[/autoit] [autoit][/autoit] [autoit]

While 1 ;Endlosschleife
Sleep(50) ;CPU schonen
If _IsPressed(74) Then ;Wenn F6 gedrückt wurde, dann... (75 steht für F6, am besten Hilfe schauen)
_Beispiel1() ;Beispiel2 wird aufgerufen
EndIf
WEnd ;Endlosschleife zuende

[/autoit] [autoit][/autoit] [autoit]

Func _Beispiel1() ; Funktion Beispiel2
MsgBox(0, "Beispiel1", "Es wurde F5 gedrückt!"); Öffnet ein Fenster mit dem entsprechenden Text
EndFunc

[/autoit]

EDIT: Das Enter und Tab muss in die Funktion

PenGuin

So sendet der jetzt einmal Enter und sonst nichts mehr, auch nciht auf F5...

Hier mal 2in1:

Spoiler anzeigen

[autoit]

#include <Misc.au3> ;Include für _IsPressed

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{F5}", "Beispiel1") ;Tastenbelegung

[/autoit] [autoit][/autoit] [autoit]

While 1 ;Endlosschleife
Sleep(50) ;CPU schonen
If _IsPressed(75) Then ;Wenn F6 gedrückt wurde, dann... (75 steht für F6, am besten Hilfe schauen)
_Beispiel2() ;Beispiel2 wird aufgerufen
EndIf
WEnd ;Endlosschleife zuende

[/autoit] [autoit][/autoit] [autoit]

Func _Beispiel1() ; Funktion Beispiel1
MsgBox(0, "Beispiel1", "Es wurde F5 gedrückt!") ;Öffnet ein Fenster mit dem entsprechenden Text
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Beispiel2() ; Funktion Beispiel2
MsgBox(0, "Beispiel2", "Es wurde F6 gedrückt!"); Öffnet ein Fenster mit dem entsprechenden Text
EndFunc

[/autoit]

Entweder _IsPressed nehmen, oder HotKeySet

PenGuin

Er wollte ein Array erstellen mit der Zahl, die in der InputBox angegeben wurde.
Wenn z.B. 4 angegeben wurde, sollte ein Array gebildet werden mit
$aVar[4] = [1,2,3,4]
bei 5:
$aVar[5] = [1,2,3,4,5]
.
.
.

PenGuin

Endlosschleife:

Spoiler anzeigen

[autoit]

While 1
; Hier dein Code rein
WEnd

[/autoit]

Für den Tastendruck schau dir in der Hilfe:

[autoit]

_IsPressed

[/autoit]

an.

PenGuin

Seit welcher Installation?

PenGuin

Zum Dateien herunterladen kannst du doch:

[autoit]

InetGet

[/autoit]

benutzen?!

PenGuin

Einfach dein Script aufteilen? Auf 4 Einzel-Scripte, die dann abarbeiten und dann einfach Infos übertragen?

PenGuin

Achso, d.h. dein eigentliches Problem ist das einloggen, um die Koordinaten zu bekommen?
Versteh ich richtig, dass wenn du eingeloggt wärest, alles liefe?

EDIT: Wenn das einloggen das Problem ist, dann machs doch mit der FF.au3

PenGuin

Welchen String du meinst weiß ich, aber WO die in dem Source steht. Also an welcher Stelle

PenGuin

Wo ungefähr steht die Zeile in dem Source, ich finde sie nicht ._.

PenGuin

Das hier funktioniert bei dir nicht?:

Spoiler anzeigen

[autoit]

#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$Source = '<span id="ctl00_ContentBody_LatLon" style="font-weight:bold;">N 52° 23.424 E 003° 45.341</span> <small>'

[/autoit] [autoit][/autoit] [autoit]

$koordinaten = _StringBetween($Source, 'style="font-weight:bold;">', '</span>') ;=== WO IST DER FEHLER?!?!?!
If @error Then
MsgBox(16, "", "kos")
Else
MsgBox(0, "Kos", $koordinaten[0])
EndIf

[/autoit]

Wenn doch, liegt es nicht an StringBetween, sondern es ist irgendwas mit dem Source...

PenGuin

In den AutoStart Ordner kopieren?

PenGuin

Zitat von AutoBert

lass das nicht BugFix hören, der HOOK't auch mit AutoIt, wenn es nötig ist,

mfg (Auto)Bert

Glaube kaum, dass ein D3D Hook so leicht mit AutoIt möglich ist^^ Ich quäle mich da grad mit C++ ab :o

Beiträge von PenGuin

Hallo ^^

GUI Terminkalender mit Passwortabfrage

Kann man bei Koda ein Special disign haben??

iPod Firmware zurückpatchen

GetPixelColor GDI?

Start/Ende auf Tastendruck?

7 Zip

Start/Ende auf Tastendruck?

Start/Ende auf Tastendruck?

Kombinatorik Problem

Start/Ende auf Tastendruck?

F-Secure

Browserfunktionen in ff.au3

Autoit und C++?

_stringbetween() ist falsch ?

_stringbetween() ist falsch ?

_stringbetween() ist falsch ?

_stringbetween() ist falsch ?

Passwor eingabe bei Computer start

Autoit und C++?