Beiträge von chip

**chip**

Hier, hab dir was kleines geschrieben. Braucht einfach dann nachdem deine Sachen in die Case rein hast in den Autostart zu legen.

Was macht das ganze

- nach Neustart wieder automatisch Anmeldung als Admin
- setzt wie gewünscht am nächsten Schritt das Script vor
- löscht sich Spurlos nach Abarbeitung alles Schritt selbt

Spoiler anzeigen

[autoit]

$adminname = "admin"
$adminpass = "pass"

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

If FileExists(@ScriptDir & "\status.ini") Then
$wert = IniRead(@ScriptDir & "\status.ini", "aktion")
Else
IniWrite(@ScriptDir & "\status.ini", "aktion", "neachster", "2")
$wert = 1
EndIf

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

Switch $wert
Case 1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", "REG_SZ", $adminname)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", "REG_SZ", $adminpass)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon", "REG_SZ", "1")
;PC Namen ändern
Case 2
;zur Domäne hinzufügen
IniWrite(@ScriptDir & "\status.ini", "aktion", "neachster", "3")
Case 3
;zu lokalen Gruppen hinzufügen(Adminrechte)
IniWrite(@ScriptDir & "\status.ini", "aktion", "neachster", "4")
Case 4
;andere Benutzereinstellungen
IniWrite(@ScriptDir & "\status.ini", "aktion", "neachster", "5")
Case 5
;auflisten von aufgetretenden Fehlern
IniWrite(@ScriptDir & "\status.ini", "aktion", "neachster", "6")
Case 6
FileDelete(@ScriptDir & "\status.ini")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", "REG_SZ", "")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", "REG_SZ", "")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon", "REG_SZ", "0")
_SelfDelete()
EndSwitch

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

Func _SelfDelete($iDelay = 0)
Local $sCmdFile
FileDelete(@TempDir & "\scratch.bat")
$sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
& ':loop' & @CRLF _
& 'del "' & @ScriptFullPath & '" > nul' & @CRLF _
& 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
& 'del ' & @TempDir & '\scratch.bat'
FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc ;==>_SelfDelete

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

**chip**

Kannst damit machen:

[autoit]

StringReplace

[/autoit]

allerdings musst natürlich noch aufpassen, das bereits ersetzte Zeichen nicht nochmal ersetzt werden ;).

**chip**

WinTitleMatchMode ist Standardmäßig auf 1 von daher ist das manuell setzen unnötig. Wenn es nicht erkannt wird dann ist das "Camcorder" nicht der Anfang der Titels. Ansonsten kann es z.b. so machen:

Spoiler anzeigen

[autoit]

If WinExists("Camcorder", "") Then
WinActivate("Camcorder", "")
$title = WinGetTitle("Camcorder", "")
ControlClick($title, "", "Button27", "LEFT")
EndIf

[/autoit]

**chip**

Also bei mir geht es mit beiden Versionen problemlos

Win 7 x64, Admin, deaktivierte UAC

**chip**

Doch Zeilebrüche kann man schon realisieren, nur halt nicht getrennt formatieren. Muss ich mir mal was anderes Einfallen lassen dann.

**chip**

So mal wieder eine Frage zu Listview.

Inzwischen ist das ganze so weit gekommen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 220, 359, 192, 124)
$List1 = _GUICtrlListView_Create($Form1, "", 0, 8, 217, 344, BitOR($LVS_REPORT,$LVS_NOCOLUMNHEADER), -1, True)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_GUICtrlListView_InsertColumn($List1, 0, "Spalte 1", 32)
_GUICtrlListView_InsertColumn($List1, 1, "Spalte 2", 100)

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

_GDIPlus_Startup()
$listimage = _GUIImageList_Create(32,32)
_GUIImageList_Add($listimage, _GDIPlus_BitmapCreateHBITMAPFromBitmap(_GDIPlus_BitmapCreateFromFile("bulb.png")))
_GUICtrlListView_SetImageList($List1, $listimage, 1)

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

$index = _GUICtrlListView_AddItem($List1, " ")
_GUICtrlListView_AddSubItem($List1, $index, "Mustermann" & @CRLF & "Die Welt ist schön", 1, 0)
$index = _GUICtrlListView_AddItem($List1, " ")
_GUICtrlListView_AddSubItem($List1, $index, "Musterfrau" & @CRLF & "Oder auch nicht", 1, 0)

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

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

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

EndSwitch
WEnd

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

_GDIPlus_Shutdown()

[/autoit]

Jetzt würde ich alerdings noch gerne bei den SubItems noch eine andere Schriftart haben. Ginge zwar mit GUICtrlCreateListView und GUICtrlSetFont allerdings bekomme ich es dann nichtmehr hin, dass @CRLF als Zeilenumbruch interpretiert wird.
Das zweite Problem ist, dass ich gerne jeweils bei _GUICtrlListView_AddSubItem den Text nach dem Zeilenumbruch in einer anderen Farbe machen würde als der Text vor dem Zeilenumbruch.

Hat da jemand eine Idee?

**chip**

echt? wo? hab die nicht gefunden O.o

**chip**

Ah fein, geht.

**chip**

Das von autoBert funktioniert optimal. danke.

**chip**

Hi,

erstmal vorab, ich nutze _GUICtrlListView_Create weil die die Vorrausetzung ist um _GUICtrlListView_SetBkImage zu nutzen. So und nun zu meinem Probelem.

