Spartac

Δεν είμαστε καθόλου καλά μου φαίνεται... Πήρα τηλέφωνο, μου έλεγαν οτι μπορούν να μου δώσουν το Internet on the Phone με τα 100ΜΒ ή 300ΜΒ. Τις πρώτες 3-4 φορές που τους έλεγα για το ultimate, μου έλεγαν ότι υπαρχει το basic και το regular. Όταν τους ζήτησα επίμονα να μου πούνε *ξεκάθαρα* αν υπάρχει η όχι πακέτο ultimate μου είπανε ότι θα προωθήσουνε το αίτημα μου και θα με πάρουνε τηλέφωνο από Δευτέρα επειδή είμαι εταιρικός πελάτης... Σε ευχαριστώ πάρα πολύ αλάνι! Πραγματικά είναι να τραβάς τα μαλλιά σου με αυτούς τους τύπους...

Καλησπέρα! Είμαι ένας ευτυχής κάτοχος ενός Google Nexus One και όπως είναι φυσικό θέλω να έχω internet στο κινητό μου. Ήμουν συνδρομητής της Vodafone και πλέον έχω επαγγελματικό πρόγραμμα COSMOTE BUS. ΑΠΕΡΙΟΡΙΣΤΑ 40. Με μεγάλη μου λύπη διαπιστώνω ότι έχω τις εξής επιλογές (internet) από την Cosmote: Internet on the phone, 100MB, 5 euro/μήνα Internet on the phone, 300MB, 10 euro/μήνα ενω δεν έχω τις εξής επιλογές που φανταζόμουνα ότι θα μπορούσα να έχω: Ενεργοποίηση Internet on the go 1gb στην ίδια γραμμή, ~20 euro/μήνα Ενεργοποίηση Internet on the go 5gb στην ίδια γραμμή, ~30 euro/μήνα Νέα συνδρομή Internet on the go και χρήση της υπηρεσίας 2 in one (2 γραμμές σε μια sim) Πέρα από τα γενικά, ότι δηλαδή είμαστε μπανανία (ο αδερφός μου στην Ολλανδία πληρώνει 12 ευρώ για πραγματικά απεριόριστο internet στον κινητό και όχι τα "απεριόριστα" 3GB που δίνει η Vodafone), θέλω να σας ρωτήσω αν μου ξεφεύγει κάτι. Μήπως υπάρχει δηλαδή και κάποια άλλη επιλογή που δεν έχω βρει μέχρι τώρα; Ευχαριστώ εκ των προτέρων!

Εμένα μου δουλεύει κανονικά... Τι να πω; Μπορει να μην έχουμε την ίδια έκδοση του mortscript... Αφου σου δουλεύει έτσι, θα το δοκιμάσω και εγώ. Βρήκα επίσης ένα .exe που λέει ότι αλλάζει την κατάσταση του bluetooth αλλά δεν δουλεύει στο ks20 (θα ήταν προτιμότερο γιατί και πιο γρήγορα θα έτρεχε το script και δεν θα εμφανιζόταν η οθόνη του comm.manager)... @akis_kat Τρέξε τον file explorer και μετά κάνε κλικ στο Μενού --> Άνοιγμα διαδρομής --> Νέα διαδρομή --> Γράψε \\ στο κουτάκι που εμφανίζεται και πάτα το ΟΚ. Σε βγάζει σε μια οθόνη που λογικά έχει έναν φάκελο που λέγεται DestinatorApps. Κάνε κλικ πάνω στο DestinatorApps και στην επόμενη οθόνη κάνε κλικ στο Destinator. Λογικά στην επόμενη οθόνη βλέπεις διάφορα αρχεία ένα εκ των οποίων έχει το όνομα Destinator και έχει σαν εικονίδιο ένα τετραγωνο με ένα κόκκινο βέλος. Είναι όλα σωστά μέχρι εδώ; Αν όχι γράψε ακριβώς το path που έχεις τον destinator. Αν όχι μήπως το λάθος είναι εδώ: RunWait ("\Κάρτα Αποθήκευσης<Program Files\DestinatorApps\Destinator\Destinator.exe") Μήπως πρέπει να είναι σε RunWait ("\Κάρτα Αποθήκευσης\Program Files\DestinatorApps\Destinator\Destinator.exe")

