Beiträge von funkey

**funkey**

Spoiler anzeigen

[autoit]

#include <IE.au3>
Opt('WinTitleMatchMode', 2)

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

$oIE = _IEAttach(WinGetHandle('Windows Internet Explorer'), 'hwnd')
If IsObj($oIE) Then MsgBox(64, 'Hurra', 'Mit diesem Objekt kann ich was anfangen!')

[/autoit]

**funkey**

Vllt so

[autoit]

$string = "***-****_*****"
MsgBox(0, "", StringRegExp($string, '...-...._.....'))

[/autoit]

Aber da ich mich mit regulären Ausdrücken noch recht wenig auskenne, denke ich, dass es auch eine bessere Möglichkeit gibt.

**funkey**

Herzlich willkommen.

Als wichtigster Punkt: Lad dir die neue Version 3.3.0.0 herunter!
Für den Rest: Bau dir doch einfach eine MsgBox ein.

Wenn du uns dein bisheriges Skript zeigst, dann kann es dir vllt sogar einer einbauen.

**funkey**

Ungetestet

[autoit]

RunAs($sUserName, @ComputerName, $sPassword, 0, "msiexec " & FileOpenDialog("Run as Admin", "", "All (*.*)"), @SystemDir)

[/autoit]

**funkey**

Du hast recht, deinen Code könnte man noch viel verbessern. Schau dir zum Beispiel auch den Befehl ShellExecute an.
Da du den Fehler ja selbst entdeckt hast, ist dieses Thema vorläufig doch abgeschlossen, oder? Wenn ja, dann bitte ich dich, den ersten Thread zu editieren und auf gelöst zu stellen.

btw: Du kannst auch

[autoit]

MouseClick("left", 790,180, 1, 0)

[/autoit]

schreiben, du musst nicht zuerst mit MouseMove arbeiten.

**funkey**

Herzlich willkommen!

Hast du dir ControlClick schon angeschaut?
Zeig mal die Zeilen Code, die zum Fehler führen.

**funkey**

So weit bin ich bis jetzt. Für das Icon hab ich noch keine Lösung gefunden.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Eigene veränderliche Titelleiste
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=funkey
#AutoIt3Wrapper_Res_Language=3079
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <Color.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Opt('PixelCoordMode', 0)
Opt("GUIOnEventMode", 1)

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

Const $WS_EX_COMPOSITED = 0x2000000
Global $title = "Hallo Autoit.de ;-)"
Global $hGui = GUICreate($title, 400, 500, -1, -1, BitOR($WS_POPUP, $WS_DLGFRAME, $WS_SIZEBOX), $WS_EX_COMPOSITED)
;~ GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
;~ GUISetOnEvent($GUI_EVENT_RESTORE, "_Restore")

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

GUISetIcon("shell32.dll", 42)
GUICtrlCreateIcon("shell32.dll", 42, 2, 2, 16, 16, 0x0300)
GUICtrlSetResizing ( -1,256+512+32+2)

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

Global $Btn_Min = GUICtrlCreateButton('0', 348, 3, 16, 15) ; _
;~ GUICtrlSetOnEvent(-1, '_Minimize')
GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
GUICtrlSetTip(-1, 'Minimieren')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

Global $Btn_Max = GUICtrlCreateButton('1', 364, 3, 16, 15) ;
;~ GUICtrlSetOnEvent(-1, '_Maximize')
GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
GUICtrlSetTip(-1, 'Maximieren')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

Global $Btn_Restore = GUICtrlCreateButton('2', 364, 3, 16, 15) ;
;~ GUICtrlSetOnEvent(-1, '_Restore')
GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
GUICtrlSetTip(-1, 'Verkleinern')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')
GUICtrlSetState(-1, $GUI_HIDE)

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

Global $Btn_Close = GUICtrlCreateButton('r', 382, 3, 16, 15) ; x
;~ GUICtrlSetOnEvent(-1, '_Exit')
GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
GUICtrlSetTip(-1, 'Schließen')
GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

Global $Lbl_Caption = GUICtrlCreateLabel(" " & $title, 0, 0, 400, 20, 0x4000200, 0x00100020)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetResizing(-1, 512)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 9, 551, 0);, 'MS Sans Serif')

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

