Beiträge von funkey

**funkey**

Ich weiß zwar nicht wie das mit spiegeln geht, aber du kannst fremde Controls in deine eigene Gui einbetten. Vllt hilft dir das weiter.
[ offen ] Programm.exe in einem AutoIt fenster ausführen

**funkey**

Phu, gar nicht so wenig arbeit

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>

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

Opt('GUIOnEventMode', 1)

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

GUICreate("Rakware USB-Support", 270, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')

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

;1 Auswahl
$hComboGroup = GUICtrlCreateCombo ("Programmgruppe wählen", 10, 10, 250, 0)
GUICtrlSetOnEvent(-1, '_Auswahl1')
$hComboProg = GUICtrlCreateCombo ("", 10, 40, 250, 0)
GUICtrlSetOnEvent(-1, '_Auswahl2')

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

;Ausführen oder Installieren Button
$hButton = GUICtrlCreateButton("Ausführen/Installieren", 180, 70, 80)
GUICtrlSetOnEvent(-1, '_start')

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

Local $aAuswahl, $aDummy
_FileReadToArray('Test.ini', $aAuswahl)
Global $Options[$aAuswahl[0]][4]

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

For $i = 1 To $aAuswahl[0]
$aDummy = StringSplit($aAuswahl[$i], ';', 2)
For $j = 0 To UBound($aDummy) -1
$Options[$i-1][$j] = $aDummy[$j]
Next
GUICtrlSetData($hComboGroup, $aDummy[0], 'Programmgruppe wählen')
Next

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

GUISetState ()

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

While 1
Sleep(100000)
Wend

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

Func _Exit()
Exit
EndFunc

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

Func _Auswahl1()
Local $search = GUICtrlRead(@GUI_CtrlId)
GUICtrlSetData($hComboProg, '')
For $i = 0 To UBound($Options, 1) -1
If $search = $Options[$i][0] Then
GUICtrlSetData($hComboProg, $Options[$i][1], $Options[$i][1])
GUICtrlSetData($hButton, $Options[$i][3])
EndIf
Next
EndFunc

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

Func _Auswahl2()
Local $search = GUICtrlRead(@GUI_CtrlId)
For $i = 0 To UBound($Options, 1) -1
If $search = $Options[$i][1] Then GUICtrlSetData($hButton, $Options[$i][3])
Next
EndFunc

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

Func _start()
Local $search = GUICtrlRead($hComboProg)
For $i = 0 To UBound($Options, 1) -1
If $search = $Options[$i][1] Then MsgBox(0,$Options[$i][3], $Options[$i][2])
Next
EndFunc

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

Ich hoffe so passt es ungefähr für dich. Anpassen kannst du es bestimmt selber.

**funkey**

Herzlich willkommen!
Hab das Ungetüm mal etwas gekürzt
Es gibt auch deutsche Computerstimmen, die Texte vorlesen können, dann hättest du die Dateien nicht selbst aufnehmen müssen . Hier im Forum wirst du bestimmt fündig. Ich bevorzuge die Computerstimme Steffi, aber Anna und Stefan können auch gut lesen
Das Einstellen der Lautstärke funktioniert bei mir nicht.

Schau dir mal die Autoit-Makros an, dann brauchst du keine absoluten Pfade anzugeben.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\icons\mund.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
; MADE BY Tevin & Banjo1 !!!
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Vorleser", 148, 160, 192, 124)
$Input1 = GUICtrlCreateInput("text", 16, 35, 105, 21)
$Button1 = GUICtrlCreateButton("Lesen", 16, 112, 115, 25, 0)
$Label1 = GUICtrlCreateLabel("Text eingeben :", 16, 15, 78, 17)
$Label2 = GUICtrlCreateLabel("Lautstärke :", 16, 65, 78, 17)
$Slider1 = GUICtrlCreateSlider(8, 80, 120, 25)
GUICtrlSetLimit(-1, 110, 10)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Func1()
EndSwitch
WEnd

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

Func _Func1()
$Slider1 = GUICtrlRead($Slider1)
SoundSetWaveVolume($Slider1)
$Input1 = GUICtrlRead($Input1)
$aText = StringRegExp($Input1, '.', 3)
For $i = 0 To UBound($aText) - 1
_auswerten($aText[$i])
Next
Exit
EndFunc ;==>_Func1

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

Func _auswerten($var)
If StringIsAlNum($var) Then
SoundPlay(@ScriptDir & "\sound/"&$var&".wav", 1)
ElseIf $var = " " Then
Sleep(150)
ElseIf $var = "," Then
Sleep(200)
ElseIf $var = "." Then
Sleep(250)
EndIf
EndFunc ;==>_auswerten

[/autoit]

**funkey**

Das ist eine Avi in der shell32.dll

**funkey**

http://www.wintotal.de/Tipps/index.php?id=837
Da findest du Icons

EDIT: Hab grad gesehen, dass das was du suchst da auch nicht dabei ist. Sorry.

**funkey**

Vllt brauchst du nur den Befehl ShellExecute (der nimmt automatisch das Standard-Programm zum Starten einer Datei). Ansonsten müsste man das über die Registry machen.

**funkey**

Nettes Skript
Hab mal die Funktion zum Ver- und Entschlüsseln ein bischen verbessert. Nun kann man alle Zahlen, Zeichen, Buchstaben verwenden.
Vllt kannst du das ja brauchen.

Spoiler anzeigen

[autoit]

$Test = _baconchiffre(1, 'Das ist ein Test ?') ;verschlüsseln
MsgBox(0,'Chiffre', $Test)
MsgBox(0,'Chiffre', _baconchiffre(0, $Test)) ;entschlüsseln

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

Func _baconchiffre($i_Encrypt, $sText)
Local $aString, $sReturn = ''
Switch $i_Encrypt
Case 1
$aString = StringRegExp($sText, '.', 3)
For $i = 0 To UBound($aString) -1
$aString[$i] = _Int2Bits(Asc($aString[$i]))
While StringLen($aString[$i]) < 9
$aString[$i] = '0'&$aString[$i]
WEnd
$aString[$i] = StringReplace($aString[$i], '0', 'A')
$aString[$i] = StringReplace($aString[$i], '1', 'B')
$sReturn &= $aString[$i]
Next
Return $sReturn
Case 0
$aString = StringRegExp($sText, '.{9}', 3)
For $i = 0 To UBound($aString) -1
$aString[$i] = StringReplace($aString[$i], 'a', '0')
$aString[$i] = StringReplace($aString[$i], 'b', '1')
$aString[$i] = Chr(_Bits2Int($aString[$i]))
$sReturn &= $aString[$i]
Next
Return $sReturn
EndSwitch
EndFunc

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

Func _Int2Bits($iZahl)
If $iZahl < 0 Or $iZahl > 2147483647 Then Return SetError(1, 0, 0)
Local $Zahl = $iZahl, $Ergebnis = ""
Do
$Ergebnis = BitAND($Zahl, 1) & $Ergebnis
$Zahl = BitShift($Zahl, 1)
Until $Zahl = 0
Return $Ergebnis
EndFunc

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

Func _Bits2Int($sBin)
Local $Zahl = $sBin, $Ergebnis = 0
For $i = 0 To StringLen($sBin) -1
If StringRight($Zahl, 1) = '1' Then $Ergebnis += 2^($i)
$Zahl = StringTrimRight($Zahl, 1)
Next
Return $Ergebnis
EndFunc

[/autoit]

**funkey**

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 629, 442, 186, 125)
$Player = ObjCreate("WMPlayer.OCX")
$Obj1_ctrl = GUICtrlCreateObj($Player, 10, 10, 400, 200)

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

