Beiträge von autoBert

**autoBert**

Hallo PokerFace,

hier noch ein Beispiel aus der Hilfe, wo der Progress in der Statusbar angezeigt wird:

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>

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

Opt('MustDeclareVars', 1)

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

$Debug_SB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work

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

_Main()

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

Func _Main()

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

Local $hGUI, $hProgress, $hInput, $input, $progress, $hStatus
Local $aParts[4] = [80, 160, 300, -1]

; Create GUI
$hGUI = GUICreate("StatusBar Embed Control", 400, 300)

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

;===============================================================================
; defaults to 1 part, no text
$hStatus = _GUICtrlStatusBar_Create ($hGUI)
_GUICtrlStatusBar_SetMinHeight ($hStatus, 20)

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

;===============================================================================
GUISetState()

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

; Initialize parts
_GUICtrlStatusBar_SetParts ($hStatus, $aParts)
_GUICtrlStatusBar_SetText ($hStatus, "Part 1")
_GUICtrlStatusBar_SetText ($hStatus, "Part 2", 1)

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

; Embed a progress bar
If @OSTYPE = "WIN32_WINDOWS" Then
$progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
$hProgress = GUICtrlGetHandle($progress)
_GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
Else
$progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE) ; marquee works on Win XP and above
$hProgress = GUICtrlGetHandle($progress)
_GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
_SendMessage($hProgress, $PBM_SETMARQUEE, True, 200) ; marquee works on Win XP and above
EndIf

$input = GUICtrlCreateInput("This is Embeded", 0, 0)
$hInput = GUICtrlGetHandle($input)
_GUICtrlStatusBar_EmbedControl ($hStatus, 3, $hInput, 3)

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

; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main

[/autoit]

Kannst es dir ja auf dein Skript umschreiben,

ps.: ohne Stick läuft das gepostete Skript gar nicht Meldungen:

[autoit]

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\FunKey\Spoiler\Wie heißt dieser Ladebalken_Post_96239_Beitrag_8_Skript_1.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams
+>23:22:48 Starting AutoIt3Wrapper v.1.10.1.14 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 3 CPU:X86 ANSI)
>Running AU3Check (1.54.14.0) from:C:\Programme\AutoIt3
C:\Programme\AutoIt3\Downloads\FunKey\Spoiler\Wie heißt dieser Ladebalken_Post_96239_Beitrag_8_Skript_1.au3(63,27) : WARNING: $Dir: possibly used before declaration.
ShellExecute($Dir&
~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\FunKey\Spoiler\Wie heißt dieser Ladebalken_Post_96239_Beitrag_8_Skript_1.au3 - 0 error(s), 1 warning(s)
->23:22:48 AU3Check ended.rc:1
>Running:(3.3.0.0):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Downloads\FunKey\Spoiler\Wie heißt dieser Ladebalken_Post_96239_Beitrag_8_Skript_1.au3"
C:\Programme\AutoIt3\Downloads\FunKey\Spoiler\Wie heißt dieser Ladebalken_Post_96239_Beitrag_8_Skript_1.au3 (148) : ==> Subscript used with non-Array variable.:
For $i = 1 To $aDGD[0]
For $i = 1 To $aDGD^ ERROR->23:22:49 AutoIT3.exe ended.rc:1
+>23:22:50 AutoIt3Wrapper Finished
>Exit code: 1 Time: 2.871

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Alina,

hier ein Link zum Thema Vigenère-Verchlüsselung,

mfg (Auto)Bert

**autoBert**

Hallo PokerFace,

Der Stil heisst $PBS_MARQUEE, in AutoIt ist er so umgesetzt bzw. einzuetzen:

Spoiler anzeigen

[autoit]

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

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

Opt("GUIOnEventMode", 1)

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

$Form1 = GUICreate("Form1", 545, 25, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Progress1 = GUICtrlCreateProgress(0, 0, 545, 25, $PBS_MARQUEE)
$hProgress = GUICtrlGetHandle($Progress1)
_SendMessage($hProgress, $PBM_SETMARQUEE, True, 10)
GUISetState(@SW_SHOW)

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

While 1
Sleep(100)
WEnd

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

Func Form1Close()
Exit
EndFunc ;==>Form1Close

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Elodie,

zu 1. fällt mir im Moment keine Lösung ein
zu 2. schau dir dázu GUICtrlSetResizing in der Hilfe an
zu 3. fällt mir im Moment keine Lösung ein, aber bei deinem Löungansatz siehe 2.

Hab dein DemoSkript mal größen veränderbar gemacht (Erklärungen im Skript)

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>

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

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

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

Global $Name, $msg, $Rasse, $Rasse2, $Neu, $Exit, $Tab2, $Tab1
Global $laden, $x
Global $pos[2]

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

Global $size = 11.7, $font = "Arial"

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

Example()

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

Func Example()

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

; GUI
; GUICreate("Meine Gui", 600, 400)
GUICreate("Meine Gui", 600, 400,-1,-1, $WS_SIZEBOX + $WS_SYSMENU +$WS_MAXIMIZEBOX +$WS_MINIMIZEBOX)
GUISetFont($size, "", "", $font)

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

$x = GUICtrlCreateTab(0, 0, 600, 500) ;Soll nicht höher sein als die GUI => anpassen
GUICtrlSetResizing(-1, $GUI_DOCKBORDERS) ;ist an allen 4 Seiten verankert
GUICtrlSetState($x, $GUI_DISABLE)
GUICtrlSetFont($x, 13)

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

; Erster Tab
GUICtrlCreateTabItem("Tab1")

$Neu = GUICtrlCreateButton("Erstellen", 266, 47, 160, 27)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP) ;behält die Breite und ist links und oben verankert
GUICtrlSetOnEvent($Neu, "OnNeu")
;GUICtrlSetStyle(-2, $SS_RIGHT)

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

$laden = GUICtrlCreateButton("Laden", 160, 47, 60, 27)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP) ;behält die Breite und ist links und oben verankert
GUICtrlSetOnEvent($laden, "OnLaden")
;GUICtrlSetStyle(-2, $SS_RIGHT)

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