Global $hChild = GUICreate('Child', 3200, 20, 0, 0, $WS_CHILD, -1, $hGui)
Global $Ctrl_Grafik = _CreateColorTransition(0, 0, 3200, 20, 0xFF0000, 0x0B6295, 1, 4)
GUISetState()
GUISwitch($hGui)

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

GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

GUISetState()

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

AdlibEnable('_RotateCaption', 350)

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

While 1
Sleep(20000)
WEnd

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

Func _RotateCaption()
Local $aPosC = WinGetPos($hChild), $aPosG = WinGetPos($hGui)
If $aPosC[0] - $aPosG[0] <= -1600 Then
WinMove($hChild, '', -20, 0)
Else
WinMove($hChild, '', $aPosC[0] - $aPosG[0] - 20, 0)
EndIf
EndFunc ;==>_RotateCaption

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

Func _Minimize()
GUISetState(@SW_MINIMIZE)
EndFunc ;==>_Minimize

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

Func _Maximize()
GUISetState(@SW_MAXIMIZE)
GUICtrlSetState($Btn_Max, $GUI_HIDE)
GUICtrlSetState($Btn_Restore, $GUI_SHOW)
EndFunc ;==>_Maximize

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

Func _Restore()
GUISetState(@SW_RESTORE)
GUICtrlSetState($Btn_Restore, $GUI_HIDE)
GUICtrlSetState($Btn_Max, $GUI_SHOW)
EndFunc ;==>_Restore

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

Func _Exit()
Exit
EndFunc ;==>_Exit

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

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $nNotifyCode = BitShift($wParam, 16)
Local $nID = BitAND($wParam, 0x0000FFFF)
Local $hCtrl = $lParam
Switch $nID
Case $Btn_Min
If $nNotifyCode = 0 Then
GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
_Minimize()
EndIf
Case $Btn_Max
If $nNotifyCode = 0 Then
GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
_Maximize()
EndIf
Case $Btn_Restore
If $nNotifyCode = 0 Then
GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
_Restore()
EndIf
Case $Btn_Close
If $nNotifyCode = 0 Then
GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
_Exit()
EndIf
EndSwitch
EndFunc ;==>WM_COMMAND

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

Func _CreateColorTransition($iPosx, $iPosy, $iWidth, $iHeight, $nColorStart, $nColorEnd, $iAlignment = 0, $iWaveFaktor = 1)
; funkey
Local $startRot, $startGruen, $startBlau, $endRot, $endGruen, $endBlau, $Color
Local $ColorOffsetRot, $ColorOffsetGruen, $ColorOffsetBlau, $Grafik
$startRot = _ColorGetRed($nColorStart)
$startGruen = _ColorGetGreen($nColorStart)
$startBlau = _ColorGetBlue($nColorStart)
$endRot = _ColorGetRed($nColorEnd)
$endGruen = _ColorGetGreen($nColorEnd)
$endBlau = _ColorGetBlue($nColorEnd)
$Grafik = GUICtrlCreateGraphic($iPosx, $iPosy, $iWidth, $iHeight, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$iHeight += $iWaveFaktor - Mod($iHeight, $iWaveFaktor)
Switch $iAlignment
Case 0
$ColorOffsetRot = ($endRot - $startRot) / ($iHeight / $iWaveFaktor)
$ColorOffsetGruen = ($endGruen - $startGruen) / ($iHeight / $iWaveFaktor)
$ColorOffsetBlau = ($endBlau - $startBlau) / ($iHeight / $iWaveFaktor)
Switch Mod($iWaveFaktor, 2)
Case 0
For $w = 1 To $iWaveFaktor - 1 Step 2
For $i = ($w - 1) * ($iHeight / $iWaveFaktor) To ($w) * ($iHeight / $iWaveFaktor) - 1
$Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2) & _
Hex($startGruen + $ColorOffsetGruen * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2) & _
Hex($startBlau + $ColorOffsetBlau * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
Next
For $i = $w * ($iHeight / $iWaveFaktor) To ($w + 1) * ($iHeight / $iWaveFaktor) - 1
$Color = '0x' & Hex($endRot - $ColorOffsetRot * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2) & _
Hex($endGruen - $ColorOffsetGruen * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2) & _
Hex($endBlau - $ColorOffsetBlau * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
Next
Next
Case 1
For $i = 0 To $iHeight - 1
$Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1), 2) & _
Hex($startGruen + $ColorOffsetGruen * ($i + 1), 2) & _
Hex($startBlau + $ColorOffsetBlau * ($i + 1), 2)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
Next
EndSwitch
Case Else
$ColorOffsetRot = ($endRot - $startRot) / ($iWidth / $iWaveFaktor)
$ColorOffsetGruen = ($endGruen - $startGruen) / ($iWidth / $iWaveFaktor)
$ColorOffsetBlau = ($endBlau - $startBlau) / ($iWidth / $iWaveFaktor)
Switch Mod($iWaveFaktor, 2)
Case 0
For $w = 1 To $iWaveFaktor - 1 Step 2
For $i = ($w - 1) * ($iWidth / $iWaveFaktor) To ($w) * ($iWidth / $iWaveFaktor) - 1
$Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2) & _
Hex($startGruen + $ColorOffsetGruen * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2) & _
Hex($startBlau + $ColorOffsetBlau * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $iHeight)
Next
For $i = $w * ($iWidth / $iWaveFaktor) To ($w + 1) * ($iWidth / $iWaveFaktor) - 1
$Color = '0x' & Hex($endRot - $ColorOffsetRot * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2) & _
Hex($endGruen - $ColorOffsetGruen * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2) & _
Hex($endBlau - $ColorOffsetBlau * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $iHeight)
Next
Next
Case 1
For $i = 0 To $iHeight - 1
$Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1), 2) & _
Hex($startGruen + $ColorOffsetGruen * ($i + 1), 2) & _
Hex($startBlau + $ColorOffsetBlau * ($i + 1), 2)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
Next
EndSwitch
EndSwitch
Return $Grafik
EndFunc ;==>_CreateColorTransition