With $Player
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
.enabled = True
.uiMode = "full"; none / mini full
.settings.autostart = True
.settings.mute = False
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith

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

$oMedia = $Player.newMedia('http://wstreaming.zdf.de/encoder/livestream6_h.asx')
$Player.currentPlaylist.appendItem($oMedia)
$Player.controls.play()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

EndSwitch
WEnd

[/autoit]

**funkey**

Verwende Backslash anstelle von Slash
Besser noch so:

[autoit]

ShellExecute('notepad.exe', @ScriptDir&'\data\Item.txt')

[/autoit]

**funkey**

Auch von mir alles Gute zum Geburtstag.
Erfreue uns auch weiterhin mit deinen tollen Skripten!

**funkey**

Das soll mal ein neues Spiel für meinen Stammtisch werden.
Wollt nur kurz fragen, was ihr davon haltet.
Seid nicht enttäuscht, denn Spielen kann man noch nicht

**funkey**

Beispiel

[autoit]

#include <GUIConstantsEx.au3>
Opt('MouseCoordMode', 0)

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

$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$Pic1 = GuiCtrlCreatePic("images/test.bmp", 72, 88,100,100)
GUISetState()
While (1)
$nMsg = GUIGetMsg()
$Pos = MouseGetPos()
ToolTip($Pos[0] - 72 &" / "& $Pos[1] - 88)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

**funkey**

Wie sieht eine solche txt-Datei denn aus?

**funkey**

Hab's jetzt auf einer Seite mit swf, die Musik enthält getestet, und es ging einwandfrei.

**funkey**

[autoit]

GUISetIcon
TraySetIcon

[/autoit]

**funkey**

[autoit]

#include <IE.au3>

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

$sUsername = 'user'
$sPassword = 'pwd'

$url = "http://www.hast-du-lust.net/lfh/"

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

Global $oIE = _IECreate($url, 0, 1)

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

$oform = _IEFormGetCollection($oIE, 0)
$oname = _IEFormElementGetObjByName($oform , "user")
$opasswd = _IEFormElementGetObjByName($oform , "pw")
$setname = _IEFormElementSetValue($oname, $sUsername)
$setpasswd = _IEFormElementSetValue($opasswd, $sPassword)
_IEFormSubmit($oform)

[/autoit]