GUICtrlCreateLabel("oder", 223, 50)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP) ;behält die Breite und ist links und oben verankert
GUICtrlSetFont(-1, $size + 0.5, "", 2)

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

$Exit = GUICtrlCreateButton("Exit", 340, 220, 50, 20)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRight + $GUI_DOCKBottom) ;behält die Breite und ist rechts und unten verankert
GUICtrlSetOnEvent($Exit, "OnExit")

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

; Zweiter Tab
$Tab2 = GUICtrlCreateTabItem("Tab2")
GUICtrlSetState($Tab2, $GUI_DISABLE)
GUICtrlCreateTabItem("")

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

Disable()
GUISetState()
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")

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

While (1)
Sleep(1000)
WEnd

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

EndFunc ;==>Example

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

;--------------- Functions ---------------
Func OnNeu()
EndFunc ;==>OnNeu

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

Func Onloeschen()
EndFunc ;==>Onloeschen

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

Func onLaden()
EndFunc ;==>onLaden

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

Func Disable()
GUICtrlSetState($x, $GUI_DISABLE)
GUICtrlSetFont($x, 13)
;Guictrlsetbkcolor($x, 0xECE9D7) ;funktioniert leider nicht...
;GUICtrlSetColor($x, 0xECE9D7) ; ""

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

GUICtrlCreateLabel("Tab2", 88, 5, 58, 20) ;Die Werte stimmen nicht => anpassen
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP) ;behält die Breite und ist links und oben verankert
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetFont(-2, 12)
EndFunc ;==>Disable

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

Func OnExit()
If @GUI_CtrlId = $Exit Then
Else
EndIf

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

Exit
EndFunc ;==>OnExit

[/autoit]

Viel Spass damit

mfg (Auto)Bert
PS.: geposteten Quelltext bitte immer in AutoIT-TAG's einschliesen und bei längerem Skript unbedingt Spoiler,

**autoBert**

Hallo tobi_girt,

