Beiträge von autoBert

**autoBert**

Hallo DummDumm,

lies dir mal die Bemerkungen zu FileOpen in der Hilfe durch:

Zitat

Auszug: Wenn eine Datei im Schreibmodus geöffnet wird, wird die Datei erstellt falls sie nicht existiert

mfg (Auto)Bert

**autoBert**

Hallo SchrotterCh,

natürlich, du musst nur zusätzliche Bedingungen aufnehmen:

[autoit]

For $gui040018 = 1 To 100
GUICtrlSetData($gui040002, $gui040018) ;dauernd ausfürhen so lange die schleife ist (in diesem fall 100x) und während dessen aber das 1x dann das andere und dann 98x wieder das während das andere erledigt wird dann 1x das am ende das ergbit in endsumme die 100)
If $gui040018 < 4 Then GUICtrlSetData($gui040007, $programmname0001 & " - " & $programmversion0001 & " / Passwortabfrage 1-3 wird beendet .....") ;nur einmal ausführen (am anfang)
If $gui040018 = 100 Then
GUIDelete($gui010001) ;nur einmal ausführen
GUIDelete($gui020001) ;nur einmal ausführen
GUIDelete($gui030001) ;nur einmal ausführen
GUICtrlSetData($gui040008, $programmname0001 & " - " & $programmversion0001 & " / Passwortabfrage 1-3 wurde Erfolgreich beendet ......") ;nur einmal ausführen (nur am ende)
EndIf
Next

[/autoit]

Ich hoffe ich habe die Reihenfolge richtig verstanden, ansonsten kannst du es dir ja anpassen,

mfg (Auto)Bert

**autoBert**

Hallo

schau dir mal diesen Beitrag von BugFix an,

mfg (Auto)Bert

**autoBert**

Hallo slin,

was du hier und in diesem Thema einstellst ist identisch. Dies nennt man Doppel-Post und ist in diesem Forum nicht gerne gesehen.

mfg (Auto)Bert

**autoBert**

Hallo reaker,

Zitat

jaaa genau..das isses..danke jetz ist nur eine frage noch ungelöst..

[ offen ] Icon Problem

Dann setze doch die Themen die gelöst sind bitte auch den Präfix auf gelöst (1. Beitrag bearbeiten nähe Überschrift)

Bei deinem Icon-Problem kann ich dir leider nicht helfen, kenne kein Programm, mit dem man Icons schrumpfen kann,

mfg (Auto)Bert

**autoBert**

Hallo reaker,

meintest du so:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>

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

$gui = GUICreate("BSP", 200, 200)

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

$hlistbox = GUICtrlCreateList("", 0, 0, 200, 200, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL)) ;Achtung: wenn Koordinatenänderung => dann in _GUICtrlListBox_ItemFromPoint miteinrechnen
GUISetState()
; Fügt Strings hinzu
_GUICtrlListBox_BeginUpdate($hlistbox)
For $iI = 1 To 9
_GUICtrlListBox_AddString($hlistbox, StringFormat("%d : Zufallstring " & $iI, Random(1, 99, 1)))
Next
_GUICtrlListBox_EndUpdate($hlistbox)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_SECONDARYDOWN
If $msg[3] < 200 And $msg[4] < 200 Then
$aItems = _GUICtrlListBox_GetSelItems($hlistbox) ;array alle selektierten
For $iI = 1 To $aItems[0]
_GUICtrlListBox_SetSel($hlistbox, $aItems[$iI]) ;macht Selektion rückgängig
Next
$iId = _GUICtrlListBox_ItemFromPoint($hlistbox, $msg[3], $msg[4])
_GUICtrlListBox_SetSel($hlistbox, $iId)
EndIf
EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo mongobongo,

und hier noch ein Beispiel im OnEvent-Modus:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GUIConstants.au3>

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

Opt('GUIOnEventMode', 1)

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

Global $main_GUI, $ok_button, $cancel_button
_main()

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

