Beiträge von BugFix

Ich nutze mal die Gelegenheit um allen Usern, die sich aktiv am Erhalt unseres Forums beteiligen einen Dank auszusprechen.
Besonders erfreulich ist es, dass es euch auch zur Herzensangelegenheit geworden ist, das Forum sauber zu halten und Verstößen gegen unsere Regeln frühzeitig entgegenzutreten. (manchmal etwas übermotiviert, aber überwiegend gerechtfertigt)
Ich bin nun seit 6 1/2 Jahren in diesem Forum aktiv und konnte dessen Entwicklung somit fast vom ersten Tag an verfolgen. Ich fühle mich hier wohl, ihr seid mir gewissermassen zu einer Art "Familie" geworden.
In diesem Sinne wünsche ich uns allen noch viel schöne Zeit hier.

Zitat von kunstlust

Bei machen Foren sehe in vor lauter Werbung und Überblendungen, kaum noch was vom Inhalt.

"AdBlockPlus" - Da werden sie geholfen.

Probier mal so:

$s = 'blabla' & @CRLF & _
'blablablub<t tn="e36ef284-42f8-4dbf-abab-d4682c609d25" tmk="10"><tis><ti tk="0" tv="Text1" ta="False" /><ti tk="1" tv="Text2" ta="False" /><ti tk="2" tv="Text3" ta="False" /><ti tk="3" tv="Text4" ta="True" /><ti tk="4" tv="Text5" ta="True" /><ti tk="5" tv="Text6" ta="False" /><ti tk="6" tv="Text7" ta="False" /><ti tk="7" tv="Text8" ta="False" /><ti tk="8" tv="Text9" ta="True" /><ti tk="9" tv="Text10" ta="False" /><ti tk="10" tv="Text11" ta="True" /></tis></t>xxxxyyyyzzz' & @CRLF & _
'xxxyyy'
$aRet = StringRegExp($s, '<t tn="e36ef284-42f8-4dbf-abab-d4682c609d25" tmk="\d+"><tis><ti (.*)(?= /></tis>)', 3)
;~ ConsoleWrite($aRet[0] & @CRLF)
; liefert:
$s2 = 'tk="0" tv="Text1" ta="False" /><ti tk="1" tv="Text2" ta="False" /><ti tk="2" tv="Text3" ta="False" /><ti tk="3" tv="Text4" ta="True" /><ti tk="4" tv="Text5" ta="True" /><ti tk="5" tv="Text6" ta="False" /><ti tk="6" tv="Text7" ta="False" /><ti tk="7" tv="Text8" ta="False" /><ti tk="8" tv="Text9" ta="True" /><ti tk="9" tv="Text10" ta="False" /><ti tk="10" tv="Text11" ta="True"'

;splitten an " /><ti "
$aSplit = StringSplit($s2, " /><ti ", 3)

For $i = 0 To UBound($aSplit) -1
$sOut = StringTrimLeft($aSplit[$i], 10+StringLen($i))
$sOut = StringTrimRight(StringLeft($sOut, StringInStr($sOut, '"')), 1)
ConsoleWrite('Index: ' & $i & ', Wert: ' & $sOut & @CRLF)
Next

Dann ehältst du die einzelnen Zuweisungen, die sich mit Stringoperationen auslesen lassen. Edit: Habs mal in die Schleife eingefügt.

Wenn neben dem normalen Traffic zusätzlich unkontrollierter Traffic entsteht durch beständiges Scannen der Seite von verschiedenen User-Tools, ist es sehr wahrscheinlich, dass dann z.B. in der Shoutbox kein flüssiges Lesen mehr möglich ist. Wir werden dann beherrscht von einem Endless-Lag.
Für mobile Geräte gibt es Tapatalk, für den PC hat man im Browser alles, was man braucht. Eine zusätzliche Belastung unserer Seite sollten wir da tunlichst vermeiden.

Das ist machbar.
Wenn die Hilfedatei einen parametrisierten Aufruf erlaubt ("Hilfedatei %Suchbegriff%") kann man das mit einem Eintrag in "SciTEUser.properties" erledigen:

# 36 API-Hilfe
command.36=Pfad\APIHelp.exe "$(CurrentWord)"
command.name.36=API Hilfe
command.subsystem.36=2
command.shortcut.36=DEIN_SHORTCUT
command.save.before.36=2