Lösung für dummy_methode1:

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("DoubleFileBrowser 1.0", 633, 447, 193, 125)
$MenuItem1 = GUICtrlCreateMenu("Datei")
$MenuDummy= GUICtrlCreateMenu(" ")
GUICtrlSetState(-1, $GUI_DISABLE)
$about = GUICtrlCreateMenu("Hilfe")
$size = WinGetPos ("DoubleFileBrowser 1.0")
$menuwidth = $size [2] / 3 / 1.4
GUICtrlSetData ($MenuDummy, _StringRepeat(' ',Floor($menuwidth)))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

EndSwitch
WEnd

[/autoit]

musste die Zahl noch mit einem Faktor korrigieren,

Edit1: im Spoiler noch MenuDummy auf disabled gestellt, auf evtl. Resizen des Fensters must du noch ragieren

mfg (Auto)Bert

**autoBert**

Hallo Korby,

Zitat von Korby

Hey!
Ich würde gerne mehrere Zeilen auf einmal verschlüsseln.
Das heißt, wenn das Skript z.B. so aussieht:
[autoit]

_MsgBox()
Sleep(100)
Func _MsgBox()
MsgBox(0, "", "")
EndFunc
[/autoit]
Möchte ich es z.B. so verschlüsseln:
[autoit]

_Encrypt(_MsgBox() ;Anfang
Sleep(100)
Func _MsgBox()
MsgBox(0, "", "")
EndFunc) ;Ende
[/autoit]
Ich weiß jedoch nicht, ob und wie so etwas möglich ist.
Vorab schon einmal vielen Dank für eure Hilfe.

Alles anzeigen

das 2. Skript würde dir das Ergebnis der Msgbox, also den Button der gedrückt wurde verchlüssslen. wenn du zwei Zeilen verschlüsseln willst must du sie mit dem Operator & verketten, und danach das Ergebnis verschlüssseln,

mfg (Auto)Bert

**autoBert**

Hallo tobi_girst,

Zitat von tobi_girst

[dummy-mode-hoch2]Wie soll mir das denn helfen, die Spaces, die ich brauche, rauszukriegen?[/dummy-mode-hoch2]
Sry, dass ich so lästig bin!

dies ist ein ganz anderer Ansatz, aber wenn du zu bequem bist dir das Skript anzuschauen kann ich dir auch nicht weiterhelfen,

mfg (Auto)Bert

**autoBert**

Hallo Hunter77,

du kannt jetzt solange Guis hintereinander reihen wie du möchtest oder bis deinem PC die Resourcen augehen (letztere kannst du verhindern, in dem du die Gui wieder löchst Stichwort GuiDelete) oder du fängst mal an die anderen Steuerelemente und AutoIt besser kennen zu lernen => Hilfe und Tutorial lesen, dann kannst du z.B. ein Quizpiel programmieren oder Vokabeltrainer, bei denen die Fragen autauschbar sind,

mfg (Auto)Bert

ps.: bei meinem 1.Beitrag stand aber noch Student bei dir als Berufbezeichnung

**autoBert**

Hallo FunH@cker,

dann setzt doch bitte auch den Präfix auf gelöst (nähe Überschrift im 1. Beitrag).

Danke (Auto)Bert

**autoBert**

Hallo tobi_girst,

ich hab noch eine Lösungsmöglichkeit für dich (ist aus einem Skript, das ich vor längerer Zeit auf AutoItScript.com gefunden habe und gerade ist mir eingefallen, dass @ChaosKeks hierin schonmal das Menü bewundert hat) Es ist eigentlich ein Beispiel für Hintergrundbild und transparenter Vordergrund. Die Technik müsste sich auch 1:1 in einem PopUpWindow das kein ParentWindow hat umsetzen lassen.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Run_Tidy=y
;#Tidy_Parameters=/gd /gds
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: AutoBert
Script Function: Template for Transgui over JPG-Image

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

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

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <Constants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <EditConstants.au3>
#include<ButtonConstants.au3>
#include <GuiListView.au3>
#include <GuiTab.au3>

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

