*.bas Dateien welche Sprache?

[Tsuki-Namida]

Hallo ich habe hier eine Script sprache in einer *.bas Datei und ich weis nicht welche das ist...

nun ich würde gerne wissen was es für eine ist... bei google habe ich herausgefunden das es macros sein können oder auch QBasic... oder ist es ganz was anderes? hier mal ein code ausschnit.

Code: Alles auswählen

Public Sub StopMidi()
Dim I As Long

    CurrentSong = ""
    I = mciSendString("close all", 0, 0, 0)
End Sub

Public Sub MakeMidiLoop()
Dim SBuffer As String * 256

Call mciSendString("STATUS background MODE", SBuffer, 256, 0)

If Left$(SBuffer, 7) = "stopped" Then
    Call mciSendString("PLAY background FROM 0", vbNullString, 0, 0)
End If
End Sub

Public Sub PlaySound(Sound As String)
    If Val(GetVar(App.Path & "\config.ini", "CONFIG", "Sound")) = 1 Then
        If FileExist("SFX\" & Sound) = False Then Exit Sub
        Call sndPlaySound(App.Path & "\SFX\" & Sound, SND_ASYNC Or SND_NODEFAULT)
    End If
End Sub

Public Sub StopSound()
    Dim x As Long
    Dim wFlags As Long

    wFlags = SND_ASYNC Or SND_NODEFAULT
    x = sndPlaySound("", wFlags)
End Sub

[Kiffi]

oder ist es ganz was anderes?

sieht wie VB aus.

Grüße ... Kiffi