Wątek: [MortScript] Przydatne skrypty, rozwiązania.

[nothin]

..pytanie:
mamy w trayu ikonki;
teraz: w jaki sposób wywołać funkcje/menu tych ikon w hs++, nie mówię o ikonach traya hs++, choć przyda się też kod dla hs++ do obsługi i tych także(szczególnie menu phone).
czy mort moze w jakiś sposób pomóc w temacie menusów traya - w moim przypadku wifi i bt mogę w prosty włączyć tylko z menu ikon tychże w trayu - przy czym menusy te mają też odniesienia do konfiguratorów wifi i bs.

zależy mi na możliwości obsługi menusów tych ikon z poziomu hs++ przy sytuacji, gdy tray jest pernamentnie niewidoczny(brak today).

[utak3r]

hmmmm....
w HS++ te menu wywołujesz poleceniami MenuPhone, MenuBluetooth i MenuWiFi (tak jak np. w moim temacie jest np.:

Kod: [Zaznacz]

<Item class="registry_tracker" ontap="PhoneMissed" onhold="MenuPhone" absolute="1" selmode="6" >
<image src="MissedBtn%d.png" left="8" width="20" height="20" />
<label text="%d" suppress0="1" left="-4" width="26" align="center">
<registry key_value="HKCU\System\State\Phone\Missed Call Count" />
</label>
</Item>


A co do innych metod.... można mortem symulować tapnięcia i takie tam, ale problem pozostaje w namierzeniu punktu, w którym trzeba tapnąć.... nie myślałem nigdy nad tym 

[nothin]

poprawiłem wpis:

..menus z mscr-a, czemu mi się zdawało, że się nie da..

Kod: [Zaznacz]

ErrorLevel("off")

SetChoiceEntryFormat(39, 27, "EFN Straight new")

Choice "menusek", "menus", "cecmd", "sr", "tskchg", "off"
case 1
run("windows\cecmd.exe")
case 2
Run("Restart.exe")
case 3
Run("storage card\"tskchg.mscr")
case 4
Run("\Windows\PowerKey.exe")
EndChoice
Exit


[mobi]

może komuś podpasuje program VipMSCRexe
to coś powoduje, że nie trzeba podawać ścieżki do skryptu



->> źródło

[utak3r]

proxy   coś a'la vjbrun. Fajne, może się komuś przydać.

[motyk344]

Witam
Mam pytanie czy za pomoca skryptu da rade zabezpieczyc pocketa przed rozladowanien (np z spv m600 mialem taki problem i napewno nie tylko ja  po rozladowaniu niechcial wstac).Wylaczy go np: gdy bedzie 5% bateri. Ja w pisaniu skryptow jestem  zielony wiec prosze o  odp na moje pytanie       

[utak3r]

hm, problem jest z wyłączeniem, musiałbyś mieć jakiegoś małego exeka, który to realizuje. Z poziomu mortscripta masz do dyspozycji tylko uśpienie... chociaż, z drugiej strony, w smartphonach nie ma czegoś takiego, jak uśpienie, trudno przewidzieć, jak to zadziała - może tak, jak chcesz, może w ogóle... ale poszukaj jakiegoś exeka do tego, to będziesz mógł użyć.

Piszę teraz z pamięci, nie mam pojęcia, czy zadziała, spróbuj:

Kod: [Zaznacz]

while (1)
  if (BatteryPercentage() < 10)
    PowerOff
  endif
endwhile

Spróbuj i daj znać, jak efekty.


dodano: Sobota, 28 Luty 2009, 00:18

..i scaliłem z odpowiednim wątkiem.

[motyk344]

na smartphonie nie dziala wyskakuje error unknown function  batteryprocentage line if (BatteryPrecentage() < 10) ma ppc nie mialem okazji sprawdzic (lezy w szufladzie martwy) Moze to wina wersji mojego mortsctripta mam 4.1


dodano: Sobota, 28 Luty 2009, 20:40
choc PowerOff dziala na smartphonie

[utak3r]

unknown function  batteryprocentage line if (BatteryPrecentage() < 10)

ten komunikat przepisywałeś ręcznie? Chodzi mi o to, że tutaj aż dwukrotnie źle napisałeś nazwę funkcji, co może sugerować, że w skrypcie również źle to napisałeś, sprawdź to.

choc PowerOff dziala na smartphonie

w jaki sposób? wyłącza całkiem?

[motyk344]

tak calkowicie  po nacisnieciu na skrypt momentalnie sie wylacza


dodano: Sobota, 28 Luty 2009, 22:26
pisalem ręcznie
sprawdze to 

[motyk344]

moj bład poprawilem i jest ok
Wielkie dzieki :-)

[utak3r]

Czyli cały skrypt działa? no to ok.

[mr_deimos]

Piszę teraz z pamięci, nie mam pojęcia, czy zadziała, spróbuj:

Kod: [Zaznacz]

while (1)
  if (BatteryPercentage() < 10)
    PowerOff
  endif
endwhile


Tylko może w tym skrypcie dodaj linijkę:

Kod: [Zaznacz]

Sleep(10000)
przed endWhile? Po co ma non-stop sprawdzać stan baterii skoro starczy co jakieś 10 sekund?

[utak3r]

jasne, że tak nawet większy sleep, powiedzmy 60000 i więcej...

[globalbus]

wersja konfiguratora bsweather współpracująca z nową wersją mortscripta (4.2)
//tak, w końcu się przesiadłem

Kod: [Zaznacz]

#config
lock = 1

tryb = Choice("BSWeather","Wybierz tryb","Edycja",0,"Edycja", "Nowy")
If(tryb=1)
If(RegValueExists("HKLM","Software\BSWeather","path" ))
dir = RegRead("HKLM","Software\BSWeather","path" )
else
dir = SelectDirectory( BSWeather, "wybierz ścieżkę zapisu pliku konfiguracyjnego")
endif
in = ReadFile( dir&"\bsweather.xml", 0, "unicode")
split1 = Split( in, "City>")
coe1a = ElementCount(split1)
number = (coe1a-1)/2
for index=1 to number
loop = index*2
split[1] = Split( split1[loop], "Name>")
length = length(split[1][2])
name[index] = substr(split[1][2], 0, length-2)
split[2] = Split( split1[loop], "Code>")
length = length(split[2][2])
code[index] = substr(split[2][2], 0, length-2)
Next
name[0] = ""
code[0] = ""
elseif(tryb=2)
dir = SelectDirectory( BSWeather, "wybierz ścieżkę zapisu pliku konfiguracyjnego")
coe1a=1
number=1
else
exit
endif
number = Input("Wpisz liczbę obsługiwanych miast","BSWeather",Yes,NO,number)
If(number>lock and not lock=0)
number = lock
endif
if(number>0)
for licznik = 1 to number
if(licznik > (coe1a-1)/2)
index = 0
else
index = licznik
endif
city[licznik] = Input("Wpisz nazwę miasta numer "&licznik, "BSWeather",NO,NO,name[index])
id[licznik] = Input("Wpisz kod miasta numer "&licznik, "BSWeather",NO,NO, code[index])
Next
header = "<?xml version=""1.0"" encoding=""unicode"" ?><BSWeather>"
footer = "<Error>Show</Error><Proxy>0</Proxy></BSWeather>"
details=""
for licznik = 1 to number
details=details&"<City><Name>"&city[licznik]&"</Name><Code>"&id[licznik]&"</Code><Unit>metric</Unit></City>"
Next
output=header&details&footer
RegWriteString("HKLM","Software\BSWeather","path",dir)
WriteFile(dir&"\bsweather.xml",output, NO, "unicode")
else
exit
endif