Beiträge von autoBert

**autoBert**

Hallo Picknicker,

Zitat von Picknicker

ja, soll mal ein bot werden, für https://autoit.de/www.myfreefarm.de.

Zitat von Picknicker

wiso denn schonwieder foren regeln durchlesen?
hast du dir das neue script mal angeguckt?
auf der seite der sparkasse und ebay habe ich nichts in den agb`s über bots gefunden.

falls du es dir nicht angesehen hast, es geht nicht mehr um das spiel.

ja gut getarnt mittlerweile (den Eröffnungspost hast du ja auch deshalb editiert). Das ganze ist trotzallem ein BOT. Im nächsten Thread erzählst du uns dann, dass du uns dann eine andere Ausrede, damit du Infos über PixelGetColor bekommst und an deinem BOT weiterbasteln kannst.
Das mag für Schnitzel in Ordnung sein, für mich aber nicht,

mfg (Auto)Bert

**autoBert**

Zitat von ugt100

Hallo (Auto)Bert,
Hut ab **** 1 mit Sternchen usw **** .... einfach GUT !!!!

Die Sache funktioniert super - genau was ich brauche.

In einer ruhigen Minute werde ich mir das nochmal ganz genau ansehen, damit ich es auch vollständig nachvollziehen kann.
So auf die Schnelle ist das (zumindest mir) nicht möglich.

Nochmals VIELEN DANK

Gruss
Chris (alias ugt100)

P.S. hast echt was gut (helfen kann ich ggf. in Sachen AD und E-Mailing)

danke gern geschehen. Ist recht einfach gewesen:

[autoit]

;Zeile3
Func _MyArrayDisplay(Const ByRef $avArray, $sTitle = "Array: ListView Display", $sCols = 0, $iItemLimit = -1, $iTranspose = 0, $sSeparator = "", $sReplace = "|", $sHeader = "")

[/autoit]

hier änderte ich den Aufruf: $cols eingefügt.

[autoit]

;Zeile 5
$aCols = StringSplit($sCols, "|") ;String in Array umwandeln

[/autoit][autoit]

;Zeile 150 ************************************************************************************
$iWidth = _GUICtrlListView_GetColumnWidth($hListView,0) ;Gesamtbreite = Spalte 0
$iColCount = _GUICtrlListView_GetColumnCount($hListView) ;Anzahl der Spalten ermitteln
;ConsoleWrite($aCols)
For $i = 1 To $iColCount - 1
If IsArray($aCols) Then ;nur wenn Splatenwerte angegeben
_GUICtrlListView_SetColumnWidth($hListView, $i, Number($aCols[$i])) ;Spaltenbreite setzen
;ConsoleWrite($i & ": " & $aCols[$i])
If $aCols[$i] = -1 Then ;wenn AutoSize
;ConsoleWrite(" AutoSize")
_GUICtrlListView_SetColumnWidth($hListView, $i, $LVSCW_AUTOSIZE) ;auf AutoSize setzen
EndIf
EndIf
$iWidth += _GUICtrlListView_GetColumnWidth($hListView,$i) ;Spaltenbreite zu Gesamtbreite dazuzählen
;ConsoleWrite(@CRLF)
Next
;************************************************************************************

[/autoit]

alles andere ist die Oiginal-UDF

mfg (Auto)Bert

**autoBert**

Hallo picknicker,

du solltest dir einmal die Forenregeln durchlesen,

mfg (Auto)Bert

**autoBert**

Hallo Jautois,

schau dir

[autoit]

_GDIPlus_BitmapCloneArea

[/autoit]

an, damit sollte es gehen,

mfg (Auto)Bert

**autoBert**

Hallo Aquila,

warum den fehlerträchtigen Weg über "send" & Co. Löse das ganze doch mit Funktionen der Excel.au3 im speziellen _ExcelReadArray,

mfg (Auto)Bert

**autoBert**

Hallo Timsk,

gern geschehen. Das Skript funktioniert mit dem von dir bechriebenen Aufbau der Tabelle.CSV . Um den Domain-Namen oder das vorbelegte Passwort zu ändern musst du nur am Skriptanfang Anpassungen vornehmen:

[autoit]

;Zeile 8
Global $sDomain = "@beispiel.local" ;Domainname
Global $sPWD = "TestPassWort" ;vorbelegtes Passwort
;Zeile 11

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo ugt100,

ja und hier das Ergebnis:

Spoiler anzeigen

[autoit]

#include-once
#include <array.au3>
#include <GuiListview.au3>
Func _MyArrayDisplay(Const ByRef $avArray, $sTitle = "Array: ListView Display", $sCols = 0, $iItemLimit = -1, $iTranspose = 0, $sSeparator = "", $sReplace = "|", $sHeader = "")
If Not IsArray($avArray) Then Return SetError(1, 0, 0)
$aCols = StringSplit($sCols, "|")
; Dimension checking
Local $iDimension = UBound($avArray, 0), $iUBound = UBound($avArray, 1) - 1, $iSubMax = UBound($avArray, 2) - 1
If $iDimension > 2 Then Return SetError(2, 0, 0)

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

; Separator handling
;~ If $sSeparator = "" Then $sSeparator = Chr(1)
If $sSeparator = "" Then $sSeparator = Chr(124)

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

; Check the separator to make sure it's not used literally in the array
If _ArraySearch($avArray, $sSeparator, 0, 0, 0, 1) <> -1 Then
For $x = 1 To 255
If $x >= 32 And $x <= 127 Then ContinueLoop
Local $sFind = _ArraySearch($avArray, Chr($x), 0, 0, 0, 1)
If $sFind = -1 Then
$sSeparator = Chr($x)
ExitLoop
EndIf
Next
EndIf

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

; Declare variables
Local $vTmp, $iBuffer = 64
Local $iColLimit = 250
Local $iOnEventMode = Opt("GUIOnEventMode", 0), $sDataSeparatorChar = Opt("GUIDataSeparatorChar", $sSeparator)

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

; Swap dimensions if transposing
If $iSubMax < 0 Then $iSubMax = 0
If $iTranspose Then
$vTmp = $iUBound
$iUBound = $iSubMax
$iSubMax = $vTmp
EndIf

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

; Set limits for dimensions
If $iSubMax > $iColLimit Then $iSubMax = $iColLimit
If $iItemLimit < 1 Then $iItemLimit = $iUBound
If $iUBound > $iItemLimit Then $iUBound = $iItemLimit

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

; Set header up
If $sHeader = "" Then
$sHeader = "Row " ; blanks added to adjust column size for big number of rows
For $i = 0 To $iSubMax
$sHeader &= $sSeparator & "Col " & $i
Next
EndIf

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

; Convert array into text for listview
Local $avArrayText[$iUBound + 1]
For $i = 0 To $iUBound
$avArrayText[$i] = "[" & $i & "]"
For $j = 0 To $iSubMax
; Get current item
If $iDimension = 1 Then
If $iTranspose Then
$vTmp = $avArray[$j]
Else
$vTmp = $avArray[$i]
EndIf
Else
If $iTranspose Then
$vTmp = $avArray[$j][$i]
Else
$vTmp = $avArray[$i][$j]
EndIf
EndIf

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

; Add to text array
$vTmp = StringReplace($vTmp, $sSeparator, $sReplace, 0, 1)
$avArrayText[$i] &= $sSeparator & $vTmp

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

; Set max buffer size
$vTmp = StringLen($vTmp)
If $vTmp > $iBuffer Then $iBuffer = $vTmp
Next
Next
$iBuffer += 1

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

; GUI Constants
Local Const $_ARRAYCONSTANT_GUI_DOCKBORDERS = 0x66
Local Const $_ARRAYCONSTANT_GUI_DOCKBOTTOM = 0x40
Local Const $_ARRAYCONSTANT_GUI_DOCKHEIGHT = 0x0200
Local Const $_ARRAYCONSTANT_GUI_DOCKLEFT = 0x2
Local Const $_ARRAYCONSTANT_GUI_DOCKRIGHT = 0x4
Local Const $_ARRAYCONSTANT_GUI_EVENT_CLOSE = -3
Local Const $_ARRAYCONSTANT_LVIF_PARAM = 0x4
Local Const $_ARRAYCONSTANT_LVIF_TEXT = 0x1
Local Const $_ARRAYCONSTANT_LVM_GETCOLUMNWIDTH = (0x1000 + 29)
Local Const $_ARRAYCONSTANT_LVM_GETITEMCOUNT = (0x1000 + 4)
Local Const $_ARRAYCONSTANT_LVM_GETITEMSTATE = (0x1000 + 44)
Local Const $_ARRAYCONSTANT_LVM_INSERTITEMW = (0x1000 + 77)
Local Const $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE = (0x1000 + 54)
Local Const $_ARRAYCONSTANT_LVM_SETITEMW = (0x1000 + 76)
Local Const $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT = 0x20
Local Const $_ARRAYCONSTANT_LVS_EX_GRIDLINES = 0x1
Local Const $_ARRAYCONSTANT_LVS_SHOWSELALWAYS = 0x8
Local Const $_ARRAYCONSTANT_WS_EX_CLIENTEDGE = 0x0200
Local Const $_ARRAYCONSTANT_WS_MAXIMIZEBOX = 0x00010000
Local Const $_ARRAYCONSTANT_WS_MINIMIZEBOX = 0x00020000
Local Const $_ARRAYCONSTANT_WS_SIZEBOX = 0x00040000
Local Const $_ARRAYCONSTANT_tagLVITEM = "int Mask;int Item;int SubItem;int State;int StateMask;ptr Text;int TextMax;int Image;int Param;int Indent;int GroupID;int Columns;ptr pColumns"

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

Local $iAddMask = BitOR($_ARRAYCONSTANT_LVIF_TEXT, $_ARRAYCONSTANT_LVIF_PARAM)
Local $tBuffer = DllStructCreate("wchar Text[" & $iBuffer & "]"), $pBuffer = DllStructGetPtr($tBuffer)
Local $tItem = DllStructCreate($_ARRAYCONSTANT_tagLVITEM), $pItem = DllStructGetPtr($tItem)
DllStructSetData($tItem, "Param", 0)
DllStructSetData($tItem, "Text", $pBuffer)
DllStructSetData($tItem, "TextMax", $iBuffer)

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

; Set interface up
Local $iWidth = 64, $iHeight = 480
Local $hGUI = GUICreate($sTitle, $iWidth, $iHeight, Default, Default, BitOR($_ARRAYCONSTANT_WS_SIZEBOX, $_ARRAYCONSTANT_WS_MINIMIZEBOX, $_ARRAYCONSTANT_WS_MAXIMIZEBOX))
Local $aiGUISize = WinGetClientSize($hGUI)
Local $hListView = GUICtrlCreateListView($sHeader, 0, 0, $aiGUISize[0], $aiGUISize[1] - 26, $_ARRAYCONSTANT_LVS_SHOWSELALWAYS)
Local $hCopy = GUICtrlCreateButton("Copy Selected", 3, $aiGUISize[1] - 23, $aiGUISize[0] - 6, 20)
GUICtrlSetResizing($hListView, $_ARRAYCONSTANT_GUI_DOCKBORDERS)
GUICtrlSetResizing($hCopy, $_ARRAYCONSTANT_GUI_DOCKLEFT + $_ARRAYCONSTANT_GUI_DOCKRIGHT + $_ARRAYCONSTANT_GUI_DOCKBOTTOM + $_ARRAYCONSTANT_GUI_DOCKHEIGHT)
GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_LVS_EX_GRIDLINES, $_ARRAYCONSTANT_LVS_EX_GRIDLINES)
GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT, $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_WS_EX_CLIENTEDGE, $_ARRAYCONSTANT_WS_EX_CLIENTEDGE)

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

; Fill listview
Local $aItem
For $i = 0 To $iUBound
If GUICtrlCreateListViewItem($avArrayText[$i], $hListView) = 0 Then
; use GUICtrlSendMsg() to overcome AutoIt limitation
$aItem = StringSplit($avArrayText[$i], $sSeparator)
DllStructSetData($tBuffer, "Text", $aItem[1])

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

; Add listview item
DllStructSetData($tItem, "Item", $i)
DllStructSetData($tItem, "SubItem", 0)
DllStructSetData($tItem, "Mask", $iAddMask)
GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_INSERTITEMW, 0, $pItem)

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

; Set listview subitem text
DllStructSetData($tItem, "Mask", $_ARRAYCONSTANT_LVIF_TEXT)
For $j = 2 To $aItem[0]
DllStructSetData($tBuffer, "Text", $aItem[$j])
DllStructSetData($tItem, "SubItem", $j - 1)
GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_SETITEMW, 0, $pItem)
Next
EndIf
Next
;************************************************************************************
$iWidth = _GUICtrlListView_GetColumnWidth($hListView,0)
$iColCount = _GUICtrlListView_GetColumnCount($hListView)
;ConsoleWrite($aCols)
For $i = 1 To $iColCount - 1
If IsArray($aCols) Then
_GUICtrlListView_SetColumnWidth($hListView, $i, Number($aCols[$i]))
;ConsoleWrite($i & ": " & $aCols[$i])
If $aCols[$i] = -1 Then
;ConsoleWrite(" AutoSize")
_GUICtrlListView_SetColumnWidth($hListView, $i, $LVSCW_AUTOSIZE)
EndIf
EndIf
$iWidth += _GUICtrlListView_GetColumnWidth($hListView,$i)
ConsoleWrite(@CRLF)
Next
;************************************************************************************

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

#cs
; adjust window width
$iWidth = 0
For $i = 0 To $iSubMax + 1
$iWidth += GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_GETCOLUMNWIDTH, $i, 0)
Next
#ce

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

If $iWidth < 250 Then $iWidth = 230
$iWidth += 20

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

If $iWidth > @DesktopWidth Then $iWidth = @DesktopWidth - 100

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

WinMove($hGUI, "", (@DesktopWidth - $iWidth) / 2, Default, $iWidth)

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

; Show dialog
GUISetState(@SW_SHOW, $hGUI)

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

While 1
Switch GUIGetMsg()
Case $_ARRAYCONSTANT_GUI_EVENT_CLOSE
ExitLoop

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

Case $hCopy
Local $sClip = ""

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

; Get selected indices [ _GUICtrlListView_GetSelectedIndices($hListView, True) ]
Local $aiCurItems[1] = [0]
For $i = 0 To GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_GETITEMCOUNT, 0, 0)
If GUICtrlSendMsg($hListView, $_ARRAYCONSTANT_LVM_GETITEMSTATE, $i, 0x2) Then
$aiCurItems[0] += 1
ReDim $aiCurItems[$aiCurItems[0] + 1]
$aiCurItems[$aiCurItems[0]] = $i
EndIf
Next

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

; Generate clipboard text
If Not $aiCurItems[0] Then
For $sItem In $avArrayText
$sClip &= $sItem & @CRLF
Next
Else
For $i = 1 To UBound($aiCurItems) - 1
$sClip &= $avArrayText[$aiCurItems[$i]] & @CRLF
Next
EndIf
ClipPut($sClip)
EndSwitch
WEnd
GUIDelete($hGUI)

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

Opt("GUIOnEventMode", $iOnEventMode)
Opt("GUIDataSeparatorChar", $sDataSeparatorChar)

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

Return 1
EndFunc ;==>_MyArrayDisplay

[/autoit]

beim Aufrufen wird als 3. Parameter ein String mit den Werten für jede Spalte angeben -1 steht für $LVSCW_AUTOSIZE. Die nachfolgenden Parameter des Originals verschieben sich dadurch um eine Stelle nach rechts.

Code

_ArrayDisplay 
--------------------------------------------------------------------------------


Zeigt ein 1-dimensionales oder 2-dimensionales Array in einer Listenansicht.




#Include <Array.au3>
_ArrayDisplay(Const ByRef $avArray [, $sTitle = "Array: ListView Display" [,$sCols [, $iItemLimit = -1 [, $iTranspose = 0 [, $sSeparator = "" [, $sReplace = "|" [, $sHeader = ""]]]]]]])




 


Parameter


$avArray Name des anzuzeigenden Arrays 
$sTitle [optional] Der neue Titel für das ListView, welches das Array anzeigt. 
$sCols [optional] Die zu setzenden Spaltenbreiten (String mit | voneinander getrennten Werten 
$iItemLimit [optional] Maximale Anzahl von darzustellenden Listenansicht-Einträgen (Zeilen) 
$iTranspose [optional] Wenn gesetzt, werden bei einem 2D-Array die erste Dimension als Spalten und die zweite Dimension als Zeilen dargestellt. Per Standard ist es umgekehrt. 
$sSeparator [optional] ändert Opt("GUIDataSeparatorChar") sofort 
$sReplace [optional] String mit dem jedes Vorkommen von $sSeparator in jedem Arrayelement ersetzt werden soll 
$sheader [optional] Spaltennamen

Alles anzeigen

Beispiel:

Spoiler anzeigen

[autoit]

#include <array.au3>
#include <date.au3>
#include <MyArrayDisplay.au3>

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

Dim $array[9][2]
For $i = 0 To 8
$array[$i][0] = Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & Chr(Random(65, 67, 1)) & "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & Chr(Random(65, 90, 1))
$array[$i][1] = Random(1, 31, 1) & "." & Random(1, 12, 1) & "." & Random(1960, 2000, 1); Pseudo-Datum ohne Prüfung auf Existenz z.B.31.02.2010 durchaus möglich
Next
_MyArrayDisplay($array,"MyArraySort Autosize","-1|-1")
_MyArrayDisplay($array,"MyArraySort Fixed","50|30")

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Timsk,

hier ein Skript:

Spoiler anzeigen

[autoit]

;Name,NameDomain,PasswortName,NameDomain,Passwort
;MMustermann,MMustermann@beispiel.local, TestPassword

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

#include <GUIConstantsEx.au3>
#include <file.au3>
#include <array.au3>

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

Global $aRecords ;Array mit Schuelerdaten
Global $sDomain = "@beispiel.local" ;Domainname
Global $sPWD = "TestPassWort" ;vorbelegtes Passwort

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

GUICreate("UserCreate Version 1.0", 250, 150)
GUISetState(@SW_SHOW)

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

GUICtrlCreateLabel("Tabelle mit Schülerdaten", 65, 90, 200, 25)
$TabelleSource = GUICtrlCreateButton("Auswählen", 65, 120, 125, 25)
GUICtrlCreateLabel("Angepasste Tablle (Speicherort waehlen)", 45, 20, 250, 25)
$TabelleTarget = GUICtrlCreateButton("Auswählen", 65, 50, 125, 25)
GUICtrlSetState($TabelleSource, $GUI_DISABLE)

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

Do
$msg = GUIGetMsg()

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

If $msg = $TabelleTarget Then
$sFileDest = FileOpenDialog("Speichern der Tabellen Datei", "C:\", "Tabellen-Datei (*.csv)", 2, "Tabelle.csv")
; ConsoleWrite("Save: " & $sFileDest & @CRLF)
GUICtrlSetState($TabelleSource, $GUI_ENABLE)
EndIf
If $msg = $TabelleSource Then
$sFileSource = FileOpenDialog("Öffnen der Tabellen Datei", "C:\", "Tabellen-Datei (*.csv)", 2, "Tabelle.csv")
; ConsoleWrite("Save: " & $sFileSource & @CRLF)
_FileReadToArray($sFileSource, $aRecords)
$hFileDest = FileOpen($sFileDest, 2) ;Ausgabedatei neu anlegen
FileWriteLine($hFileDest, "Name,NameDomain,PasswortName,NameDomain,Passwort")

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

; Schueler_Nachname, Schueler_Vorname, Klassen_Klassenbezeichnung
For $i = 2 To $aRecords[0] ;in $aRecods[0] ist Anzahl in $aRecords[1] = Überschrift
$aSchueler = StringSplit($aRecords[$i], ",")
FileWriteLine($hFileDest, StringStripWS($aSchueler[1],8) & "," & StringLeft(StringStripWS($aSchueler[2],8), 1) & StringStripWS($aSchueler[1],8) & $sDomain & "," & $sPWD)
Next
FileClose("" & $hFileDest & "")
EndIf
Until $msg = $GUI_EVENT_CLOSE

[/autoit]

das dein Problem löst,

mfg (Auto)Bert

**autoBert**

Hallo SkyTeddy,

hast du zum erstellen evtl.

[autoit]

_GUICtrlComboBox_Create

[/autoit]

verwendet. Wenn ja versuche einmal ein kleines Beispiel zu skripten, in dem der Fehler auch auftritt,

mfg (Auto)Bert

**autoBert**

Hallo SkySurfer,

schau dir einmal das Skript in Aus versehen alle versteckten Fenster sichtbar gemacht. Keylogger? an. Mit den darin verwendeten Befehlen solltest du zum Ziel kommen,

mfg (Auto)Bert

**autoBert**

Hallo owi dowi spinn,

das Bild dass du zur Grössenermittlung heranziehst existiert nicht (zumindest bei mir) dadurch werden ungültige Werte ermittelt. Abgeändertes Skript (läuft so bei mir):

Spoiler anzeigen

[autoit]

#RequireAdmin
#include <GDIPlus.au3>
If FileExists(@TempDir&"\PU_Folder.txt") Then
$StandPath=FileRead(@TempDir&"\PU_Folder.txt")
Else
$StandPath=@UserProfileDir&"\"
EndIf
if not FileExists(@TempDir & "\PictureUploader") Then DirCreate(@TempDir & "\PictureUploader") ;<==============================

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

$AllFiles=FileOpenDialog("Picture Uploader",$StandPath,"Fotos (*.jpg)",5)
;--Bilder zu Arrays--
If StringInStr($AllFiles,"|") Then
;Mehrere Dateien
$File=StringSplit($AllFiles,"|")
$Path=StringTrimRight(StringLeft($AllFiles,StringInStr($AllFiles,"|")),1)
$NuOfFiles=_GetCharacterInStr($AllFiles,"|")
Dim $FullFile[$NuOfFiles]
For $i=0 To $NuOfFiles-1
$FullFile[$i]=$Path&"\"&$File[$i+2]
Next
Else
Dim $FullFile[1]
$FullFile[0]=$AllFiles
$NuOfFiles=1
EndIf
;-Bilder in Temp-Ordner kopieren-
ProgressOn("Picture Uploader","Dateien kopieren")
ProgressSet(0)
DirCreate(@TempDir&"\PictureUploader")
For $i=1 To $NuOfFiles
ProgressSet(100/$NuOfFiles*$i)
FileCopy($FullFile[$i-1],@TempDir&"\PictureUploader\Pic_"&$i&".jpg",1)
Next
ProgressOff()
;-Bilder verkleinern-
ProgressOn("Picture Uploader","Bilder verkleinern")
ProgressSet(0)
For $i=1 To $NuOfFiles
ProgressSet(100/$NuOfFiles*$i)
_GDIPlus_Startup()
$image=_GDIPlus_ImageLoadFromFile(@TempDir&"\PictureUploader\Pic_"&$i&".jpg") ;<=================================== entscheidender Fehler
$width=_GDIPlus_ImageGetWidth($image)
$height=_GDIPlus_ImageGetHeight($image)
$ZuWidth=$width*500/$height
_GDIPlus_Shutdown()
_ImageResize(@TempDir&"\PictureUploader\Pic_"&$i&".jpg",@TempDir&"\PictureUploader\Pic_"&$i&"_s.jpg",$ZuWidth, 500)
Next
Func _ImageResize($sInImage, $sOutImage, $iW, $iH)
Local $hWnd, $hDC, $hBMP, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0
$hWnd = _WinAPI_GetDesktopWindow()
$hDC = _WinAPI_GetDC($hWnd)
$hBMP = _WinAPI_CreateCompatibleBitmap($hDC, $iW, $iH)
_WinAPI_ReleaseDC($hWnd, $hDC)
_GDIPlus_Startup()
$hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBMP)
$hImage2 = _GDIPlus_ImageLoadFromFile($sInImage)
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iW, $iH)
$CLSID = _GDIPlus_EncodersGetCLSID("JPG")
_GDIPlus_ImageSaveToFileEx($hImage1, $sOutImage, $CLSID)
_GDIPlus_ImageDispose($hImage1)
_GDIPlus_ImageDispose($hImage2)
_GDIPlus_GraphicsDispose($hGraphic)
_WinAPI_DeleteObject($hBMP)
_GDIPlus_Shutdown()
EndFunc ;==>_ImageResize
ProgressOff()
;----------------------

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

Func _GetCharacterInStr($String, $Character)
Local $Number = 0
$Str = StringSplit($String, "")
For $i = 1 To $Str[0]
$StrComp = StringCompare($Str[$i], $Character, 2)
If $StrComp = 0 Then
$Number += 1
EndIf
Next
Return $Number
EndFunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo EliteMattthias

Zitat von EliteMattthias

Man klickt den Button "Starte den Trainer" und prompt öffnet er eine Gui (in kurzform).
Drückt man auf der GUI dann den Button Weiter, kommt die nächste gui usw...

für dieses Vorhaben reicht eine einzige Gui, du musst nur auf beim Klicken des "Weiter"-Buttons mit GuiCtrlSetData die Frage austauschen, falls es Multiple-Choise wird auch noch die Auswahl an Antworten.
Wie man eine Gui erstellt, kannst du dir anhand der Hilfe unter Inhalt|Gui Referenz erarbeiten/nachlesen. Auch mit Variablen speziell Arrays solltest du dich befassen.
@Jautois hat im Forum Skripte einen Rechentrainer vorgestellt.
Wenn es eine Art Multiple-Choice werden soll, dann schau dir [ offen ] QUIZ an, gibt aber sicher noch mehr, musst einfach einmal die SuFu bemühen,

mfg (Auto)Bert

**autoBert**

Hallo Ahnungslos,

da hast du leider recht, aber wenn ich _gdiText direkt nach GuiSetState aufrufe, verschwindet der Text, sobald das Fenster einmal von einem anderen überlagert wird oder man es kurz aus dem Desktop schiebt und wieder zurückholt. (Bei @denno passiert das auch),

mfg (Auto)Bert

**autoBert**

Hallo kev,

da das Skript ohne die Pics aussteigt, hier noch einmal das Skript von vorhin (ergänzt um den Text):

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WinAPI.au3>
#include <GDIPlus.au3>

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

Global $hGraphic, $hBrush, $hFormat, $hFamily, $hFont

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

#cs
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_01.gif",@scriptdir &"\rg_bg\RG_Sig_01.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_02.gif",@scriptdir &"\rg_bg\RG_Sig_02.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_03.gif",@scriptdir &"\rg_bg\RG_Sig_03.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_04.gif",@scriptdir &"\rg_bg\RG_Sig_04.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_05.gif",@scriptdir &"\rg_bg\RG_Sig_05.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_06.gif",@scriptdir &"\rg_bg\RG_Sig_06.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_07.gif",@scriptdir &"\rg_bg\RG_Sig_07.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_08.gif",@scriptdir &"\rg_bg\RG_Sig_08.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_09.gif",@scriptdir &"\rg_bg\RG_Sig_09.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_10.gif",@scriptdir &"\rg_bg\RG_Sig_10.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_11.gif",@scriptdir &"\rg_bg\RG_Sig_11.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_12.gif",@scriptdir &"\rg_bg\RG_Sig_12.gif")
#ce

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

Global $suchen
Global $progress1
Global $fertig
Global $ab

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

$gui1 = GUICreate("Rising Gods Installer", 500, 299)
GUICtrlCreateLabel("Willkommen bei dem Installations-Assistenten für" & @CRLF & " » Rising Signatur «", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Dieser Assistent wird sie durch die Installation von » Rising Signatur « begleiten.", 80, 100, 400, 50)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Weiter >", 130, 240, 120, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
$pic = GUICreate("", 68, 71, 5, 50, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui1)
GUICtrlCreatePic("..\GUI\merlin.gif", 0, 0, 0, 0)
GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $gui1)

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

While 1
_gdiText($gui1,"Test")
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
_gdiEnd()
Exit
Case $Button2
_gdiEnd()
Exit
Case $Button1
ExitLoop

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

EndSwitch
WEnd
_gdiEnd()

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

$gui2 = GUICreate("Rising Gods Installer Zielverzeichnis", 500, 299)
GUICtrlCreateLabel("Zielverzeichnis auswählen", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Rising Signatur wird in das unten angegebene Verzeichnis installiert. Falls Sie in ein anderes Verzeichnis installieren möchten, klicken Sie auf Durchsuchen und wählen Sie ein anderes Verzeichnis aus. Klicken Sie auf Weiter, um fortzufahren", 80, 65, 300, 80)
GUICtrlCreateLabel("Der Ordner für dieses Programm wird extra angelegt.", 40, 140, 400, 50)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$folder = GUICtrlCreateInput("C:/Programme/", 45, 175, 250, 25)
$suchen = GUICtrlCreateButton("Durchsuchen...", 320, 175, 120, 25)
$install = GUICtrlCreateButton("Installieren", 130, 240, 120, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
GUIDelete($gui1)
$pic = GUICreate("", 68, 71, 5, 50, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui2)
GUICtrlCreatePic("..\GUI\merlin.gif", 0, 0, 0, 0)

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

GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $gui2)

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

While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $install
$temp = GUICtrlRead($folder)
gui()
copy()
Case $suchen
$input = FileSelectFolder("test", "test")
GUICtrlSetData($folder, $input)
EndSwitch
WEnd

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

Func gui()
$gui3 = GUICreate("Rising Gods Installer Installation", 500, 299)
GUICtrlCreateLabel("Installation", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Installation wird durchgeführt...bitte warten...", 40, 80, 400, 50)
GUICtrlCreateLabel("Dateien werden kopiert...", 40, 115, 400, 50)
$progress1 = GUICtrlCreateProgress(40, 180, 400, 12)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$fertig = GUICtrlCreateButton("Fertig stellen", 130, 240, 120, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$ab = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
GUIDelete($gui2)
$pic = GUICreate("", 68, 71, 235, 50, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui3)
GUICtrlCreatePic("..\GUI\merlin.gif", 0, 0, 0, 0)

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

GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $gui3)
EndFunc ;==>gui

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

Func copy()
DirCreate($temp & "\RisingSignature\rg_bg\")
Sleep(500)
For $i = 1 To 12
If $i < 10 Then
FileCopy(@ScriptDir & "/rg_bg/RG_Sig_0" & $i & ".gif", $temp & "/RisingSignature/rg_bg/RG_Sig_0" & $i & ".gif")
Else
FileCopy(@ScriptDir & "/rg_bg/RG_Sig_" & $i & ".gif", $temp & "/RisingSignature/rg_bg/RG_Sig_" & $i & ".gif")
EndIf
GUICtrlSetData($progress1, ($i * 100) / 12)
Next
MsgBox(0, "Status", "Rising Signatur wurde erfolgreich installiert")
GUICtrlSetState($fertig, $GUI_ENABLE)

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

While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $fertig
Exit
Case $ab
Exit
EndSwitch
WEnd

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

EndFunc ;==>copy

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

func _gdiText($hGui,$sText)
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
$hBrush = _GDIPlus_BrushCreateSolid(0x7F00007F)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Arial")
$hFont = _GDIPlus_FontCreate($hFamily, 12, 2)
$tLayout = _GDIPlus_RectFCreate(140, 140, 100, 20)
_GDIPlus_GraphicsDrawStringEx($hGraphic, $sText, $hFont, $tLayout, $hFormat, $hBrush)
EndFunc

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

Func _gdiEnd()
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
EndFunc

[/autoit]

viel Spass damit,

mfg (Auto)Bert

**autoBert**

Hallo kev,

da du GIFs verwendest schau dir das 2. Beispiel in der Hilfe zu GuiCtrlCreatePic an.

Das ganze könnte dann z.B.: so aussehen:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WinAPI.au3>

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

;#cs
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_01.gif",@scriptdir &"\rg_bg\RG_Sig_01.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_02.gif",@scriptdir &"\rg_bg\RG_Sig_02.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_03.gif",@scriptdir &"\rg_bg\RG_Sig_03.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_04.gif",@scriptdir &"\rg_bg\RG_Sig_04.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_05.gif",@scriptdir &"\rg_bg\RG_Sig_05.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_06.gif",@scriptdir &"\rg_bg\RG_Sig_06.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_07.gif",@scriptdir &"\rg_bg\RG_Sig_07.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_08.gif",@scriptdir &"\rg_bg\RG_Sig_08.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_09.gif",@scriptdir &"\rg_bg\RG_Sig_09.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_10.gif",@scriptdir &"\rg_bg\RG_Sig_10.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_11.gif",@scriptdir &"\rg_bg\RG_Sig_11.gif")
fileInstall("C:\Dokumente und Einstellungen\Kev\Desktop\sa\rg_bg\RG_Sig_12.gif",@scriptdir &"\rg_bg\RG_Sig_12.gif")
;#ce

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

Global $suchen
Global $progress1
Global $fertig
Global $ab

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

$gui1 = GUICreate("Rising Gods Installer", 500, 299)
GUICtrlCreateLabel("Willkommen bei dem Installations-Assistenten für" & @CRLF & " » Rising Signatur «", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Dieser Assistent wird sie durch die Installation von » Rising Signatur « begleiten.", 80, 100, 400, 50)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Weiter >", 130, 240, 120, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
$pic = GUICreate("", 68, 71, 5, 50, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui1)
GUICtrlCreatePic("..\GUI\merlin.gif", 0, 0, 0, 0)

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

GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $gui1)

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

While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
ExitLoop

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

EndSwitch
WEnd

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

$gui2 = GUICreate("Rising Gods Installer Zielverzeichnis", 500, 299)
GUICtrlCreateLabel("Zielverzeichnis auswählen", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Rising Signatur wird in das unten angegebene Verzeichnis installiert. Falls Sie in ein anderes Verzeichnis installieren möchten, klicken Sie auf Durchsuchen und wählen Sie ein anderes Verzeichnis aus. Klicken Sie auf Weiter, um fortzufahren", 80, 65, 300, 80)
GUICtrlCreateLabel("Der Ordner für dieses Programm wird extra angelegt.", 40, 140, 400, 50)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$folder = GUICtrlCreateInput("C:/Programme/", 45, 175, 250, 25)
$suchen = GUICtrlCreateButton("Durchsuchen...", 320, 175, 120, 25)
$install = GUICtrlCreateButton("Installieren", 130, 240, 120, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
GUIDelete($gui1)
$pic = GUICreate("", 68, 71, 5, 50, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui2)
GUICtrlCreatePic("..\GUI\merlin.gif", 0, 0, 0, 0)

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

GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $gui2)

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

While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $install
$temp = GUICtrlRead($folder)
gui()
copy()
Case $suchen
$input = FileSelectFolder("test", "test")
GUICtrlSetData($folder, $input)
EndSwitch
WEnd

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

Func gui()
$gui3 = GUICreate("Rising Gods Installer Installation", 500, 299)
GUICtrlCreateLabel("Installation", 35, 30, 500, 200)
GUICtrlSetFont(-1, 15)
GUICtrlSetState(-2, $GUI_DISABLE)
GUICtrlCreateLabel("Installation wird durchgeführt...bitte warten...", 40, 80, 400, 50)
GUICtrlCreateLabel("Dateien werden kopiert...", 40, 115, 400, 50)
$progress1 = GUICtrlCreateProgress(40, 180, 400, 12)
GUICtrlCreateLabel("Programm by Anubiz - GFX by Feyth", 165, 280, 180, 90)
GUICtrlSetState(-1, $GUI_DISABLE)
$fertig = GUICtrlCreateButton("Fertig stellen", 130, 240, 120, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$ab = GUICtrlCreateButton("Abbrechen", 255, 240, 120, 25)
GUIDelete($gui2)
$pic = GUICreate("", 68, 71, 235, 50, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui3)
GUICtrlCreatePic("..\GUI\merlin.gif", 0, 0, 0, 0)

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

GUISetState(@SW_SHOW, $pic)
GUISetState(@SW_SHOW, $gui3)
EndFunc ;==>gui

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

Func copy()
DirCreate($temp & "\RisingSignature\rg_bg\")
Sleep(500)
For $i = 1 To 12
If $i < 10 Then
FileCopy(@ScriptDir & "/rg_bg/RG_Sig_0" & $i & ".gif", $temp & "/RisingSignature/rg_bg/RG_Sig_0" & $i & ".gif")
Else
FileCopy(@ScriptDir & "/rg_bg/RG_Sig_" & $i & ".gif", $temp & "/RisingSignature/rg_bg/RG_Sig_" & $i & ".gif")
EndIf
GUICtrlSetData($progress1, ($i * 100) / 12)
Next
MsgBox(0, "Status", "Rising Signatur wurde erfolgreich installiert")
GUICtrlSetState($fertig, $GUI_ENABLE)

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

While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $fertig
Exit
Case $ab
Exit
EndSwitch
WEnd

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

EndFunc ;==>copy

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo m-obi,

wenn das 1. genauso aussehen soll wie das 2. warum erezgst du es dann nicht af die selbe Art und Weise

mfg (Auto)Bert

**autoBert**

Hallo Tweaky,

da bist du nicht der einzigste,

mfg (Auto)Bert

**autoBert**

Hallo denno,

hier einmal ein Beispiel anhand einer Bildauswahl:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <GuiListBox.au3>
#include <ListboxConstants.au3>
#include <File.au3>

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

Global $szDrive,$szDir,$szFName,$szExt

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

$hGUI = GUICreate("Flaggen", 300, 100)
$hListe = GUICtrlCreateList("", 10, 10, 180, 80,$LBS_NOTIFY)
$hNeu = GUICtrlCreateButton("...",200,10,30,25)
$hVorschau = GUICtrlCreatePic(@ScriptDir & "\Pics\NA.jpg", 210, 40, 36, 24)
GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $hNeu
$sAlt = GUICtrlRead($hListe)
$sPlus = FileOpenDialog("Land auswählen:",@ScriptDir & "\pics","Bilder (*.jpg)",3,"",$hGUI)
_PathSplit($sPlus,$szDrive,$szDir,$szFName,$szExt)
ConsoleWrite($szFName & @CRLF)
_GUICtrlListBox_InsertString($hListe,$szFName,0)
Case $hListe
GUICtrlSetImage($hVorschau, @ScriptDir & "\Pics\" & GUICtrlRead($hListe) & ".jpg")
EndSwitch
WEnd

[/autoit]

Flaggen zm Testen: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Viel Spass damit

**autoBert**

Hallo Denno,

mit _GUICtrlListBox_SetItemData sollte dies funktionieren, schau dir mal das Beispiel in der Hilfe dazu an,

mfg (Auto)Bert

**autoBert**

Hallo vassilis,

das Skript läuft auch unter XP nicht. Wenn du mit FileOpen /-Close arbeitest, musst du auch das FileHandle weiterverwenden:

Spoiler anzeigen

[autoit]

#Region ### START Koda GUI section ###
GUICreate("Übungsbeispiel: Filewrite", 178, 84, 192, 124)

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

$Eintragen = GUICtrlCreateButton("Eintragen", 24, 48, 115, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Eintragen
$hFile = Fileopen($datei,1)
filewrite($hFile,"")
sleep(100)
filewrite($hFile,"tetstestetstetstets lolololo und soweiter :D")
FileClose($hFile)
Exit

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

EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

Beiträge von autoBert

Autologin Bot/ _FFClick / _FFWindowSelect/ _FFOpenURL

(Standard)FensterGrösse des _ArrayDisplay Fenster beeinflussen

Autologin Bot/ _FFClick / _FFWindowSelect/ _FFOpenURL

Teilbereich aus einem Bild anzeigen

Problem mit Winwaitactive

Werte einer *csv Datei in eine andere übertragen

(Standard)FensterGrösse des _ArrayDisplay Fenster beeinflussen

Werte einer *csv Datei in eine andere übertragen

GUICtrlSetData funktioniert im x64 Compilat der V3.3.6.0 nicht mehr. Wie kann ich das eingrenzen?

Ordner erstellen mit Abfrage

GDI+ Bildergröße verändern: Finde den Fehler

Wie kann man mehrere GUIs in 1 Script packen?

GDI+ schrift auf bild ^^

GDI+ schrift auf bild ^^

Transpartentes .gif

Problem mit ListView

Hilfedatei - Open this Script Button - geht nicht

GuiCtrlCreateList einträge nachrücken

GuiCtrlCreateList einträge nachrücken

Windows 7 und filewrite