wie kann ich das skype-setup starten wenn ich den genauen name nicht kenne?
Verstehe ich nicht ganz. Du mußt doch die Installationsdateien auf einem Datenträger haben - dann kennst du doch auch den Namen?
Falls dir nur der Speicherort bekannt ist, könntest du diesen Pfad durchsuchen, also alle Dateinamen (filtern nach EXE-Files) in ein Array laden, Elementweise abfragen ob StringInString($Element, "Skype"). Wenn ja,ist das die gesuchte Datei.
Wenn du diese Punkte entfernen möchtest - warum verwendest du dann die Installversion von Foxit Reader? Mit der ZIP-Version hast du die Probs nicht - einfach in einen Zielordner kopieren - fertig.
schau dir mal _StringBetween( ) an
[autoit]$var = _StringBetween($zeile2, "/", ";")
$nummer = $var[0]
Zeile 2 ist auch die zweite Zeile des Array (Leerzeilen inklusive).
Also: $txtZeile2 = Array[2]
Was also möchtest du genau machen?
Edit: Sry, Array hat ja in diesem Fall bei [0] die Anzahl
Wegen AutoAdminLogon s. auch hier.
Wichtig ist auch der Eintrag: "ForceAutoLogon" auf "1" im gleichen Schlüssel "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon". Sonst wird spätestens, nachdem du dich unter einem anderen Konto angemeldet hast, "AutoAdminLogon" wieder auf "0" gesetzt.
Hi, vielleicht hilft dir das etwas. In dem Bsp. habe ich Adressdaten von der Web-Site selektiert.
Leider sehr schlechter html-Code. Mal wird ein Adressblock zwischen <L> und </L> eingefasst, beim nächsten endet er mit <P>.
Grundsätzlich ist das Filtern recht simpel.
Wenn du es absolut wasserdicht machen willst, solltest du ein Array mit allen html-Sonderzeichen erstellen und auf jede Zeile anwenden (Ersetzen).
Die Steuerbefehle kriegst du einfach mit _StringBetween($str, "<", ">") selektiert.
Schau mal in mein Bsp. .
#include <ie.au3>
#include <file.au3>
#include <array.au3>
#include <string.au3>
#include <GUIConstants.au3>
Dim $quelle = "http://www.charite.de/dgsm/dgsm/ger/labors.htm"
Dim $ziel = "\DGSM_Lab_raw.txt"
Dim $fh, $line, $n = 1, $str
Dim $arBlock[1], $arAdressen, $block = 0, $barwidth
Dim $ae = "ä", $oe = "ö", $ue = "ü", $sz = "ß", $ee = "é"
$arBlock[0] = 0
$Busy = GUICreate("",160,110,-1,-1,$WS_POPUP)
GUISetBkColor(0x708090)
$label_busy = GUICtrlCreateLabel("Einen Moment bitte." & @LF & @LF & "Die notwendigen Daten" _
& @LF & "werden ermittelt..", 20, 15, 120, 100, $SS_CENTER)
GUICtrlSetFont(-1, 10, Default,2)
GUICtrlSetColor(-1, 0xF0E68C)
GUISetState()
InetGet($quelle, $ziel)
$fh = FileOpen($ziel, 0)
While 1
$line = FileReadLine($fh, $n)
If @error = -1 Then ExitLoop
$str = StringStripWS($line, 1) ; führende Leerzeichen entfernen
If $block = 0 Then
If StringUpper(StringLeft($str, 4)) = "<LI>"Then
$block = 1
_Ersetzen()
_ArrayAdd($arBlock, $str)
$arBlock[0] += 1
EndIf
Else
If $str <> "" Then
If StringUpper(StringRight($str, 5)) = "</LI>" Or StringUpper(StringRight($str, 3)) = "<P>" Then
$block = 0
_Ersetzen()
$arBlock[UBound($arBlock)-1] &= "|" & $str
Else
_Ersetzen()
$arBlock[UBound($arBlock)-1] &= "|" & $str
EndIf
EndIf
EndIf
$n += 1
WEnd
FileClose($fh)
GUISetState(@SW_HIDE, $Busy)
_ArrayDisplay($arBlock, "Adressen")
Exit
Func _Ersetzen()
$str = StringReplace($str, $ae, "ä")
$str = StringReplace($str, $oe, "ö")
$str = StringReplace($str, $ue, "ü")
$str = StringReplace($str, $sz, "ß")
$str = StringReplace($str, $ee, "é")
$tmp = _StringBetween($str, "<", ">")
If Not @error Then
For $i = 0 To UBound($tmp)-1
$str = StringReplace($str, "<" & $tmp[$i] & ">", "")
Next
EndIf
EndFunc
Nur ein Gedanke - ob es so geht weiss ich nicht.
Vielleicht ist es möglich, dass du z.B.mit _IEFormGetCollection( ) die Objekte der Seite ausliest. Anschließend mit _IEAction( ByRef $o_object, "focus" ) die Objekte durchlaufen. Ist sicher nicht ein direkter vertikaler Durchlauf, aber in der Regel sollte die Objektindexierung schon von oben nach unten verlaufen.
Hi, ich hab deine Funktion Unregister( ) mal etwas ausgebessert.
Aber ich kann nicht richtig nachvollziehen, ob du mit dieser Logik den gewünschten Erfolg erzielst.
Tipp: Anstatt Leerzeilen zwischen den Einzelschritten einzufügen, achte besser darauf, dass alle Unterschritte auch tiefer eingerückt sind. Das macht den Code wesentlich lesbarer.
Func Unregister()
Dim $arFile, $write, $tmp, $last
If _FileReadToArray($regsource, $arFile) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf
For $i = 1 To UBound($arFile) -1 ; -1 muß sein, sonst bist du ausserhalb des Arrays
$tmp = $arFile[$i]
If StringInStr($arFile[$i], "[") Then
$tmp1 = _StringBetween($tmp, "[", "]") ; _StringBetween( ) gibt ein Array zurück!!
$last1 = _StringBetween($last, "[", "]")
If StringInStr($tmp1[0], $last1[0]) Then ; also auch als Array abfragen
$last = $arFile[$i]
_ArrayDelete($arFile, $i) ; -> warum?
Else
If Not StringInStr($tmp1[0], $last1[0]) Then ; hier das Gleiche (Array)
FileWriteLine($UnRegScript, $arFile[$i])
$last = $arFile[$i]
EndIf
EndIf
EndIf
Next
FileClose($UnRegScript)
Exit
EndFunc ;==>Unregister
Also bei mir läuft es. Ich vermute, du hast bei der Anpassung an deine Variablennamen einen Fehler drin. Aufgrund des Fehlermeldung tippe ich auf die Rückgabevariable von _StringBetween( ) .
Ich habe jetzt mal die von dir verwendeten Variablennamen eingebaut, in der Hoffnung, dass ich richtig liege in meiner Einschätzung, welche wofür ist. 
Außerdem habe ich jetzt mal jede Zeile kommentiert, damit du genau nachvollziehen kannst, was wo passiert.
#include <File.au3>
#include <String.au3>
Dim $arFile ; das Array nimmt die Quelldatei auf
Dim $regsource = "Source.txt" ; der Pfad der Quelldatei
Dim $UnRegScript = "WriteBack.txt" ; der Pfad der Ergebnisdatei
Dim $write ; das Filehandle für die zum Schreiben geöffnete Ergebnisdatei
Dim $tmp, $str ; temporäre Variablen
Dim $last = "" ; enthält den zuletzt geschriebenen Eintrag
If _FileReadToArray($regsource, $arFile) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf
$write = FileOpen($UnRegScript, 1) ; Zuweisung Datei an Filehandle
For $i = 1 To $arFile[0]
$tmp = $arFile[$i] ; aktuelle Zeile
$str = _StringBetween($tmp, "[", "]") ; Zeileninhalt zwischen den Klammern an Arrayvariable
If $last = "" Then ; ausführen bei erster Zeile
FileWriteLine($write, $str[0]) ; Zeile in Zieldatei schreiben
$last = $str[0] ; Zuweisen letzter geschriebener Wert
Else ; für alle anderen Zeilen
If Not StringInStr($str[0], $last) Then ; wenn letzter Eintrag nicht in aktueller Zeile -> dann
FileWriteLine($write, $str[0]) ; Zeile in Zieldatei schreiben
$last = $str[0] ; Zuweisen letzter geschriebener Wert
EndIf
EndIf
Next
FileClose($write) ; Filehandle schließen
Exit
Sorry, aber mir ist in meinem Code ein Fehler unterlaufen. Ich hatte nicht dran gedacht, dass _StringBetween( ) ein Array zurückgibt.
Also hier das funktionsfähige Ergebnis.
In deiner Auflistung der Keys widersprichst du aber deiner Regel, dass du alle Hauptschlüssel auslesen willst.
Diese beiden Zeilen willst du nicht haben:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AutoIt3.exe
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Aut2Exe.exe
Sie entsprechen aber deiner Regel, dass der Schlüssel das erste Mal auftreten muss und nicht im vorigen enthalten ist.
#include <File.au3>
#include <String.au3>
Dim $arFile, $pfadRead = "Source.txt", $pfadWrite = "WriteBack.txt", $write, $tmp, $str, $last = ""
[/autoit] [autoit][/autoit] [autoit]If _FileReadToArray($pfadRead, $arFile) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf
$write = FileOpen($pfadWrite, 1)
For $i = 1 To $arFile[0]
$tmp = $arFile[$i]
$str = _StringBetween($tmp, "[", "]")
If $last = "" Then
FileWriteLine($write, $str[0])
$last = $str[0]
Else
If Not StringInStr($str[0], $last) Then
FileWriteLine($write, $str[0])
$last = $str[0]
EndIf
EndIf
Next
FileClose($write)
Exit
Du liest ja auch nur eine Zeile ein, was willst du da vergleichen.
Besser _FileReadToArray() und dann die Einträge abarbeiten.
Bzw. wenn du aus der Reg liest - gleich in ein Array einlesen und durch dieses iterieren.
Anhand von pee's Beispiel:
For $i = 1 to 1000
ClipPut( "http://lol.de/" & FileReadLine("C:\Text.txt", $i))
Sleep(60000)
Next
Wieso speicherst Du das PW nicht mittels _StringEncrypt in der Registry ab???
Weil Windows Logon das Passwort im Klartext fordert. AutoAdminLogon ist ja keine Erfindung von mir, sondern eine Windows-eigene Funktion.
Den Tipp mit den Admins werde ich gleich mal testen, thx.
Hier eine Variante von mir.
So, wie ich das lese, willst du nur mit der vorhergehenden Zeile vergleichen.
; aktuelle Prod oder Beta benutzen
#include <File.au3>
#include <String.au3>
Dim $arFile, $pfadRead = "D:\beispiel.txt", $pfadWrite = "D:\WriteBack.txt", $write, $tmp, $last = ""
[/autoit][autoit][/autoit][autoit]If _FileReadToArray($pfadRead, $arFile) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf
$write = FileOpen($pfadWrite, 1)
For $i = 1 To $arFile[0]
$tmp = $arFile[$i]
$tmp = _StringBetween($tmp, "[", "]")
If $last = "" Then
FileWriteLine($write, $tmp)
$last = $tmp
Else
If Not StringInStr($last, $tmp) Then
FileWriteLine($write, $tmp)
$last = $tmp
EndIf
EndIf
Next
FileClose($write)
Exit
Hi,
ich habe ein Tool geschrieben um AutoAdminLogon zu aktivieren/ deaktivieren.
Dann brauch ich da nicht jedes mal bei unseren Kunden von Hand zu fummeln.
Für meine Zwecke reichts ja, ich hätte es aber gern allgemeingültig geschrieben und dazu benötige ich eine Möglichkeit herauszufinden, welche der Benutzerkonten Admin und welche Eingeschränkt sind.
Dann würde ich auch nur diese in der Userliste aufführen, da AutoAdminLogon, wie der Name sagt, nur für Adminkonten funktioniert.
Also, wenn da jemand 'ne Idee hat - immer her damit. 
(AutoAdminLogon sollte aber niemals auf 'nem PC mit Internetzugang und/oder LAN-Zugehörigkeit verwendet werden. - Denn das PW wird im Klartext gespeichert in der Registry. Wenn die dann nicht gut eingetütet ist....)
Hier das Script:
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.1.14 (beta)
Author: BugFix ( [email='bugfix@autoit.de'][/email] )
Script Function: AutoAdminLogon aktivieren / deaktivieren
#ce ----------------------------------------------------------------------------
#include <GUIConstants.au3>
#include <array.au3>
#Include <GuiList.au3>
Dim $LogonKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
Dim $AllUserKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
Dim $CurrDefUser = RegRead($LogonKey, "DefaultUserName"), $AllUsers = ""
Dim $arUsers, $CurrAutologonUser, $User
If RegRead($LogonKey, "AutoAdminLogon") = "" Or RegRead($LogonKey, "AutoAdminLogon") = 0 Then
$CurrAutologonUser = "kein Konto"
Else
$CurrAutologonUser = $CurrDefUser
EndIf
$Form1 = GUICreate("Auto Login festlegen / aufheben", 263, 224, -1, -1)
$Input1 = GUICtrlCreateInput("", 124, 140, 133, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Button1 = GUICtrlCreateButton("Auto Login aufheben", 6, 169, 250, 21, 0)
$Button2 = GUICtrlCreateButton("Auto Login für markiertes Konto festlegen", 6, 196, 250, 21, 0)
$Group1 = GUICtrlCreateGroup("Benutzerkonten auf diesem PC", 6, 10, 250, 125)
$List1 = GUICtrlCreateList("", 15, 28, 233, 102)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Auto Login besteht für:", 6, 143, 111, 17)
GUISetState(@SW_SHOW)
For $i= 1 to 20 ; Benutzerkonten auslesen
$var = RegEnumKey($AllUserKey, $i)
If @error <> 0 then ExitLoop
$tmp = RegRead($AllUserKey & "\" & $var, "ProfileImagePath")
$str = StringRight($tmp, StringLen($tmp) - StringInStr($tmp, "\", 1, -1))
If $str <> "systemprofile" And $str <> "LocalService" And $str <> "NetworkService" Then
If $AllUsers = "" Then
$AllUsers &= $str
Else
$AllUsers &= "|" & $str
EndIf
EndIf
Next
$arUsers = StringSplit($AllUsers, "|")
For $i = 1 To $arUsers[0] ; Benutzer in Liste eintragen
_GUICtrlListAddItem($List1, $arUsers[$i])
Next
_MarkDefUser($CurrDefUser)
GUICtrlSetData($Input1, $CurrAutologonUser) ; Kontoname eintragen, falls AutoLogon bereits besteht
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_AutoOFF()
Case $Button2
_AutoON()
EndSwitch
WEnd
Func _MarkDefUser($tmpUser)
If $tmpUser <> "" Then ; DefaultUser markieren
For $i = 0 To _GUICtrlListCount($List1) - 1
If $tmpUser = _GUICtrlListGetText($List1, $i) Then
_GUICtrlListSelectIndex($List1, $i)
ExitLoop
EndIf
Next
EndIf
EndFunc
Func _AutoON()
$User = _GUICtrlListGetText($List1, _GUICtrlListGetCaretIndex($List1))
If MsgBox(262180, 'Auto Logon setzen', 'Soll für den Benutzer: ' & $User & @LF & _
"das automatische Einloggen aktiviert werden?" & @LF & _
"(Hinweis: Nur für Benutzer mit Administratorrechten möglich.)" ) = 6 Then
RegWrite($LogonKey, "DefaultUserName", "REG_SZ", $User)
RegWrite($LogonKey, "DefaultPassword", "REG_SZ", InputBox("Passwort", "Bitte Passwort für: " & $User & " eingeben." _
& @LF & "Falls der Nutzer kein Passwort hat - frei lassen.", "", "*" ))
RegWrite($LogonKey, "AutoAdminLogon", "REG_SZ", 1)
RegWrite($LogonKey, "ForceAutoLogon", "REG_SZ", 1)
_CheckRegEntry()
EndIf
EndFunc
Func _AutoOFF()
RegWrite($LogonKey, "AutoAdminLogon", "REG_SZ", 0)
If @error <> 0 Then
MsgBox(262160, 'Auto Logon', "Vorgang fehlgeschlagen.")
Else
RegWrite($LogonKey, "DefaultPassword", "REG_SZ", "")
RegWrite($LogonKey, "ForceAutoLogon", "REG_SZ", 0)
GUICtrlSetData($Input1, "kein Konto")
MsgBox(262208, 'Auto Logon', "Auto Logon wurde erfolgreich deaktiviert.")
EndIf
EndFunc
Func _CheckRegEntry()
If RegRead($LogonKey, "AutoAdminLogon") = 1 And RegRead($LogonKey, "ForceAutoLogon") = 1 Then
MsgBox(262208, 'Auto Logon', "Das automatische Einloggen für: " & RegRead($LogonKey, "DefaultUserName") _
& " wurde erfolgreich eingerichtet.")
GUICtrlSetData($Input1, $User)
_MarkDefUser($User)
Else
MsgBox(262160, 'Auto Logon', "Vorgang fehlgeschlagen.")
EndIf
EndFunc
Variablen, die innerhalb einer Funktion generiert werden, sind den anderen Funktionen nicht bekannt. Deshalb mußt du sie deklarieren.
In deinem Bsp. reicht "Dim" völlig aus. Wann du "Local", "Dim" oder "Global" verwendest, kannst du in der Hilfe nachlesen.
;Includes
#include <GUIConstants.au3>
#include <ie.au3>
#include <guilist.au3>
#include <guilistview.au3>
#include <array.au3>
#include <INet.au3>
; Variablen definieren
Dim $console
I am very gerührt.
Schön, wenn ich dir helfen konnte.
So, jetzt hab ich eine funktionierende Lösung für dich.
Mit _GUICtrlListViewSetItemSelState( ) kannst du den Eintrag markieren - ist dann aber grau markiert. Also noch ein {DOWN} hinterher und schon ist es blau markiert
_GUICtrlListViewSetItemSelState($listview, $index, 1, 1)
Send("{DOWN}")
Hi huggy,
da will ich doch mal der erste Gratulant sein.
Alles Gute, viele Geschenke und und und ....
:birthday:
Zitat Hilfe:
_GUICtrlListViewSetHotItem
--------------------------------------------------------------------------------Sets the hot item for a list-view control
#Include <GuiListView.au3>
_GUICtrlListViewSetHotItem($h_listview, $i_index)
Parameters
$h_listview control id/control hWnd
$i_index Zero-based index of the item to be set as the hot itemReturn Value
Returns the index of the item that was previously hot
$LV_ERR is returned if no item previously hot
Hier ein Bsp.:
[autoit]#Include <GuiListView.au3>
[/autoit][autoit][/autoit][autoit]For $i = 0 To _GUICtrlListViewGetItemCount($listview)-1
If _GUICtrlListViewGetItemText($listview, $i) = $vergleichsbegriff Then
_GUICtrlListViewSetHotItem($listview, $i)
EndIf
ExitLoop
Next
