Wieso fällt eigentlich niemandem dieser peinliche Schreibfehler auf? 
Schreibweise 1 ("balloon"):
[Blockierte Grafik: http://img193.imageshack.us/img193/8703/schreibfehler2.png]
Schreibweise 2 ("ballon"):
[Blockierte Grafik: http://img714.imageshack.us/img714/9571/schreibfehler1.png]
Also echt... 
Wenn ich das Feld aber von rechts nach links oder von unten nach oben ziehe wird kein Bild erstellt ;).
Du musst es z.B. so machen:
#include <misc.au3>
#Include <ScreenCapture.au3>
_screenSaver()
[/autoit] [autoit][/autoit] [autoit]Func _screenSaver()
MsgBox(48, "Hinweis", "Ziehen sie mit der Linken Maustaste ein Feld, was dann als Bilddatei abgespeichert werden kann")
While 1
If _IsPressed(01) Then
$pos1 = MouseGetPos()
While _IsPressed(01)
Sleep(10)
WEnd
$pos2 = MouseGetPos()
If $pos1[0] > $pos2[0] Then _SwapValues($pos1[0], $pos2[0])
If $pos1[1] > $pos2[1] Then _SwapValues($pos1[1], $pos2[1])
$screen = _ScreenCapture_Capture("", $pos1[0], $pos1[1], $pos2[0], $pos2[1])
$pfad = FileSaveDialog("Datei speichern als...", @MyDocumentsDir, "Bilddateien(*.jpg ; *.bmp ; *.png)|JPEG(*.jpg)|Bitmap(*.bmp)|PNG(*.png)|Alle(*.*)", 18)
If StringRight($pfad, 3) <> "jpg" Or StringRight($pfad, 3) <> "bmp" Or StringRight($pfad, 3) <> "png" Then $pfad &= ".jpg"
If @error Then
MsgBox(48, "SceenSaver", "Fehler beim Speichern!")
ExitLoop
EndIf
_ScreenCapture_SaveImage($pfad, $screen)
MsgBox(0, "ScreenSaver", "Bild gespeichert!")
_WinAPI_DeleteObject($screen)
ExitLoop
EndIf
Sleep(100)
WEnd
EndFunc
Func _SwapValues(ByRef $Value1, ByRef $Value2)
Local $BufferTmp = $Value1
$Value1 = $Value2
$Value2 = $BufferTmp
EndFunc
Ich werde das in meine Sidebar einbauen wenn das ok ist
Was glaubst du weswegen ich das hier reingestellt habe :P.
Würde mich freuen wenn du es einbaust 
.
name22: Wer Lust hat, kann es umsetzen. Ich hab dafür leider keine Zeit.
Gut ich hätte Lust... Sobald ich weiß ob mein MouseMeter hier Anklang findet mache ich das auch noch... 
Was haltet ihr hiervon?
Mein kleines MouseMeter müsste ich allerdings noch auf GDI+ umschreiben was kein Problem sein dürfte ;).
Einstellungen könnt ihr per Rechtsklick vornehmen, welche dann in einer ini gespeichert werden.
Besonders gefällt mir die Fensterverschiebung (einfach mal ins Fenster klicken und die Maus bewegen) 
.
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
$iGUIWidth = 165
$iGUIHeight = 290
$iDeskDiag = IniRead("Data.ini", "Const", "DeskDiagInch", -1)
If $iDeskDiag = -1 Then
$iDeskDiag = InputBox("Bildschirmdiagonale", "Länge der Bildschirmdiagonale in Zoll: ", "17")
If StringReplace($iDeskDiag, " ", "") = "" Then Exit
IniWrite("Data.ini", "Const", "DeskDiagInch", $iDeskDiag)
EndIf
$iTrans = IniRead("Data.ini", "Options", "Trans", -1)
If $iTrans = -1 Then
$iTrans = 200
IniWrite("Data.ini", "Options", "Trans", $iTrans)
EndIf
$sPos = IniRead("Data.ini", "Options", "WinPos", -1)
If $sPos = -1 Then
$sPos = @DesktopWidth - $iGUIWidth & ";" & @DesktopHeight - $iGUIHeight
$iX = @DesktopWidth - $iGUIWidth
$iY = @DesktopHeight - $iGUIHeight
IniWrite("Data.ini", "Options", "WinPos", $sPos)
Else
$aPosTmp = StringSplit($sPos, ";", 2)
$iX = $aPosTmp[0]
$iY = $aPosTmp[1]
EndIf
$iColorRGB = IniRead("Data.ini", "Options", "Color", -1)
If $iColorRGB = -1 Then
$iColorRGB = 0x545454
IniWrite("Data.ini", "Options", "Color", $iColorRGB)
EndIf
$PPI = Sqrt(@DesktopWidth ^ 2 + @DesktopHeight ^ 2) / $iDeskDiag
$PPCm = Sqrt(@DesktopWidth ^ 2 + @DesktopHeight ^ 2) / ($iDeskDiag * 2.54)
$hWnd = GUICreate("MouseMeter", $iGUIWidth, $iGUIHeight, $iX, $iY, $WS_POPUP, $WS_EX_TOPMOST)
$cMenu = GUICtrlCreateContextMenu()
$cColorChoose = GUICtrlCreateMenuItem("Farbe...", $cMenu)
$cTransparency = GUICtrlCreateMenuItem("Transparenz...", $cMenu)
GUISetBkColor($iColorRGB, $hWnd)
$Label1 = GUICtrlCreateLabel("Zurückgelegte Strecke:", 10, 10, 155)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Zentimeter:", 10, 40)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("0", 10, 55, 70)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Meter:", 10, 75)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("0", 10, 90, 70)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("Inch:", 10, 110)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel("0", 10, 125, 70)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel("Pixel:", 10, 145)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel("0", 10, 160, 70)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label10 = GUICtrlCreateLabel("Geschwindigkeit:", 10, 180, 155)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 10)
$Label11 = GUICtrlCreateLabel("Meter/Sekunde:", 10, 205)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label12 = GUICtrlCreateLabel("0", 10, 220, 70)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label13 = GUICtrlCreateLabel("Meter/Sekunde (Durchschnitt):", 10, 235, 100, 50)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label14 = GUICtrlCreateLabel("0", 10, 265, 70)
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
$Reset = GUICtrlCreateButton("Zurücksetzen", 90, 75, 70, 25)
$Exit = GUICtrlCreateButton("Beenden", 90, 105, 70, 25)
WinSetTrans($hWnd, "", $iTrans)
GUISetState()
$hWnd_Slider = GUICreate("Transparenz", 200, 50)
$cSlider = GUICtrlCreateSlider(5, 5, 190, 40)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData($cSlider, $iTrans)
$aPosOld = MouseGetPos()
$iDistance = 0
$iTime = TimerInit()
AdlibRegister("_Update", 30)
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE, $Exit
IniWrite("Data.ini", "Options", "WinPos", $iX & ";" & $iY)
Exit
Case $Reset
$iTime = TimerInit()
$iDistance = 0
_Update()
Case $GUI_EVENT_PRIMARYDOWN
_SetPos()
Case $cColorChoose
$iColorRGB_Tmp = _ChooseColor(2)
If $iColorRGB_Tmp <> -1 Then GUISetBkColor($iColorRGB_Tmp, $hWnd)
IniWrite("Data.ini", "Options", "Color", $iColorRGB_Tmp)
Case $cTransparency
GUISetState(@SW_DISABLE, $hWnd)
GUISetState(@SW_SHOW, $hWnd_Slider)
Do
WinSetTrans($hWnd, "", GUICtrlRead($cSlider))
Until GUIGetMsg() = $GUI_EVENT_CLOSE
IniWrite("Data.ini", "Options", "Trans", GUICtrlRead($cSlider))
GUISetState(@SW_ENABLE, $hWnd)
GUISetState(@SW_HIDE, $hWnd_Slider)
EndSwitch
WEnd
Func _Update()
$iTime2 = TimerInit()
$aPosNew = MouseGetPos()
$iDiff = _GetPointsDistance($aPosOld[0], $aPosOld[1], $aPosNew[0], $aPosNew[1])
$iDistance += $iDiff
GUICtrlSetData($Label3, Floor($iDistance / $PPCm))
GUICtrlSetData($Label5, Floor($iDistance / $PPCm / 100))
GUICtrlSetData($Label7, Floor($iDistance / $PPI))
GUICtrlSetData($Label9, Floor($iDistance))
GUICtrlSetData($Label12, Round(($iDiff / $PPCm / 100) / (TimerDiff($iTime2) / 1000), 4))
GUICtrlSetData($Label14, Round(($iDistance / $PPCm / 100) / (TimerDiff($iTime) / 1000), 4))
$aPosOld[0] = $aPosNew[0]
$aPosOld[1] = $aPosNew[1]
EndFunc ;==>_Update
Func _SetPos()
Sleep(200)
$aPosMouse = MouseGetPos()
$iDistanceX = $iX - $aPosMouse[0]
$iDistanceY = $iY - $aPosMouse[1]
While _IsPressed("01")
$aPosMouse = MouseGetPos()
$iDiffX = $aPosMouse[0] - $iX + $iDistanceX
$iDiffY = $aPosMouse[1] - $iY + $iDistanceY
$iSpeedX = $iDiffX / 10
$iSpeedY = $iDiffY / 10
$iX += $iSpeedX
$iY += $iSpeedY
WinMove($hWnd, "", $iX, $iY)
Sleep(30)
WEnd
EndFunc ;==>_SetPos
Func _GetPointsDistance($iPointX1, $iPointY1, $iPointX2, $iPointY2)
Return Sqrt(($iPointX1 - $iPointX2) ^ 2 + ($iPointY1 - $iPointY2) ^ 2)
EndFunc ;==>_GetPointsDistance
Ich würde das gerne so anpassen, dass es zu euren anderen Tools passt, aber ich wollte vorher noch schauen ob ihr das überhaupt gebrauchen könnt.
Edit:
@tince Möchtest du das machen oder wolltest du nur deine Idee bereitstellen und fragen wer Lust hat das zu umzusetzen?
Wie vielen Leuten müssen wir wohl noch das Funktionsprinzip der Jobbörse erklären?...
Du musst schon etwas als Gegenleistung anbieten... Was du willst ist nicht schwer umzusetzen, also wieso machst du es nicht selbst? Wir helfen dir dann gerne ;).
frag mal UEZ (den "Meister") nach einer besseren buffertechnik, das hilft
Das ist die "Buffertechnik" die UEZ in seinen meisten Spielen oder Animationen verwendet ;).
Ich habe mal einen Prototypen für Arbeitsspeicher basiertes Buffering gebastelt, sorgt für weitgehend flüssige Animationen... Das Problem sind allerdings RAM Überfüllung und ähnliches :(.
Außerdem wird AutoIt ab einer bestimmten Anzahl von Objekten so oder so langsam... Ähnlich wie bei meiner GDI+ Partikel Explosion.
Im Übrigen eignet sich das "vorzeichnen" von Frames nur für Animationen mit linearem Verlauf... 
Ich helfe euch natürlich gerne in GDI+ und Geometrie Sachen aus .
Stehen wirklich nur die 2 Sachen aus der ToDo List zur Verfügung? 
Dein Script ist unübersichtlich und verwirrend... :wacko:
z.B.
Exit
[/autoit][autoit][/autoit][autoit]Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $GUI_EVENT_CLOSE
Exit
Exit
EndSelect
Das ergibt nämlich irgendwie keinen Sinnn...
Genauso wenig wie du zweimal mit verschiedenen Select Abfragen die selbe Variable abfragst...
Man kann eine Select in einer Select Abfrage machen ;).
Das Problem liegt woanders... Also wäre ein Script jetzt hilfreich.
Yeah Scrubs ist oben mit dabei.
Mein Favorit!
Also darauf wäre ich ja jetzt nie gekommen 
.
Mein Favorit ist Family Guy, wobei ich Southpark auch oft anschaue.
Suuuper! Bis auf die Musik gefällt mir alles :P.
Bald bin ich auch fertig ^^.
Mann ich liebe Tower Defense... 
Nicht schlecht, ich bin echt beeindruckt!
Das kommt auf das selbe raus, aber es ist kürzer ;).
Hier ein Beispiel:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ArrayMore.au3>
Global $aLabels[1][2]
$aLabels[0][0] = 0
$Form1 = GUICreate("Form1", 117, 33, 192, 124)
$_Label = _GuiCtrlLabel_Create(8, 8, 86, 17,"xDD", "_GUICTrlLabel_Msg")
GUISetState()
Do
$nMsg = GUIGetMsg()
For $i = 0 To $aLabels[0][0]
If $nMsg = $aLabels[$i][0] Then Call($aLabels[$i][1])
Next
Until $nMsg = $GUI_EVENT_CLOSE
Func _GuiCtrlLabel_Create($_LEFT,$_TOP,$_WIDTH,$_HEIGHT,$_Text, $sEvent)
$aLabels[0][0] += 1
_Array2DAdd($aLabels, GUICtrlCreateLabel($_Text,$_LEFT,$_TOP,$_WIDTH,$_HEIGHT) & "|" & $sEvent)
EndFunc ;==>_GuiCtrlLabel_Create
Func _GUICTrlLabel_Msg()
MsgBox(0,"","")
EndFunc
Sobald du wieder den OnEvent Mode ausschaltest, wird auf keines deiner gesetzten Events mehr reagiert ;).
Du könntest es beim MessageLoop Modus belassen und Arrays verwenden.
Aber kann mir wer noch meine andere frage beantworten?
Siehe vorheriger Beitrag, aber normalerweise kommt man auch ohne Multithreading aus. Kannst du uns vielleicht einen konkreten Zweck nennen? Für gewöhnlich reichen Adlib Funktionen völlig aus.
Das wird nicht funktionieren Script-Bär...
Dann hängt er doch immer in der 2ten While 1 Schleife fest ;).
Mit einem skript will ich einen zweiten skript starten der sich im gleichem ordner befindet wie der erste
Äh, Run bzw. ShellExecute?
Es gibt doch bestimmt eine Möglichkeit dem Programm zu sagen,
'wenn auf einen Knopf gedrückt wird, füllt sich die Leiste'.
Wär's möglich mir möglichst verständlich zu erklären wie das geht?
Erstens ist Koda nur ein kleines Hilfs-Tool, dass dir die Positionierung von Controls in einer GUI erleichtern soll ;).
Das ganze must du nachher schon selbst zum funktionieren bringen.
Schau dir doch z.B. mal dieses Tutorial an.
Das ist nicht möglich ;). AutoIt beherrscht kein Multithreading... Aber du kannst Adlib oder Timer Funktionen verwenden.
Willst du darauf hinaus, dass das ohne Passwort funktioniert?...
