Das keiner drauf gekommen ist 
#AutoIt3Wrapper_Run_Before=del /f /q "%scriptfile%_x64.exe"
#AutoIt3Wrapper_Run_Before=del /f /q "%scriptfile%_x86.exe"
#AutoIt3Wrapper_Run_Before=""%autoitdir%\aut2exe\aut2exe.exe" /in "%in%" /out "%scriptdir%\%scriptfile%_x64.exe" /nopack /x64"
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Run_After=ren "%out%" "%scriptfile%_x86.exe"
If @OSArch = "X86" Then
MsgBox(0, "CPU", "CPU is x86", 10)
Else
MsgBox(0, "CPU", "CPU is x64", 10)
EndIf
Gruß,
UEZ
Vielleicht hilft dir ja dieser Link: [ offen ] CPU Auslastung
Gruß,
UEZ
Suche doch mal nach Bass.dll und eukalyptus!
Die Wahrscheinlichkeit ist relativ groß was für dich zu finden.
Gruß,
UEZ
Hilft dir das vielleicht weiter (ohne GDI+ 
)?
#include <GUIConstantsEx.au3>
$iFile = FileOpenDialog("Bitte ein Bild selektieren", "", "Bild (*.jpg;*.png;*.bmp;*.gif)")
$iD = GetImageDim($iFile)
If @error Then Exit
$iW = $iD[0]
$iH = $iD[1]
$base_w = 150
$base_h = 150
$hGUI_w = 320
$hGUI_h = 150
$button_w = 100
$hGUI = GUICreate("Bild Proportional Anzeiger von UEZ 2010", $hGUI_w, $hGUI_h) ;Titel klingt ja schreg
$button = GUICtrlCreateButton("Exit", $base_w + ($hGUI_w - $base_w - $button_w ) / 2, $hGUI_h / 2 - 12, $button_w)
If $iW < $base_w And $iH < $base_h Then
$w = $base_w / 2 - $iW / 2
$h = $base_h / 2 - $iH / 2
GUICtrlCreatePic($iFile, $base_w / 2 - $iW / 2, $base_h / 2 - $iH / 2, $iW, $iH)
Else
If $iW > $iH Then
$f = $iW / $base_w
$w = $iW / $f
$h = $ih / $f
Else
$f = $iH / $base_h
$w = $iW / $f
$h = $ih / $f
EndIf
GUICtrlCreatePic($iFile, $base_w / 2 - $w / 2, $base_h / 2 - $h / 2, $w, $h)
EndIf
$g = GUICtrlCreateGraphic(0, 0, $base_w, $base_h)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xc0c0ff, 0xc0c0ff)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 0, 0, $base_w, $base_h)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]Do
Switch GUIGetMsg()
Case -3, $button
GUIDelete($hGUI)
Exit
EndSwitch
Until False
Func GetImageDim($file) ;code by Melba23 - modified by UEZ
Local $sFile = StringRegExp($file, "(?i).*\\(.*)", 3)
If Not IsArray($sFile) Or @error Then Return SetError(1, 0, 0)
Local $sPath = StringRegExp($file, "(?i)(.*)\\.+", 3)
If Not IsArray($sFile) Or @error Then Return SetError(1, 0, 0)
Local $sDimensions = ""
Local $oShellApp = ObjCreate("shell.application")
If IsObj($oShellApp) Then
Local $oDir = $oShellApp.NameSpace($sPath[0])
If IsObj($oDir) Then
Local $oFile = $oDir.Parsename($sFile[0])
If IsObj($oFile) Then
If @OSBuild > 6000 Then
$sDimensions = $oDir.GetDetailsOf($oFile, 31)
ElseIf @OSVersion = "WIN_XP" Then
$sDimensions = $oDir.GetDetailsOf($oFile, 26)
EndIf
EndIf
EndIf
EndIf
If $sDimensions = "" Then Return SetError(1, 0, 0) ;"Object creation failed"
Local $aDimensions = StringRegExp($sDimensions, "(?i)[\d]*x*[\d]", 3)
If Not IsArray($aDimensions) Then Return SetError(1, 0, 0) ;"Cannot get image resolution!"
Return SetError(0, 0, $aDimensions)
EndFunc
Einige PNGs bzw. BMPs werden leider mit GUICtrlCreatePic() überhaupt nicht bzw. falsch angezeigt!
Da ich mich nicht so mit den Styles auskenne, kann es sein, dass man den Code mit Styles verkürzen kann...
ich hab ein gui, bei dem des Picture Control 150x150 groß ist.. in diesem control soll ein bild (beispielsweiße 1500x3000) proportional angezeit (es wird also auf 150x300 runterskaliert..)
Du meinst hier doch bestimmt 75x150 oder?
Gruß,
UEZ
For $i = 1 To 50
$f = StringFormat("%04d", $i)
ConsoleWrite($f & @CRLF)
Next
Gruß,
UEZ
Steh grad aufm Schlauch
Was soll ich wie testen?
Wenn du F7 drückst, werden doch die Befehle im unteren Fenster von SciTE ausgegeben. Dort kannst du auch die Fehler beim Erstellen der Exe sehen.
Gruß,
UEZ
Hier eine schnell erstellte Variante:
[autoit]
#include <File.au3>
Check1("Test1.txt", "Test1_new.log")
[/autoit][autoit][/autoit][autoit]Func Check1($file, $newlog)
Local $aTxt, $i, $sNew
_FileReadToArray($file, $aTxt)
For $i = 1 To $aTxt[0]
If StringInStr($aTxt[$i], " Logging o") Then $sNew &= $aTxt[$i] & @CRLF
Next
Local $hFile = FileOpen($newlog, 2)
FileWrite($newlog, $sNew)
FileClose($hFile)
Return 1
EndFunc
Gruß,
UEZ
Schaue dir mal den Beitrag im engl. Forum an: Natural Order String Comparison
Gruß,
UEZ
Dann sieht es so aus, dass die Zeile
#AutoIt3Wrapper_Run_Before="%autoitdir%\aut2exe\aut2exe.exe" /in "%in%" /out "%scriptfile%_64bit.exe" /nopack /x64
nicht ausgeführt wird.
Was sagt denn die Console von SciTE?
Gruß,
UEZ
Die Datei zeilenweise einlesen, nach dem Zeichen suchen und falls vorhanden die Zeile in eine neue Datei schreiben.
Befehle dazu:
FileOpen()
FileReadLine()
StringInStr() oder StringRegExp()
FileWriteLine()
FileClose()
Gruß,
UEZ
Ich habe auch den Code von Post #5 angepasst!
Da bewegt sich nur das Label und der Rest bleibt "stehen"!
Natürlich kann man auch "Child" GUIs nehmen, wie im Beispiel von Großvater und den Scrollbalken direkt darunter plazieren - ist anwendungsspezifisch!
Gruß,
UEZ
Alles anzeigenUEZ:
Das macht dann leider die gesamze GUI scrollbar,
nicht nur das label :\BugFix :
Angeschaut und weggeklickt.
Ich habe absolut keinen Schimmer, wie ich das nach AutoIt portieren soll.
Das liegt vllt daran, dass ich auch dieses .dll-Zeug so gut wie nie verwende,
und ich mich daher bei sowas nicht auskenne...
Also bei mir bewegt sich nur das Label! Der Button bleibt doch auf der Stelle oder?
Gruß,
UEZ
Meinst du so was?
#include <timers.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
Local $GUIMsg, $hGUI, $label
Local $label_x = -50, $label_y = 120
$hGUI = GUICreate("GUI Test by UEZ 2010", 615, 469)
$Group1 = GUICtrlCreateGroup("Group1", 8, 8, 601, 113)
$Label1 = GUICtrlCreateLabel("Scrollbar Beispiel", 16, 24, 588, 87)
GUICtrlSetFont(-1, 56, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 8, 184, 601, 209)
$Button1 = GUICtrlCreateButton("Beenden", 56, 216, 507, 153)
GUICtrlSetFont(-1, 50, 400, 0, "Times New Roman")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(8, 410, 598, 40, 0x01) ;$PBS_SMOOTH)
GUISetBkColor(0x88AABB)
If @OSVersion = "WIN_XP" Then
$label = GUICtrlCreateLabel("Du kannst mich verschieben!", $label_x, $label_y, 2000, 60, Default, $WS_EX_COMPOSITED)
Else
$label = GUICtrlCreateLabel("Du kannst mich verschieben!", $label_x, $label_y, 2000, 60)
EndIf
GUICtrlSetFont(-1, 44)
GUISetState()
_GUIScrollBars_Init($hGUI)
_GUIScrollBars_ShowScrollBar($hGUI, $SB_VERT, False)
_GUIScrollBars_SetScrollInfoMin($hGUI, $SB_HORZ, -500)
_GUIScrollBars_SetScrollInfoMax($hGUI, $SB_HORZ, 600)
GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")
$i = 0
$j = 0.2
_Timer_SetTimer($hGUI, 10, "Progress")
While 1
$GUIMsg = GUIGetMsg()
Switch $GUIMsg
Case $GUI_EVENT_CLOSE, $Button1
_Timer_KillAllTimers($hGUI)
GUIDelete($hGUI)
ExitLoop
EndSwitch
WEnd
Exit
[/autoit] [autoit][/autoit] [autoit]Func Progress($hWnd, $Msg, $iIDTimer, $dwTime)
GUICtrlSetData($Progress1, $i)
$i += $j
If $i < 0 Or $i > 100 Then $j *= -1
EndFunc
Func WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $xChar, $xPos
Local $Min, $Max, $Page, $Pos, $TrackPos
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$xChar = $aSB_WindowInfo[$index][2]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0
;~ ; Get all the horizontal scroll bar information
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
; Save the position for comparison later on
$xPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $xPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
#forceref $Min, $Max
Switch $nScrollCode
Case $SB_LINELEFT ; user clicked left arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)
Case $SB_LINERIGHT ; user clicked right arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)
Case $SB_PAGELEFT ; user clicked the scroll bar shaft left of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)
Case $SB_PAGERIGHT ; user clicked the scroll bar shaft right of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch
;~ // Set the position and then retrieve it. Due to adjustments
;~ // by Windows it may not be the same as the value set.
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
;// If the position has changed, scroll the window and update it
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
GUICtrlSetPos($label, $label_x + $Pos, $label_y - 5)
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_HSCROLL
Ist ein modifiziertes Beispiel aus der Hilfe. 
Gruß,
UEZ
Das "Ding" hatte ich ja ganz vergessen! War zu lange mit den Pixel Effekten beschäftigt.
Hast ja Dank den Path Funktionen hinbekommen! 
Die sind bei mir nocht nicht ganz inne.
Und wieder was dazu gelernt...
Zum Minimieren der CPU Last einfach ein Sleep(20) in die While Schleife einbauen.
Gruß,
UEZ
Wie wollt ihr eine Basis schaffen, wo alle mitmachen können? Ein Student, der irgend eine Ingenieurwissenschaft studiert, ist ja klar im Vorteil gegenüber anderen Teilnehmern.
Wie soll z.B. ein 10. Klässler das mathermatische Wissen über Integralrechnung haben?
Welche Aufgaben wollt ihr stellen, die Google noch nicht kennt (gelöst hat)?
Gruß,
UEZ
Ich finde, dass "Volk" sollte auch abstimmen können. 50% Jury und 50% "das "Volk"!
Einfach die Ergebnisse veröffentlichen, das Volk abstimmen lassen, Stimmen von beiden auswerten und abschließend Sieger ehren!
Gruß,
UEZ
Oh Mann, das liegt über 20 Jahre zurück .
Hier noch Infos zu: "Quadratiche Ergänzung" -> http://de.wikipedia.org/wiki/Quadratische_Ergänzung
Gruß,
UEZ
Musste erst mal hier nachlesen, wie das war: http://de.wikipedia.org/wiki/Quadratische_Gleichung
Wie gesagt ohne Gewähr!
Gruß,
UEZ
Vielleicht 1/8*x^2 + px = 0 -=> x^2 + 8px = 0?
Nicht erschlagen, wenn es nicht stimmt, denn das liegt sehr lange zurück!
Gruß,
UEZ
So?
[autoit]
#include <WindowsConstants.au3>
$hGUI = GUICreate("", 400, 300, -1, -1, Default, $WS_EX_TOPMOST)
$selectedlogofile = FileOpenDialog("Select a .jpg-file", @ScriptDir &"\hktlogos\", "Logofiles files (*.jpg)", 1, "", $hGUI)
GUIDelete($hGUI)
Gruß,
UEZ