Die Befehls-Nr. (hier 36) ist abhängig von den freien Nummern in deiner "SciTEUser.properties". Von 36 bis 49 kannst du Nummern vergeben.

Du bist noch jung, da sei dir das gewährt.

Ist doch völlig korrekt. "Du wirst es nicht müde (es zu tun)" hieße es voll gesprochen. Aber das "es zu tun" läßt man gemeinhin einfach weg.

Wie schon gesagt wurde:
Es ist völlig unerheblich ob die Verschlüsselung mittel, gut oder spitze ist. Wenn man im Skript einfach die entsprechend Abfrage killt, ist die Verschlüsselung nicht mal mehr einen Fliegenschiß wert.

Zitat von UPIA

ich brauche das "international", daher bissle umständlicher...

Nun, die von mir genutzte Variante der Slider-Handle-Zuordnung ist im Moment auf die deutsche Version zugeschnitten. Aber da werde ich mal sehen, ob sich das noch verallgemeinern läßt.

Und eine Bitte: Nutze nicht den "#"-Tag für Code, sondern verwende den Tag mit dem AutoIt-Logo (per Hand geschrieben: [ autoit ] Code [ /autoit ] - ohne Spaces).

Zitat von Torni

nach dem starten des beispiels, kann ich das symbol des lautsprechers nimma anklicken

Ja, das ist korrekt, da das Programm ja im Hintergrund geöffnet ist (offen bleiben muss) damit die Handle auch Gültigkeit behalten.

Falls du es brauchst: Ich habe hier Funktionen zum Auslesen und Setzen der Anwendungs-Slider erstellt.

Seit Windows Vista verwaltet Windows im Soundmixer für jede Anwendung einen einzelnen Slider. Dadurch sind aber auch unsere ganzen Tools zur Lautstärkeregelung hinfällig.
Ich habe auch bisher keine Möglichkeit entdeckt, per DLL auf diese Regelung zuzugreifen.
Also habe ich auf die Wurzeln zurückgegriffen, mich durch die Childs und Child-Childs im Mixer gewühlt um an die Slider-Handle zu kommen. Diese sind sinnigerweise ohne Text und daher nicht direkt mit der Anwendung in Verbindung zu bringen. Aber über das darunter liegende Ctrl (Button für Stummschaltung) ist der Anwendungsname zu ermitteln und durch Positionsvergleich auch zuzuordnen.
Somit ist es nun möglich diese Slider auszulesen und auch zu setzen.
Das Mastervolume habe ich im Moment noch aussen vor, da kümmere ich mich später mal drum.

Edit: Habe gerade einen Fehler entdeckt, ProcessClose() killt leider nicht den Soundvolume-Prozess. Mal schauen, wie sich das ändern läßt.
Dadurch läßt sich der Mixer nicht per Klick auf das Lautsprechersymbol öffnen, da er bereits offen aber HIDE ist.

Funktionen:

_Win7_AppSoundGetApps
Ermittelt die anwendungspezifischen Slider im Soundmixer (Handle Slider + Anwendungsname)

_Win7_AppSoundRefresh
Aktualisieren der Anwendungen / Handle

_Win7_AppSoundGet
Gibt die lineare Position des Sliders zurück (0-100)

_Win7_AppSoundSet
Setzt die lineare Position des Sliders (0-100)

Es ist schon richtig, man sollte immer ein Augenmerk auf den Einsatzzweck haben.
Aber trotzdem bleibt wohl anzunehmen, dass die Sicherheit mit MD5 rapide abwärts geht. Spätestens mit IPv6 entfällt das "Problem" wechselnder IP und Botnetze werden sich leichter erstellen lassen. Die Millionen Smartphones rücken auch in das Visier der Internet-Kriminellen, ebenso wie dann der Kühlschrank, der selbst Ware nachbestellt - alles potentielle Kandidaten für Botnetze. Wer braucht schon noch einen Cray, wenn sich Millionen CPU's "verbotnetzen" lassen... :wacko:

