armes deutschland, regiert von vorurteilen ... naja, kann man nix machen
Beiträge von sc4ry
-
-
ich finde es etwas dreist von euch, dass ich hier direkt als "hacker" abgestempelt werde und autoit in den dreck ziehen würde um illegale sachen zu machen.
vllt solltet ihr mal die augen öffnen und nicht alles, was auch illegal benutzt werden kann, für illegal abstempeln.
ich kann auf meinem privaten rechner laufen lassen, was ich will, ohne etwas illegales zu tun, und dazu gehört auch, dass ich meine tastaturanschläge aufzeichne.
das bitte ich zu beachten.
keylogger sind nur illegal wenn man sie illegal einsetzt, was man auch mit jeder menge anderer mit autoit-programmierten tools machen kann.
-
Hallo,
ich suche eine möglichkeit, tastaturanschläge zu speichern, die anschließend in eine datei geschrieben werden.
doch wie ist es möglich, dass er nicht für jedes zeichen eine eigene zeile anfängt, sondern er "ganze sätze" aufzeichnet?
-
@bermd
schneidet der jetzt auch alles?
also z.b. avi-dateien? -
hallo,
dank euch. hab bei vd mit sowas gerechnet, aber meine V war nicht für die cmd ausgelegt. werd mich dann mal auf die suche begeben.
das ist voll cool.@Zen ... ja, jetzt wo du es sagst, erinner ich mich auch an sowas. vllt find ich sowas ja noch, dann kann ich mir die bat mal angucken.
das wär auf jeden fall auch noch ne sache, die ich dringends gebrauchen könnte.würde meine platte um einiges entlasten, da ich es immer bis ultimo sammel *g*
-
hiho,
nachdem das mitm brennen auf der cmd ziemlich gut geklappt hat, nun meine nächste frage ... wie sieht es mit avis schneiden per cmd aus?
ich nutze normal virtual dub mod, aber leider scheint man das nicht per cmd bedienen zu können.
ich würde das ganze nämlich gerne automatisieren, so dass das prog zusammen mit autoit, bestimmte dateien halbiert.
da es per vdmod ziemlich schwer sein wird, über das gui dies zu realisieren, nun erstmal meine frage, ob wer ein tool kennt, mit dem es gehen würde? -
also wenn du das konto nicht per viriable ansteuerst, kannst dir auch das & sparen ...
dann kannste nehmen:
RunAsSet(@Computername & "\Administrator", @ComputerName, "passwort")
-
hiho bugfix,
danke für deine mühe, klappt soweit alles. kann ich mich die woche mal wieder dransetzten.
sorry für die späte meldung, aber war im dauerrausch die letzten tag *g*
-
ich bin mir klar, was ich machen will. es geht sich hier auch nicht um das tool selber, was ich schreiben will, sondern einfach nur, dass ich die countdown funktion so anpassen möchte, dass dort zb nur 156 sek. runtergezählt werden.
mit sleep geht es, aber davon bekomme ich keinen tooltip.
also.
Spoiler anzeigen
[autoit]
[/autoit]
Func _countDown($Countdown)
$begin = TimerInit()
Local $string = ""
While 1
$start = Round(TimerDiff($begin) / 1000)
$countUp = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
Mod($start / 3600, 24), Mod(($start / 60), 60), Mod($start, 60))
$sec = _DateDiff('s', "2006/01/01 " & $countUp, "2006/01/01 " & $Countdown)
If $sec = 0 Then Return 1
$string = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
Mod($sec / 3600, 24), Mod(($sec / 60), 60), Mod($sec, 60))
ToolTip($string & " Sek. bis Script fortgeführt wird, klicken Sie <ESC> falls die Seite fertig geladen ist")
WEnd
EndFuncaus diese funktion, in der man den countdown in 24:59:59 angibt, hätte ich gerne einen countdown, der eine zahl die ich eingebe, nur als sekunden im timer verarbeitet und runterzählt.
PS: ich habe es schon soweit modifiziert, dass ich einen aufruf von -s -s 50 also sekunden countdown runterrechnen kann, aber leider würde -s -s 156 nicht gehen, da dort max 59 sek. eigegeben werden können.
kann mir jetzt jmd helfen ? *liebguck*
-
$countdown ist $cmdline[3]
wie gesagt, is ja noch im anfang =)sleep lastet doch die cpu aus, wenn ich dann nen countdown von 3 h habe, geht der ziemlich in die knie.
ich will ja nicht unbedingt die shutdown.exe neu schreiben, nur vereinfachen, bzw an meine wünsche anpassen.
ich will da freie wahl haben, ob ich ne uhrzeit, stunden, minuten oder sekunden angebe.
dazu soll dann auch irgendwie der countdown angezeigt werden, im tool- oder traytip.die frage ist nur, wie rechnet die funktion oben mir 40 sek runter (so dass ich nicht 00:00:40 eingeben muss, sondern nur -s 40)
-
hello
also ich bin noch in der konzeptphase.
hab erstmal so brainstorming-artig runtergeschrieben, wie es gehen soll ... bin mir aber noch net sicher ob es auch geht *g*auf ein gui will ich eigentlich verzichten.
es ist eigentlich ähnlich wie die shutdown.exe.wenn man den pc herunterfahren will, gibt man auf cmd-ebene den befehl ein "sd.exe -s -m 60 ein"
als erstes wird geprüft, ob parameter 1 existiert, wenn ja, wird aufgrund von parameter 2 entschieden, in welche countdown-funktion er springen soll (sind 4 verschiedene, sieht man immer am letzten buchstaben).
dann wird der timer runtergezählt und danach nochmal übergeben, welcher befehl für parameter 1 vergesehen ist.
danach wird der shutdown befehl ausgeführt.ob der ablauf in sich so ganz schlüssig ist, weiss ich wie gesagt noch nicht (bzw zu kompliziert ist). wollte jetzt die countdown-funktionen basteln.
für ideen zum restlichen script bin ich natürlich auch dankbar, weil ich denke, dass es so irgendwie voll umständlich ist, aber das viel mir gestern abend als erstes ein =)
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <date.au3>HotKeySet("{End}", "_kill")
[/autoit] [autoit][/autoit] [autoit]If $CmdLine[0] > 0 Then
[/autoit] [autoit][/autoit] [autoit]
Call("_If")
Else
MsgBox(16, 'Fehler', "Kein Parameter angegeben")
EndIfFunc _If()
[/autoit] [autoit][/autoit] [autoit]
Select
Case $CmdLine[2] = "-t"
If _countDownt($Countdown) Then Call("_End")
Case $CmdLine[2] = "-h"
If _countDownh($Countdown) Then Call("_End")
Case $CmdLine[2] = "-m"
If _countDownm($Countdown) Then Call("_End")
Case $CmdLine[2] = "-s"
If _countDowns($Countdown) Then Call("_End")
Case Else
MsgBox(16, 'Fehler', "Falsche Parameter verwendet")
EndSelect
EndFuncFunc _countDownt($Countdown)
[/autoit] [autoit][/autoit] [autoit]
Local $string = ""
While 1
$countUp = StringFormat("%.02d", _
Mod($Countdown, 60))
$sec = _DateDiff('s', "2006/01/01 " & $countUp, "2006/01/01 " & $Countdown)
If $sec = 0 Then Return 1
$string = StringFormat("%.02d", _
Mod($sec, 60))
ToolTip($string & " Sek. bis runtergefahren wird")
WEnd
EndFuncFunc _End()
[/autoit] [autoit][/autoit] [autoit]
Select
Case $CmdLine[1] = "-l"
MsgBox(0, "", "(@comspec & ' /c shutdown -l -f -c ' & $CmdLine[4]")
Case $CmdLine[1] = "-s"
MsgBox(0, "", "Run(@comspec & ' /c shutdown -s -f -c ' & $CmdLine[4]")
Case $CmdLine[1] = "-r"
MsgBox(0, "", "Run(@comspec & ' /c shutdown -r -f -c ' & $CmdLine[4]")
Case Else
MsgBox(16, 'Fehler', "Falsche Parameter verwendet")
EndSelect
EndFuncFunc _kill()
[/autoit]
Exit
EndFunc -
hiho,
also ich wollte ja so ein kleiens shutdown tool bauen, dass über die cmd angesprochen wird. der shutdown soll in verschiedenen modi aufgerufen werden können.
zb.:
-s -t 14:45 (uhrzeit)
-s -h 2 (stunden)
-s -m 45 (minuten)
-s -s 90 (sekunden)nun habe ich diesen code von (ich hoffe ich lüg nicht) th.meger erhalten.
[autoit]
diesen wollte ich nun umbauen. also eigentlich 4 verschiedene countdowns basteln, in denen halt die 4 verschiedenen parameter oben runtergezählt werden. jetzt müsste ich nur den countdown richtig verstehen, um ihn umschreiben zu können, bis jetzt hat es aber noch nicht geklappt.
habe mir in der hilfe die themen zu timerinit, round, stringformat und datediff angeguckt (stringformat hab ich irgendwie nix von verstanden) ... aber vllt kann mir von euch kurz helfen dass zu verstehen und umzubauen, so dass er z.b. bei -s -s 90, 90 sek. wartet, bis er was ausführt.Func _countDown($Countdown)
[/autoit]
$begin = TimerInit()
Local $string = ""
While 1
$start = Round(TimerDiff($begin) / 1000)
$countUp = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
Mod($start / 3600, 24), Mod(($start / 60), 60), Mod($start, 60))
$sec = _DateDiff('s', "2006/01/01 " & $countUp, "2006/01/01 " & $Countdown)
If $sec = 0 Then Return 1
$string = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
Mod($sec / 3600, 24), Mod(($sec / 60), 60), Mod($sec, 60))
ToolTip($string & " Sek. bis Script fortgeführt wird, klicken Sie <ESC> falls die Seite fertig geladen ist")
WEnd
EndFunc -
thx jonk
Waluev, ehrlich gesagt, hört sich das auch verdammt interessant an *g*
hatte aber eher an die cmd gedacht, da ich ne sidebar mit input besitze, und das da natürlich direkt eingeben könnte, ohne ein 2t prog aufzurufen.aber vllt mach ich es aus spass auch mal (sofern ich es hinbekomme *g*)
-
hey,
ich wollte mich als nächstes projekt an ein shutdown tool wenden.
dabei wollte ich größtenteils auf grafischen schnickschnack verzichten, bzw hab ich vor, dass tool hauptsächlich per cmd zu bedienen.in etwa
sd.exe -a 14:45
sd.exe -t 60
ist sowas mit autoit möglich?
-
ok, mach ich, danke =)
zu ico erstellen is hier ne easy anleitung
-
hiho,
ich wollte eigentlich ein bildchen in einem gui anzeigen lassen.
klappt auch eigentlich ganz gut (guictrlcreatepic), jedoch wird es ja nur angezeigt, wenn das bild im selben/ angegebenen ordner liegt.wenn ich die datei nun aber verschicke, will ich nicht extra das bild auch mitschicken, damit es angezeigt wird. gibt es eine mögilchkeit, dass das bild beim kompilieren direkt in das prog eingebunden wird?
auch würde ich dem teil ein eigenes icon verpassen, kann man aus einem bild irgendwie eine ico machen?
-
hiho,
ok, hab mal den thread wieder geöffnet.
also das prob besteht immernoch.
hab deine änderungen aber mal alle übernommen *g*, thxaber sobald ich ein prog auswähle, legt er keine ini an, nur wenn ich die tools leer lasse. ich verstehe es nicht.
die variablen sind auch gefüllt (bzw speichert er ja dann auch "" ab, was er ja auch soll.
hab auch schon verschiedene wege getestet, aber bei allen bestand das gleiche probPS: komisch, wenn ich das script kompiliere, geht es, nur wenn ich es aus scite ausführe, erstellt er keine ini sofern ich ein tool ausgewählt habe.
naja, warum weiss ich nicht, aber dann scheint es ja doch zu laufen =)
PPS: ahso, er speichert die ini dann immer im ordner, wo ich das "tool" ausgewählt habe. -
hey, auch ein guter tip, danke ...
hab aber ein neues prob.
und zwar hab ich 3 inputboxen, die entweder einen pfad zu nem file enthalten, oder leer sind. auswahl geht über fileopendialog, der danach per guictrlsetdata in die inputbox eingefügt wird.das ganze soll später in ne ini geschrieben werden.
er kann auch die inputbox auslesen. wenn diese leer ist, schreibt er die ini und nichts hinter den key.
is dort was enthalten, kann er es testweise per msgbox ausgeben, aber er schreibt es einfach nicht in die ini.
weiss wer wieso ?Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
;S.T.A.R.T.E.R_V.2
;;©
[/autoit] [autoit][/autoit] [autoit];Settings
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIcon
#include<guiconstants.au3>$script = "S.T.A.R.T.E.R_V2"
[/autoit] [autoit][/autoit] [autoit]
$ini = ($script & "_Settings.ini");if ini exist
[/autoit] [autoit][/autoit] [autoit]
If FileExists(@scriptdir & "\" & $ini) Then
;read ini
$portal = IniRead(@scriptdir & "\" & $ini, "Kill on Start", "portal", "")
$info = IniRead(@scriptdir & "\" & $ini, "Kill on Start", "info", "")
$install = IniRead(@scriptdir & "\" & $ini, "Kill on Start", "install", "")
$backup = IniRead(@scriptdir & "\" & $ini, "Run on Start", "backup", "")
$notes = IniRead(@scriptdir & "\" & $ini, "Run on Start", "notes", "")
$end = IniRead(@scriptdir & "\" & $ini, "Run End", "end", "")
$inimsg = IniRead(@scriptdir & "\" & $ini, "Run End", "msg", "")
$tool1 = IniRead(@scriptdir & "\" & $ini, "Own Tools", "Tool1", "")
$tool2 = IniRead(@scriptdir & "\" & $ini, "Own Tools", "Tool2", "")
$tool3 = IniRead(@scriptdir & "\" & $ini, "Own Tools", "Tool3", "")
;kill & start
If $portal = 1 Then
WinKill("Portal")
Else
EndIf
If $info = 1 Then
WinKill("HDInfo2k")
Else
EndIf
If $install = 1 Then
WinMinimizeAll()
ToolTip("")
WinKill("Error")
ControlSend("Install", "E&xit Setup", "Button2", "!x")
WinKill("Error")
ControlSend("Install", "E&xit Setup", "Button2", "!x")
Else
EndIf
If $backup = 1 Then
runwait(@programfilesdir & "\IBM\Lotus Notes\BackupNotesData.EXE", "", @SW_HIDE)
Else
EndIf
If $notes = 1 Then
runwait(@programfilesdir & "\IBM\Lotus Notes\nlnotes.exe", "", @SW_MAXIMIZE)
Else
EndIf
If $tool1 <> 0 Then
RunWait('"' & $tool1 & '"')
Else
EndIf
If $tool2 <> 0 Then
RunWait('"' & $tool2 & '"')
Else
EndIf
If $tool3 <> 0 Then
RunWait('"' & $tool3 & '"')
Else
EndIf
If $end = 1 Then
$msg = StringReplace($inimsg, "[CRLF]", @CRLF)
Opt("OnExitFunc", "endscript")
Else
Exit
EndIf;ini does not exist
[/autoit] [autoit][/autoit] [autoit]
Else;gui
[/autoit] [autoit][/autoit] [autoit]
$gui = GUICreate($script, 400, 205, -1, -1, -1, $WS_EX_ACCEPTFILES)
$ok = GUICtrlCreateButton("&OK", 40, 155, 70)
$cancel = GUICtrlCreateButton("&Cancel", 290, 155, 70)
$label = GUICtrlCreateLabel("© ", 160, 170)
GUICtrlSetColor(-1, 0x9E9E9E)
GUICtrlSetFont($label, 7)
$menu = GUICtrlCreateMenu("&more")
$help = GUICtrlCreateMenuitem("&help", $menu)
$info = GUICtrlCreateMenuitem("&info", $menu)
;tab1 "kill"
GUICtrlCreateTab(0, 0, 400, 150)
GUICtrlCreateTabItem(" Kill on Start ")
GUICtrlCreatePic("Henkel2.jpg", 180, 30, 180, 110)
$cbportal = GUICtrlCreateCheckbox("Kill Portal", 30, 40)
GUICtrlSetTip($cbportal, "Kills the Portal if you don´t need it")
$cbinfo = GUICtrlCreateCheckbox("Kill HDINFO", 30, 70)
GUICtrlSetTip($cbinfo, "Kills the HDInfo-Window if you don´t need it")
$cbinstall = GUICtrlCreateCheckbox("Kill Install/Error Msg", 30, 100)
GUICtrlSetTip($cbinstall, "Kills some Error/Install-Windows, which sometimes appear")
;tab1 "run"
GUICtrlCreateTab(-1, -1, 400, 150)
GUICtrlCreateTabItem(" Run on Start ")
$cbbackup = GUICtrlCreateCheckbox("Run Lotus Notes Backup", 30, 60)
GUICtrlSetTip($cbbackup, "Runs the Backup-my-Data-Function for Lotus Notes")
$cbnotes = GUICtrlCreateCheckbox("Run Lotus Notes", 30, 90)
GUICtrlSetTip($cbnotes, "Runs Lotus Notes (after the Backup)")
;tab3 "shutdown"
GUICtrlCreateTab(-1, -1, 400, 150)
GUICtrlCreateTabItem("Run on Shutdown")
$cbshutdown = GUICtrlCreateCheckbox("Message before Shutdown", 30, 40)
GUICtrlSetTip($cbshutdown, "Shows a MsgBox with some Information for a few Seconds, if you Turn off, Reboot, or Logout")
$edit = GUICtrlCreateEdit("Put here your text you want to see before Shutdown", 10, 70, 270, 50, $ES_AUTOVSCROLL+$ES_AUTOHSCROLL+$ES_WANTRETURN+$ES_MULTILINE)
;tab4 "own tools"
GUICtrlCreateTab(-1, -1, 400, 150)
GUICtrlCreateTabItem("Start own Tools")
$input1 = GUICtrlCreateInput("", 30, 40, 250, 25)
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
$button1 = GUICtrlCreateButton("Browse&1", 300, 40, 70)
$input2 = GUICtrlCreateInput("", 30, 70, 250, 25)
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
$button2 = GUICtrlCreateButton("Browse&2", 300, 70, 70)
$input3 = GUICtrlCreateInput("", 30, 100, 250, 25)
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
$button3 = GUICtrlCreateButton("Browse&3", 300, 100, 70)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
While 1
$msg = GUIGetMsg()
Select
case $msg = $gui_event_close
Exit
ExitLoop
Case $msg = $cancel
Exit
ExitLoop
case $msg = $help
MsgBox(32, "Help", "This little Program will help you, to modify your systemstart and shutdown with different settings" & @CRLF & "You are also able to customize this tool, by starting your own programs")
case $msg = $info
MsgBox(64, "Info", "This tools is written by ..." & @CRLF & @CRLF & " ----------- 2005 -----------")
case $msg = $button1
$file1 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
GUICtrlSetData($input1, $file1)
case $msg = $button2
$file2 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
GUICtrlSetData($input2, $file2)
case $msg = $button3
$file3 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
GUICtrlSetData($input3, $file3)
Case $msg = $ok
If GUICtrlRead($cbportal) = 1 Then
IniWrite($ini, "Kill on Start", "portal", "1")
Else
IniWrite($ini, "Kill on Start", "portal", "0")
EndIf
If GUICtrlRead($cbinfo) = 1 Then
IniWrite($ini, "Kill on Start", "info", "1")
Else
IniWrite($ini, "Kill on Start", "info", "0")
EndIf
If GUICtrlRead($cbinstall) = 1 Then
IniWrite($ini, "Kill on Start", "install", "1")
Else
IniWrite($ini, "Kill on Start", "install", "0")
EndIf
If GUICtrlRead($cbbackup) = 1 Then
IniWrite($ini, "Run on Start", "backup", "1")
Else
IniWrite($ini, "Run on Start", "backup", "0")
EndIf
If GUICtrlRead($cbnotes) = 1 Then
IniWrite($ini, "Run on Start", "notes", "1")
Else
IniWrite($ini, "Run on Start", "notes", "0")
EndIf
If GUICtrlRead($cbshutdown) = 1 Then
IniWrite($ini, "Run End", "end", "1")
$editmsg = GUICtrlRead($edit, 1)
IniWrite($ini, "Run End", "msg", StringReplace($editmsg, @CRLF, "[CRLF]"))
Else
IniWrite($ini, "Run End", "end", "0")
EndIf
$1 = GUICtrlRead($input1)
$2 = GUICtrlRead($input2)
$3 = GUICtrlRead($input3)
IniWrite($ini, "Own Tools", "Tool1", $1)
IniWrite($ini, "Own Tools", "Tool2", $2)
IniWrite($ini, "Own Tools", "Tool3", $3)
FileCreateShortcut(@AutoItExe, @StartupDir & "\" & $script & ".ink")
Exit
EndSelect
WEnd
EndIfDo
[/autoit]
WinWaitActive("Windows herunterfahren")
until ProcessExists("shutdown.exe")
Func endscript()
$cu = MsgBox(0, "Remember", $msg)
WinSetOnTop($cu, "Remeber", 1)
EndFunc -
ich dachte das hätte ich auch schon ausprobiert =)
heute ist nicht mein tag, dank euch *g*
-
ich weiss es nicht genau, es liegt wohl irgendwie an den "" ...
---------------------------
Remember
---------------------------
Put here your text you want to see before Shutdown" & @CRLF & "asdf" & @CRLF & "asdf
---------------------------
OK
---------------------------dass kommt dann da raus.
es bringt aber auch nix, wenn ich den text mit "" drumrum in die ini schreibe.