Beiträge von L3viathan

L3viathan

oder besser: eine Liste mit Systemprozessen, und alle außer die beenden.

L3viathan

Das ist kein Bug, sondern es tritt auf, wenn der Ordner DATA nicht existiert oder keine Daten enthält.
Neue Version auf dem Weg.
edit: done.

L3viathan

Ja, ich meine dich. Näheres folgt in PN.

L3viathan

Oh, sorry, da ist mir eine unfertige Version reingerutscht, ich behebe es, wenn ich heute nach Hause gehe.
Thx

L3viathan

Das mit ProcessClose kann nicht gehen, da sehr wichtige Systemprozesse gekillt werden...
Also Shutdown(13).

L3viathan

Vielleicht kannst du die Ereignisanzeige auslesen?

L3viathan

Ich hab mal den Anfang gemacht... versuche mal, das nachzuvollziehen...

[autoit]

;1. Den User fragen ob er autorunEX ausführen will -->
If Msgbox(4,"Frage","Möchtest du autorunEX wirklich ausführen") <> 6 Then exit
;2. Den User fragen ob er die Autorun funktion von Windows ausschalten will
;3. Alle Autorun.inf Dateien auf allen CDs, Partitionen, USB Sticks und dem kompletten Computer auiflisten
;und dies in einer Logdatei speichern.
;4. Den nutzer Fragen ob AutorunEX den PC von autorun.inf Dateien bereinigen soll.
;5. Alle autorun.inf Dateien in Autorun.inf.autoex umbennen und in einen ordner neben der AutorunEX.exe verschieben.
;6. Den User fragen ob er die autorun.inf´s durch schreibgeschütze leere
;Dateien ersetzten will.
;7. Dort wo die autorun.inf´s lagen, überall wieder eine autorun.inf datei erstellen die
;,schreibgeschützt ist und eine versteckte systemdatei ist.
;8. Autorun.infs die nicht verschoben geworden sind wie die auf CD´s anzeigen und
;in das ganze in einem 2ten Logfile festhalten.
;9. In der Registry das Autorun für CD´s, usb sticks usw. ausschalten.
;10. Den Computer nach userabfrage rebooten damit der registery eintrag wirkt. -->
If Msgbox(4,"Frage","Möchtest du neustarten?") = 6 Then Shutdown(2)

[/autoit]

L3viathan

Tatsächlich?
Ich bugfixe mal.
edit: done, aber anders, nämlich

[autoit]

$folder=GUICtrlRead($folderinput)

[/autoit]

, sonst bewirkt das auswählen nichts.
Vistabug auch behoben.

L3viathan

Richtig.
Ich kann bei solchen Problemen nur OrganizeIncludes empfehlen.

/edit:edit.

L3viathan

Sry falls das falsch aufgefasst wurde. Ich wollte nix gegen die admins machen. Ich hätte vor der ersten Runde auch auf jeden Fall noch gefragt. Danke für die "Absolution".
Wenn das soviel Arbeit ist, dann kann ich mir ja den Aufwand teilen, mit MG etwa, wenn er einverstanden ist.
Wie schon gesagt der uit kann ruhig schwer bleiben, immer wenn ich es kann, werde ich mich auch daran versuchen. Nicht das sich jemand langweilt...
Also offenbar schweben wir zwischen uit Light und nano/pico/femto/...it
Weitere Vorschläge sind willkpmmen

L3viathan

9 Leute, die umbedingt mitmachen möchten - das reicht mir.
Somit wird dieser Thread zum Aufbauthread umfunktioniert, d.h. Namen, Regeln (mglw. Regelabweichungen zu µit?), Vorschläge für Aufgaben.
Es wäre schön, wenn die, die hier für Ja gestimmt haben mal ihren Senf dazu geben würden. Ich fang schonmal an:

Namensvorschläge

µit Light
Mikroit (mit)
Nanoit
AutoContest
...

L3viathan

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd

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

Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Return SetError(1)
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
;GuiCreate ("Credits", $breite, $hoehe)
;GUIDelete();Liber TrayTip oder so...
ToolTip("Creditz to:", @DesktopWidth / 2, @DesktopHeight / 2)
EndFunc

[/autoit]

L3viathan

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd

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

Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Return SetError(1)
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
GuiCreate ("Credits", $breite, $hoehe)
GUIDelete();Liber TrayTip oder so...

[/autoit]

L3viathan

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd

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

Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?

[/autoit]

L3viathan

Habe grade was von Alina geschickt bekommen, ich glaube, das ist gut.

L3viathan

Wenn du nen Ansatz hast, schreib mir ne PN.

L3viathan

Viel Spaß
Wir sehen uns dann in drei Jahren wieder, bis dann.

L3viathan

Ideal wäre da eigentlich asymmetrische Kryptographie.
Sodass, selbst wenn man den Algorithmus kennt, aber nicht alle Variablen, man auf Korrektheit überprüfen, aber nicht generieren kann.

L3viathan

Random() kann ich auch.
Es geht vielmehr darum, einen Algorithmus zu entwerfen, der Seriennummern generiert, und auch überprüft, ich erklärs am besten so:

Spoiler anzeigen

[autoit]

Do
$bool=Ueberpruefe(Inputbox("Probiers mal","mit der 124"))
Until $bool
Func Ueberprüfe($key)
If Mod($key,2) = 0 Then return true
return false
endfunc

[/autoit]

Dieser Algorithmus ( ) überprüft Keys, ob sie durch zwei teilbar sind... Sehr billig halt.
Ein Generator wäre dann z.B.

Spoiler anzeigen

[autoit]

Func Gen()
Return Random(1,10000,1)*2
EndFunc

[/autoit]

So will ichs haben, bloß deutlich komplexer, nicht zu bruteforcen, mglw. mehrere Key-Variablen (in diesem Fall die Zahl 2)
Ich hoffe, du verstehst, was ich meine...

L3viathan

Da ich keine vernünftige Funktion gefunden habe, gebe ich das auf.
Neue Frage: Kennt jemand einen anpassbaren KeyGen-Algorithmus?

Beiträge von L3viathan

Alle prozesse killn --> bluescreen

MySetup

µit Light Thread

MySetup

Alle prozesse killn --> bluescreen

System Active Time

AutorunEX

MySetup

$BS_DEFPUSHBUTTON variable used without being defined...??

µit Light Thread

µit Light Thread

Foren Fun AutoIT Script

Foren Fun AutoIT Script

Foren Fun AutoIT Script

MySetup

MySetup

MySetup

MySetup

MySetup

MySetup