Func _main()
; The main GUI window has the 2 ok/cancel-buttons and two child GUIs
$main_GUI = GUICreate("Multiple TABs",520,250,-1,-1, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX));BitOr($GUI_SS_DEFAULT_GUI,$WS_CLIPSIBLINGS))
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
$ok_button = GUICtrlCreateButton("OK",40,200,70,20)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKSIZE)
GUICtrlSetOnEvent(-1, '_End')
$cancel_button = GUICtrlCreateButton("Cancel",150,200,70,20)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKBOTTOM + $GUI_DOCKSIZE)
GUICtrlSetOnEvent(-1, '_End')
$tab = GUICtrlCreateTab(10,10,500,190)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
$child11tab = GUICtrlCreateTabItem("Child1_1")
$listview1 = GUICtrlCreateListView("Col1|Col2", 15, 35, 490, 155, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUICtrlCreateListViewItem("Tab1|blabla", $listview1)
GUICtrlCreateListViewItem("bin auf 1. Tab|blub", $listview1)
$child12tab = GUICtrlCreateTabItem("Child1_2")
$listview2 = GUICtrlCreateListView("Col1|Col2", 15, 35, 490, 155, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)
GUICtrlCreateListViewItem("Bin auf Tab 2|ich auch", $listview2)
GUICtrlCreateTabItem("")
GUISetState()
While 1
Sleep(100000)
WEnd
EndFunc ;==>_main

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

Func _End()
GUIDelete($main_GUI)
Exit
EndFunc ;==>_End

[/autoit]

Wenn du andere Controls auf (in) einem TabControl darstellen willst, ist es wichtig dass du die Controls auch direkt nach dem jeweiligen TabItems erstellst. Ausserdem ist es wichtig das TabControl mit

[autoit]

GUICtrlCreateTabItem("")

[/autoit]

zu beenden,

mfg (Auto)Bert

**autoBert**

Hallo reaker,

schau dir mal dieses kleine Skript an:

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>

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

$gui = GUICreate("BSP", 200, 200)

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

$hlistbox = GUICtrlCreateList("", 0, 0, 200, 200, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL)) ;Achtung: wenn Koordinatenänderung => dann in _GUICtrlListBox_ItemFromPoint miteinrechnen
GUISetState()
; Fügt Strings hinzu
_GUICtrlListBox_BeginUpdate($hlistbox)
For $iI = 1 To 9
_GUICtrlListBox_AddString($hlistbox, StringFormat("%d : Zufallstring " & $iI, Random(1, 99, 1)))
Next
_GUICtrlListBox_EndUpdate($hlistbox)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_SECONDARYDOWN
if $msg[3] < 200 and $msg[4] < 200 Then
$iId = _GUICtrlListBox_ItemFromPoint($hlistbox, $msg[3], $msg[4])
_GUICtrlListBox_SetSel($hlistbox, $iId)
EndIf
EndSwitch
WEnd

[/autoit]

viel Spaß damit,

(Auto)Bert

**autoBert**

Hallo Repins94,

Zitat von Repins94

so long...
Also, wäre es eventuell möglich, dass man das script einem fenster zuortnen kann aber dort nicht sieht was es macht also das einfach das script "unsichtbar" arbeitet

was machst du denn, dass der Anwender nicht sehen darf (BOT? dann lies dir doch bitte mal die Forenregeln durch,

PS. Es ist auch unhöflich durch nachträgliches Editieren des Eröffnungsposts, ohne dies kenntlich zu machen (z.B Edit Zeile 1 - 38 eingefügt) den Sinn nachfolgender Beiträge zu verzerren:

Spoiler anzeigen

[autoit]

[/align]

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

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=1253994755_bottom.ico
#AutoIt3Wrapper_outfile=Mp Potter.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#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]

AutoIt3Wrapper_icon=c:\\Benutzer\User\Desktop\logo2.ico

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MpBot by repins94", 180, 291, 297, 132)
GUISetCursor (0)
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("Scripted by Repins94", 16, 256, 151, 25)
GUICtrlSetFont(-1, 11, 800, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Button1 = GUICtrlCreateButton("Start", 24, 24, 137, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Pause", 24, 88, 137, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Ende", 24, 152, 137, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUISetOnEvent($GUI_EVENT_CLOSE, "Close")

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

Func Close()
Exit
EndFunc

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Button1
Call ("Start")

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

Case $Button2
Call ("_sleep")

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

Case $Button3
Call ("Ende")

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

EndSwitch
wend

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

HotKeySet ( "{F1}" , "Start" )
HotKeySet ( "{F3}" , "Ende" )
HotKeySet("{Pause}", "_sleep")

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

Func Start ()
While 1
Sleep (500)
Send ( "{2}")

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

WEnd
EndFunc

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

Func Ende ()
Exit
EndFunc

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

Func _sleep()
If $sleep = 1 Then
$sleep = 0
Else
$sleep = 1
EndIf
EndFunc

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

While 1
sleep (1)
WEnd

[/autoit]

das Ursprünglich eingestellet Skript hat erst in der Zeile 39 angefangen,
mfg (Auto)Bert

**autoBert**

Hallo Dr.Doktor,

es aktiviert das zuletzt aktive Fenster und wartet solange,

zu deiner 2. Frage, ja Windows merkt sich das, du kannst ja mal ALT-TAB probieren, das zuletzt aktive steht immer an der 1. Stelle zur Auswahl

mfg (Auto)Bert

**autoBert**

Hallo anno2008,

dann scahu dir einmal das Beispiel zu _GDIPlus_ImageSaveToFile an,

mfg (Auto)Bert

**autoBert**

Hallo DeepRed92,

schau dir mal diesen Beitrag an, sollte dir weiterhelfen,

mfg (Auto)Bert

**autoBert**

Hallo anno2008,

dieses Beispiel aus der Hilfe sollte dir weiterhelfen:

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>

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

_GDIPlus_Startup()

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

$hGui = GUICreate("Test Rotate", 800, 600)
GUISetState()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGui)

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

$hImage = _GDIPlus_ImageLoadFromFile(@WindowsDir & "\Angler.bmp")
$iWidth = _GDIPlus_ImageGetWidth($hImage) * 96 / _GDIPlus_ImageGetVerticalResolution($hImage)
$iHeight = _GDIPlus_ImageGetHeight($hImage) * 96 / _GDIPlus_ImageGetHorizontalResolution($hImage)

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

$hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, 400, 300)

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

_GDIPlus_MatrixRotate($hMatrix, 90, "False")
_GDIPlus_GraphicsSetTransform($hGraphic, $hMatrix)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, -$iWidth / 2, -$iHeight / 2)

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