Opt("GUIOnEventMode", 1) ;ONEvent Mode.
;Opt("TrayMenuMode", 1)
Global $hfrmMain, $hfrmChild, $hlblfilemenu, $hjpgBckgrnd, $hlblFileContext, $hFileContext, $hsldrPercent

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

Global $iWidht = 1024, $iHeight = 550, $hWinToMove
_Main()

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

Func _Main()
HotKeySet("{F6}", "hide")
$hfrmMain = GUICreate("TRANS", $iWidht, $iHeight, 0, 0, $WS_POPUP, $WS_EX_CLIENTEDGE)
GUISetState(@SW_HIDE, $hfrmMain)
$hjpgBckgrnd = GUICtrlCreatePic("bin\bg" & Random(1, 8, 1) & ".jpg", 0, 0, 1024, 600) ;change bgX.jpg with your jpeg
Local $hpbarPercent = GUICtrlCreateProgress(0, 570, $iWidht, 30, $PBS_SMOOTH)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0)

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

$hfrmChild = GUICreate("GUI", $iWidht, $iHeight, -1, -1, $WS_POPUP, $WS_EX_MDICHILD, $hfrmMain)
GUISetFont(-1, 10, 800)
WinSetTrans("GUI", "", 0)
WinSetOnTop("GUI", "", 1)
GUISetState(@SW_SHOW, $hfrmChild)
$hclose = GUICtrlCreateIcon("bin\close.ico", $iHeight - 8, $iWidht - 18, 5, 16, 16)
GUICtrlSetOnEvent($hclose, "_exitMain")

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

$hlblPercent = GUICtrlCreateLabel("0", 492, 570, 60, 30)
GUICtrlSetFont(-1, 10, 800)
;------------------------MENU FILE
$hlblfilemenu = GUICtrlCreateLabel("&Datei", 3, 4, 45, 15)
GUICtrlSetOnEvent(-1, "_ShowFileMenu")
GUICtrlSetFont(-1, 10, 800)
$filesDummy = GUICtrlCreateDummy()
$hFileContext = GUICtrlCreateContextMenu($filesDummy)
$fileopen = GUICtrlCreateMenuItem("&Hintergrund", $hFileContext)
GUICtrlSetOnEvent(-1, "_OpenJPG")
GUICtrlCreateMenuItem("", $hFileContext)
$OptionsExit = GUICtrlCreateMenuItem("Be&enden", $hFileContext)
GUICtrlSetOnEvent(-1, "_ExitMain")

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

#cs
;--------------------Menu EDIT
$editmenu = GUICtrlCreateLabel("&Bearbeiten", 53, 4, 75, 15)
GUICtrlSetFont(-1, 10, 800)
$editDummy = GUICtrlCreateDummy()
$editContext = GUICtrlCreateContextMenu($editDummy)
$editcopy = GUICtrlCreateMenuItem("&Kopieren", $editDummy)
$editpaste = GUICtrlCreateMenuItem("&Einfügen", $editDummy)
#ce

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

;---------------------MENU HELP
$helpmenu = GUICtrlCreateLabel("&Hilfe", 138, 4, 45, 15)
GUICtrlSetFont(-1, 10, 800)
$HelpDummy = GUICtrlCreateDummy()
$HelpContext = GUICtrlCreateContextMenu($HelpDummy)
$HelpWWW = GUICtrlCreateMenuItem("Website", $HelpContext)
GUICtrlCreateMenuItem("", $HelpContext)
$HelpAbout = GUICtrlCreateMenuItem("&Hilfe", $HelpContext)
$helpregister = GUICtrlCreateMenuItem("&Lizenz", $HelpContext)

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

;-------------------LINE
$line = GUICtrlCreateGraphic(0, 24, 1024, 2)
GUICtrlSetGraphic($line, $GUI_GR_LINE, 0, 0)
GUICtrlSetColor(-1, 0)
;-----------------ICONS
$hicoFile = GUICtrlCreateIcon("shell32.dll", -100, 0, 30, 32, 32, $SS_SUNKEN)
GUICtrlCreateIcon("shell32.dll", -4, 32, 30, 32, 32, $SS_SUNKEN)
GUICtrlCreateIcon("shell32.dll", -7, 64, 30, 32, 32, $SS_SUNKEN)
$btn = GUICtrlCreateButton("TEST", 450, 120, 120, 24)
GUICtrlSetFont(-1, 10, 800)

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

