Beiträge von muh_kuh

muh_kuh

kannst du die Bilder mit hoch laden ?

muh_kuh

hallo
ich nehme an du hast ein adminzugang zu den Rechnern
http://www.sysinternals.com/Utilities/PsExec.html

muh_kuh

darf ich auch ? =)

muh_kuh

user bitte das sie die datei aufrufen ?
sonst kenn ich auch keine Möglichkeit
auer die rechner werden nachts runtergefahren

muh_kuh

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

muh_kuh

hallo
vileicht geht es damit http://www.elbiah.de/hamster/hamsvc/index.htm

muh_kuh

hallo
hier ist eine browser funktion
ruft ein browser auf
mit inet seite

Code

Opt ("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

Alles anzeigen

muh_kuh

hallo
were da eine Ordnung nach Funktionen nicht besser ?
statt nach erstellern

muh_kuh

hallo
habe wirder mal etwas geändert
es fehlt noch die instalation

Code

Opt ("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

Alles anzeigen

muh_kuh

Zitat

Original von geRRus
SciTE.

= es (oder hat es schon einen Frauen namen ?)

muh_kuh

Zitat

Original von peethebee
positiv?
Sorry, dass ich dich nicht ganz verstanden habe.

peethebee

=) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =) =)

Daumen Hoch

p.s.
vileicht tut da schlaf auch gut

muh_kuh

wo es recht hat hat es recht
ändere es oben

muh_kuh

hallo
das ist die erste Flag in der

Code

MSGBOX()

muh_kuh

hi
danke für die Daten
vileich muss man da so ein mischmasch machne
zwischen der jetzigen form und Satztteilen

Mal 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 MP3

aber das ding ist so gut
vorallen die vorbeitung auf weiter teile

muh_kuh

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 MP3

peethebee

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

muh_kuh

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 ansetzen

Code

Opt ("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

Alles anzeigen

der Bildschir schone rkann auch mit den Rücker umgehn

wenn man ihn eistezt muss man noch die 3 Kommentrae ändern

muh_kuh

Zitat

Original von geRRus
Hmm..Nice..Bildschirmschoner
und das geht mit Autoit?

in forum stand das man nur die exe umbenen muss

Zitat

Original 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 mod

Zitat

Original 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 ?

muh_kuh

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 ist

zu HotKeys

Zitat

Gleichzeitig aktive HotKeys: 64

das Skript gibt es noch nicht
drum setht hier auch noch kein Code

muh_kuh

hallo
mit HotkeySet kann man leider nur 64 Tasten abfragen
für die Maus habe ich schon was gefunden

muh_kuh

Hallo
gibt es eine möglichkeit
abzufragen ob igeneine taste gedrück worden ist
auser Tab und enter ?

Beiträge von muh_kuh

Commander

starten im netzwerk

bitte bitte

starten im netzwerk

starten im netzwerk

starten im netzwerk

Bildschirmschoner

Aufbau der Datenbase

Bildschirmschoner

Bildschirmschoner

SayIt - Sprachausgabe DeLuxe

Bildschirmschoner

MsgBox

SayIt - Sprachausgabe DeLuxe

SayIt - Sprachausgabe DeLuxe

Bildschirmschoner

Tastendruck

Tastendruck

Tastendruck

Tastendruck