Mit der Bass habe ich noch nie gearbeitet.
Habs jetzt mal auf die herkömmliche Weise versucht. Aber leider ist im Win7 Mixer keine Checkbox sondern ein Picture-Button zum Stummschalten.
Hier mal eine seeehr schräge Variante :D, leider muss dazu dass Mixerfenster kurzzeitig sichtbar sein. Ich überprüfe hier, ob das rote Sperrsymbol (bei Mute) auf dem Button liegt.

ConsoleWrite(_IsMute('Windows Media Player') & @CRLF)

Func _IsMute($sApplication) ; gibt den Mute-Status zurück True=Mute
Local $sTitle = "Lautstärkemixer"
Local $oldOpt = Opt("WinTitleMatchMode", 2)
Local $sText, $aWnd, $iTop, $iLeft, $aPos, $fReturn = True
_SystemGetWindowBorder($iTop, $iLeft)
$iPID = Run("sndvol")
WinWaitActive($sTitle)
$aWnd = WinGetPos($sTitle)
For $i = 1 To 12
$sText = ControlGetText($sTitle, '', '[CLASS:ToolbarWindow32; INSTANCE:' & $i & ']')
If StringInStr($sText, $sApplication) Then
$aPos = ControlGetPos($sTitle, '', '[CLASS:ToolbarWindow32; INSTANCE:' & $i & ']')
PixelSearch($iLeft+$aPos[0]+$aWnd[0], $iTop+$aPos[1]+$aWnd[1], $iLeft+$aPos[0]+$aPos[2]+$aWnd[0], $iTop+$aPos[1]+$aPos[3]+$aWnd[1], 0xED0000, 50)
If @error Then $fReturn = False
ExitLoop
EndIf
Next
Opt("WinTitleMatchMode", $oldOpt)
ProcessClose($iPID)
Return $fReturn
EndFunc

;===============================================================================
; Function Name....: _SystemGetWindowBorder
; Description......: Calculates side and top border of window
; Author(s)........: BugFix ( [email='bugfix@autoit.de'][/email] )
;===============================================================================
Func _SystemGetWindowBorder(ByRef $_iTopBorder, ByRef $_iSideBorder)
Local Const $SM_CYCAPTION = 4, $SM_CYEDGE = 46, $SM_CYBORDER = 6, $SM_CXBORDER = 5, $SM_CXEDGE = 45
Local $aMetrics[5][2] = [[$SM_CYCAPTION], [$SM_CYEDGE], [$SM_CYBORDER], [$SM_CXBORDER], [$SM_CXEDGE]]
Local $dll = DllOpen("user32.dll"), $aRet
For $i = 0 To 4
$aRet = DllCall($dll, "int", "GetSystemMetrics", "int", $aMetrics[$i][0])
If IsArray($aRet) Then $aMetrics[$i][1] = $aRet[0]
Next
DllClose($dll)
$_iTopBorder = $aMetrics[0][1] + $aMetrics[1][1] + $aMetrics[2][1]
$_iSideBorder = $aMetrics[3][1] + $aMetrics[4][1]
EndFunc ;==>__SystemGetWindowBorder

Schau mal hier, geht allerdings nur für XP.
Ansonsten bemühe mal die Bass UDF.

Ein Hinweis zur Nutzung von

AutoItSetOption("MouseCoordMode",0)

Am besten gleich angewöhnen, den alten Modus in einer Variable abzuspeichern und hinterher auf diesen zurückzusetzen. Denn es muss ja nicht zwingend der Standardmodus aktiv sein.

$oldOpt = AutoItSetOption("MouseCoordMode", 0) ; Modus setzen und alten Modus speichern
;... Code
AutoItSetOption("MouseCoordMode", $oldOpt) ; zurücksetzen auf alten Modus

He he, wer wird denn zu Fremdprodukten greifen?
Ist zwar schon einige Jahre her, aber da gab es eine AutoIt-Entwicklung: Galenda

Arbeite doch mit

FileGetSize

$iSize = FileGetSize("Dateipfad")
If @error Then ; iSize ist bei nicht existierenden Dateien auch 0! deshalb @error abfragen
ConsoleWrite('Datei existiert nicht' & @CRLF)
ElseIf $iSize = 0 Then
ConsoleWrite('Datei hat 0-Byte' & @CRLF)
EndIf

Sorry
hab ich irgendwie verwechselt. Werde doch alt..

Habe ebenfalls diese Version, sieht aber so aus:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.