Hallo!
Danke schon mal für deine bemühungen hab das tool auch schon bei google gefunden, aber 1. muss man das installieren und 2. funktioniert es nicht auf allen rechnern.. (auf meinem klappts aber auf dem meiner mutter leider nicht..
Mfg spider
Hallo!
Danke schon mal für deine bemühungen hab das tool auch schon bei google gefunden, aber 1. muss man das installieren und 2. funktioniert es nicht auf allen rechnern.. (auf meinem klappts aber auf dem meiner mutter leider nicht..
Mfg spider
Hallo!
Tatsache, sieht gut aus aber leider kriegt man das wenster nicht gehided gestartet... bzw wenn man es hiden[verstecken] will dann kommt es nach 2 sek wider...
Gibt es villeicht nocheine andere lösung?
Mfg Spider
Hallo!
Welche tasten denn? Guck dir mal HotKeySet an... für STRG+ALT+B z.b. benutz du sowas in der art:
[autoit]HotKeySet("^!b","_STRG_ALT_B")
[/autoit][autoit][/autoit][autoit]While 1;Damit das programm nicht beendet wird..
Sleep(1000)
WEnd
Func _STRG_ALT_B()
MsgBox(0,"","strg + Alt + b [ "&@HotKeyPressed&" ] wurde gedrückt!")
Exit
EndFunc
Oder du benutzt _IsPressed (siehe Hilfe )
Mfg Spider
Edit: da war mal wider jemmand schneller :hammer:
Hallo!
btw: oft wird es wenn es um in einer if variable geschrieben wird so gemacht:
If StringInStr(FileGetAttrib($file),'d') Then MsgBox(0,"","jo, ist ein ordner..")
Das stringinstr wird benötigt, da ein ordner ja auch mehere atribute haben kann... in einer funktion würde es dann ungefair so aussehen:
[autoit]MsgBox(0,"",_ISdir(@ScriptDir));gibt 1 zurück
MsgBox(0,"",_ISdir(@ScriptFullPath));gibt 0 zurück
Func _IsDir($file)
Return StringInStr(FileGetAttrib($file),'d');Gibt 1 zurück wenn es ein ordner ist, wenn nicht dann gibt es eine 0 zurück..
EndFunc
Mfg Spider
Hallo!
vielen dank schonmal für eure antworten
@Tam0r: alsobei mir funktioniert das programm/die cmd nicht... er führt zwar alles aus usw aber internet funktioniert immer noch
@eddy: der sieht ganz gut aus, ich finds aber nich so schön wenn ich das mit contorlsend usw alles ausfüllen muss... da schon lieber eine cmd variante (leider unterstürz das programm keine cmdline befehle )
Mfg Spider
Hallo!
Ich bin grade dabei eine AdminConsole zu schrieben und brauche eure hilfe (belohnung ist dann das fertige script )
Also mit der konsole soll man später u.a. das Internet blocken können. Habs erstmal probiert mit devcon (devcon disable =Net PCI\*) was natürlich nicht ging, weil das ja den gesamten netzwerk&internet traffic beendet... Da die konsole über TCPIP läuft, kann der client wenn das mit devcon gemacht ist logischerweise nicht mehr auf den server zugreifen... dumm weil man dann keine befehle mehr geben kann^^
dann habe ich es mit ipseccmd vom Support Kid von WinXP SP2 probiert...(http://www.microsoft.com/resources/docu…d.mspx?mfr=true) dass ging aber iwie auch nicht
Hat sonst noch jemmand eine idee? über die Windoof firewall will ich es auch nicht laufen lassen, da die meiesten (so wie ich) eine extra firewall haben...
Wäre super wenn mir jemmand helfen könnte
Mfg Spider
Hallo!
Oder die unschöne methode mit Send("^{TAB}") (Strg + TAB)
mfg Spider
Hallo!
Genau, also
[autoit]If $user <> "ich" Then $user = "ich
[/autoit]Mfg Spider
Hallo!
Oder ienfach nur $WS_POPUP.. damit das fenster nicht in der taskleiste angezeigt wird mach es so:
[autoit]GuiCreate( "", -1, -1, -1, -1, $WS_POPUP,$WS_EX_TOOLWINDOW)
[/autoit]Mfg Spide
Hallo!
wenn die kasse über die serielle schnittstelle laufen würde wer es auf jedenfall machbar.. bei usb bin ich mir nicht so sicher aber du kannst dir mal das hier angucken (habs noch nie probiert..) http://www.autoitscript.com/forum/index.php?showtopic=28112&hl=usb++dll
Mfg Spider
Hallo!
Danke für eure rückmeldungen Habe noch mal eine kleine unschönheit gefixt, ist aber nichts großes (siehe edit 1.post)
Mfg Spider
Hallo!
Ja, ich hab schon wider einprogramm geschrieben^^ Das Programm ist ganz einfach eigentlich.. es beendet das momentan aktive Fenster mit einem ProcessClose.. Mehr gibts nicht zu sagen
Hier das programm:
;###############
;# Process Kill #
;# By Gtaspider #
;###############
;Includes
#include <process.au3>
;Auslesen des Processes des momentanen Fensters
$title = WinGetTitle("")
$pid = WinGetProcess($title)
$path = FileGetShortName(_WinGetPath($pid))
$name = _ProcessGetName($pid)
If $name = "explorer.exe" Then $name = InputBox("","process name:","explorer.exe")
For $i = 30 To 0 Step -1
$sec = StringLeft($i,1)&"."&StringRight($i,1)
If StringLen($i) = 1 Then $sec = "0."&$i
TrayTip($title,$name &" Close in "&$sec&@CRLF&$path,1)
Sleep(50)
Next
;Schließen des Prozesses
ProcessClose($pid)
Func _WinGetPath($pid = "", $strComputer = 'localhost')
If $pid = "" Then $pid = WinGetProcess(WinGetTitle(""))
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $pid, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
For $objItem In $colItems
If $objItem.ExecutablePath Then Return $objItem.ExecutablePath
Next
EndIf
EndFunc ;==>_WinGetPath
Mfg Spider
Hallo!
Ich habe mal wider ein programm geschrieben^^ diese programm reduziert die Memoryauslastung des processes des momentan aktiven Fensters. Also z.b. wenn momentan der firefox gestartet ist und man das programm startet, wird die memorylast von firefox.exe kurzzeitig auf 0 gestellt (das geht natürlich sofort wider hoch, aber meist nie soweit wie am anfang (ausser beim firefox, da geht es rechtschnell wider in den anfangszustand))
vlt kanns ja jemmand gebrauchen (ich z.b. brauch es wenn ich google earth und firefox usw gleichzeitig gestartet hab..habs bei mir auch auf nem hotkey laufen (über die G15))
Hier nun das skript, beendet wird es mit ESC und 100% ist der Anfangs zustand(vor der Bereinigung)!
;#################
;# Reduce Memory #
;# By Gtaspider #
;#################
;Includes
#include <process.au3>
#include <GUIConstants.au3>
;Optionen/Hotkeys
HotKeySet("{ESC}","_exit")
Opt("WinTitleMatchMode", 4)
$taskbar_pos = WinGetPos("classname=Shell_TrayWnd")
$taskbar_pos = $taskbar_pos[3]
Opt("WinTitleMatchMode", 1)
;Globals
Global $pid,$name,$startram,$Proggui
;Auslesen des Processes des momentanen Fensters
$title = WinGetTitle("")
$pid = WinGetProcess($title)
$name = _ProcessGetName($pid)
If $name = "explorer.exe" Then
$name = InputBox("", "process name:", "explorer.exe")
$pid = ProcessExists($name)
EndIf
If Not $pid Then Exit
;Den Anfangs ram (vor der Bereinigung) auslesen
$startram = _GetRam($pid)
;GUI
$Proggui = GUICreate("", 296, 50, @DesktopWidth - 296, @DesktopHeight- (50 + $taskbar_pos), $WS_POPUP,$WS_EX_TOOLWINDOW)
WinSetOnTop($Proggui, "", 1)
GUISetBkColor(0x004F4F)
$Progress = GUICtrlCreateProgress(8, 8, 278, 16)
GUICtrlSetData(-1, 100)
$lab = GUICtrlCreateLabel("100%", 132, 8, 30, 16, $SS_SUNKEN)
GUICtrlSetColor(-1, 0x00FFFF)
$kllab = GUICtrlCreateLabel($name & " Uses: " & $startram & "kb", 8, 32, 275, 17)
GUICtrlSetColor(-1, 0x00FFFF)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Proggui, "int", 500, "long", 0x00040008);slide-in from bottom
WinSetOnTop($Proggui, "", 1)
;Bereinigung der Memoryauslastung des Prozesses
[/autoit] [autoit][/autoit] [autoit];Prozess PID zu Prozess Handle
$Pr_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $pid)
;Memory wird auf 0 gestellt
DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $Pr_Handle[0])
;Prozess Handle wird geschlossen
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $Pr_Handle[0])
;Alle 750 ms nach dem RAM gucken
AdlibEnable("_UpdateRam", 750)
;Main While, damit das Skript nicht beendet wird
While 1
Sleep(1000)
WEnd
;_exit, beendet das Skript mit einem fade out der GUI
Func _exit()
DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $Proggui, "int", 500, "long", 0x00090000 );fade-out
Exit
EndFunc
;_UpdateRam, gut sich alle 750ms an wieviel Memoryauslastung der Prozess hat
Func _UpdateRam()
If Not ProcessExists($pid) Then
AdlibDisable()
GUICtrlSetData($Progress,0)
For $i = 30 To 0 Step - 1
$set = $i
If StringLen($set) < 2 Then $set = "0" & $i
$set = StringLeft($set, 1) & "." & StringRight($set, 1)
GUICtrlSetData($kllab,$name&" was terminated! Exit in "&$set)
GUICtrlSetData($lab,$set)
Sleep(100)
Next
_exit()
EndIf
$ram = _GetRam($pid)
GUICtrlSetData($kllab, $name & " Uses: " & $ram & "kb")
$prog = (100 * $ram) / $startram
GUICtrlSetData($Progress, $prog)
GUICtrlSetData($lab, Round($prog) & "%")
Return 1
EndFunc ;==>_UpdateRam
;_GetRam($iProcPid), gibt die Memoryauslastung der angegebenden PID zurück
Func _GetRam($iProcPid)
Local $colItems = "",$Output = ""
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process", "WQL", 0x30)
If IsObj($colItems) Then
For $objItem In $colItems
If $objItem.ProcessId = $iProcPid Then Return $objItem.WorkingSetSize / 1024
Next
Else
MsgBox(48, "WMI Output", "No WMI Objects Found for class: " & "Win32_Process")
Exit
EndIf
EndFunc ;==>_GetRam
Mfg Spider
Edit: nur eine kleine unschönheit.. unten in der taskleiste wird die gui angezeigt, das ist nun gefixt..
Edit2:Wenn der Prozess beendet wird, schließt sich das Programm nach 3 sekunden. Ausserdem Reduce im Thematitel geschrieben anstatt Reduze
Hallo!
Sorry, da an diesem projekt nich weitergerabeitet wird, und da bisher zuviele bugs drin sind, habe ich die arbeit eingestellt! den neuen Chat (der zimlich änlich aufgebaut ist und auch von mir ist) gibts hier: TCP/IP Chat + RSA Verschlüsselung!
Mfg Spider
Hallo!
Sonst vlt auhc nochmal nach Ceilling (hochrunden) und Floor(Runterrunden) in der hilfe gucken
Mfg Spider
Hallo!
Also, bei labels ist das kein problem! einfach 2 labels hintereinander packen das eine mit der einen text farbe, das andere mit einer anderen..
beim edit ist es auch noch mit Tricks möglich... in dem man statt GuiCtlrCreateEdit ein RTF Edit nimmt (siehe mein RSA Chat..)
Bei Comboboxen geht es, soweit ich weiß, nicht!
Mfg Spider
Hallo!
Ja... ich habe auch momentan 153 spams (habe vor 2 wochen meinen spamordner geleert...) in meinem Spamordner von GMX.. zumglück macht gmx das automatisch.. Ist aber schon hart, was manche sich ausdenken...
Ich verstehe vorallem nich woher die ganzen emails kommen... bei nicht so vertrauenswürdigen seiten benutz ich normalerweise Spambog trozdem schaffen es die spammer immer wider an meine emailadresse zu kommen...
Naja.. aber da bin ich ja nochmal ganz gut weg gekommen imgegensatz zu pee
Mfg Spider
Hallo!
Erstmal: welche IP Adresse? Deine WAN oder deine LAN ip adresse? bei lan die version von Waluev/daniel w. benutzen
bei wan:
hast du dsl? eine statische ip oder dynamisch ip?
Mfg Spider
Hallo!
Schönes selbstgespräch Also, es gibt z.b. XSkin im englishcen forum, der hat das auch irgendwie gelöst! Oder du machst es so wie z.b. hier: Analog Clock
Mfg Spider