Καταρχήν θα ήθελα να δώσω τα συγχαρητήρια μου στον andapo για το πολυ ωραίο scriptάκι! Δοκίμασα να το τρέξω αλλά είχα το bluetooth ανοιχτο, και την οθόνη γυρισμένη στα πλάγια, οπότε δεν μου δούλεψε όπως έπρεπε. Έψαξα λίγο στο net και ιδού ένα τροποποιημένο script που κάνει τα εξής: Ρωτάει τον χρήστη αν θέλει να τρέξει το Destinator με οριζόντιο η κάθετο προσανατολισμό της οθόνης και την προσαρμόζει ανάλογα. Ελέγχει αν το bluetooth είναι ανοιχτό. Αν είναι κλειστό το ανοίγει. Διαβάζει τις τιμές που έχουν τα διάφορα timeouts στη συνέχεια τα απενεργοποιεί ενώ ταυτόχρονα ορίζει την φωτεινότητα της οθόνης στο maximum. Δεν πέφτει δηλαδη η φωτεινότητα της οθόνης, ακόμα και αν δεν έχεις βάλει διαδρομή! Τρέχει το media player και το destinator. Όταν κλείσει ο destinator, κλείνει τον media player. Επαναφέρει όλες τις ρυθμίσεις για τα timeouts και την φωτεινότητα στην αρχική τους κατάσταση. Αν το bluetooth ήταν αρχικά κλειστό το κλείνει. Επαναφέρει την οθόνη στην αρχική της κατάσταση. To script είναι το εξής: ThisScriptName = "Destinator (script).mscr" #Check the screen's orientation If screen portrait Set ScreenOrientationWas, "portrait" ElseIf screen landscape Set ScreenOrientationWas, "landscape" EndIf #Choose orientation ans = Question ("Θέλετε να εκτελέσετε το Destinator με κατακόρυφο προσανατολισμό της οθόνης;", %ThisScriptName%, "YesNo") If (ans = 1) Rotate(0) Else Rotate(270) EndIf #Is bluetooth enabled? RegReadDWord HKLM, System\State\Hardware, Bluetooth, Bluetooth #It is disabled, so enable it! If Expression %Bluetooth% <= 8 Set BluetoothWas, "Off" AppDir = "\Windows" App = "wrlsmgr.exe" AppWindowName = "Ασύρμ. Διαχείρ." If (WndExists(AppWindowName)) Show(AppWindowName) Else Run(AppDir \ App) EndIf WaitForActive( AppWindowName, 10 ) Sleep(1000) If screen portrait MouseClick( AppWindowName, 180, 180) ElseIf screen landscape MouseClick( AppWindowName, 180, 130) EndIf Sleep (4000) Close (AppWindowName) EndIf #Start media player Run ("\My Documents\Η μουσική μου\Dummy.mp3") #Set no timeouts and full brightness while using Destinator #Read registry settings #volume is not working for some reason #Volume = RegRead ("HKCU", "ControlPanel\Volume\","Volume") BattSuspendTimeout = RegRead ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout") ACSuspendTimeout = RegRead ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","ACSuspendTimeout") BatteryTimeout = RegRead ("HKCU", "ControlPanel\Backlight", "BatteryTimeout") ACTimeout = RegRead ("HKCU", "ControlPanel\Backlight", "ACTimeout") Brightness = RegRead ("HKCU", "ControlPanel\Backlight", "Brightness") ACBrightness = RegRead ("HKCU", "ControlPanel\Backlight", "ACBrightness") #Set registry settings #RegWriteDword ("HKCU", "ControlPanel\Volume\","Volume", 2576980377) RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout",0) RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","ACSuspendTimeout",0) RegWriteDword ("HKCU", "ControlPanel\Backlight", "BatteryTimeout", 0) RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACTimeout", 0) RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", 10) RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACBrightness", 10) #Start Destinator RunWait ("\DestinatorApps\Destinator\Destinator.exe") #Stop media player kill ("wmplayer.exe"). #Set registry settings back to normal use mode #RegWriteDword ("HKCU", "ControlPanel\Volume\","Volume", Volume) RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout",BattSuspendTimeout) RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","ACSuspendTimeout",ACSuspendTimeout) RegWriteDword ("HKCU", "ControlPanel\Backlight", "BatteryTimeout", BatteryTimeout) RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACTimeout", ACTimeout) RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", Brightness) RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACBrightness", ACBrightness) #Restore status of bluetooth If equals %BluetoothWas%, "Off" If (WndExists(AppWindowName)) Show(AppWindowName) Else Run(AppDir \ App) EndIf WaitForActive( AppWindowName, 10 ) Sleep(1000) If screen portrait MouseClick( AppWindowName, 180, 180) ElseIf screen landscape MouseClick( AppWindowName, 180, 130) EndIf Sleep (4000) Close (AppWindowName) EndIf If equals %ScreenOrientationWas%, "portrait" Rotate(0) Else Rotate(270) EndIf Οδηγίες για την εγκατάσταση του script στο κινητό σας μπορείτε να βρείτε στο αρχικό post του andapo.