mehr off-topic geht nicht...
Und dennoch schafft es jemand, selbst im OffTopic noch offtopic zu werden. ![]()
mehr off-topic geht nicht...
Und dennoch schafft es jemand, selbst im OffTopic noch offtopic zu werden. ![]()
[...] bis auf das mit den icons =>
[gelöst]
Opt("TrayMenuMode",3)
[/autoit]Die Frage drängte sich mir auch auf.
Dreh die Abfrage um wie oben beschrieben. Der Fall, das die Grose vor der kleinen gestartet wird ist dann doch ebenfalls abgedeckt. Lässt du es so wie es ist, dann wird ein nachträgliches starten der Grossen garnicht abgefangen.
Mal als Schuss ins Blaue, dein sleep(7000) müsste vor dein ProcessExist(). So wie das jetzt läuf, wird zuerst der Prozess gesucht und wenn vorhanden geschlossen und erst dann wird pausiert.
FileSaveDialog() ; <--- klick
[/autoit]
... könnte auch interessant sein.
Das es mit einer PCI überhaupt funktioniert bezweifle ich auch. Ich hab's vor einiger Zeit mal mit einem DVBT-Stick versucht. Das lief wunderbar aber durch die Virtualisierung von CPU und Grafik nicht wirklich brauchbar. Niedrige Auflösungen, ruckelnde Bilder und an Aufnahmen war eh nicht zu denken.
Hab's jetzt nicht getestet, nur kurz überflogen.
Wenn jemand das .zip-Paket verwendet dann wird dein Skript den Installationspfad von Autoit warscheinlich nicht in der Registry finden.
Den Pfad zu Autoit bekommst du auch mit @AutoItExe. Ich vermute mal das funktioniert auch bei der non-install-Version.
Alles anzeigenAh jetzt hab ichs auch geschnallt.
So dann:Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate("", 120, 60)
$hInput = GUICtrlCreateInput("", 10, 10, 100, 20)
$hButton = GUICtrlCreateButton("OK", 10, 35, 100, 20)
GUISetState()While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton
GUICtrlSetData($hInput, _Crypt(GUICtrlRead($hInput)))
EndSwitch
WEndFunc _Crypt($sString)
[/autoit] [autoit][/autoit] [autoit]
; Ja ich weiß, mit einem 2D-Array und einer For-Next Schleife wäre es 200 mal kürzer. Aber ich wollte es nicht unnötig kompliziert machen.
$sString = _StringReplace($sString,"a","123")
$sString = _StringReplace($sString, "b", "y")
$sString = _StringReplace($sString, "c", "x")
$sString = _StringReplace($sString, "d", "w")
$sString = _StringReplace($sString, "e", "v")
$sString = _StringReplace($sString, "f", "u")
$sString = _StringReplace($sString, "g", "t")
$sString = _StringReplace($sString, "h", "s")
$sString = _StringReplace($sString, "i", "r")
$sString = _StringReplace($sString, "j", "q")
$sString = _StringReplace($sString, "k", "p")
$sString = _StringReplace($sString, "l", "o")
$sString = _StringReplace($sString, "m", "n")
$sString = _StringReplace($sString, "n", "m")
$sString = _StringReplace($sString, "o", "l")
$sString = _StringReplace($sString, "p", "k")
$sString = _StringReplace($sString, "q", "j")
$sString = _StringReplace($sString, "r", "i")
$sString = _StringReplace($sString, "s", "h")
$sString = _StringReplace($sString, "t", "g")
$sString = _StringReplace($sString, "u", "f")
$sString = _StringReplace($sString, "v", "e")
$sString = _StringReplace($sString, "w", "d")
$sString = _StringReplace($sString, "x", "c")
$sString = _StringReplace($sString, "y", "b")
$sString = _StringReplace($sString, "z", "a")
$sString = _StringReplace($sString, "&", "&")Return _CleanUp($sString)
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>_CryptFunc _StringReplace($sString, $sSearch, $sReplace)
[/autoit] [autoit][/autoit] [autoit]
Return StringRegExpReplace($sString, "(?<!\[)" & $sSearch & "(?!\])", "[" & $sReplace & "]")
EndFunc ;==>_StringReplaceFunc _CleanUp($sString)
[/autoit]
Return StringRegExpReplace($sString, "\[(.+?)\]", "\1")
EndFunc ;==>_CleanUp
Jo. Was so'n Punkt alles bewirken kann. ![]()
*hust* ... ich bin raus aus der Prostitution. Schon seit Jahren.
Wenn ich die Lösung hätte, dann würd ich sie posten. Bin da aber im Moment eher ratlos.
L3viathan, das funktioniert so nicht. Die Zeichen werden bei jedem Durchlauf erneut ersetzt und es entsteht ein Ergebnis das man nicht zurückrechnen kann.
Das Skrit wie es am Anfang war funktioniert perfekt. Man sollte der _cleanup() nur noch beibringen auch um ein & die [] wieder zu entfernen. Da einfach mal eben eine Funktion wegrationalisieren ist ein Schritt zurück.
Da wirkt garnix. Das was du da als Ergebnis bekommst kannst du nie wieder zurück übersetzen.
Du ersetzt die 1 durch $346552&. Im String steht jetzt $346552& und die Funktion weiss nicht das $346552& schon eine Ersetzung ist und ersetzt deshalb jedes Zeichen wieder durch die jeweilige Vorgabe.
edit: schönes Timing
Alles anzeigenWobei das etwas seltsam ist
![]()
Zuerst werden die Klammern [] in Zeile 50 hinzugefügt und anschließend wieder entfernt?So gehts auch:
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate("", 120, 60)
$hInput = GUICtrlCreateInput("", 10, 10, 100, 20)
$hButton = GUICtrlCreateButton("OK", 10, 35, 100, 20)
GUISetState()While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton
GUICtrlSetData($hInput, _Crypt(GUICtrlRead($hInput)))
EndSwitch
WEndFunc _Crypt($sString)
[/autoit] [autoit][/autoit] [autoit]
; Ja ich weiß, mit einem 2D-Array und einer For-Next Schleife wäre es 200 mal kürzer. Aber ich wollte es nicht unnötig kompliziert machen.
$sString = _StringReplace($sString,"a","123")
$sString = _StringReplace($sString, "b", "y")
$sString = _StringReplace($sString, "c", "x")
$sString = _StringReplace($sString, "d", "w")
$sString = _StringReplace($sString, "e", "v")
$sString = _StringReplace($sString, "f", "u")
$sString = _StringReplace($sString, "g", "t")
$sString = _StringReplace($sString, "h", "s")
$sString = _StringReplace($sString, "i", "r")
$sString = _StringReplace($sString, "j", "q")
$sString = _StringReplace($sString, "k", "p")
$sString = _StringReplace($sString, "l", "o")
$sString = _StringReplace($sString, "m", "n")
$sString = _StringReplace($sString, "n", "m")
$sString = _StringReplace($sString, "o", "l")
$sString = _StringReplace($sString, "p", "k")
$sString = _StringReplace($sString, "q", "j")
$sString = _StringReplace($sString, "r", "i")
$sString = _StringReplace($sString, "s", "h")
$sString = _StringReplace($sString, "t", "g")
$sString = _StringReplace($sString, "u", "f")
$sString = _StringReplace($sString, "v", "e")
$sString = _StringReplace($sString, "w", "d")
$sString = _StringReplace($sString, "x", "c")
$sString = _StringReplace($sString, "y", "b")
$sString = _StringReplace($sString, "z", "a")
$sString = _StringReplace($sString, "&", "&")Return $sString
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>_CryptFunc _StringReplace($sString, $sSearch, $sReplace)
[/autoit]
Return StringRegExpReplace($sString, "(?<!\[)" & $sSearch & "(?!\])", $sReplace )
EndFunc ;==>_StringReplace
Starte das mal und gib by ein. Das Ergebnis sollte yb sein, ist es aber nicht. Die Klammern werden gesetzt damit die Funktion unterscheiden kann ob es sich bei einem Buchstaben noch um das original handelt oder bereits um eine Ersetzung. Ansonsten würde jedes Zeichen mehrmals übersetzt werden. Das gleiche gilt auch für name22 Version.
Ich glaub jetzt hab ich's dann auch verstanden. Du möchtest die Zeichen der Eingabe in der Ausgabe durch vordefinierte Zeichen ersetzen.
Das ist nichts weiter als eine GUI. Da lässt sich deine Absicht überhaupt nicht erkennen.
Sahu dir mal das hier an https://autoit.de/index.php?page…torun#post60027
Ab Post#4 könnte es interessant für dich werden.
<a>
<abbr>
<access>
<acronym>
<action>
<address>
<applet>
<area>
<article>
<audio>
<b>
<base>
<basefont>
<bdo>
<big>
<blockcode>
<blockquote>
<body>
<br>
<button>
<canvas>
<caption>
<center>
<cite>
<code>
<col>
<colgroup>
<command>
<datalist>
<dd>
<del>
<delete>
<details>
<dfn>
<di>
<dir>
<dispatch>
<div>
<dl>
<dt>
<em>
<embed>
<ev:listener>
<fieldset>
<figure>
<font>
<footer>
<form>
<frame>
<frameset>
<group>
<h>
<h1>
<h2>
<h3>
<h4>
<h5>
<h6>
<handler>
<head>
<header>
<hgroup>
<hr>
<html>
<i>
<iframe>
<img>
<input>
<ins>
<insert>
<isindex>
<itemref>
<kbd>
<keygen>
<l>
<label>
<legend>
<li>
<link>
<listing>
<load>
<map>
<mark>
<menu>
<message>
<meta>
<meter>
<model>
<nav>
<nl>
<noframes>
<noscript>
<object>
<ol>
<optgroup>
<option>
<p>
<param>
<plaintext>
<pre>
<progress>
<q>
<range>
<rb>
<rbc>
<rebuild>
<recalculate>
<refresh>
<repeat>
<reset>
<revalidate>
<rp>
<rt>
<rtc>
<nby>
<s>
<samp>
<script>
<secret>
<section>
<select>
<select1>
<send>
<seperator>
<setfocus>
<setindex>
<setvalue>
<small>
<source>
<span>
<standby>
<strike>
<sttrong>
<style>
<sub>
<submit>
<summary>
<sup>
<switch>
<table>
<tbody>
<td>
<textarea>
<tfoot>
<th>
<thead>
<time>
<title>
<tr>
<trigger>
<tt>
<u>
<ul>
<upload>
<var>
<video>
<xmp>
Alles anzeigen
ja, stimmt nicht weit genug gedacht. Hab's editiert.
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <array.au3>
$Form1 = GUICreate("Form1", 243, 121, 254, 124)
$List1 = GUICtrlCreateList("", 8, 8, 121, 97)
$Button1 = GUICtrlCreateButton("Button1", 144, 48, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$files = FileOpenDialog("", @DesktopCommonDir, "Alle Dateien (*.*)", 15)
If @error Then
MsgBox(4096, "", "Keine Datei ausgewählt")
ElseIf Not IsArray($files) Then
$f = StringSplit($files, "\", 1)
GUICtrlSetData($List1, $f[UBound($f) - 1])
Else
$f = StringSplit($files, "|", 1)
For $i = 2 To $f[0]
GUICtrlSetData($List1, $f[$i])
Next
EndIf
EndSwitch
WEnd
Wenn Deine Hardware geeignet ist für 64-Bit, dann steige auf jeden Fall auf das Win7 64 um.
Du hast noch nie so einen schnell startenden PC gesehen....
Hier möchte ich aber mal wiedersprechen. ![]()
Mein Ubuntu Lapi bootet in 13s, Win7 x86_64 Ultimate auf identischem Gerät in ca. 30s. ![]()