Beiträge von funkey

Wenn ich mich nicht verrechnet habe, dann sollte es so gehen

Run("rundll32.exe "& "shell32.dll,Control_RunDLL "&@SystemDir&"\KlimaControl.cpl,Klima Administration")

WinWait("Klima Administration","")
Do
ControlCommand("Klima Administration", '', 'SysTabControl321', 'TabRight', '')
Until StringInStr(WinGetText("Klima Administration"), '') <>5

WinActivate("Klima Administration","")
WinWaitActive("Klima Administration","")

$WinPos = WinGetPos("Klima Administration","")

MouseClick("right",$WinPos[0] + 197, $WinPos[1] + 124)
Sleep(100)
MouseClick("left",$WinPos[0] + 240, $WinPos[1] + 150)

Danke, dieser gefällt mir schon viel besser.

Nichts gegen dich Zuyop, aber ich finde deinen Avatar hier nicht so angemessen.

Also das Kontextmenü öffnet sich, oder?
Probier was du händisch mit der Tastatur machen musst, damit sich der Menüpunkt 'Neu anlegen' auswählen lässt. Vllt kannst du auch ein 'n' senden?
Könnte auch was bringen, wenn du nach dem ControlClick bzw. vor dem Send einmal WinActivate, damit das Fenster wieder aktiv wird, wenn es das nicht mehr ist. Testen kann ich es ja leider nicht, da ich das Programm nicht habe. Ich denke aber, dass das schon zu schaffen ist.

Zwar nicht schön, aber probier mal so:

ControlClick("Titel","","SysTabControl321","right")
Send("{Down}")
Send("{Enter}")

Kann sein, dass du 2x Down senden musst, einfach testen.

mfg funkey

So ungefähr

$Titel = WinGetTitle("Fenstertitel")
$handle = WinGetHandle($Titel)

While 1
If WinGetTitle($handle) <> $Titel Then WinSetTitle($handle,"",$Titel)
WEnd

Weil $H = "HWasserstoff" und $He = "HeHelium", also weil keine Übereinstimmung vorhanden ist wird die if-Schleife ohne Aktion beendet.

Ein bisschen könntest du auch selber kombinieren bzw. einfach mal improvisieren und testen. Dann hättest du es auch hinbekommen!

Global $Paused
HotKeySet("{ESC}", "TogglePause")

TogglePause()

;;;; Body of program would go here ;;;;
Func Click()
Sleep(250)
WinActivate("XXXXXXXXXxX: XXXXXXXXXXX, XXXXXXXXXX")
Sleep(250)
WinWaitActive("XXXXXXXXXxX: XXXXXXXXXXX, XXXXXXXXXX")
MouseClick ("left", 150, 465 , 1)
Sleep(250)
MouseClick ("left", 150, 525 , 1)
Sleep(250)
Run("C:\Programme\XXXXXXXX\Test.exe")
TogglePause()
EndFunc
;;;;;;;;

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
Click()
EndFunc

Global $Paused
HotKeySet("{ESC}", "TogglePause")

TogglePause()

;;;; Body of program would go here ;;;;
While 1
Sleep(100)
ToolTip('Script is "Running"',0,0)
WEnd
;;;;;;;;

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Laut

FOR /F "usebackq delims=\" %%s IN (`subst`) DO subst %%s /d

gibt es eine Datei 'subst' in der alle Laufwerke stehen, welche mit dem Befehl subst erzeugt wurden. Diese Datei könnte so aussehen: e:/f:/g:/h:/i:/j:

Ich habe aber noch einige Fehler in meinem Skript.
Wenn ich alles richtig verstanden habe sollte es so gehen:

$Subst = StringSplit(FileRead('subst'),'/')

For $i = 1 To $Subst[0]
Run(@ComSpec & " /c " & 'subst "'&$Subst[$i]&'" /d', "", @SW_HIDE) Next
Next

$Subst = StringSplit('subst','/')

For $i = 1 To $Subst[0]
Run(@ComSpec & " /c " & 'subst "'&$Subst[$i]&'"', "", @SW_HIDE)
Next

Aha, der Link war's . Dann lag's ja gar nicht an mir

Nettes kleines Tool. Gefällt mir sehr gut.

Zeile 19 ist falsch und sollte so lauten:

_IENavigate ($oIE, @scriptdir&"\Youtube.htm")

Ja, so würde ich es auch machen. Kann's leider jetzt nicht testen, aber so ungefähr:

Sorry, ich weiß überhaupt nicht wie ich dir helfen kann. Welche Werte willst du vom Scrollelement haben?

Ohne Gui mit Progressbar

$Sleeptime = 5 ;Sekunden
$SleepTimer = TimerInit()

$ProgressFull = $Sleeptime * 1000 / 100
ProgressOn("Vergangene Zeit","")
While 1
Sleep(50)
$SleepDiff = TimerDiff($SleepTimer)
ProgressSet($SleepDiff / $ProgressFull)
If $SleepDiff >= $SleepTime*1000 Then
ProgressOff()
MsgBox(0,"",$SleepDiff)
ExitLoop
EndIf
WEnd

Send("{CTRLDOWN}")
MouseClick("left", "10", "10", 1, 0)
Send("{CTRLUP}")

Habe ich doch schon erwähnt, das es verkehrt ist.

FileChangeDir(@ScriptDir)

DirCreate('dir')
FileWriteLine("test.txt","test")
MsgBox(0,"Hardlink", FileCreateNTFSLink("test.txt","dir\test.log",1))

Ich hab damit noch nichts gemacht. Hab's mir jetzt angeschaut ( das Hilfe-Beispiel ist verkehrt) und kam zu dem Schluss, dass es eigentlich wie das Kopieren funktioniert. Aber wofür ist das gut?

Ohne Garantie:

GUICtrlSetState($CheckST[$i],Execute(IniRead(@ScriptDir & "\temp.ini",$i,"ST","")))