Ogonki w SMSach i Mortscript w WM 6.5

Zapewne jest Wam znany skrypt do SMSów usuwający polskie ogonki. W WM6 i WM6.1 działał doskonale. Natomiast w WM6.5 już nie chce. Może ktoś zna jakieś sensowne rozwiązanie na to.

Skrypt jest prosty, ktoś tu kiedyś go wrzucał na forum, a wygląda tak:

#Made by ncc74656


q = ActiveWindow()

#Message(T)
SendCtrlKey (ActiveWindow(),  "A" )
SendCtrlKey (ActiveWindow(),  "C" )

q = ActiveWindow()

y=ClipText()

y = Replace( y, "ę", "e" )
y = Replace( y, "ą", "a" )
y = Replace( y, "ś", "s" )
y = Replace( y, "ń", "n" )
y = Replace( y, "ł", "l" )
y = Replace( y, "ó", "o" )
y = Replace( y, "ź", "z" )
y = Replace( y, "ż", "z" )
y = Replace( y, "ć", "c" )

y = Replace( y, "Ę", "e" )
y = Replace( y, "Ą", "a" )
y = Replace( y, "Ś", "s" )
y = Replace( y, "Ń", "n" )
y = Replace( y, "Ł", "l" )
y = Replace( y, "Ó", "o" )
y = Replace( y, "Ź", "z" )
y = Replace( y, "Ż", "z" )
y = Replace( y, "Ć", "c" )


SetClipText (y)

Show( q )
SendCtrlKey (q, "a")
SendCtrlKey (q, "v")

Exit

W WM6.5 nie zaznacza tekstu, nie kopiuje go do schowka. Ale jak się ręcznie zaznaczy obszar tekstu to w schowku następuje podmiana liter i skrypt wkleja taki obrobiony tekst do aktywnego okna, niestety nie kasuje przy tym tekstu zaznaczonego tylko wkleja od pozycji kursora.

Może ktoś już się bawił tym i ma jakiś pomysł?

Czyżby nikt z tego nie korzystał i nie próbował zmienić??

Bardzo proszę moda o przeniesienie do działu oprogramowanie, gdyż tutaj, jak widać, nikt tego nie stosuje.

Dziwna sprawa, u mnie na WM6.5 normalnie działa. Czy ktoś jeszcze ma z tym problem?

Hmm, na jakim Romie? i w standardowej aplikacji windowsowej do smsów?

Rom ugotowałem jakiś czas temu. Nie pamiętam co to była za kuchnia, na xda znalazłem. I w standardowej aplikacji działa. Generalnie to powinno działać w każdej aplikacji gdzie tylko można coś wpisać.

Zgadzam się, że powino, tylko ze akurat nie działa w provenie. Może winny jest temu sposób przewijania okna, bo to samo jest jak próbuję rysikiem zaznaczyć jakś tekst, zamiast zaznaczenia wszystko się przewija.

Poza oknem SMSów skrypt dalej działa prawidłowo, tylko w tej aplikacji ciś nie chce.

sry za odgrzewanie, ale mam dokładnie ten sam problem, może ktoś już znalazł odpowiedź?

Pamiętam, że u mnie też nie chciało działać i coś zmieniłem z pozytywnym skutkiem:

###
### SMS unAccent v0.5c by smartmadsoft
### For more useful software visit http://www.smartmadsoft.com
###
### MortScript 4.1 is required to run this script
### Go to http://www.sto-helit.de/modules/edito/content.php?id=38
### to download MortScript for your Smartphone
###

SendCtrlKey( "A" )
SendCtrlKey( "C" )
SendCtrlKey( "A" )
SendBackspace
Sleep 30
sms = ClipText()

### Czech accented characters ###
sms = Replace(sms, "á", "a")
sms = Replace(sms, "Á", "A")
sms = Replace(sms, "č", "c")
sms = Replace(sms, "Č", "C")
sms = Replace(sms, "ď", "d")
sms = Replace(sms, "Ď", "D")
sms = Replace(sms, "é", "e")
sms = Replace(sms, "É", "E")
sms = Replace(sms, "ě", "e")
sms = Replace(sms, "Ě", "E")
sms = Replace(sms, "í", "i")
sms = Replace(sms, "Í", "I")
sms = Replace(sms, "ň", "n")
sms = Replace(sms, "Ň", "N")
sms = Replace(sms, "ó", "o")
sms = Replace(sms, "Ó", "O")
sms = Replace(sms, "ř", "r")
sms = Replace(sms, "Ř", "R")
sms = Replace(sms, "š", "s")
sms = Replace(sms, "Š", "S")
sms = Replace(sms, "ť", "t")
sms = Replace(sms, "Ť", "T")
sms = Replace(sms, "ú", "u")
sms = Replace(sms, "Ú", "U")
sms = Replace(sms, "ů", "u")
sms = Replace(sms, "Ů", "U")
sms = Replace(sms, "ý", "y")
sms = Replace(sms, "Ý", "Y")
sms = Replace(sms, "ž", "z")
sms = Replace(sms, "Ž", "Z")

### + Slovak support ###
sms = Replace(sms, "ä", "a")
sms = Replace(sms, "Ä", "A")
sms = Replace(sms, "ĺ", "l")
sms = Replace(sms, "Ĺ", "L")
sms = Replace(sms, "ľ", "l")
sms = Replace(sms, "Ľ", "L")
sms = Replace(sms, "ô", "o")
sms = Replace(sms, "Ô", "O")
sms = Replace(sms, "ŕ", "r")
sms = Replace(sms, "Ŕ", "R")

### + Polish support ###
sms = Replace(sms, "ą", "a")
sms = Replace(sms, "Ą", "A")
sms = Replace(sms, "ć", "c")
sms = Replace(sms, "Ć", "C")
sms = Replace(sms, "ę", "e")
sms = Replace(sms, "Ę", "E")
sms = Replace(sms, "ł", "l")
sms = Replace(sms, "Ł", "L")
sms = Replace(sms, "ń", "n")
sms = Replace(sms, "Ń", "N")
sms = Replace(sms, "ó", "o")
sms = Replace(sms, "Ó", "O")
sms = Replace(sms, "ś", "s")
sms = Replace(sms, "Ś", "S")
sms = Replace(sms, "ź", "z")
sms = Replace(sms, "Ź", "Z")
sms = Replace(sms, "ż", "z")
sms = Replace(sms, "Ż", "Z")

### Paste unAccented text ###
SetClipText(sms)
SendCtrlKey( "V" )