$hsldrPercent = GUICtrlCreateSlider(10, $iHeight - 30, $iWidht - 20, 30)
GUICtrlSetLimit($hsldrPercent, 100, 50)
GUICtrlSetFont(-1, 10, 800)
;WinSetOnTop("TRANS","",1)
GUISetState(@SW_SHOW, $hfrmMain)
GUISetState(@SW_SHOW, $hfrmChild)

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

#cs
for $iPercent= 0 to 100
sleep(1)
WinSetTrans ("GUI","",$a*2.55)
GUICtrlSetData($hpbarPercent, $iPercent)
GUICtrlSetData($w, $a& " %")
next
for $iPercent= 100 to 90 Step -1
sleep(5)
WinSetTrans ("GUI","",$a*2.55)
GUICtrlSetData($hpbarPercent, $iPercent)
GUICtrlSetData($w, $a& " %")
next
#ce
;GUICtrlDelete($w) ;Prozentanzeige

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

GUICtrlSetData($hsldrPercent, 80)
WinSetTrans("GUI", "", GUICtrlRead($hsldrPercent) * 2.55)
While True
$iPercent = GUICtrlRead($hsldrPercent) ; Ließt den aktuellen wert des Sliders aus.
WinSetTrans("GUI", "", $iPercent * 2.55)
Sleep(120)
WEnd
EndFunc ;==>_Main

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

Func _exitMain()
#cs
for $iPercent= $iPercent to 100
sleep(1)
WinSetTrans ("GUI","",$iPercent*2.55)
GUICtrlSetData($hpbarPercent, $iPercent)
GUICtrlSetData($hlblPercent, $iPercent & " %")
next
#ce
GUISetState(@SW_HIDE, $hfrmMain)
Sleep(3)
;GUISetState(@SW_HIDE,$hfrmChild)
GUIDelete($hfrmChild)
GUIDelete($hfrmMain)
Exit
EndFunc ;==>_exitMain

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

; -------------- func
Func hide()
GUISetState(@SW_HIDE, $hfrmMain)
GUISetState(@SW_HIDE, $hfrmChild)
HotKeySet("{F6}", "show")
EndFunc ;==>hide

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

Func show()
GUISetState(@SW_SHOW, $hfrmMain)
GUISetState(@SW_SHOW, $hfrmChild)
HotKeySet("{F6}", "hide")
EndFunc ;==>show

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

Func _OpenJPG()
$sjpgBckgrnd = FileOpenDialog("Select a file", @ScriptDir & "\bin", "Images (*.jpg)", 1, "", $hfrmChild)
GUICtrlSetImage($hjpgBckgrnd, $sjpgBckgrnd)
EndFunc ;==>_OpenJPG

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

Func _ShowFileMenu()
ShowMenu($hfrmChild, $hlblfilemenu, $hFileContext)
EndFunc ;==>_ShowFileMenu

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

;Show a menu in a given GUI window which belongs to a given GUI ctrl
Func ShowMenu($hWnd, $CtrlID, $nContextID)
Local $arPos, $x, $y
Local $hMenu = GUICtrlGetHandle($nContextID)

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

$arPos = ControlGetPos($hWnd, "", $CtrlID)

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

$x = $arPos[0]
$y = $arPos[1] + $arPos[3]

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

ClientToScreen($hWnd, $x, $y)
TrackPopupMenu($hWnd, $hMenu, $x, $y)
EndFunc ;==>ShowMenu

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

; Convert the client (GUI) coordinates to screen (desktop) coordinates
Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
Local $stPoint = DllStructCreate("int;int")

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

DllStructSetData($stPoint, 1, $x)
DllStructSetData($stPoint, 2, $y)

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

DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))

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