**funkey**

Hab mal wieder etwas gebastelt. Die Funktion '_GuiMakeTransitionBorder' zeichnet einen Fensterrahmen mit Farbübergängen.
Wenn man die Rahmenbreite größer als die halbe Fensterbreite angibt, dann kommen z.T. schöne Muster raus (einfach deaktivierte Zeile aktivieren)

Spoiler anzeigen

[autoit]

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

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

Opt("GUIOnEventMode", 1)
$titel = "Funkey's Style-Test"
$Form1 = GUICreate($titel, 400, 600, -1, -1, $WS_POPUP)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetBkColor(0xffffff)

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

_GuiRoundCorners($Form1, 0, 0, 30, 30)

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

_GuiMakeTransitionBorder($Form1, 35, 0xaa00ff, 0xffffff)
;~ _GuiMakeTransitionBorder($Form1, 200, 0x123456, 0xf23456)
;~ _GuiMakeTransitionBorder($Form1, 300, 0x000000, 0xeeeeee)

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

GUISetState(@SW_SHOW, $Form1)

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

While 1
Sleep(10000)
WEnd

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

Func _GuiMakeTransitionBorder($hwnd, $iSize, $nColor_out, $nColor_in)
Local $Width, $Height, $aPos, $hGraphic
Local $startRot, $startGruen, $startBlau, $endRot, $endGruen, $endBlau, $Color
Local $ColorOffsetRot, $ColorOffsetGruen, $ColorOffsetBlau
$aPos = WinGetPos($hwnd)
$Width = $aPos[2]
$Height = $aPos[3]
$startRot = _ColorGetRed($nColor_out)
$startGruen = _ColorGetGreen($nColor_out)
$startBlau = _ColorGetBlue($nColor_out)
$endRot = _ColorGetRed($nColor_in)
$endGruen = _ColorGetGreen($nColor_in)
$endBlau = _ColorGetBlue($nColor_in)
$ColorOffsetRot = ($endRot - $startRot) / $iSize
$ColorOffsetGruen = ($endGruen - $startGruen) / $iSize
$ColorOffsetBlau = ($endBlau - $startBlau) / $iSize

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

$hGraphic = GUICtrlCreateGraphic(0, 0, $Width, $Height, 0)
For $i = 0 To $iSize - 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, $i)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $Width - $i, $i)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0 + $i, $Height - $i - 1)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $Width - $i, $Height - $i - 1)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0 + $i)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $Height - $i)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $Width - $i - 1, 0 + $i)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, $Width - $i - 1, $Height - $i)
Next
EndFunc ;==>_GuiMakeTransitionBorder

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

Func _GuiRoundCorners($hwnd, $x1, $y1, $x3, $y3)
Local $pos, $ret, $ret2
$pos = WinGetPos($hwnd)
$ret = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', $x1, 'long', $y1, 'long', $pos[2], 'long', $pos[3], 'long', $x3, 'long', $y3)
If $ret[0] Then
$ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $hwnd, 'long', $ret[0], 'int', 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc ;==>_GuiRoundCorners

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

**funkey**

Hab mir die Funktion mal angeschaut. Sie macht genau das was sie soll.

__CopyEnum('Text.txt') kopiert die Datei nach 'Text-1.txt', falls es diese schon gibt, dann eben 'Text-2.txt', oder 'Text-3.txt', usw...

Das war's auch schon.

**funkey**

Das Skript ist von Paule. Ich würde sagen, einfach mal testen ob es funktioniert
[ offen ] Dateien in einem Ordner unbennen

**funkey**

1.

[autoit]

If StringLeft(@UserName, 3) = '5lp' Then .....

[/autoit]

2. So z.B. wenn es nur 2 Parameter sind

[autoit]

If $CMDLINE[0] = 1 Then
If $CMDLINE[1] = "-Parameter1" Then
;Aktion 1
EndIf
ElseIf $CMDLINE[0] = 2 Then
If $CMDLINE[1] = "-Parameter1" Then
;Aktion 1
EndIf
If $CMDLINE[2] = "-Parameter2" Then
;Aktion 2
EndIf
EndIf

[/autoit]

Beiträge von funkey

Class aus einem anderen Programm in eigene GUI spiegeln? (per ActiveX-Element?)

GUICtrlCreateCombo Verschachtelung

Sprecher ( buchstabierer )

Download GIF

Suche best. DLLs

dateiendung und Standardprogramm herausfinden

Krypt tool

WMP_Objekt

ShellExecute + notepad + speichern unter --> [error 0x3002]

Geburtstag von eukalyptus

Was haltet ihr davon?

Pixelkoordinate auslesen aus einem bild

Hyperlinks suchen und speichern

_IECreateEmbedded mit Ton?

Dialog anderer Icon als in der Taskleiste?

Einloggen & Quelltext auslesen

Gui-Styling ohne Bilder (Farbübergänge)

Wie Funktioniert __CopyEnum

Wie Funktioniert __CopyEnum

Wildcards & $CMDLINE