Ist Visual Basic Script. Man muss lediglich den Quellcode in eine Textdatei (.txt) schreiben und anschließend die Datei in eine .vbs umbenennen. Danach doppelt auf die Datei klicken und anschließend wird der Quellcode ausgeführt. Vorausgesetzt er ist korrekt. Ansonsten kommt logischerweise eine Fehlermeldung. Wenn man programmieren lernen will ist das eine Möglichkeit damit sofort anzufangen.
Als Beispiel kann jeder folgenden Code in eine Textdatei einfügen und erhält einen simplen Gematriarechner. Das heißt man gibt eine Zeichenkette ein, beispielsweise euren Namen und anschließend wird ausgegeben für welche Zahl dieser Wert steht. Es gibt mehrere Verfahren wie das gemacht wird, dies ist das "lateinische" Verfahren, das heißt jedem Buchstaben des Alphabetes wird eine Zahl zugeordnet von 1 beginnend bis 26 (von A-Z). Damit kann ich vermutlich genauso gut programmieren wie Bill Gates :D.
Dim a
Summe = 0
a = Array("0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
Eingabe = InputBox("Geben Sie eine Zeichenkette ein: ")
Eingabe = LCase(Eingabe)
Eingabe = LTrim(Eingabe)
Eingabe = Rtrim(Eingabe)
Eingabe = replace(Eingabe," ","")
Laenge = Len(Eingabe)
For i = 1 To Laenge
Buchstabe = Mid(Eingabe, i, 1)
If Asc(Buchstabe) = 246 Then
Buchstabe = "o"
elseif Asc(Buchstabe) = 228 Then
Buchstabe = "a"
elseif Asc(Buchstabe) = 252 Then
Buchstabe = "u"
End if
For x = 1 To 26
if a(x) = Buchstabe then
Zahl = x
end if
Next
Summe = Zahl + Summe
Next
haha = MsgBox ("Die Summe betr" & Chr(228) & "gt: " & Summe, vbMsgBoxSetForeground)