Beiträge von funkey

Ich denke du wirst beim Rechner deiner Mitbewohnerin doch etwas umstellen müssen, damit der Ping funktioniert. Sollte eigentlich kein Problem sein. Hier eine Anleitung:
http://www.win-tipps-tweaks.de/cms/vista-tipp…m-netzwerk.html

Bei mir gibt's das Problem auch, nach einigen Minuten ändern sich die Farben nicht mehr richtig. Außerdem wurde mein PC ziemlich langsam, sodass ich das Skript beenden musste, da ich befürchtete, dass bald ein Bluescreen kommt.

WinSetTrans

$Voller_Name = "Jörg Müller"
$Name_conv = StringLower(StringReplace(StringReplace(StringReplace($Voller_Name,"ü","ue"),"ö","oe"),"ä","ae"))
$Name_split = StringSplit($Name_conv, " ")
$Name = StringLeft($Name_split[1], 1) & "." & $Name_split[2]

MsgBox(0,"Benutzername",$Name)

Da gibt's ja die super Funktion AdLibEnable, hatte ich ja ganz vergessen, damit kann das Programm normal ablaufen und zyklisch überprüft werden, ob ein Key gedrückt wurde.

#include <misc.au3>
Global $dll = DllOpen("user32.dll")

AdlibEnable("_IsAnyKeyPressed",100)

$j = 99
While 1
ToolTip("In "&$j&" Sekunden ist das Skript aus!")
Sleep(1000)
$j -= 1
;Also alles hier rein was noch zu erledigen ist!
WEnd

AdlibDisable()
DllClose($dll)

Func _IsAnyKeyPressed()
For $i = 0 to 255
if (_IsPressed(Hex($i), $dll)) Then Do_something()
Next
EndFunc

Func Do_something()
MsgBox(0,"","Irgendetwas wurde gedrückt, sonst wäre dieses Fenster nicht zu sehen!")
EndFunc

Aha, jetzt hab ich dich verstanden. Mein Beispiel führt das Skript aus, dann wartet es auf eine Eingabe, dann macht es weiter.

Noch ein Beispiel:

#include <misc.au3>
$dll = DllOpen("user32.dll")

For $i = 5 To 1 Step -1
ToolTip("In "&$i&" Sekunden geht's weiter")
Sleep(1000)
Next
ToolTip("Ich, das Skript, warte bis du irgendetwas drückst, bevor ich weitermache")

While 1
Local $val
$val = _IsAnyKeyPressed()
if ( $val > -1 ) Then
Do_something()
EndIf
WEnd

Func Do_something()
ToolTip("So hier geht das Skript weiter!")
MsgBox(0,"","Irgendetwas wurde gedrückt, sonst wäre dieses Fenster nicht zu sehen!")
;Also alles hier rein was noch zu erledigen ist!
Exit
EndFunc

Func _IsAnyKeyPressed($start = 0, $end = 255)
For $i = $start to $end
if (_IsPressed(Hex($i), $dll)) Then return $i
Next
return -1
EndFunc

Du musst aber etwas mit Hotkeyset basteln und zyklisch die Mausposition abfragen. Das ist jetzt ein klein wenig schwieriger, aber auch zu schaffen. Ich habe jetzt leider keine Zeit, dir ein solches Beispiel zu basteln, vllt später oder jemand anderes!?

mfg funkey

Wo ist da das Problem?

#include <misc.au3>
$dll = DllOpen("user32.dll")
Sleep(1000)

Func _IsAnyKeyPressed($start = 0, $end = 255)
For $i = $start to $end
if (_IsPressed(Hex($i), $dll)) Then return $i
Next
return -1
EndFunc

while(true)
Local $val
$val = _IsAnyKeyPressed()
if ( $val > -1 ) Then
Do_something()
EndIf
WEnd

Func Do_something()
MsgBox(0,"","Irgendetwas wurde gedrückt, sonst wäre dieses Fenster nicht zu sehen!")
;Installiere 20 Programme
Exit
EndFunc

Aus dem englischen Forum:

#include <misc.au3>
$dll = DllOpen("user32.dll")

Func _IsAnyKeyPressed($start = 0, $end = 255)
For $i = $start to $end
if (_IsPressed(Hex($i), $dll)) Then return $i
Next
return -1
EndFunc

while(true)
Local $val
$val = _IsAnyKeyPressed()
if ( $val > -1 ) Then
MsgBox(0, "", "You press the " & Chr($val) & " key.")
EndIf
WEnd

Keine Ahnung welche ControlID die Adresszeile des Firefox hat, aber dafür ist ja das Tool 'AutoIt Window Info' zustandig, das mit der Autoit-Installation mitgeliefert wird. Damit kannst du alles Wissenswerte über das gewünschte Fenster erfahren.

Nichts zu danken! Ich persönlich hätte es aber doch mit ControlGetText gelöst. Ist mir einfach sympathischer. 'Edit1' getestet auf IE 7.

Opt("WinTitleMatchMode",2)
MsgBox(0,"Adresszeile", ControlGetText(WinGetTitle("Internet Explorer"),"","Edit1"))

Ich weiß jetzt nicht wieso es anders nicht geht, aber so geht es:

#include <IE.au3>
Opt("WinTitleMatchMode",2)
$fensterhandle = WinGetHandle(WinGetTitle("Internet Explorer"))
$oIE = _IEAttach ($fensterhandle,"hwnd")
$addr = _IEPropertyGet ($oIE, "LocationURL")
Msgbox(0, "Adresszeile", $addr)

Lass dir mal $fenstername in einer MsgBox darstellen, vllt kannst du dann einen Fehler erkennen. Normalerweise sollte es so funktionieren.

Hm, probier mal das

Run(@SystemDir&"\mmc.exe "&@SystemDir&"\services.msc")

Es gibt die Option WinTitleMatchMode. Schau sie dir in der Hilfe an.

Opt("WinTitleMatchMode",2)
$Fenstertitel = "\jre\bin\"

Dafür gibt's _IEAttach

#include <IE.au3>
$oIE = _IEAttach ($Fenstertitel)
$addr = _IEPropertyGet ($oIE, "LocationURL")
Msgbox(0, "", $addr)

Am besten schaust du dir den Befehl ControlGetText an.

ControlGetText($Fenstertitel,"","Edit1")

Im englischen Forum habe ich noch was gefunden: _ProcessListProperties

Die einfachste Lösung wird sein, wenn du den Taskmanager startest und dort die CPU-Auslastung ausliest. Am besten ist es, wenn du beim Taskmanager die Option 'Ausblenden, wenn minimiert' aktivierst.

If Not ProcessExists("taskmgr.exe") Then Run("taskmgr.exe","",@SW_MINIMIZE)
WinSetState("Windows Task-Manager","",@SW_MINIMIZE)

While 1
$CPULoad = StringTrimLeft(StatusBarGetText("Windows Task-Manager","",2),16)
msgbox(0,'CPU-Auslastung',$CPULoad)
WEnd

EDIt: Sorry, hab überlesen, dass du nur die Prozessorauslastung von einem Prozess willst.

Hab ne Freeware Icon-Sammlung von Andrew Watts von 1995 auf einer alten CD gefunden. Teilweise sind ganz nette Icons dabei. Es lohnt sich, das mal durchzuschauen.

Hm,

$i = 0
Do
$i +=1
If $i = 2 Then $i +=1
MsgBox(0,"",$i)
Until $i = 5