Beiträge von autoBert

Hallo

lies dir einmal die Hilfe zuPixelChecksum durch, das sollte dir helfen

mfg (Auto)Bert

moritz1243 pixelgetcolor gibt nur die Farbe eines Pixels zurück

HeyHo Nischlas,

ich habe das Skript noch einmal überarbeitet:

zusätzlich habe ich noch Menü überall platzieren von funkey eingebaut.

Edit: GuiCtrlTip eingebaut und Kommentare eingefügt
mfg (Auto)Bert

moritz1243 wenn du ohne den Stil $WS_POPUPWINDOW bzw. $WS_POPUP eine GUI erzeugst bekommst du spätestens dann Probleme wenn du auf dieser GUI auch noch ein Menü plazieren möchtest,

HeyHo Nischlas,

erstelle eine Gui mit dem Stil $WS_POPUP, darauf kannst du dann eigene Icons im Bereich der normalen Titelleiste erzeugen z.B:

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

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

AutoIt Version: 3.3.0.0
Author: AutoBert
Script Function: Template for Background-Image (JPG)

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

Opt("GUIOnEventMode", 1) ;ONEvent Mode.

Global $iWidht = 1024, $iHeight = 550

HotKeySet("{F6}", "_hide")
$hfrmMain = GUICreate("HintergrundBild", $iWidht, $iHeight,0,0,$WS_POPUP, $WS_EX_CLIENTEDGE)
$hjpgBckgrnd = GUICtrlCreatePic("bin\bg" & Random(1, 8, 1) & ".jpg", 0, 0, $iWidht, $iHeight) ;change bgX.jpg with your jpeg
GUICtrlSetState(-1, $GUI_DISABLE)
$hclose = GUICtrlCreateIcon("close.ico", -1,900, 0, 16, 16)
GUICtrlSetOnEvent($hclose, "_exitMain")
$hbtnMini = GUICtrlCreateIcon("mini.ico", -1,820,0, 16, 16)
GUICtrlSetOnEvent($hbtnmini, "_Minimize")
$hbtnMaxi = GUICtrlCreateIcon("maxi.ico", -1,860,0, 16, 16)
GUICtrlSetOnEvent($hbtnmaxi, "_Maximize")
$hbtnExit = GUICtrlCreateButton("Be&enden", $iWidht - 100, $iHeight - 50, 80)
GUICtrlSetOnEvent(-1, "_exitMain")
GUISetState()

While True
Sleep(1000)
WEnd

Func _exitMain()
Exit
EndFunc ;==>_exitMain

Func _Minimize()
GUISetState(@SW_MINIMIZE,$hfrmMain)
EndFunc ;==>_exitMain
Func _Maximize()
GUISetState(@SW_MAXIMIZE,$hfrmMain)
EndFunc ;==>_exitMain

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

Func _show()
GUISetState(@SW_SHOW, $hfrmMain)
HotKeySet("{F6}", "_hide")
EndFunc ;==>_show

Func _OpenJPG()
$sjpgBckgrnd = FileOpenDialog("Hintergrundbild auswählen", @ScriptDir & "\bin", "Images (*.jpg)", 1, "", $hfrmMain)
GUICtrlSetImage($hjpgBckgrnd, $sjpgBckgrnd)
EndFunc ;==>_OpenJPG

mfg (Auto)Bert

Hallo

Zitat von SEuBo

Nun hab ich allerdings das Problem, dass ich bei bestimmten Buttons gerne das Icon HINTER und nicht VOR dem Text stehen sollen.

Zitat

Du könntest für jeden einzelnen Button mit GuiCtrlCreateIcon ein Icon erstellen.

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

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

;--
GUICreate("Demo Icon und Buttons", 800, 540, -1, -1, $WS_SIZEBOX + $WS_SYSMENU +$WS_MAXIMIZEBOX +$WS_MINIMIZEBOX)