$x = DllStructGetData($stPoint, 1)
$y = DllStructGetData($stPoint, 2)
; release Struct not really needed as it is a local
$stPoint = 0
EndFunc ;==>ClientToScreen

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

; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc ;==>TrackPopupMenu

[/autoit]

Du benötigst für zusätzlich einen Ordner mit den Hintergrundbildern falls du die Transparenz nutzen will.
Ich hoffe, dass dir dieser Weg mehr zusagt. Ich werde mich nächste Woche auch damit beschäftigen,

mfg (Auto)Bert

**autoBert**

Hallo .::Mignon::.,

das liegt meinen Erachtens nach an dem Stil $TCS_Button

Zitat

Auzug aus Hilfe: $TCS_BUTTONS 0x0100 Kartenreiter erscheinen als Schaltflächen (buttons), und es wird kein Rahmen um die Anzeigefläche des Controls gezeichnet.

im Zusammenhang mit dem Stil wie Windows in Controls ohne Rahmen die Selektierung trotzdem andeutet (sind Punkte ein Rahmen?). Mir persönlich ist noch kein Weg bekannt um dieses Problem zu umgehen, aber vielleicht hat ja jemand anderes hierzu eine Lösung?

mfg (Auto)Bert

**autoBert**

Zitat von Hean

Guten Tag =)

Ich habe ein kleines Script geschrieben was endlos Enter drückt, es soll ein Autologin sein^^
Nun meine Frage: geht es, dass ich das Programm wo Enter gedrückt werden soll minimiere, auf ein anderes Prog. switche (z.B Firefox) und immer noch bei dem einem minimiertem Programm, Enter gedrückt wird?
Wenn ja Wie?

Freue mich auf eure Antworten

kannst du mir sagen welchen (Un)sinn du damit bezwecken willst?

mfg (Auto)Bert

**autoBert**

Hallo BlackDeath911,

schau dir mal diesen Beitrag an: Rapidshare Premium Info ( RPI )

mfg (Auto)Bert

**autoBert**

Hallo Hunter77,

bevor du jetzt noch weitere Gui's hintereinanderhängst (geht natürlich wenn nach jeder ein Msg-Loop hängt) lies lieber in der Hilfe die Stichpunkte GUICtrlCreateGroup, GUICtrlCreateRadio, GuiCtrlSetData, FileRead und Filewrite. Danach lass dir ein Schema einfallen, wie du alles in einer Gui lösen kannst. Oder versuche zuerst alle Gui-Controls kennenzulernen und entscheide danach welche du für deinen Zweck brauchbar sind.

PS.: was studierst du?

mfg (Auto)Bert

**autoBert**

Hallo NoName,

warum machst du es nicht so:

[autoit]

$aLVItem= _GUICtrlListView_GetItemTextArray($list)
MsgBox(0,"Das ist Spalte 1 ",$aLVItem[1]) ; $aListViewItem ist ein 0 basierendes Array in 0 teht die Anzahl der Einträge
MsgBox(0,"Das ist Spalte 2 ",$aLVItem[2]) ; $aListViewItem ist ein 0 basierendes Array in 0 teht die Anzahl der Einträge

[/autoit]

mfg(Auto)Bert

**autoBert**

Hallo Roggazzz,

versuch mal diese Lösung:

[autoit]

#include <file.au3>
Local $aFile ;array zum des einlesen kompletten Files
Local $File=FileOpenDialog("Öffnen...",@DesktopCommonDir,"Text Datei (*.txt)") ;Verzeichnis evtl. austauschen
If Not _FileReadToArray($File, $aFile) Then
MsgBox(4096, "Fehler", "Fehler beim einlesen der Datei " & $File & "in das Array Fehler:" & @error)
Exit
EndIf
Local $FileNew = StringReplace($File,".txt",".html") ;tauscht die Namesbezeichnung aus und weit sie de Variable $FileNew zu
FileOpen($FileNew, 2) ; 2 = überschreiben ;ein File mit der neuen Namensbezeichnung öffnen
_FileWriteFromArray($FileNew, $aFile, 1) ;File schreiben
FileClose($File)
;danach evtl. das alte File löschen

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo .::Mignon::.,

