Środa, 23 Maj 2012, 18:31

Autor Wątek: [MortScript] Przydatne skrypty, rozwiązania.  (Przeczytany 30373 razy)

0 użytkowników i 1 Gość przegląda ten wątek.

Offline globalbus

  • GZU
  • Core
  • ****
  • Wiadomości: 1969
  • Podziękowań: 77
  • Płeć: Mężczyzna
  • N900 + Zest
[MortScript] Przydatne skrypty, rozwiązania.
« dnia: Niedziela, 21 Grudzień 2008, 14:58 »
Postanowiłem rozpocząć nowy temat dotyczący skryptów mort, dzięki którym można zautomatyzować pewne procesy i tworzyć proste programiki, na początek jeden już zamieszczony skrypt do sterowania funkcją gestów + jeden nowy do sterowania eT9
Gesty
Gesture = RegRead("HKCU","ControlPanel\Gestures\Touch","Disabled")
If(Gesture=1)
q = "włączyć"
Else
q = "wyłączyć"
EndIf
If(Question( "Czy chcesz "&q&" obsługę gestów?", "Pytanie","YesNo"))
RegWriteDWord("HKCU","ControlPanel\Gestures\Touch","Disabled",NOT Gesture)
reset
EndIf

eT9 Setting
T = RegRead("HKLM","System\CurrentControlSet\Control\Layouts\e0010409","Ime File")
If(T eq "\windows\eT9ime.dll")
q = "wyłączyć"
alternate = "\windows\compime.dll"
alternate2 ="COMP IME"
Else
q = "włączyć"
alternate = "\windows\eT9ime.dll"
alternate2 ="eT9 IME"
EndIf
If(Question( "Czy chcesz "&q&" obsługę eT9?", "Pytanie","YesNo"))
RegWriteString("HKLM","System\CurrentControlSet\Control\Layouts\e0010409","Layout Text", alternate2)
RegWriteString("HKLM","System\CurrentControlSet\Control\Layouts\e0010409","Ime File", alternate)
reset
EndIf

Nue NoBar toggle
noBar = RegRead("HKLM","Services\nueNoBar","Flags")
If(noBar=2)
q = "włączyć"
noBar = 4
Else
q = "wyłączyć"
noBar = 2
EndIf
If(Question( "Czy chcesz "&q&" pasek z softkey'ami na today'u?", "Pytanie","YesNo"))
RegWriteDWord("HKLM","Services\nueNoBar","Flags", noBar)
reset
EndIf

Strona autorów mortscript
« Ostatnia zmiana: Niedziela, 21 Grudzień 2008, 15:52 wysłana przez globalbus »

Online mobi

  • Administrator
  • Core
  • *****
  • Wiadomości: 19421
  • Podziękowań: 314
  • Płeć: Mężczyzna
  • HTC HD2 #TyphooN CyanogenMod 7#
    • mobione.pl
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #1 dnia: Niedziela, 21 Grudzień 2008, 15:19 »
dodam tylko, że chodzi o włączanie/wyłączanie w/w usług  :)
HD2 - wciąż ten sam telefon, wciąż inne wrażenia :)

Offline globalbus

  • GZU
  • Core
  • ****
  • Wiadomości: 1969
  • Podziękowań: 77
  • Płeć: Mężczyzna
  • N900 + Zest
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #2 dnia: Niedziela, 21 Grudzień 2008, 15:25 »
wolę napisać proste skrypty niż grzebać za każdym razem w rejestrze
jeszczę zrobię jakiś skrypt do przełączania DPI, bo po co komu cała kobyła o nazwie "realvga", która zmienia raptem 3 klucze w rejestrze?

Offline Ham3r

  • GZU
  • Core
  • ****
  • Wiadomości: 1806
  • Podziękowań: 50
  • Płeć: Mężczyzna
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #3 dnia: Niedziela, 21 Grudzień 2008, 15:38 »
jeszczę zrobię jakiś skrypt do przełączania DPI, bo po co komu cała kobyła o nazwie "realvga"
Popieram.

Online Sainti

  • GZU
  • Core
  • ****
  • Wiadomości: 1307
  • Podziękowań: 97
  • Płeć: Mężczyzna
  • HTC Mozart
    • Mój sieciowy kącik

Offline globalbus

  • GZU
  • Core
  • ****
  • Wiadomości: 1969
  • Podziękowań: 77
  • Płeć: Mężczyzna
  • N900 + Zest
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #5 dnia: Wtorek, 23 Grudzień 2008, 16:48 »
Ustawianie DPI
realvga = RegRead("HKLM","Drivers\Display\GPE","LogicalPixelsX")
realvga = Input("Upewnij się, że zainstalowałeś paczkę z zasobami pod dane DPI", "Ustaw DPI", Yes , No , realvga)
RegWriteDWord("HKCU","Software\Microsoft\Today","DPI", realvga)
RegWriteDWord("HKLM","Drivers\Display\GPE","LogicalPixelsX", realvga)
RegWriteDWord("HKLM","Drivers\Display\GPE","LogicalPixelsY", realvga)
Message("DPI zostało ustawione")
reset




dodano: Niedziela, 21 Grudzień 2008, 17:23
baaaardzo proste przymuszenie użytkownika do resetu PDA po kalibracji (żałośnie proste, że też wcześniej na to nie wpadłem)
Message("Click OK for reset the device", "Reset")
Delete("\Windows\Autostart\startup.lnk")
reset

Offline Ham3r

  • GZU
  • Core
  • ****
  • Wiadomości: 1806
  • Podziękowań: 50
  • Płeć: Mężczyzna
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #6 dnia: Wtorek, 23 Grudzień 2008, 16:58 »
A ja dodam MortRunner'a