GUISetOnEvent($GUI_EVENT_CLOSE, "Kill")
Local $iLeft = 20
Local $iWith = 80
GUICtrlCreateIcon(@ScriptDir & '\Icon0002.ico', 0, $iLeft+4, 6, 48, 48)
GUICtrlSetState(-1, $GUI_DISABLE) ;wichtig damit der darüberliegende Button gedrückt werden kann
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlCreateButton('unten', $iLeft, 2, $iWith, 70, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM))
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)

$iLeft = $iLeft + $iWith
GUICtrlCreateIcon(@ScriptDir & '\Icon0002.ico', 0, $iLeft+4, 16, 48, 48)
GUICtrlSetState(-1, $GUI_DISABLE) ;wichtig damit der darüberliegende Button gedrückt werden kann
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlCreateButton('oben', $iLeft, 2, $iWith, 70, BitOR($WS_CLIPSIBLINGS, $BS_TOP))
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)

$iLeft = $iLeft + $iWith
$iWith = 110
GUICtrlCreateIcon(@ScriptDir & '\Icon0002.ico', 0, $iLeft+4, 6, 48, 48)
GUICtrlSetState(-1, $GUI_DISABLE) ;wichtig damit der darüberliegende Button gedrückt werden kann
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlCreateButton('Be&enden', $iLeft, 2, $iWith, 70, BitOR($WS_CLIPSIBLINGS, $BS_right))
GUICtrlSetOnEvent(-1, 'KILL')
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)

GUISetState()

While 1
sleep(1000)
WEnd
;--
Func Kill()
Exit
EndFunc
;--

mfg (Auto)Bert

Hallo Bauer,

wenn dshow-flag @sw_hide weggelassen wird, kann man den Fehler besser eingrenzen, also

RunAsWait($UserName, $DomainName, $Password, 0, @ComSpec & " /c " & $RunProgram, @SystemDir)

. Welcher Fehler wird denn dann ausgegeben?

mfg (Auto)Bert

Hallo franzi,

schau dir diesen Thread von franzp an,

mfg (Auto)Bert

Hallo killz,

du hast im Forum Skripte gepostet jedoch das Skript vergessen,

mfg (Auto)Bert

Hallo der Scripter,

schau dir in der Hilfe InetGet an. Dieser Thread von Oscar könnte auch interessant für dich sein,

mg (Auto)Bert

Hallo Bauer,

Zitat

Bemerkungen (aus Hilfe-Datei)

Es ist wichtig, ein Arbeitsverzeichnis anzugeben, für den der Benutzer Zugriffsrechte hat, in dessen Kontext der Prozess ausgeführt wird, anderenfalls schlägt der Aufruf der Funktion RunAs() fehl.

Es ist empfehlenswert, nur dann das "fremde" Benutzerprofil zu verwenden, wenn es auch wirklich benötigt wird. Es besteht eine geringe Wahrscheinlichkeit, dass das Profil unter bestimmten Bedingungen im Speicher hängen bleibt. Wenn ein Skript RunAs() benutzt, um einen Prozess unter dem SYSTEM-Account zu starten (z.B. um als Dienst zu fungieren), und ein Benutzerprofil ist aktiv, muss dafür gesorgt werden, dass das Skript nicht beendet wird, bevor der Child-Prozess geschlossen wurde.

Benutze doch einfach RunAsWait anstelle von RunAs,

mfg (Auto)Bert

Hallo Rubberducky

Zitat

In die Hilfe hab ich geschaut, aber leider nichts gefunden.
Aber danke für die Bemühung

Hier das Beispiel zu _soundopen aus der Hilfe:

#include <Sound.au3>
;open sound file
$sound = _SoundOpen(@WindowsDir & "\media\Windows XP-Anmeldesound.wav", "Startup")
If @error = 2 Then
MsgBox(0, "Error", "The file does not exist")
Exit
ElseIf @error = 3 Then
MsgBox(0, "Error", "The alias was invalid")
Exit
ElseIf @extended <> 0 Then
$extended = @extended ;assign because @extended will be set after DllCall
$stText = DllStructCreate("char[128]")
$errorstring = DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $extended, "ptr", DllStructGetPtr($stText), "int", 128)
MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & DllStructGetData($stText, 1) & @CRLF & "Please Note: The sound may still play correctly.")
Else
MsgBox(0, "Success", "The file opened successfully")
EndIf
_SoundPlay($sound, 1)

