Deskmodder.de

Verfasst: **18.01.2004, 21:25**

Hier sollen alle Fragen zu dem o.a. Thread ( http://www.deskmodder.de/phpBB3/viewtopic.php?t=450 ) rein

Verfasst: **18.01.2004, 21:27**

@Strictly4me:

Habe jetzt nach ca. 1,5 Stunden alle 5 Configs für das 5in1-Skript erstellt, aber es will einfach nicht umschalten!

Beispiel:

wenn ich jetzt vom Pod1 auf Pod2 wechseln will, dann passiert gar nix. Wenn ich aber die Client.exe beende und dann wieder starte, dann kommt gleich der Pod2.

Anscheinend schaltet er um, aber zeigt mir die nächste Config nicht.

Hast Du da eine Idee?

Verfasst: **18.01.2004, 23:13**

Also bei mir läuft es tadellos.

Hast Du alle Configs neu erstellt oder hast die Config die ich zum Download freigegeben habe, umgearbeitet?

Melde Dich per ICQ!

((((( Strictly4me )))))

Verfasst: **19.01.2004, 20:26**

Habe die Configs selbst erstellt (habe Version 1.16) und Deine Pfeil-PNG's UND die darüberliegenden Verknüpfungen zum Skript hinzukopiert.

Verfasst: **19.01.2004, 20:49**

Also ich hatte das Prob auch einmal.

Ich habe dann die von mir erstellte Configs mit den alten von der Zip zusammengemergt und habe alles bis auf die Verknüpfungen zur anderen Config rausgelöscht, was ich nicht brauchen konnte. Dann ging es, komischerweise!

Versuch das mal.

((((( Strictly4me )))))

Verfasst: **19.01.2004, 21:06**

Habe jetzt den nachstehenden Code (der Inhalt der "Restart Pod.vbs") jeweils am Ende der "taskbar refresh.vbs" und der "Taskbar Refresh Left.vbs" eingefügt:

Code: Alles auswählen

Set WshShell = WScript.CreateObject("WScript.Shell")

set oShell = CreateObject("Shell.Application")



strSamPath = WshShell.RegRead ("HKCU\Software\Serious Samurize\General\DirPath")



SAMURIZE_DIRECTORY = strSamPath



KillClient



Wscript.sleep (100)

Set oExec = WshShell.Exec(SAMURIZE_DIRECTORY & "Client.exe " & """Pod""")



Set oExec = Nothing

Set WshShell = Nothing







Function KillClient

  Dim objWMIService, colProcessList, objProcess, PID

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

    Set colProcessList = objWMIService.ExecQuery("select * from Win32_Process where CommandLine LIKE '%Client.exe%" & "Pod" & "%'")

    For Each objProcess in colProcessList

      PID = objProcess.ProcessID

      killPID(PID)

    Next

End Function



Function killPID(PID)

  Dim WshShell

  Set WshShell = CreateObject("wscript.shell")

  WshShell.run "taskkill /PID " & PID, 0

End Function

Denn durch die 2 Refresh-vbs wird nur die Instanz gewechselt, jedoch nicht neu gestartet - das macht ja die Restart-vbs.

Darum einfach am Ende der zwei o.a. Skripte einfügen - funzt tadellos.

Verfasst: **19.01.2004, 21:18**

Hmmm und warum geht es dann mit den originalen POD's?

((((( Strictly4me )))))

Verfasst: **19.01.2004, 21:21**

K.A.

Bei Dir funzt es, bei mir funzt es mit dem Zusatz - lassen wir's dabei, wenn's so läuft

Verfasst: **19.01.2004, 21:25**

Na ist doch eigenartig, oder?

Haben die originalen POD's bei Dir auch nicht gefunzt, oder wie?

((((( Strictly4me )))))

Verfasst: **19.01.2004, 21:27**

Nein, die funzten auch nicht.

Komisch ist das allemal...

Verfasst: **19.01.2004, 21:29**

Versteh ich ehrlich gesagt nicht.

Bei Tombik haben sie auch funktioniert.....weiss aber wem, bei dem sie auch nicht gingen!

Sehr misteriös!

((((( Strictly4me )))))

Verfasst: **19.01.2004, 21:48**

Gehört zwar nicht ganz hier rein, aber bei mir sieht das jetzt so aus:

Bild

Verfasst: **19.01.2004, 21:49**

Geil....... Bild

((((( Strictly4me )))))

Verfasst: **19.01.2004, 21:51**

*auchgeilfind*

BTW: schon über 5000 Postings - wo bleibt die Flasche Sekt?

Verfasst: **19.01.2004, 23:05**

Sag mal, der Code gehört ganz unten reinkopiert?

Unter diesen Zeilen:

Set WshShell = Nothing

End Function

oder gehören diese beiden rausgelöscht?

((((( Strictly4me )))))

Deskmodder.de

Fragen zu den selbstgebastelten Konfigurationen

Fragen zu den selbstgebastelten Konfigurationen