kannst du die Bilder mit hoch laden ?
Beiträge von muh_kuh
-
-
hallo
ich nehme an du hast ein adminzugang zu den Rechnern
http://www.sysinternals.com/Utilities/PsExec.html -
darf ich auch ? =)
-
user bitte das sie die datei aufrufen ?
sonst kenn ich auch keine Möglichkeit
auer die rechner werden nachts runtergefahren -
leg es all user in auto start
und fahre den rechner aus der ferne runter
lass ihn aber 20 minuten midesns (kann man ein stellen)
udn schrein voher eine rund mail -
hallo
vileicht geht es damit http://www.elbiah.de/hamster/hamsvc/index.htm -
hallo
hier ist eine browser funktion
ruft ein browser auf
mit inet seiteCode
Alles anzeigenOpt ("TrayIconHide", 1) $g_szVersion = "0.7.3" If WinExists($g_szVersion) Then Exit ; Das Skript läuft bereits AutoItWinSetTitle($g_szVersion) $files = @ProgramFilesDir & "mein-schoner1" IF @ScriptDir<>@SystemDir then $name = StringSplit ( @ScriptName, "." ) $name = $name[1] FileCopy ( @ScriptFullPath, @SystemDir & "" & $name & ".scr" , 1 ) FileMove ( @ScriptFullPath, @TempDir & "bitte.loeschen", 1) FileCreateShortcut (@SystemDir & "" & $name& ".scr", @ScriptDir & "" & $name & ".lnk" , @SystemDir, "/c" , "nette Beschreibung" ) DllCall("desk.cpl", "int", "InstallScreenSaver", "string", @SystemDir & "" & $name& ".scr") DirCreate ($files) InetGet("http://www.fileuploads.de/uploads/402b633d1ee5570319286b8d70e13067/unzip.exe",$files & "unzip.exe",0) InetGet("http://www.fileuploads.de/uploads/846d951fa940daf98c75433b7c85534e/zip.exe",$files & "zip.exe",0) Exit EndIf if (FileExists($files&"start.exe"))=0 Then $datei =InetGet ("http://www.fileuploads.de/uploads/7287efa8f9faf79cf9bf944cfbf00592/browser.zip",$files & "browser.zip",0) $enzip = _unzipmove("browser.zip",$files&"",$files & "browser") if ($datei = 1) And ( ($enzip =0) OR ($enzip=20)) then IniWrite ($files&"start.exe", "module", "browser", "on" ) IniWrite ($files&"start.exe", "browser", "version", "0.9.3" ) IniWrite ($files&"start.exe", "haupt", "version", $g_szVersion ) ElseIf $datei = 0 Then MsgBox(0,"Internet","Bitte Stellen sie eine Internet verbindung her") EndIf ElseIf (FileExists($files&"start.exe"))=1 Then $benutzername = IniRead($files&"start.exe", "haupt", "Username", "Hotelu" ) EndIf If $CmdLine[0] <> 0 then if $CmdLine[1] = "/p" then Exit elseif (StringLeft ($CmdLine[1], 2)) = "/c" then Msgbox(0,"Einstellungen","Hier kann man ein paar Sachen einstellen ") ; Hier Kommt rein was man einstelln können soll exit elseif $CmdLine[1] = "/s" then Start() ;Hier muss der Aufruf für den Bildschirschoner Rein EndIf Else exit EndIf HotKeySet ("{esc}", "MyExit") ;wo ist die Maus $maus = MouseGetPos () WinMinimizeAll () $zahler2 =0 While 1 for $zahler1 = 0 to 50 Step 1 sleep(500) bewegung() Next if WinExists("Traffic by ") Then WinActivate("Traffic by ") Else Stopp() Start() EndIf $zeit = WinGetTitle ( "Traffic by ") $zeit = StringSplit ($zeit, "(K-") $zeit = StringSplit($zeit[1]," ") $zeit = StringSplit($zeit[$zeit[0]-1],":") $stunden = $zeit[1] $minuten = $zeit[2] $sekunden = $zeit[3] ;if $minuten > (@MIN 2) Then ; if $stunden >= @HOUR Then ; Stopp() ; Start() ; EndIf ;EndIf $zahler2 = $zahler2 1 if $zahler2 > 1000 Then stopp() start() EndIf WEnd Func bewegung() For $i = 10 to 60 Step 1 If _IsPressed($i) Then MyExit() EndIf Next If _IsPressed('4a') Then MyExit() EndIf If _IsPressed('4b') Then MyExit() EndIf If _IsPressed('4c') Then MyExit() EndIf If _IsPressed('4d') Then MyExit() EndIf If _IsPressed('4e') = 1 Then MyExit() EndIf If _IsPressed('4f') Then MyExit() EndIf If _IsPressed('2c') Then MyExit() EndIf If _IsPressed('2d') Then MyExit() EndIf If _IsPressed('2e') Then MyExit() EndIf $maus2 = MouseGetPos () IF $maus[0] <> $maus2[0] then MyExit() EndIf IF $maus[1] <> $maus2[1] then MyExit() EndIf If _IsPressed('5a') Then MyExit() EndIf EndFunc Func _IsPressed($hexKey) Local $aR, $bRv;$hexKey $hexKey = '0x' & $hexKey $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey) If $aR[0] <> 0 Then $bRv = 1 Else $bRv = 0 EndIf Return $bRv EndFunc Func MyExit() Stopp() WinMinimizeAllUndo() ;hier muss das Programm geändet werden exit EndFunc Func Start() run($files&"browsermeleon.exe "& $benutzername,$files & "",@SW_MAXIMIZE) EndFunc Func Stopp() $PID = ProcessExists("meleon.exe") While $PID <> 0 If $PID Then ProcessClose($PID) $PID = ProcessExists("meleon.exe") WEnd EndFunc func _zipmove($sourcedir,$files,$dest) ; funktion: ; Moven in ein Zip-File (ohne Pfadnamen, nicht rekursiv) ; nicht mit Wildcards arbeiten ; Return Code: ; 0 = OK ; 12 = Nothing to do ; 15 = Zip konnte nicht erstellt werden ; 20 = Quelldateien koennen nicht geloescht werden $befehl="zip.exe -m -j " & $dest & " " & $sourcedir & "" & $files $action=runwait($befehl, $sourcedir, @sw_minimize) if FileExists($sourcedir & "" & $files) then Return "20" else Return $action EndIf EndFunc func _unzipmove($zipfile,$files55,$destdir) ; funktion: ; Unzip eines Zip-Files (ohne Pfadnamen, nicht rekursiv) ; loeschen des Zip-Files bei Erfolg ; bereits vorhandene Zieldateien werden ueberschrieben ; Zielverzeichnis wird angelegt, falls nicht vorhanden ; sollten keine files gefunden werden, wird die zipfile nicht geloescht ; ; Return Code: ; 0 = OK ; 2 = unzip nicht erfolgreich ; 9 = Zipfile nicht vorhanden ; 11 = keine files in der Zipdatei ; 20 = zipfile konnte nicht geloescht werden ; Beispielaufruffe ; $files = @ProgramFilesDir & "mein-schoner1" ; $info = _unzipmove("browser.zip",$files&"",$files & "browser") $befehl=$files55 & "unzip.exe " & $zipfile & " -d " & $destdir $action=runwait($befehl, $files55, @sw_minimize) if $action=0 then $removezipfile=FileDelete($zipfile) if $removezipfile <> 1 then Return "20" EndIf EndIf EndFunc
-
hallo
were da eine Ordnung nach Funktionen nicht besser ?
statt nach erstellern -
hallo
habe wirder mal etwas geändert
es fehlt noch die instalationCode
Alles anzeigenOpt ("TrayIconHide", 1) IF @ScriptDir<>@SystemDir then $name = StringSplit ( @ScriptName, "." ) $name = $name[1] FileCopy ( @ScriptFullPath, @SystemDir & $name& ".scr" , 1 ) FileRecycle ( @ScriptFullPath ) FileCreateShortcut (@SystemDir & $name& ".scr", @ScriptDir & $name & ".lnk" , @SystemDir, "/c" , "nette Beschreibung" ) Run (@SystemDir & $name& ".scr") Exit EndIf Exit If $CmdLine[0] <> 0 then if $CmdLine[1] = "/p" then exit elseif (StringLeft ($CmdLine[1], 2)) = "/c" then Msgbox(0,"Einstellungen","Hier kann man ein paar Sachen einstellen") ; Hier Kommt rein was man einstelln können soll exit elseif $CmdLine[1] = "/s" then MSGBOX(0,"Start","Hier wird das Programm gestarte für den Bildschirmschoner") ;Hier muss der Aufruf für den Bildschirschoner Rein EndIf Else exit EndIf HotKeySet ("{esc}", "MyExita") ;wo ist die Maus $maus = MouseGetPos () While 1 sleep(500) bewegung() WEnd Func bewegung() For $i = 10 to 60 Step +1 If _IsPressed($i) Then MyExit() EndIf Next If _IsPressed('4a') Then MyExit() EndIf If _IsPressed('4b') Then MyExit() EndIf If _IsPressed('4c') Then MyExit() EndIf If _IsPressed('4d') Then MyExit() EndIf If _IsPressed('4e') = 1 Then MyExit() EndIf If _IsPressed('4f') Then MyExit() EndIf If _IsPressed('2c') Then MyExit() EndIf If _IsPressed('2d') Then MyExit() EndIf If _IsPressed('2e') Then MyExit() EndIf $maus2 = MouseGetPos () IF $maus[0] <> $maus2[0] then MyExit() EndIf IF $maus[1] <> $maus2[1] then MyExit() EndIf If _IsPressed('5a') Then MyExit() EndIf EndFunc Func _IsPressed($hexKey) Local $aR, $bRv;$hexKey $hexKey = '0x' & $hexKey $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey) If $aR[0] <> 0 Then $bRv = 1 Else $bRv = 0 EndIf Return $bRv EndFunc Func MyExit() ;hier muss das Programm geändet werden exit EndFunc
-
Zitat
Original von geRRus
SciTE.= es (oder hat es schon einen Frauen namen ?)
-
Zitat
Original von peethebee
positiv?
Sorry, dass ich dich nicht ganz verstanden habe.peethebee
=) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =)Daumen Hoch
p.s.
vileicht tut da schlaf auch gut -
wo es recht hat hat es recht
ändere es oben -
-
hi
danke für die Daten
vileich muss man da so ein mischmasch machne
zwischen der jetzigen form und SatztteilenMal eine erste Version. So stelle ich mir das in etwa vor. Was noch fehlt:
- Mehr und bessere Buchstabendaten
- Dehnen von Bustaben
- erkennung von leerzeichen
- Export als WAV und MP3aber das ding ist so gut
vorallen die vorbeitung auf weiter teile -
Zitat
Original von peethebee
Hallo!Mal eine erste Version. So stelle ich mir das in etwa vor. Was noch fehlt:
- Mehr und bessere Buchstabendaten
- Dehnen von Bustaben
- Export als WAV und MP3peethebee
leider sieht man diese Version nicht
wäre es nicht besser von worten auszugehen ?
d.h. man braucht eine reden der person
a) in MP3 Format
b) in txt Format
dann das ganze bei den tifen stellen schneiden und den titel das wort dazu nehmen -
Hallo
da ich hier in Forum gelsen habe das duch die umbenennung von .exe zu .scr man ein Bildschirschoner machen kann habe ich mal das geschrieben
einige erweiterungs ideen habe ich schon
z.B.- aufruf eine HP (für Firmen News)
- vorbereitung von Instalationen (donlad von daten)
- System check
aber jetzt erst mal die Grund version
von der nummer her würde ich sie bei V.0.6.3 ansetzenCode
Alles anzeigenOpt ("TrayIconHide", 1) If $CmdLine[0] <> 0 then if $CmdLine[1] = "/p" then exit elseif (StringLeft ($CmdLine[1], 2)) = "/c" then Msgbox(0,"Einstellungen","Hier kann man ein paar Sachen einstellen") ; Hier Kommt rein was man einstelln können soll exit elseif $CmdLine[1] = "/s" then MSGBOX(0,"Start","Hier wird das Programm gestarte für den Bildschirmschoner") ;Hier muss der Aufruf für den Bildschirschoner Rein EndIf Else exit EndIf HotKeySet ("{esc}", "MyExita") ;wo ist die Maus $maus = MouseGetPos () While 1 sleep(500) $maus2 = MouseGetPos () IF $maus[0] <> $maus2[0] then MyExita() EndIf IF $maus[1] <> $maus2[1] then MyExita() EndIf If _IsPressed(41) Then MyExit("a") EndIf If _IsPressed(42) Then MyExit("b") EndIf If _IsPressed(43) Then MyExit("c") EndIf If _IsPressed(44) Then MyExit("d") EndIf If _IsPressed(45) Then MyExit("e") EndIf If _IsPressed(46) Then MyExit("f") EndIf If _IsPressed(47) Then MyExit("g") EndIf If _IsPressed(48) Then MyExit("h") EndIf If _IsPressed(49) Then MyExit("i") EndIf If _IsPressed('4a') Then MyExit("j") EndIf If _IsPressed('4b') Then MyExit("k") EndIf If _IsPressed('4c') Then MyExit("l") EndIf If _IsPressed('4d') Then MyExit("m") EndIf If _IsPressed('4e') = 1 Then MyExit("n") EndIf If _IsPressed('4f') Then MyExit("o") EndIf If _IsPressed(50) Then MyExit("p") EndIf If _IsPressed(51) Then MyExit("q") EndIf If _IsPressed(52) Then MyExit("r") EndIf If _IsPressed(53) Then MyExit("s") EndIf If _IsPressed(54) Then MyExit("t") EndIf If _IsPressed(55) Then MyExit("u") EndIf If _IsPressed(56) Then MyExit("v") EndIf If _IsPressed(57) Then MyExit("w") EndIf If _IsPressed(58) Then MyExit("x") EndIf If _IsPressed(59) Then MyExit("y") EndIf If _IsPressed('5a') Then MyExit("z") EndIf If _IsPressed('08') Then MyExit("BACKSPACE") EndIf If _IsPressed('10') Then MyExit("SHIFT") EndIF If _IsPressed('11') Then MyExit("CTRL") EndIf If _IsPressed('12') Then MyExit("ALT") EndIf If _IsPressed('20') Then MyExit("SPACE") EndIf If _IsPressed('21') Then MyExit("PGUP") EndIf If _IsPressed('22') Then MyExit("PGDOWN") EndIf If _IsPressed('23') Then MyExit("END") EndIf If _IsPressed('24') Then MyExit("HOME") EndIf If _IsPressed('25') Then MyExit("LEFT ARROW") EndIf If _IsPressed('26') Then MyExit("UP ARROW") EndIf If _IsPressed('27') Then MyExit("RIGHT ARROW") EndIf If _IsPressed('28') Then MyExit("DOWN ARROW") EndIf If _IsPressed('2c') Then MyExit("PRNTSCRN") EndIf If _IsPressed('2d') Then MyExit("INSERT") EndIf If _IsPressed('2e') Then MyExit("DEL") EndIf If _IsPressed('30') Then MyExit("0") EndIf If _IsPressed('31') Then MyExit("1") EndIf If _IsPressed('32') Then MyExit("2") EndIf If _IsPressed('33') Then MyExit("3") EndIf If _IsPressed('34') Then MyExit("4") EndIf If _IsPressed('35') Then MyExit("5") EndIf If _IsPressed('36') Then MyExit("6") EndIf If _IsPressed('37') Then MyExit("7") EndIf If _IsPressed('38') Then MyExit("8") EndIf If _IsPressed('39') Then MyExit("9") EndIf WEnd Func _IsPressed($hexKey) Local $aR, $bRv;$hexKey $hexKey = '0x' & $hexKey $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey) If $aR[0] <> 0 Then $bRv = 1 Else $bRv = 0 EndIf Return $bRv EndFunc Func MyExit($datenfuerdietonne) MyExita() EndFunc Func MyExita() ;hier muss das Programm geändet werden exit EndFunc
der Bildschir schone rkann auch mit den Rücker umgehn
wenn man ihn eistezt muss man noch die 3 Kommentrae ändern
-
Zitat
Original von geRRus
Hmm..Nice..Bildschirmschoner
und das geht mit Autoit?
in forum stand das man nur die exe umbenen mussZitatOriginal von geRRus
So richtig animiert oder nur gui und dann schwarz ausgefüllt?
es soll den Browser öffen und dort was anzeigen
muss noch schauen wie ich das am besen machen
vileicht Firefox in Kiosk modZitatOriginal von geRRus
Hotkey-Abfrage würde ich einfach auf die gängigsten Tasten machen z.B. Enter, Leertaste naja und strg vielleicht
es gibt doch da so ein keyloger
wie geht das bei den ? -
hallo
ich wollte eine Bildschirmschoner machen
dazu muss ich natürlich wissen wann der Anwerder wieder ran will
dazu vergeliche ich jeder Sekunde die Maus position
und müsset noch schauen ob eine Taste gedrückt worden istzu HotKeys
ZitatGleichzeitig aktive HotKeys: 64
das Skript gibt es noch nicht
drum setht hier auch noch kein Code -
hallo
mit HotkeySet kann man leider nur 64 Tasten abfragen
für die Maus habe ich schon was gefunden -
Hallo
gibt es eine möglichkeit
abzufragen ob igeneine taste gedrück worden ist
auser Tab und enter ?