Beiträge von Friesel

Zitat von Tweaky

Ich will lediglich in der Regedit zu einem bestimmten Zweig springen.

Dafür gibt es von Microsoft ein schickes, kleines Tool, namens RegJump.
Lässt sich ganz einfach durch AutoIt mit einem Registry Schlüssel als Parameter starten, benötigt allerdings Adminrechte.

Damit habe ich zB ein Firefox-plugin geschrieben mit dem man im Browser markierte Registry Schlüssel direkt anspringen kann...sehr praktisch

LG Friesel

P.s.: Beim ersten Aufruf muss man eine Eula akzeptieren, was man aber auch durch folgenden Registry Eintrag erledigen kann, damit das Popup nicht nervt:

RegWrite("HKEY_CURRENT_USER\Software\Sysinternals\Regjump", "EulaAccepted", "REG_DWORD", "1")

Ist natürlich nicht im Sinne des Erfinders und sicherlich nicht erlaubt...

Moin!

Ich habe mal einen Spiele-Launcher geschrieben und mit Hilfe dieses Threads folgendes Fenster erstellt:
________________________________________________________________________________________________________________________________
[Blockierte Grafik: http://i.imgur.com/3JfC0Cy.jpg]
________________________________________________________________________________________________________________________________

Das war allerdings vor über 2 Jahren und seit dem habe ich mich mit sowas nicht mehr beschäftigt. Zu allem Überfluss ist auch noch der Source Code einem Festplattenversagen zum Opfer gefallen
Deshalb kann ich dir leider kaum weiterhelfen. Wollte nur zeigen, was so geht und auf den Thread oben verweisen...

LG Friesel

Zitat von Oscar

Für eine Eingabe von Uhrzeiten würde ich lieber ein Date-Control verwenden.
Das ist einfach und hat den Vorteil, dass man sich nicht um Fehleingaben kümmern muss (passiert automatisch).

AutoIt

#include <DateTimeConstants.au3>
$hGui = GUICreate('Uhrzeit-Test', 220, 130)
$idDate = GUICtrlCreateDate('', 60, 50, 100, 30, $DTS_TIMEFORMAT)
GUICtrlSetFont(-1, 12, 400, 0, 'Arial', 5)
GUISetState()
Do
Until GUIGetMsg() = -3

Moin!

Entschuldigung für meine Off-Topic-Frage, aber kann man bei GUICtrlCreateDate auch einstellen, dass bei Benutzung der UpDown-Controls mit den Sekunden begonnen wird? Standardmässig gehts nämlich bei Stunden los.
Wusste übrigens garnicht, dass man ein Date-Control auch ohne Date benutzen kann, also nur mit Uhrzeit. Danke für den Hinweis, Oscar!

Zitat von bernd670

Nur mal zur Info,id=".*_(.+)" .+src="text/bild1.+" benötigt 1532 Schritte bis die ID gefunden wird und id=".*?(\d+)".+src="text/bild1.+" nur 220 Schritte, ist also rund 7 mal schneller!

Ich entschuldige ich mich für die falsche Info!
Danke für die Korrektur. Jetzt hab ich gesehn, dass das Programm "Regex Buddy" auch eine Debug-Funktion hat. Sehr aufschlussreich.
Ich hätte zB gedacht, dass (.+) schneller ist, als (\d+), weil nicht nach speziellen Typen gesucht, sondern einfach alles gefangen wird, aber offensichtlich ist genau der umgekehrte Fall zutreffend...

*edit*
AspirinJunkie: z.B. die Debug Funktion von Regex Buddy

Moin!

Könnte es sein, dass die PCRE-Engine, die AutoIt meines Wissens benutzt, Probleme macht?

[Blockierte Grafik: http://i.imgur.com/GRPMl7B.png]

Das ist natürlich keine Erklärung dafür, warum der Ausdruck mit StringRegExp funktioniert und mit StringRegExpReplace nicht, aber vieleicht ein erster Hinweis.

Hi!

Keine Ahnung, was du da machst, aber folgender Code:

#include <Array.au3>


$html = ClipGet()
$aIDs = StringRegExp($html, 'id=".*_(.+)" .+src="text/bild1.+"', 3)
If IsArray($aIDs) Then
	_ArrayDisplay($aIDs)
Else
	MsgBox(0, "Nix", "Nichts gefunden!")
EndIf

führt zu folgendem Ergebnis:

[Blockierte Grafik: http://i.imgur.com/GTBi4bg.png]

Immer vorausgesetzt natürlich, dass sich der komplette Beispieltext in der Zwischenablage befindet...

Moin!

Falls die ID immer gleich aufgebaut ist, lässt sich das Ganze noch weiter vereinfachen, was auch theoretisch etwas schneller sein sollte, weil weniger überprüft werden muss.

Voraussetzung für Aufbau der ID: "irgendwas_irgendwas_nummer", also muss man nur das "fangen", was zwischen dem zweiten Unterstrich und den Anführungszeichen ist.

$aIDs = StringRegExp($html, 'id=".*_(.+)" .+src="text/bild1.+"', 3)

Moin!

Wenn der String immer so aussieht, wie oben, gehts ganz einfach:

#include <Array.au3>


$html = ClipGet()
$aIDs = StringRegExp($html, 'id="(.+)" .+src="text/bild1.+"', 3)
If IsArray($aIDs) Then
	_ArrayDisplay($aIDs)
Else
	MsgBox(0, "Nix", "Nichts gefunden!")
EndIf

Der Einfachheit halber muss sich der obige String in der Zwischenablage befinden...

Moin!

Hier mein Vorschlag zum Thema:

Dim $array[3]


$array[0] = ""
$array[1] = 0
$array[2] = 1


For $i = 0 to 2
	If String($array[$i]) = "" Then MsgBox(0, "", "Feld Nr. " & $i & " ist 'Leer'")
Next

Ist semantisch wahrscheinlich nicht ganz ok, aber so klappts auf jeden Fall...

Moin!

Hier mal ne "Quick and Dirty" Variante ohne ini-Befehle, dafür mit RegEx:

#include "Array.au3"


;~ $sBeispiel = FileRead("pfadZurIni\Ini.ini")


$sBeispiel = '[001]' & @CRLF & _
			 'Abteilung = "Abt.1"' & @CRLF & _
			 'Name = "MA.1"' & @CRLF & _
			 'Gruppe = 1' & @CRLF & _
			 '[002]' & @CRLF & _
			 'Abteilung = "Abt.1"' & @CRLF & _
			 'Name = "MA.2"' & @CRLF & _
			 'Gruppe = 1' & @CRLF & _
			 '[003]' & @CRLF & _
			 'Abteilung = "Abt.1"' & @CRLF & _
			 'Name = "MA.3"' & @CRLF & _
			 'Gruppe = 1'


$aNamen = StringRegExp($sBeispiel, '(?i)Name.*=.*"(.+)"', 3)
$sNamen = _ArrayToString($aNamen)


GUICreate("Alle Namen")
$idCombo = GUICtrlCreateCombo("", 100, 100)
$sFirstSel = ""
If IsArray($aNamen) Then $sFirstSel = $aNamen[0] ; nur um zu verhindern, dass das Programm abstürzt, wenn nichts gefunden wurde
GUICtrlSetData($idCombo, $sNamen, $sFirstSel)


GUISetState()


Do
Until GUIGetMsg() = -3

Jo, stimmt, den Fall hatte ich übersehn. Hab jetzt aber keine Zeit das umzuschreiben. Mache ich heute nachmittag...

Moin!

Wie chesstiger schon sagte, ist RegEx der "Schlüssel"
Kann man sehr kompakt mit nem Ein-Zeiler lösen.
Gibt bestimmt schönere Pattern, aber meiner funktioniert soweit gut:

;~ $sIni = FileRead("C:\beliebigeDatei.beliebigerSuffix");solange die Datei Text nach "Ini-Standard" enthält funktionierts

;nur eine Demo-INI ==> kann weg
$sIni = "[Sektion1]" & @CRLF & _
"Key1=1234" & @CRLF & _
"Schlüssel1=Hallo, ich bin ein Schlüssel aus Sektion 1!" & @CRLF & _
"CaseSense=Gross-/Kleinschreibung ist nicht relevant" & @CRLF & _
"[Sektion2]" & @CRLF & _
"Schlüssel1=Hallo, ich bin ein Schlüssel aus Sektion 2!" & @CRLF & _
"Schluessel2=Ich auch!"
;nur eine Demo-INI ==> kann weg

$sIni &= @CRLF ;ohne abschliessenden Zeilenumbruch wird die letzte Zeile nicht gefunden

$sIniRead = _IniRead($sIni, "Sektion1", "Schlüssel1", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "Sektion2", "Schlüssel1", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "Sektion2", "Schluessel2", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "seKtion1", "cASEsENSE", "Standard")
MsgBox(0, "", $sIniRead)
$sIniRead = _IniRead($sIni, "Sektion2", "Streuselkuchen", "kuchen")
MsgBox(0, "", "Streusel" & $sIniRead)

Func _IniRead($sText, $sSection, $sKey, $sDefault)
$aHits = StringRegExp($sText, "(?i)(?s)\[" & $sSection & "\].+?" & $sKey & "=(.+?)\r\n", 3)
If IsArray($aHits) Then Return $aHits[0]
Return $sDefault
EndFunc

Xorianator: Weder "STRG-T" noch sonstiges Hexenwerk helfen bei der neuen Boardsoftware. Sämtliche Formatierung wird gnadenlos zerschossen...

Moin!

Da kann man misterspeed nur Recht geben, sowas mit _ispressed zu "versuchen" ist ziemlicher Murks. Ich finds sogar haarsträubend...
Hier mal mein Vorschlag dazu, mit einem etwas anderen Ansatz und um eine "Refresh"-Funktion erweitert.
Ob es sinnvoll ist, möglichst wenige globale Variablen zu verwenden wurde hier schon des öfteren diskutiert. Ich bin mir selber nicht sicher, finde es so aber deutlich übersichtlicher:

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

Opt("GUIOnEventMode", 1) ; OnEvent ist meiner Meinung nach besser fuer diese Art Programm geeignet

;Das Programm hat nur 3 globale Variablen
;Die Fileliste, die Button IDs und das Fenster Handle; alles Andere wird nur lokal benötigt
;Schluesselwort Global hier eigendlich ueberfluessig, da es auf der untersten Ebene NUR globale Variablen gibt
Global $aFileList = _FileListToArray(@ScriptDir, "*.exe")
If @error Then Exit ; Keine Exe'n, kein Programm. Allerdings wird logischerweise die Programm-Exe selbst immer gefunden, was man noch beruecksichtigen sollte
Global $aidButtons[$aFileList[0] + 1]

Global $hGui = _GuiCreateCustom() ; Vermeidung ueberfluessiger Globaler Variablen (sinnvoll???)

GUISetState(@SW_SHOW, $hGUI)

While Sleep(3000)
WEnd

Func _Central()
; @GUI_CtrlId ist abhängig vom Zeitpunkt an dem sie während der GUI-Erstellung angelegt werden
ConsoleWrite(@GUI_CtrlId - $aidButtons[1] + 1 & @CRLF)
ShellExecute(@ScriptDir & "\" & $aFileList[@GUI_CtrlId - $aidButtons[1] + 1], "-start") ; +1 Versatz wegen Refresh Button
EndFunc

Func _Refresh() ; keine schoene Funktion, aber sie laeuft und ist unkompliziert
Local $iXpos = Default, $iYpos = Default
$aFileList = _FileListToArray(@ScriptDir, "*.exe")
If @error Then Exit
ReDim $aidButtons[$aFileList[0] + 1]
$aWinPos = WinGetPos($hGui) ; Position des alten Fensters merken
If IsArray($aWinPos) Then ; reiner Aberglaube um Arrayfehlern vorzubeugen
$iXpos = $aWinPos[0]
$iYpos = $aWinPos[1]
EndIf
GUIDelete($hGui)
$hGui = _GuiCreateCustom($iXpos, $iYpos)
GUISetState(@SW_SHOW, $hGUI)
EndFunc

Func _GuiCreateCustom($iX = Default, $iY = Default)
Local $iButtonWidth = 180, $iButtonHeight = 24
Local $iHeight = 18 + ($iButtonHeight + 4) * ($aFileList[0] + 1) ; +1 Versatz wegen Refresh Button
Local $hG = GUICreate("Multitool", 20 + $iButtonWidth, $iHeight, $iX, $iY)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$aidButtons[0] = GUICtrlCreateButton("Refresh", 10, 10, $iButtonWidth, $iButtonHeight) ;Refresh Button als erstes
GUICtrlSetOnEvent(-1, "_Refresh")
For $i = 1 To $aFileList[0]
$iYpos = 10 + ($iButtonHeight + 4) * ($i - 0)
$aidButtons[$i] = GUICtrlCreateButton(StringTrimRight($aFileList[$i], 4), 10, $iYpos, $iButtonWidth, $iButtonHeight)
GUICtrlSetOnEvent(-1, "_Central")
Next
Return $hG ;Fensterhandle rurueckgeben
EndFunc

Func _Exit()
Exit
EndFunc

Für die Formatierng kann ich nix, das neue Forum ist Schuld

Moin!

Versuchs dochmal mit netsh.

#RequireAdmin

$sLANadapter = "WiFi"

RunWait("netsh interface set interface " & $sLANadapter & " disabled", "", @SW_HIDE)
RunWait("netsh interface set interface " & $sLANadapter & " enabled", "",@SW_HIDE)

Geht leider nur mit Administratorrechten...

Die Namen der vorhandenen Adapter kannst du zB so auslesen (Administratorrechte nicht benötigt):

#include <AutoItConstants.au3>

$iRun = Run("netsh interface show interface", "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While 1
Local $sLineAll
$line = StdoutRead($iRun)
If @error Then ExitLoop
$sLineAll &= $line
WEnd

MsgBox(0, "", $sLineAll)

Nachtrag:
Mit "Run", so wie Phil-IT es unterhalb vorschlägt, wird es eher nicht funktionieren, da der Befehl den Adapter wieder zu aktivieren, durchgeführt wird, bevor dieser überhaupt deaktiviert wurde, daher sollte man "RunWait" verwenden.

Sanfte Grüße

Moin!

Dein Code-Fragement enthält auf jeden Fall schonmal einen Fehler:
Du verwendest negative Werte als Transparenzparameter, diese reichen aber nur von 0 (nicht sichtbar) bis +255 (voll sichtbar).

Die Schleife muss also so aussehen, um ein Fenter einzublenden:

For $i = 0 To 255 Step 5
WinSetTrans($hGui, "", $i)
Sleep(10)
Next

Zum Ausblenden eines Fensters:

For $i = 255 To 0 Step -5
WinSetTrans($hGui, "", $i)
Sleep(10)
Next

Zitat von Oscar

Die Muster-Ini liegt in: "%LOCALAPPDATA%\AutoIt v3\SciTE\Tidy\"

Danke für den Hinweis, dort hatte ich nicht nachgeschaut, nur im eigendlichen Tidy Verzeichnis.
Wie auch immer, ich hatte es auch schon erfolglos mit der mit dem Parameter /backupdir= und /backupdir="" in den Tidy Optionen (Scite Menü) versucht.
Mit deiner INI funktioniert es leider auch nicht...

Zitat von BugFix

[...}Im Tidy-Ordner gibt es eine Muster-INI. [...}Also eine Tidy.INI erstellen und dort die Versionszahl auf "0" setzen.[...}So wie ich das verstehe, sollte es aber ein Backup unterbinden.

Da diese "Muster-INI" bei mir nicht existiert bin ich nicht weiter darauf eingegangen, aber laut Beschreibung in Scite -> Menü -> Compile -> Tidy -> Tidy Prameters bedeutet 0 dass alle Backups erhalten bleiben sollen.

/kv n  : n = number of backcopies to keep. 0 = all

Zitat von Lottich

´Türlich. Wenn du genau hin siehst, dann kanst du was von "Backup Strategy" lesen. Das ist genau das, was du willst...

...das hier NICHT anklicken...

Warum muss man eigentlich die meisten Leute immer direkt und mit aller Kraft mit der Nase auf des Rätsels simpelster Lösung draufdrücken???

Diese "Backup Strategy" bewirkt nur, dass beim ändern/speichern des Skriptes eine Kopie mit der Endung *.BAK im Skriptverzeichnis erstellt wird, ein Verzeichnis Namens "BackUp" wird nicht angelegt.

Meines Wissens wird dieses BackUp-Verzeichnis von Tidy erstellt (Menü -> Tools -> Tidy AutoIt Source bzw. <CTRL+T>).
Leider weiß ich nicht, wie man das abstellen kann (Google war ausnahmsweise mal nicht mein Freund ), aber du könntest zB ein zentrales Verzeichnis für alle Backups anlegen, dann nervts nicht mehr in deinem Skriptverzeichnis.
Abgesehen davon sollte man wirklich nicht auf Backups verzichten...

Dieses Verhalten kannst du in den au3.properties ändern (Menü -> Options -> Open au3.properties). Einfach nach "Tidy" suchen und die Zeile

command.9.$(au3)="$(SciteDefaultHome)\tidy\tidy.exe" "$(FilePath)"

ändern in:

command.9.$(au3)="$(SciteDefaultHome)\tidy\tidy.exe" "$(FilePath)" /bdir="Hier dein zentrales Backup-Verzeichnis eintragen"

Noch einfacher kannst du auch in Scite -> Menü -> Compile -> Tidy -> Tidy Prameters diesen Parameter einfügen, aber das musst du (glaube ich) für jedes Skript einzeln tun...

Sanfte Grüße

Zitat von rynow

Lies von der Seite den HTML Code mit:

[autoit]

Local $sHTML = _IEDocReadHTML($oIE)

[/autoit]

Ich würde die Seite mit InetRead auslesen, dann kann man sich das Erstellen eines IE-Objektes (was letzten Endes einen IE im Hintergrund öffnet) sparen.

So zum Beispiel:

#include <array.au3> ;==> nur für _ArrayDisplay benötigt, kann sonst weg

$sSite = "Hier kommt die URL rein"
$sHtml = BinaryToString(InetRead($sSite))

$aTreffer = StringRegExp($sHtml, '(?i)maxLength=\d+ value="(.+?)" name=', 3)
If @error Then MsgBox(0, "", "Keine Übereinstimmung gefunden!")
_ArrayDisplay($aTreffer)

Sanfte Grüße

Moin!

Wenn die Zeile einzigartig ist, bzw wenn alle Vorkommen mit value="" gefiltert werden sollen, kannst du folgenden RegEx verwenden:

$aTreffer = StringRegExp($sHtml, '(?i)value="(.+?)"', 3)

Bedeutung:
(?i) -> Case insensitive (Groß-/Kleinschreibung ist egal)
value=" -> muss genau so vorkommen
(.+?) -> ein bis unendlich viele beliebige Zeichen. Nur was in Klammern ist, kommt als Treffer ins Array
" -> muss genau so vorkommen. Durch das ? im vorhergehenden Teil wird genau bis hier gefiltert, sonst wird das Anführugszeichen übergangen

Du kannst den Pattern auch weiter eingrenzen, zB so:

$aTreffer = StringRegExp($sHtml, '(?i)maxLength=\d+ value="(.+?)" name=', 3)

Bedeutung:
(?i) -> Case insensitive (Groß-/Kleinschreibung ist egal)
maxLength= -> muss genau so vorkommen
\d+ -> eine beliebige Zahl mit einer bis unendlich vielen Stellen
value=" -> muss genau so vorkommen (Leerzeichen am Anfang beachten)
(.+?) -> ein bis unendlich viele beliebige Zeichen. Nur was in Klammern ist, kommt als Treffer ins Array
" name= -> muss genau so vorkommen. Durch das ? im vorhergehenden Teil wird genau bis hier gefiltert, sonst wird das Anführugszeichen übergangen

Beispiel:

#include <array.au3> ;==> nur für _ArrayDisplay benötigt, kann sonst weg

$sHtml = '<INPUT onchange=SetDirty(); onkeypress=SetDirty(); id=txtName1 style="WIDTH: 100%; VISIBILITY: inherit" maxLength=50 value="Diesen Inhalt brauche ich" name=txtName1 wfDataFld="Name1">'

$aTreffer = StringRegExp($sHtml, '(?i)value="(.+?)"', 3)
_ArrayDisplay($aTreffer)

$aTreffer = StringRegExp($sHtml, '(?i)maxLength=\d+ value="(.+?)" name=', 3)
_ArrayDisplay($aTreffer)

Wie du siehst, liefern beide Pattern das selbe Ergebnis, der zweite ist allerdings genauer. Um das weiter einzugrenzen, müsste ich den gensamten Quelltext kennen...

ACHTUNG: Achte darauf, welche Art Anführungszeichen im Quelltext auftauchen (' oder und "). Ensprechend muss der Pattern Parameter im Befehl StringRegExp angepasst werden. Wenn also nur doppelte Anführungezeichen vorkommen (") muss der Pattern mit einem einzelnen (') umschlossen werden und umgekehrt. Sollten beide vorkommen, musst du den Pattern aufteilen...

Sanfte Grüße