Wystarczy że plik mortrunner.exe zmienimy na taką samą nazwę jak plik MortScript'a (*.mscr), tylko z końcówką .exe i możemy sobie taką aplikację podpiąć np. do Ustawień ;)

Offline mr_deimos

  • GZU
  • Senior
  • ****
  • Wiadomości: 355
  • Podziękowań: 19
  • Płeć: Mężczyzna
  • HTC G1 (chwilowy odpoczynek od WinMo)
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #7 dnia: Wtorek, 23 Grudzień 2008, 17:21 »
To ja dodam coś od siebie - prościutki skrypt włączający/wyłączający bluetooth dla tosi g900, który mam podpięte pod przycisk w HS++:
runwait( "/windows/ledup.exe","0 1" )
runwait( "/windows/ledup.exe","0 0" )
Run( "\windows\tfbluetooth.exe" )
Nic fenomenalnego, ale potwierdzenie wibracją że trafiliśmy w przycisk i skrypt zaskoczył to całkiem fajna sprawa (polecenie Vibrate mortscripta nie działa na g900, więc jest potrzebny ledUp).

włączenie/wyłączenie ftouchSL:
Brightness = RegRead ("HKCU", "ControlPanel\Backlight", "Brightness")

If(ProcExists("ftouchsl.exe"))
Kill("ftouchsl.exe")
RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", 50)
Sleep(100)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", Brightness)
else
Run("\Program Files\FTouchSL\ftouchsl.exe")
RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", 255)
Sleep(100)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", Brightness)
endif

Exit
Skrypt dostosowany do g900 (ewentualnie innych urządzeń z zakresem regulacji jasności 0-255), wyłączenie ftouchSL jest sygnalizowane chwilowym przygaszeniem podświetlenia, włączenie sygnalizuje pojaśnienie ekranu.

W wizardzie do sygnalizacji stanu ftouchSL-a używałem wibry:
If(ProcExists("ftouchsl.exe"))
Kill("ftouchsl.exe")
Vibrate(300)
Sleep(70)
Vibrate(50)
else
Run("\Program Files\FTouchSL\ftouchsl.exe")
Vibrate(50)
Sleep(70)
Vibrate(300)
endif
Exit
Długa wibracja, potem krótka informowała o zamknięciu ftouchsl-a, a odwrócona kolejność - włączenie.
Oczywiście można to samo zrobić wchodząc w ustawienia ftouchSL-a, ale problem jest taki, że sama aplikacja do ustawień odpala się strasznie długo.

Ogólnie polecam korzystanie z tego typu sygnalizacji (wibra, podświetlenie) dla skryptów, które przełączają coś pomiędzy kilkoma stanami.

Offline Ham3r

  • GZU
  • Core
  • ****
  • Wiadomości: 1806
  • Podziękowań: 50
  • Płeć: Mężczyzna
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #8 dnia: Wtorek, 23 Grudzień 2008, 17:46 »
Cytuj
If(Question( "Wolna pamięć RAM:"&FreeMemory(KB)&"KB. Czy chcesz zwolnić pamięć?", "Pytanie","YesNo"))
   Run("\Windows\Hibernate.exe")
EndIf

Pokazuje ile jest wolnej pamięci w KB i pyta czy uruchomić Hibernate..

Offline globalbus

  • GZU
  • Core
  • ****
  • Wiadomości: 1969
  • Podziękowań: 77
  • Płeć: Mężczyzna
  • N900 + Zest
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #9 dnia: Wtorek, 23 Grudzień 2008, 18:01 »
hibernate niestety na g900 nie działa

nothin

  • Gość
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #10 dnia: Wtorek, 23 Grudzień 2008, 18:41 »
hibernate niestety na g900 nie działa

tzn, ze co sie dzieje, to ciekawe..

Offline globalbus

  • GZU
  • Core
  • ****
  • Wiadomości: 1969
  • Podziękowań: 77
  • Płeć: Mężczyzna
  • N900 + Zest
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #11 dnia: Wtorek, 23 Grudzień 2008, 18:47 »
też się dziwię, pierwszego dnia to zauważyłem
po prostu aplikacja nie uruchamia się, nie wysypuje żadnego komunikatu. Najgorsze jest to, że nie znam zamiennika...

lupus

  • Gość
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #12 dnia: Wtorek, 23 Grudzień 2008, 20:08 »
też się dziwię, pierwszego dnia to zauważyłem
po prostu aplikacja nie uruchamia się, nie wysypuje żadnego komunikatu. Najgorsze jest to, że nie znam zamiennika...

closa apps też nie działa-zawiesza system :) czy to nie czasem kwestia builda???

ps: żadna aplikacja typu hibernate mi nie działała, poza QuickMenu jest tam opcja - hibernuj- ale cińko działa

Offline globalbus

  • GZU
  • Core
  • ****
  • Wiadomości: 1969
  • Podziękowań: 77
  • Płeć: Mężczyzna
  • N900 + Zest
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #13 dnia: Wtorek, 23 Grudzień 2008, 20:35 »
począwszy od wm6 nie działało, ale kończmy offtopa

Offline Chester

  • Global Moderator
  • Core
  • *****
  • Wiadomości: 1184
  • Podziękowań: 26
  • Płeć: Mężczyzna
  • Sprzęt: HTC Sensation
  • GaduGadu: 1171845
Odp: [MortScript] Przydatne skrypty, rozwiązania.
« Odpowiedź #14 dnia: Środa, 24 Grudzień 2008, 22:00 »
Jak wiadomo Manilla 2D wysypuje się w trybie landscape. A może da radę napisać skrypt który przy rozłożeniu klawiaturki(czyt. zainicjowaniu landscape) wyłączałby plugin today M2D?
Prawdziwy mężczyzna nie je miodu, tylko żuje pszczoły...