Anruf auf dem Handy vorzeitig abbrechen
  Hallo,
ich habe einen Weg gefunden einen Anruf auf dem Handy vorzeitig abzubrechen. Auüerdem wird NetLaunch überflüssig, weil durch den VB-Script auch die Enter-Taste zum Herstellen der Verbindung automatisch gedrückt wird. Einfach den Text als wasweisichden.vbs speichern und als Aufruf in die Batch-Datei eintragen. Die Pause zwischen dem Drücken der Enter-Taste und der Escape-Taste ist hier im Beispiel 5 Sekunden, kann aber beliebig verändert werden. Voraussetzungist, dass der Windows Scripting Host insalliert ist. Wenn der Script nicht läuf sollte man den IE ab Version 5.5 installieren.

Für Windows 9x:

set wshshell = CreateObject("wscript.shell")

wshshell.run("rundll32.exe rnaui.dll,RnaDial DFö-Verbindung")
wscript.sleep 1500
wshshell.sendkeys("{ENTER}")
wscript.sleep 5000
wshshell.sendkeys("{ESCAPE}")

Für Windows NT / 2000:

set wshshell = CreateObject("wscript.shell")

wshshell.run("rasphone -d DFö-Verbindung")
wscript.sleep 1500
wshshell.sendkeys("{ENTER}")
wscript.sleep 5000
wshshell.sendkeys("{ESCAPE}")

@coastboy

Könntest Du noch was einbauen was den Bildschirm "aufweckt" oder Aktionen ausführt wenn eine Alarmanzeige erfolgt?

Nutze zur Zeit ein VB-Script in FMS32-Pro dazu, jedoch würde ich das Programm gerne wegrationalisieren was ja auf Grund des neu geschaffenen Client-Modes möglich wäre.

Als Beispiel mein Script:
Code: set osh = wscript.CreateObject("wscript.Shell")
osh.Sendkeys "{ESC}" Was ich noch ganz interessant fände wäre die Möglichkeit die Schriftgrösse von Datum/Uhrzeit und der öberschrift "Einsatz" anzupassen, sowie bei letzterem vielleicht den Text sogar in der poc.ini variabel anpassbar zu machen.

Set x = CreateObject("wscript.shell")
x.sendkeys "^{ESC}"
x.sendkeys "{ESC}"
x.sendkeys "%{F4}"
x.sendkeys "n"

das ist zum beispiel ein script, mit dem xp neu gestartet wird.
die einfache syntax funzt wunderbar :D

ups, bin hier ja bei vba :oops:
das script ist natürlich für vbs, was da in vba anders ist, weiü ich leider auch nicht, sorry ;)

TUTORIAL: T-Online Mail Programm gegen Thunderbird austauschen!
  Hura ich habs geschafft!

Hab schon lange nach einer Möglichkeit gesucht NICHT mehr das T-Online Mail Programm benutzen zu müssen und jetzt hab ich mir alle Schwierigkeiten beseitigen können. Für die Leute, die das gleiche auch schon lange suchen, poste ich hier mal eine Lösungs Möglichkeit:

Zuerst installierte ich Thunderbird von der Mozilla Suite. (Als sehr gutes alternativ Mail Programm)

Als nächstes stellte ich in dem T-Online Kundencenter ein E-Mail Passwort ein. Das macht man, wenn man in das T-Online Kundencenter geht und dort unter E-Mail Postfacheinstellungen in der Sparte Konto-Daten bei E-Mail Passwort (wenn noch keins angelegt ist) auf Einrichten geht (andernfals steht dort ćndern, dann brauch man hier nichts mehr tun auüer das Passwort zu wissen ;-).

Nun kann man nämlich über den POP3 Dienst von T-Online (der seit neuestem auch über andere Provider abholbar ist) die Mails abholen. Man muss dazu also nicht mehr unbedingt über T-Online eingeloggt sein. Die Serverdaten dazu:

POP3 Server: popmail.t-online.de
SMTP Server: smtpmail.t-online.de

Nun fehlt noch das wichtigste: Die E-Mails vom T-Online Programm müssen importiert werden... und daran hatte ich lange geknobelt. Letztendlich habe ich dank diesem Tread folgende einfache Lösung dadür:

Zuerst dieses Tool downloaden und in ein neu erstellters Verzeichnis C:eml2mbx entpacken.

Als nächstes einen Ordner (zum Beispiel) C:Verschieben anlegen.