So funktioniert alles und die das MainItem "test1" sowie die SubItems "test2" und "test3" werden angezeigt:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 241, 330, 192, 124)
$List1 = _GUICtrlListView_Create($Form1, "", 8, 8, 217, 305, -1, -1, True)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
_GUICtrlListView_InsertColumn($List1, 0, "Spalte 1", 70)
_GUICtrlListView_InsertColumn($List1, 1, "Spalte 2", 70)
_GUICtrlListView_InsertColumn($List1, 1, "Spalte 3", 70)

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

$userlistindex = _GUICtrlListView_AddItem($List1, "test1")
_GUICtrlListView_AddSubItem($List1, $userlistindex, "test2", 1)
_GUICtrlListView_AddSubItem($List1, $userlistindex, "test3", 2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

Wenn ich allerdings nun $LVS_NOCOLUMNHEADER einsetze um die Spaltenüberschriften zu entfernen werden nicht nur diese sondern auch die Subitems mit entfernt:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 241, 330, 192, 124)
$List1 = _GUICtrlListView_Create($Form1, "", 8, 8, 217, 305, $LVS_NOCOLUMNHEADER, -1, True)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
_GUICtrlListView_InsertColumn($List1, 0, "Spalte 1", 70)
_GUICtrlListView_InsertColumn($List1, 1, "Spalte 2", 70)
_GUICtrlListView_InsertColumn($List1, 1, "Spalte 3", 70)

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

$userlistindex = _GUICtrlListView_AddItem($List1, "test1")
_GUICtrlListView_AddSubItem($List1, $userlistindex, "test2", 1)
_GUICtrlListView_AddSubItem($List1, $userlistindex, "test3", 2)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

**chip**

*g* ich hab was für deine Liste Sprenger hehe:

Zitat

[Heute, 20:20] chip: naja welcher Mann beschäftigt sich wochenlang mit einer Hundeadoptionsseite XD

[Heute, 20:20] PenGuin: Ich

[Heute, 20:20] Schnuffel:

[Heute, 20:21] BugFix: Mann beschäftigt sich mit Hundeadoptionsseiten? - eindeutig: Bi

**chip**

So hier, vermute mal das durch das GDIPlus die Imagegröße nichtmehr richtig erkant wird:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 220, 359, 192, 124)
$List1 = GUICtrlCreateListView("test|test2|test3", 0, 8, 217, 344)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_GDIPlus_Startup()
$listimage = _GUIImageList_Create()
_GUIImageList_Add($listimage, _GDIPlus_BitmapCreateHBITMAPFromBitmap(_GDIPlus_BitmapCreateFromFile("bulb.png")))
_GUICtrlListView_SetImageList($List1, $listimage, 1)

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

$index = _GUICtrlListView_AddItem($List1, " ")
_GUICtrlListView_AddSubItem($List1, $index, "test", 1, 0)

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

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

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

EndSwitch
WEnd

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

_GDIPlus_Shutdown()

[/autoit]

Hier noch ein Beispielbild mit einer Größe von 32x32.

**chip**

Ich setzt später mal ein Beispiel rein, bei dem der Fall passiert.

**chip**

Naja wenn nur du selber es nutzt oder man die Zugangsdaten per Hand eingeben muss ist es schon "geheim".

**chip**

Ist das selbe. Ob nun die FTP Zugangdaten in deinem Script hast oder ein PHP Script aufrufst in dem die Daten stehen macht keinen Unterschied von der Sicherheit des Passwortes her.

**chip**

Alles gute zum Geburtstag Kev

Das Leben ist nun vorbei und es geht nur noch abwärts

**chip**

Mh das ist aber ungünstig. Habe ein etwas größers Bild mit ImageList in ListView eingefügt welches nun mangels entsprechnder Zeilenhöhe nur ein kleines Stück sichtbar ist.

**chip**

Nein, autoitcode ist nach wie vor mehr als leicht zu decompilieren, nur erlaubt ist es nichtmehr.

**chip**

Zitat von Mike280399

Hmm, daran hatte ich noch gar nicht gedacht....
Gilt das nur für Run oder auch für ShellExecute

Werd ich Mal testen... danke

Mike

Ja tut es, nutze ich auch z.b. hier der run.exe: https://autoit.de/index.php?page=Thread&threadID=17111

**chip**

Hi,

gibt es eine Möglichkeit in einem ListView die höhe der Zeilen zu ändern?

mfg

Beiträge von chip

Script nach neustart fortsetzen

Simpler "Übersetzer"

WinExist

Windows7 Defragmentierung starten und ausführen

Schirftart/Farbe in "Doppelzeiler"-ListViewSubItem

Schirftart/Farbe in "Doppelzeiler"-ListViewSubItem

SB Sprüche Version 2

ListView Zeilenhöhe ändern?

$LVS_NOCOLUMNHEADER bei ListView löscht SubItems

$LVS_NOCOLUMNHEADER bei ListView löscht SubItems

SB Sprüche Version 2

ListView Zeilenhöhe ändern?

ListView Zeilenhöhe ändern?

Schnüffelsicherer Datentransfer?

Schnüffelsicherer Datentransfer?

Kev wird 20

ListView Zeilenhöhe ändern?

Schnüffelsicherer Datentransfer?

Windows7 "Vorgaukeln" das Installation als Administrator durchgeführt wird

ListView Zeilenhöhe ändern?