While GUIGetMsg() <> -3
GUIRegisterMsg ( 0x000F, "my_wm_paint" )
Sleep(10)
WEnd

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

;~ _GDIPlus_MatrixDispose($hMatrix)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()

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

Func my_wm_paint()
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, -$iWidth / 2, -$iHeight / 2)
EndFunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Reaker,

schau dir mal diesen Beitrag von BugFix an,

mfg (Auto)Bert

**autoBert**

Hallo subzero007,

schau dir mal die Hilfe zu

_Net_Share_ShareAdd, inklusive dem Beispiel
DriveMapGet
DriveMapAdd

an, sollte dir weiter helfen.

mfg (Auto)Bert

**autoBert**

Hallo Repins94,

poste doch bitte das komplette Skript, weil so kann man es nicht testen,

mfg (Auto)Bert

**autoBert**

Hallo Baron1977,

Zitat

Auszug aus Hilfe: ShellExecute ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] )

hast du schon einmal nachgeprüft auf welchen Ordner das Makro @StartMenuDir zeigt z.B.

[autoit]

MsgBox(0,"",@StartMenuDir)

[/autoit]

und existiert der Pfad den du zusammenstringst (wahrscheins: C:\Program Files"\Roaming\Microsoft\Windows\Start Menu\Programs\" ).

siehe auch die Antwort von Schnitzel in ShellExecute das parameter der Text mit Leerzichen wird nicht angezeigt! Thread von dir, da hat er dir schon einmal bei Shellexecute im Zusammenhang mit dopus.exe geholfen,

mfg (Auto)Bert

**autoBert**

Hallo Julika,

lies dir bitte die Forenregeln durch,

mfg (Auto)Bert

**autoBert**

Hallo Conan10,

Progress ist eigentlich nur für das Anzeigen von Werten (z.B.: 0 - 100%) gedacht. Sieh dir mal in der Hilfe GuiCtrlCreateSlider, damit ist das ohne Probleme möglich. Sieh dir dazu auch diesen und die beiden darauf folgenden Beiträge an,

mfg (Auto)Bert

**autoBert**

Hallo kleiner27,

zu den Farben: lies dir mal die Hilfe zu GuiCtrlSetColor durch

zum Rechnen: execute

zu F mit 7.5 ersetzen: stringreplace

allgemein: in Forum Skripte gibt es unzählige (Taschen)-Rechner, benutze doch einfach mal die SuFu und schau dir die Programmier-Techniken dort an,

mfg (Auto)Bert

Beiträge von autoBert

FileWrite problem wen datei nicht vorhanden

Schleifen Problem

Marquee Progress Bar unter Windows 2000

Browser erstellen!

rechtsklick in lixtbox

rechtsklick in lixtbox

Liste/Tabelle in ein Tab einbauen.

rechtsklick in lixtbox

Script proplem? vllt datei pfad eingeben?

Was macht WinWaitActive("[ACTIVE]")

GDI-Bilder Drehen

Bilder mit Transparentem Hintergrund erstellen?

GDI-Bilder Drehen

ListBox Values in andere kopieren bei doppelklick♠

FileSelectFolder UNC Pfad asuwählen

Script proplem? vllt datei pfad eingeben?

Habe Probleme mit den Befehl "@StartMenuDir" unter Vista

AutoiT hilfe...

Klick on Progress->Wert verändern

Farbe von text ändern und wenn - dann auch - Rechnen