_SoundClose($sound)

mfg (Auto)Bert

Hallo slin,

Zitat

Code gesucht! (Für könner kein Problem!)
Hallo, wie heißt nochmal der Code wenn man ein Button drückt das dann die MsgBox kommt? ich weiss dumme Frage! Aber ich habe es vergessen

mit MsgBox kannst du eine MessageBox erzeugen. Einsatz in einem Programm z.B. so:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test-Programm", 200, 200, 10, 10)
$Button1 = GUICtrlCreateButton("MsgBox ", 80, 80, 100, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
MsgBox(64,"Nachricht: " , "Button1 wurde geklickt!",20)
EndSwitch
WEnd

Hallo Rubberducky,

wenn du einen Sound abspielen willst solltest du anstelle von send die func soundplay einsetzen, schau dir doch hierzu die Hilfe an,

mfg (Auto)Bert

Hallo tillmann221

Zitat

uhh
hab das in hilfe eingegeben
und versteh nur bahnhof
kann kein englisch
bin noch noob

dann lade dir doch die Hilfe-Dateien in Deuetsch herunter.

mfg (Auto)Bert

Hallo DeepRed92,

ich kann deinen Fehler (falsche Größenberechnung) nicht nachvollziehen, habe dafür BugFix's Skript dahingehend abgeändert, dass der Text in einem Label zum Testen ausgegeben wird. Die Masse passen immer,

mfg (Auto)Bert

Hallo emtec22,

du musst erst den Inhalt des Edit-Feldes auslesen und die neuen Daten anhängen, danach schreibst du alles zurück:

HotKeySet("{F10}","Edit")

Global $counter=1
Global $wert=100

$Edit1=0

Func Edit()
GUICtrlSetData ($Edit1,GuiCtrlRead(Edit1) & @crlf & $counter &"=" & " " & $wert)
$counter=$counter+1
EndFunc

mfg (Auto)Bert

Hallo Alex2801,

du musst die Funktion mit Parametern aufrufen (so wie es dir Der_Doc bereits gepostet hat) z.B:

zusätzlich habe ich in die Original-Func noch eine Voraussage der vermutlichen Restdauer eingebaut,

mfg (Auto)Bert

Hallo chip,

schau dir mal diesen Thread an,

mfg (Auto)Bert

Hallo Jonathan,

die TimeOutzeit für die 20 Pings ergeben zwar zusammen maximal 1 Sekunde, aber die anderen Funktionen benötigen doch auch Prozessor-Zeit,

mfg (Auto)Bert

Hallo Matthias_199,

du kannst doch einfach eine längere Zeitdauer für den einzelnen Ton angeben z.B.:

Beep(2200,5000) ;5 Sekunden
Beep(2300,5000) ;5 Sekunden
Beep(3000,2500) ;2,5 Sekunden

Zitat

>>Zitat aus Hilfe<< Spielt einen Beep-Ton über den Systemlautsprecher ab.

Beep ( [ Frequency [, Duration ]] )

Parameter

Frequency [optional] Die Frequenz des Beep-Tons. Sie kann zwischen 37 Hz und 32.767 Hz(0x25 bis 0x7FFF)liegen. Standard sind 500 Hz.
Duration [optional] Die Länge des Beep-Tons in Millisekunden. Standard = 1000 ms.

mfg (Auto)Bert

Hallo RayRayatTorrex,

so klappt es:

if not FileExists(@ProgramFilesDir & "\lol") then DirCreate(@ProgramFilesDir & "\lol") ;der Zielordner muss exisitieren
FileInstall("image.jpeg", @ProgramFilesDir & "\lol") ;sonst wird das File mit dem Namen lol erzeugt
$Pic1 = GUICtrlCreatePic(@ProgramFilesDir & "\lol\image.jpeg", 0, 0, 241, 137, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

mfg (Auto)Bert