Nun das T-Online Mail Programm starten und eine (beliebige) Mail anklicken und lesen. Dort auf Speichern gehen und den Ordner C:Verschieben auswählen und (ebenfals beliebig als was) abspeichern. Das dient lediglich dazu, das gleich immer in diesem Ordner die Mails gespeichert werden und das brauchen wir gleich für folgendes Script...) - Die eben gespeicherte Datei kann übrigens gleich sofort wieder gelöscht werden, da wir sie sonst gar nicht benötigen. Lediglich MUSS das T-Online Mail Programm geöffnet bleiben, weil sonst T-onlie nach einem Schlieüen die Mails wieder evtl. woanders speichert!

ANMERKUNG: Weiü nicht ob das überall so ist; Bei mir reicht es schon aus, wenn ich nur einmal bei Speichern den Ordner auswähle und dann auf Abbrechen gehe... man muss also nicht unbedingt esrt speichern. Aber schaden kanns ja auch nicht.

Jetzt erstmal folgendes Script in eine vbs Datei kopieren (zum beispiel backup.vbs)
Code: Dim WSHShell
Set WSHShell = CreateObject("Wscript.Shell")

Dim Counter
Counter = 1000

Wscript.Sleep 2000
Do While Not (Counter = 0)
Wscript.Sleep 1000
WSHShell.Sendkeys "%{l}"
Wscript.Sleep 1000
WSHShell.Sendkeys "%{s}"
Wscript.Sleep 1000
WSHShell.Sendkeys Counter
Wscript.Sleep 1000
WSHShell.Sendkeys "{TAB}"
Wscript.Sleep 1000
WSHShell.Sendkeys "{DOWN}"
Wscript.Sleep 1000
WSHShell.Sendkeys "n"
Wscript.Sleep 1000
WSHShell.Sendkeys "{ENTER}"
Wscript.Sleep 1000
WSHShell.Sendkeys "{ENTER}"
Wscript.Sleep 1000
WSHShell.Sendkeys "%{F4}"
Wscript.Sleep 1000
WSHShell.Sendkeys "{DOWN}"
Counter = Counter - 1
Loop
WScript.Quit und diese Datei nach möglichkeit auf dem Desktop hinterlegen.

Bei der Zeile Code: Counter = 1000 steht die Zahl 1000 für die Anzahl der Mails im jeweiligen Ordner der T-Online Mailsoftware... Ich habe hier mal 1000 eingegeben, weil es sehr mühsam ist die ganzen Mails zu zählen. Ich habe mich ein wenig ran gearbeitet: Also erst die ersten 1000 importiert und dann geschaut bis zu welcher Mail (laut Datum) schon importiert ist und dann diese Mails gelöscht und Script neu gestartet, bis ich durch war. Sollte am Ende die Zahl Höher sein, als die Anzahl der Mails im Postfach, bekommt man die letzte Mail entsprechend doppelt importiert - kann man nachher auch wieder löschen... also ist an sich kein Problem, oder?

An dieser Stelle möchte ich noch erwähnen, das ich nicht für etweihige Schäden am Betriebssystem (meine ersten Versuche schlugen nämlich ein bischen fehl, weil ich noch ein bissl rumgeklickert hab) hafte! Wenn ihr das so probiert, dann testet euer Script bitte selbst - in dem ihr zum Beispiel die Counter Zahl erstmal nur auf 2 stellt und damit nur die ersten beiden Mails importiert... dann könnt ihr die Wartezeiten die bei Wscript.Sleep immer angegeben sind selbst noch ein bischen an euer System anpassen...

(Nur als Beispiel: Bei meinem ersten Versuch stellte sich mein Bildschirm auf den Kopf, weil ich nebenher das Script wieder anhalten wollte und mit STRG + ALT + ENTF den Taskmanager öffnen wollte... weilü nicht was dann genau der Grund war... aber kann halt passieren, wenn man so ungeduldig ist!!!)

Nachdem nun im Ordner C:Verschieben ganz viele *.msg Dateien liegen, müsst ihr folgenden Befehl ausführen (Zum Beispiel mit Start - Ausführen...):

C:eml2mbxeml2mbx.exe c:Verschieben*.msg c:VerschiebenT-Online-Email.mbx /i /a /u

Und diese neu erstellte Datei T-Online-Email.mbx müsst ihr nun nur noch in euren Thunderbird Mail Ordner legen (z.B. C:WINDOWSAnwendungsdatenThunderbirdProfiles9o 4jnh2f.defaultMailLocal Folders)

Wenn ihr nun Thunderbird öffnet, habt ihr die T-Online Mails in besagtem Ordner.

mfg benny