[GUIDE] How To Windows Fenster erstellen

[Pandora26]

-------------------------------------------------------------------------------------------

Hey,

Mit meinem ersten Post wollte ich mal einen Guid hier bringen, und heute zeige ich euch, wie man Windows Fenster erstellt mit ein paar Befehlen :D

1. I -- Den PC sprechen lassen --
2. II -- Das Laufwerk spinnt? --
3. III -- Den Pc schreiben lassen --

I. Den PC sprechen lassen



Das ist ganz witzig wenn man mal einen Freund verarschen will :D

1. Zuerst einmal, öffnet ihr Editor -> Dazu geht ihr auf Start und sucht ( Unter Vista ) Nach "Editor".

2. Öffnet den Editor und kopiert folgendes herein ->

text = ("Schreibt hier rein, was der Pc sagen soll")
set objvoice = createobject("SAPI.spvoice")
objvoice.speak text

3. Geht auf Datei -> Speichern unter... -> Und bennent es unter "Test.vbs"

4. Nach dem ihr es unter "Test.vbs" gespeichert habt, erscheint eine neue Datei auf dem Desktop. Es dürfte so aus sehen ->

5. Sobald ihr jetzt auf diese Datei klickt, wird der Computer das sagen was ihr unter "Schreibt hier rein, was der Pc sagen soll" geschrieben habt sagen.

Natürlich könnt ihr auch eine Art Countdown damit machen, oder das der Pc einfach mit einen bestimmten Text spricht. Das ist ganz einfach!

6. Kopiert einfach ->

text = ("Schreibt hier rein, was der Pc sagen soll")
set objvoice = createobject("SAPI.spvoice")
objvoice.speak text

Das wieder unter dem ersten Befehl mit einer Zeile abstand und schreibt irgendetwas anderes herein :P



II. Das Laufwerk spinnt?



Das ist auch ganz witzig, durch diesen Befehl, öffnet sich das Laufwerk und schliesst sich dauernd, was einfach total zum Lachen ist wenn der Freund zufälliger weise noch in Skype hockt, und ich dabei zuhör wie er rumheult das er gehackt wird xD

1. Wie bei dem I. öffnet ihr den Editor.

2. Ihr kopiert folgendes herein ->

do
set mp = WScript.CreateObject("WMPlayer.OCX")
mp.cdromcollection.item(0).eject

WScript.Sleep 2000

mp.cdromcollection.item(0).eject
loop

3. Danach wieder Datei -> Speichern unter... -> "Cd.vbs"

4. Dieser Befehl ist ganz Simpel, es öffnet das Laufwerk und schliesst es wieder nach 2 sekunden. Das "WScript.Sleep 2000" bedeutet soviel wie das der PC 2 Sekunden (= 2000 Milisekunden) warten soll bis er den nächsten Befehl starten soll.

5. Wichtig, das do am anfang und das loop am ende heisst soviel wie, das der Befehl immerwieder ausgeführt werden soll!

Falls ihr das beenden wollt öffnet den Taskmanager, und beendet den Prozess "wscript.exe".



III. Den Pc schreiben lassen



Mit dem Befehl erscheint ein stinknormales Windows Fenster, mit einem Titel und einem Belibiegen Text.

1. Wie bei den beiden Mini TuT's davor öffnet ihr den Editor.

2. Danach kopiert ihr wieder ->

msgbox "Inhalt des Fensters",0,"Titel des Fensters"

3. Ihr speichert das unter "Fenster.vbs" ab

4. Und startet dann wieder "Fenster.vbs"

-------------------------------------------------------------------------------------------

Das wars eigentlich mit dem Tutorial, weitere Mini TuT's werden folgen :D

lg Pandora26

Bei Fragen oder Probleme stehe ich euch gerne zu verfügung solange ich Online bin :D
( Alles ist von mir selbst geschrieben und nirgendwo herauskopiert :) )

[FreedomFlow]

man kann auch rechtklick darauf -->eigenschaften--> Script --> Skript nach folgender anzahl von sekunder .....

[Pandora26]

Kann sein, hab mich erst gestern überhaupt verfasst Danke

[FreedomFlow]

kp

ein thx gennügt xD

[Banana.Crafts]

Hmm hast dir viel Mühe gegeben;D
Aber es gibt so viele Sprachen, da will ich mir net noch ne neue anschauen!

[1AraB1]

Funktioniert bei mir nicht ... (Vista)

[einkeks95]

bei mir funktioniert auch nichts, auser die msg box!

Habe Win 7 Professional

und die msgbox auch nur so msg * [PlatzHalter] <---- Ich bin ein Platzhalter und bleibe solange hier bis hier etwas vernüftiger steht!

was für ne ---- ich will das das klappt!!!!!

[Digital Shadow]

Zum Thema PC sprechen lassen hab ich folgendes gefunden:

Dim fname
fname=InputBox("Schreibe etwas!")
StrText=(fname)
set objvoice=CreateObject("SAPI.SpVoice")
Objvoice.Speak StrText

Das in einer test.vbs Datei abspeichern.

Bei mir (WinXP x86 SP3) funktioniert das.

[Pandora26]

Also ich habe alle unter Vista getestet und alles ging Ich werde mich mal den Problemen dann in den nächsten Tagen dran setzen.