wie wäre es mit etwas Beispielcode, damit man erkennen welche GuiControl du meinst und welche Stile bzw. erweiterten Stile du benutzt,

mfg (Auto)Bert

**autoBert**

Hallo sen,

ich hätte die Warnung (Achung sehr lang) beachten sollen, ich hab zwar den Fehler nicht gefunden. Das Skript ist im Bereich des MsgLoops sehr schlecht zu lesen, da dir bei der Formatierung (Ein/Ausrückungen) irgendwo ein Fehler unterlaufen ist: Die 1. While fängt ist ganz aussen, das dazugehörige Wend ist eingerückt. Versuch also mal den Bereich richtig zu formatieren, warscheins findet du dabei den Fehler. Wenn du ihn dann immer noch nicht hast, stelle alle Zeilen in den du die Nachricht abragst auf eine eigene Variabel um und bau an allen (un)möglichen Stellen dieses ein:

Spoiler anzeigen

If $nMsgXY = $KillTerminC then ConsoleWrite('bin gerade bei xy'

damit kannst du den Fehler vielleicht finden,

mfg (Auto)Bert

Oscar , jetzt liebe ich den OnEventModus noch mehr

**autoBert**

Hallo CuTTakZ,

Zitat

Oh, entschuldigung.. Hatte mir die Regeln nicht durchgelesen

Diese hast du aber mit deiner Registrierung akzeptiert Dein neuerliches nachfragen zeigt aber, dass du dich immer noch nicht daran hälst

Zitat

.. würdet ihr mir denn helfen wenn es sich hier um die abc.exe handeln würde?

Zitat

€dit: autoBert: Das ist ein Auszug der die Internationalen Server von Silkroad betrifft.. ich bin auf chinesichen Servern, dort wird botten eigentlich tolleriert & von den meisten auch praktiziert.

Nachdem jetzt alle nachlesen können, das es ein BOT werden soll, kann ich mir dies nicht mehr vorstellen.

Zitat

hallo, liebe Forumsmitglieder

da ich leider nichts hilfreiches nach google & der boardsuche wollte ich einfach mal nachfragen ob mir hier jemand weiter helfen kann.

Kann ich mir nicht vorstellen, anscheinend bis zu bequem zum suchen oder zum lesen.

Edit: MoD eratoren THREAD CLOSEN , bitte

mfg (Auto)Bert

**autoBert**

Hallo tobi_girst,

hier ein Ansatz wie du es mit GuiCtrlMenu lösen kannst:

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$MenuItem1 = GUICtrlCreateMenu("Datei")
$MenuItem2 = GUICtrlCreateMenu(" ")
$MenuItem3 = GUICtrlCreateMenu("Hilfe")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

EndSwitch
WEnd

[/autoit]

du müsstest dann beim Resizen entsprechend viele Leerzeichen in MenuItem2 einfügen oder entfernen,

mfg (Auto)Bert

Beiträge von autoBert

Wie heißt dieser Ladebalken

Kryptographie: "Vigenère-Quadrat"

Wie heißt dieser Ladebalken

Fragen zur Textausrichtung und Positionierng von Buttons und Tabs disablen

1/2 Menü Rechtsbündig?

Mehrere Zeilen verschlüsseln (gleichzeitig)

1/2 Menü Rechtsbündig?

Problem mit meiner ersten GUI

Problem mit GUI

1/2 Menü Rechtsbündig?

Gepunkteten Rahmen bei Steuerelementen verschwinden lassen

Im Hintergrund Enter drücken

Rapidshare Get points nachmachung

Problem mit meiner ersten GUI

_GUICtrlListView_GetItemText verträgt sich nicht mit _GUICtrlListView_GetSelectedIndices ?!?

Inhalt einer .txt in eine .html schreiben

Gepunkteten Rahmen bei Steuerelementen verschwinden lassen

Problem mit ContextMenü

ControlSend ohne betroffene Anwendung zu maximieren?

1/2 Menü Rechtsbündig?