[/autoit]

**funkey**

Super Spiel Oscar. Gefällt mir echt gut!
Download ging einwandfrei, das Spiel und die Anleitung auch.

**funkey**

Dann hab ich ja mal gut geraten!
[Blockierte Grafik: http://forum.pfyc-fanatics-bmg.de/images/smiles/smilie_woll_048.gif]

Nicht zu danken!

**funkey**

Schwierig zu sagen ohne das ganze Skript. Wie oft wird denn das ganze aufgerufen, also quasi wie groß ist die Zykluszeit? Wenn die zu hoch ist, dann ist es besser bei _ispressed die DLL mitzugeben (siehe Hilfe).

Du könntst auch das Skript so verbessern, dass du wenn du dich nach links bewegst auch nur die _ObjectTouchLeft ausführst.
Viel mehr ist so jetzt nicht zu sagen.

**funkey**

Diese MsgBox sieht sehr gut aus! Die könnte ich vllt einmal brauchen.

**funkey**

Kann dir leider nur diese Lösung anbieten.

Spoiler anzeigen

[autoit]

#include <Array.au3>

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

$String = '1231234567567'
$array = StringRegExp($String, '\d', 3)
$array = _ArrayUnique($array)
_ArrayDelete($array, 0)
_ArraySort($array)
_ArrayDisplay($array)

[/autoit]

**funkey**

Willkommen Nighraider!

Hier werden Sie bestimmt geholfen.
Auf gute Zusammenarbeit.

**funkey**

Ich dachte, das hätte ich schon probiert. Anscheinend nicht richtig. Danke.
So ists besser 0x00100020

Und wie gefällt es euch

**funkey**

Du hast in deinem Beispiel einfach die Child-Gui deaktiviert. Das ist nicht der Sinn der Sache. Führ mal mein Skript aus und beobachte ob dir was auffällt. Da bewegt sich nämlich was.

**funkey**

Spoiler anzeigen

[autoit]

_LAN_Connection(0)
Sleep(5000)
_LAN_Connection(1)

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

Func _LAN_Connection($Toggle, $sConnectionName = "LAN-Verbindung", $sNetworkFolder = "Netzwerkverbindungen")
; From: http://www.autoitscript.com/forum/index.ph…ndpost&p=525659
; Modifiziert: funkey
$ssfCONTROLS = 3
$sEnableVerb = "&Aktivieren"
$sDisableVerb = "&Deaktivieren"
$shellApp = ObjCreate("shell.application")
$oControlPanel = $shellApp.Namespace($ssfCONTROLS)
$oNetConnections = "nothing"

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

For $folderitem In $oControlPanel.items
If $folderitem.name = $sNetworkFolder Then
$oNetConnections = $folderitem.getfolder
ExitLoop
EndIf
Next
If $oNetConnections = "nothing" Then
;~ MsgBox(48, "Error", "Couldn't find " & $sNetworkFolder & " folder")
Return SetError(1, 0, 0)
EndIf

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

$oLanConnection = "nothing"
For $folderitem In $oNetConnections.items
If StringLower($folderitem.name) = StringLower($sConnectionName) Then
$oLanConnection = $folderitem
ExitLoop
EndIf
Next
If $oLanConnection = "nothing" Then
;~ MsgBox(48, "Error", "Couldn't find '" & $sConnectionName & "' item")
Return SetError(2, 0, 0)
EndIf

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

$bEnabled = True
$oEnableVerb = "nothing"
$oDisableVerb = "nothing"
$s = "Verbs: " & @CRLF
For $verb In $oLanConnection.verbs
$s = $s & @CRLF & $verb.name

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

;enables
If $verb.name = $sEnableVerb And $Toggle = 1 Then
$oEnableVerb = $verb
$oEnableVerb.DoIt
ExitLoop

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

;disables
ElseIf $verb.name = $sDisableVerb And $Toggle = 0 Then
$oDisableVerb = $verb
$oDisableVerb.DoIt
ExitLoop
Else
;~ MsgBox(48, "Error", "Tried to disable when already disabled" & @CRLF & "or enable when already enabled")
Return SetError(3, 0, 0)
EndIf
Next
Sleep(1000)
EndFunc ;==>_LAN_Connection

[/autoit]

**funkey**

Jam00: Aber darum geht es mir ja, dass sich die Farben in der Titelleiste ändern!

**funkey**

Herzlich willkommen.
Könntest du dein bisheriges Skript posten und eine Beispiel-Excel Datei anhängen (muss keine 522 Zeilen haben). Damit kann dir leichter geholfen werden.

Liest du das ganze in ein Array ein? Dann brauchst du nur eine For-Schleife mit Step 4 machen und einfach vergleichen.

**funkey**

Einfach eine Datei auswählen.

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>

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

Opt('GUIOnEventMode', 1)
HotKeySet('{Esc}', '_Ende')

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

GUICreate("Button1", 200, 200, -1, 100)
GUISetOnEvent(-3, '_Ende')

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

$Datei = FileOpenDialog("Datei für die Verwendung eines Icons auswählen", "", "Binaries (*.exe; *.dll)")
If $Datei = "" Then Exit

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

GUICtrlCreateIcon($Datei, 0, 80, 80)
GUICtrlSetOnEvent(-1, '_Run')

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

GUISetState()

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

While 1
Sleep(10000)
WEnd

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

Func _Ende()
Exit
EndFunc

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

Func _Run()
Run($Datei)
EndFunc

[/autoit]

**funkey**

Du kannst es auch viel einfacher machen

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>

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

Opt('GUIOnEventMode', 1)
HotKeySet('{Esc}', '_Ende')

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

GUICreate("Button1", 100, 30, -1, 100, $WS_POPUP, $WS_EX_TOPMOST)
GUICtrlCreateButton("Button1", 0, 0, 100, 30)
GUICtrlSetOnEvent(-1, '_Button')

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

GUISetState()

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

GUICreate("Button2", 100, 30, -1, 200, $WS_POPUP, $WS_EX_TOPMOST)
GUICtrlCreateButton("Button2", 0, 0, 100, 30)
GUICtrlSetOnEvent(-1, '_Button')

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

GUISetState()

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

While 1
Sleep(10000)
WEnd

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

Func _Ende()
Exit
EndFunc

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

Func _Button()
MsgBox(64, "Button", "Du hast "&GUICtrlRead(@GUI_CtrlId)&" gedrückt")
EndFunc

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

Beiträge von funkey

IE-Problem

RegExp für ein bestimmtes "Format"

AutoIt-Script unterbrechen und wiederaufnehmen für Userinteraktion

RunAs & msi

Mouseclick error in excel

Mouseclick error in excel

Old-Style programmieren

Game: Speedwriter

Spiel

Spiel

_MsgBox

Nochmal StringRegExp()-Spezialisten gefragt...

Tobias

Label transparent über Child-Gui ?

Label transparent über Child-Gui ?

Lan Verbindung deaktivieren

Label transparent über Child-Gui ?

Datenabgleich in einer Zeile

icon von verknüpfungen in gui darstellen

Hilfe zu GUI