1 (изменено: Limpompo, 2016-02-12 19:22:42)

Тема: Можно ли звук встроить в скрипт?

Можно ли кастомный звук встроить в рабочий скрипт? И чтоб скрипт использовал именно этот звук. Подскажите пожалуйста код

2

Re: Можно ли звук встроить в скрипт?

Limpompo пишет:

Подскажите пожалуйста код

Скрипт, голос!

3

Re: Можно ли звук встроить в скрипт?

VBS:

File = "D:\Test.mp3"
Seconds = 10  ' длительность в секундах

With CreateObject("WMPlayer.OCX")
  .URL = File : If Not .Settings.AutoStart Then .Controls.Play
End With : WScript.Sleep Seconds * 1000

4

Re: Можно ли звук встроить в скрипт?

Flasher, а где здесь встраивание звука в скрипт ? Я так понимаю автору нужно тело трэка "зашить" внутрь кода.

Передумал переделывать мир. Пашет и так, ну и ладно. Сделаю лучше свой !

5

Re: Можно ли звук встроить в скрипт?

Xameleon
Пусть лучше объявится и сам нам об этом расскажет.

+ OFF

Кстати, о птицах. Продолжение следует?

6 (изменено: BeginnerJS, 2016-02-22 04:40:03)

Re: Можно ли звук встроить в скрипт?

Файл со звуком перекодировать в Base64 и вставить в скрипт как heredoc.
В скрипте сделать конвейер: первая команда декодирует Base64, вторая - плеер воспроизводящей со стандартного входа.
В Bash, dash, sh это выглядело бы так

(base64 -d | play)<<<EOMusic
....
....код base64....
....
EOMusic

7

Re: Можно ли звук встроить в скрипт?

Насоветовать мы все горазды. А читать внимательно, видимо, не все:

Limpompo пишет:

Подскажите пожалуйста код

8

Re: Можно ли звук встроить в скрипт?

Ну, если интересно, могу привести пример на AHK со звуком, записанным в код скрипта строкой.

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Skype dmitry_fiveg

9 (изменено: Alectric, 2016-02-20 20:46:45)

Re: Можно ли звук встроить в скрипт?

OFF: teadrinker, мне интересно, будет ли воспроизведение прерывать поток или будет работать как встроенная функция "SoundPlay"?

Win 7 x64
AHK v1.1.24.00
                       Справка тебе в помощь.

10

Re: Можно ли звук встроить в скрипт?

Звук может воспроизводиться асинхронно.

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Skype dmitry_fiveg

11

Re: Можно ли звук встроить в скрипт?

Limpompo пишет:

Можно ли кастомный звук встроить в рабочий скрипт? И чтоб скрипт использовал именно этот звук. Подскажите пожалуйста код

Воспроизвести звук стандартного PCM формата (.wav файлы без сжатия), встроенный в код в виде base64-строки, без создания временных файлов, поможет следующий скрипт (WSH VBS), использующий SAPI.SpVoice:

strData = "UklGRmIYAABXQVZFZm10IBAAAAABAAEAIlYAACJWAAABAAgAZGF0YYAQAACAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgoGBgYGAgIB+fXp6eHd3dnR0dHR2dnd4X19igIKFh4uRk5ibnZ+io6Wmp6epqqmpqq2ws7S2tre5ubm5ubm5ubm5traxrKmOiYeFhIGAfXp6kpKSkZGnp6eloqKioKCfnZ2dm5mWfXp2WllYWFZWWFhZWVlaWllxcG5wcXFzd3p9mJucoKOlpqamp6aljIyLi3FwWFBMXV1aWlpcXFxcdHiRkZGOjImFhIB7dlxYU1BPNTIxMDAyN1JZdnh9gIGBgGlYNTQ1Nzg+RGBnkqKmqaq0vqWgh4SBgYGFjJOxt9HRyLq3rZyZlpWSkpGPjImCY0I+RT86NTQ0NzxEUIGfpq2ysrCtlY90h3Z2jI5/f3FxcX16dXBWUTw5OE1MXl5gYmt1fYaPqsa4uLu8vKurrK6urKm5u8nJsZmUjohxYEI4Nzc7WXWIj6GWfHZvcXZsamKMlJ2kqq2orq+zn3xpXlVKREZKUVp8m6Knpph7aWZiXFlZWVthaG+DjIB/f3+AfnVrZmNpYGZ2eHeOjY6mra2onIyGen+GmKKtraymnpRmX1pkalxcXF5fWmNxgbG4vsnL0MislJCNjIN/dXd6enmImZ6Kf2xTTEVCQjcxKlJfaXN8hoqTmbS6pqGenJmYmJmXlaGyj4yHeWVXVFRSUlVaZJOboq6uoYVqY19eXlxyjJecoa2spammj4CAe3RtYFdSUlprfJ22ubm0sZZ/e3+Fgnx7eHNqY0BCWG5yeYGFh4BzbGtramttcHWKnqWzvLapopqTlpufnpSIgYZ7U0pCOzc5Q1ldWV9pdH6Ei56vsru2nZualpCQlZmbm5iUmK2qm5uHeF5IPTQqIR4vRE5VYW52eYKSko+Vl5mZlI6JhISFioCQj42OjH50c3mOkaCkoJmOdD41O0ZJU155lZycnJyXjYBZUExYZ257h4yIh4SEiZ6nt7aysLWxk4iDenJrbHNza1ZEQkRHSlprdH2AdHBwb21veIKLkaKyt8fNyM3IwriuqKGUg21fRyofGRshJzFEVF1lbHJ3d3RxcXJ3fYmerbe/xsbDwsLIyMW/taufgV1ENDIsJiMtQ1FWW2NqbmtaS1VodoGNnKiurqyooqSooJmXl6eus6mjnZaNfHhqX0ozJyYpMD1TfIuYm5aQiHtWTEpNVmN5jZ67zM3Pwr23srq3sKadkXxqYFpXU1NaZm1sVlJLRT85NjU4PkhabnyJlqGprr7Q2Nrc2tfVz76roJiXi3tqXEcwJSAjKS0uKSk2Q0xTWmRscnl+iJGxvMHGzdXl7/Lo3tPDrpaJeG1TQC0pIx4fLEZSWVtcXVxTPTs7Q1lyiqG72ezv7NvMvLGrppqdm6GXjIV/e3RnXl5aUTw2MzEyNUNRWWNtd4CAbmlobHeKn66709fX0sW3qpygoaSdl5KCbmVgX1tYVE1MT0g9NjEwMzY6QUtYdoWNl6Guwc3V2t3Z08i8uLSzpJuRkIl9b2NcQDEmICAfHhQYHSIzRVVneZKksLq6xcTIzdPP1tjf2c7CtqiXhHZ0bGJKPTInGxQbJiszPEtYXVRUVVxph56xxuTu8ezcyLSfmJibmJifmY6FgX54a15RSUQ5LCclKjE/TVhmc4eNjYV+fIWPmaWxtr/Bvbixr6Whmp6gnJmVknttZFtTTUU+Pz06NTY3OkJQXWZvdYOJkJmjqbW+ys3OzMbAuK+ss7Swo5yTg29aSDUgExEXHyYkKi83QldmdIKZprC3t7W1sLfCy8/T29rQxrqtnIZ0ZVxVRzsxKSIcHicuOEJVX2VjYmVvfIydq7vL19jVzsW2qJyZmZeXmZqQiIB3bmVZTEY/NS0sLjRATl5rd4GNj4+Oi4OFh5Gaoqmvs7ayrrGwr6ahnpiOg3luX1VSUlFOSEhKSUxOS0xSXWRqb3N4foGLmKSvusXJy8jCvLSooJ6fn5eTi4N4Z1ZGNSgiJSksLjI6RlNdanR/i5OaoaWqqKqwucPJzdLTzcW3qJeEcWBXTkY/Ozk2NTY5QEVOVVtgZmlpb3mGk56ruMXMzczLw7WnnJWQi4aCf3lzcGxpYllTTUhEPz0+SFVfaXJ7g4mMjpCOjIyPlJmepKipp6elo6Cbl5SPioF3b2ZhX2BgW1VUV1teXVtXVVdaXmRpb3V8iJKcpq+3u727t6+lnJSRkpGRkZCNiH5zZ1VGOC8sLDA1PEdUXmdweoKLj5SboaKipquzur2/v725sqicjHttYlpVUUtKTE1JRURGTFBVW2Joa3F4gYuVn6qyu7/CwbyyppuSioV/enl6fX16cmhjYF5bVk9IRUdNV19ocHqEjpSWl5SQjIqMj5CTlJicoKCbmZiVko6Kg3pwaWZkZWRjYWRnaWloZGBaV1ldZGhudoKLlJmeo6anqKilnpSQjo+Rk5SVmZiRiX1xYVJCOTQ1OD9IUl1lbnV6gISIi46Oj5SZoKats7i7vbu0qJyNgHRqYFlSUFJVV1VQTk5SVllcYWVobnV8hIyUnKawt7i5ta6lmZGJgnt4d3l8fXlzcG5tZ2RdVU1JSU9YYWlyf4qUmJmXk4qEgoF/gIOKkpugoKCfnJiSi4V8c2tmZmltcHJ0dnV0dHFsZmBcWlldYmt1f4iPlJqeoaGgnZqXko+NjI2QlpqbmZKMhnxwYVNIQD09Q0xWXmZudHt/goOEhoSFiY6Um6Sss7i4tbCro5mLe25hWFRWWFxfYWBfXVxbW1pZWV5lbHN8hZCdpauvsrazr6ackIR7dXR2eH2Bgn97dnFrZl1WUE1NUVZga3V/h42UmZqYk4yFf3p5e3+GkJqgo6KdmJGHfXNqZGNjZm10eX1/f318enVxbWhjYGFkanF7ho+Wmpual5OOh4J+fHt/ho2Sk5OQjIaBfHZwaGNfW1hYWF1kbXR4foKEhYB7d3RzdnyGkZmip6qqpqCbk4yCeXFrZ2VlZ2ltb3FzdXNwamReW1lbYWp1go6YoaSloqCalpCKhYOBgYKHiIiHhIB7dnFrZF5ZVVVWWmFqc3yDiImJiIaDgH19fH+EipKWmJmWk4+Lh4N+d3NwbWppaGtuc3h7fH18eHRvamloa3J5gIiPkpSUkpCPjIiEgH19fH5/gIKDhIOEgn54cmplYWBgY2hveH6Eh4eEg4F+fn17fX+ChYuPkpSSkZCLiIJ9d3FtbGxub3N4e31/fXt4dHFvbm5vcnd+hoqMjo6OjIqJh4aBgH58e3l5enx+gYGBf3x3c25saWttcXV7gISFhoSDgoB/fXp5eXt8f4KDhoeHiIeFgnx4c3Bvb3B1eH6DhYeHhIF+e3h0c3J1eXuAg4SGh4aFg4KAfnx6eXh5e36AhIiJi4qJhoN+e3h3dXZ4e36AgIB+fnx6eHZ1dXV1d3d5en+ChYiKiomGhIF9e3p6e32Ag4aHhoSBfXt3c29ubW1ucHR4e4CBgoSDgX58enl5enx+gYWIioqKh4WBf3t4dHNycXJ2d3l5e3x7enp3d3Z0dXV3enx/goWHhoWDgoF9fHl3d3h6fX+CgoKBf358eXh0cnJxcnJzdnh9f4CBg4KBfnx6eHd4en2BhIaHiIeFg4B/e3p4eHh4d3h5e3t6enl5d3VzcnFxcnV2fICDhYeHh4WDgX9+fX1+f3+BgYKEg4KBfnt5dnRzc3JzdHZ3e32AgYOCg4B+fXp8fX+BhYaIiIeIhoWCf316eXd2dXR0dXd5e318fXt5eHd3eXh7fICChIWEhYSEg4F+fHt6enp6e3t9fX59fX15eHZzc3N0dXd6foCCgoOCgX99fX19fX19fn+AgICBgIB/fXx7enh3eHl4enx/gICAf358e3t7e31/gIGBgH99fHx8fH5+fn9/fn59fnx9fX5+fH18e3x7e3t7e3x9fn9+fX18fX18fX5/f39+foB+fX1+fn5+fX59fXt6ent6ent7e3t7enl6fX59fn5/fn19fX19fHx7fHx7fHx7fH5+fn9+fn18enp5d3h5e3x+foGBgYGBgIF/f399fXx7eXh5eXp7fHx9e3t6e3l5eno="

ValidatePCM strData, objStream, boolOK, strMsg
MsgBox strMsg
If boolOK Then
	Randomize
	Do
		PlaySound objStream
		WScript.Sleep 50 * 10 ^ (Rnd * 2)
	Loop
End If

Sub ValidatePCM(strBase64Data, objSpMemStream, boolValid, strState)
	arrData = Base64ToBytes(strBase64Data)
	arrHeader = MidBinary(arrData, 0, 36)
	boolValid = False
	Select Case False
		Case BinaryToText(MidBinary(arrHeader, 0, 4), "ascii") = "RIFF"
		Case BinaryToText(MidBinary(arrHeader, 8, 8), "ascii") = "WAVEfmt "
		Case EvalBinary(MidBinary(arrHeader, 20, 2)) = 1 ' Audio Format PCM
		Case Else boolValid = True
	End Select
	If Not boolValid Then
		strState = "Invalid PCM Format"
		Exit Sub
	End If
	dblSampleRate = Round(EvalBinary(MidBinary(arrHeader, 24, 4))/2000, 1) * 2
	Select Case dblSampleRate
		Case 8 lngRate = 0
		Case 11 lngRate = 4
		Case 12 lngRate = 8
		Case 16 lngRate = 12
		Case 22 lngRate = 16
		Case 24 lngRate = 20
		Case 32 lngRate = 24
		Case 44 lngRate = 28
		Case 48 lngRate = 32
		Case Else
			boolValid = False
			strState = "Invalid Sample Rate " & dblSampleRate
			Exit Sub
	End Select
	dblBitsPerSample = EvalBinary(MidBinary(arrHeader, 34, 2))
	Select Case dblBitsPerSample
		Case 8 lngBits = 0
		Case 16 lngBits = 2
		Case Else
			boolValid = False
			strState = "Invalid Bits Per Sample " & dblBitsPerSample
			Exit Sub
	End Select
	dblNumChannels = EvalBinary(MidBinary(arrHeader, 22, 2))
	Select Case dblNumChannels
		Case 1 lngChan = 0
		Case 2 lngChan = 1
		Case Else
			boolValid = False
			strState = "Invalid Number of Channels " & dblNumChannels
			Exit Sub
	End Select
	lngPos = EvalBinary(MidBinary(arrHeader, 16, 4)) + 20 ' next subchunk
	Do Until BinaryToText(MidBinary(arrData, lngPos, 4), "ascii") = "data"
		lngPos = lngPos + EvalBinary(MidBinary(arrData, lngPos + 4, 4)) + 8
		If lngPos > LenB(arrData) Then
			boolValid = False
			strState = "Wave data not found"
			Exit Sub
		End If
	Loop
	dblSubchunkSize = EvalBinary(MidBinary(arrData, lngPos + 4, 4))
	arrPCMSamples = MidBinary(arrData, lngPos + 8, dblSubchunkSize)
	Set objSpMemStream = CreateObject("SAPI.SpMemoryStream")
	objSpMemStream.Format.Type = 4 + lngRate + lngBits + lngChan
	objSpMemStream.Write arrPCMSamples
	strState = dblSubchunkSize & " Bytes, " & dblSampleRate & " kHz, " & dblBitsPerSample & " bit," & dblNumChannels & " ch."
End Sub

Sub PlaySound(objSpMemStream)
    objSpMemStream.Seek 0
    With CreateObject("SAPI.SpVoice")
        .SpeakStream objSpMemStream, 1
        .WaitUntilDone -1
    End With
End Sub

Function EvalBinary(arrBinary)
	EvalBinary = CLng(0)
	For i = 1 To LenB(arrBinary)
		EvalBinary = EvalBinary + 2 ^ (8 * (i - 1)) * AscB(MidB(arrBinary, i, 1))
	Next
End Function

Function Base64ToBytes(strBase64)
    With CreateObject("Microsoft.XMLDOM").CreateElement("objNode")
        .DataType = "bin.base64"
        .Text = strBase64
        Base64ToBytes = .NodeTypedValue
    End With
End Function

Function MidBinary(arrBinary, lngStart, lngLenght)
    With CreateObject("ADODB.Stream")
        .Type = 1 ' adTypeBinary
        .Open
        .Write arrBinary
        .Position = lngStart
        MidBinary = .Read(lngLenght)
        .Close
    End With
End Function

Function BinaryToText(arrBinary, strCharset)
    With CreateObject("ADODB.Stream")
        .Type = 1 ' adTypeBinary
        .Open
        .Write arrBinary
        .Position = 0
        .Type = 2 ' adTypeText
        .charset = strCharset ' for unicode "us-ascii"
        BinaryToText = .ReadText
        .Close
    End With
End Function

' http://soundfile.sapp.org/doc/WaveFormat/
'
' Offset  Size  Name             Description
' The canonical WAVE format starts with the RIFF header:
' 0         4   ChunkID          Contains the letters "RIFF" in ASCII form
'                                (0x52494646 big-endian form).
' 4         4   ChunkSize        36 + SubChunk2Size, or more precisely:
'                                4 + (8 + SubChunk1Size) + (8 + SubChunk2Size)
'                                This is the size of the rest of the chunk 
'                                following this number.  This is the size of the 
'                                entire file in bytes minus 8 bytes for the
'                                two fields not included in this count:
'                                ChunkID and ChunkSize.
' 8         4   Format           Contains the letters "WAVE"
'                                (0x57415645 big-endian form).
' The "WAVE" format consists of two subchunks: "fmt " and "data":
' The "fmt " subchunk describes the sound data's format:
' 12        4   Subchunk1ID      Contains the letters "fmt "
'                                (0x666d7420 big-endian form).
' 16        4   Subchunk1Size    16 for PCM.  This is the size of the
'                                rest of the Subchunk which follows this number.
' 20        2   AudioFormat      PCM = 1 (i.e. Linear quantization)
'                                Values other than 1 indicate some 
'                                form of compression.
' 22        2   NumChannels      Mono = 1, Stereo = 2, etc.
' 24        4   SampleRate       8000, 44100, etc.
' 28        4   ByteRate         == SampleRate * NumChannels * BitsPerSample/8
' 32        2   BlockAlign       == NumChannels * BitsPerSample/8
'                                The number of bytes for one sample including
'                                all channels. I wonder what happens when
'                                this number isn't an integer?
' 34        2   BitsPerSample    8 bits = 8, 16 bits = 16, etc.
'           2   ExtraParamSize   if PCM, then doesn't exist
'           X   ExtraParams      space for extra parameters
' The "data" subchunk contains the size of the data and the actual sound:
' 36        4   Subchunk2ID      Contains the letters "data"
'                                (0x64617461 big-endian form).
' 40        4   Subchunk2Size    == NumSamples * NumChannels * BitsPerSample/8
'                                This is the number of bytes in the data.
'                                You can also think of this as the size
'                                of the read of the subchunk following this 
'                                number.
' 44        *   Data             The actual sound data.

Конвертировать файл в base64-строку можно либо подыскав подходящий конвертер, либо с помощью данного скрипта:

If WScript.Arguments.Count = 0 Then
    MsgBox "Drag'n'Drop folder(s) or file(s) onto script to process"
    WScript.Quit
End If
strPath = WScript.Arguments(0)
If Not CreateObject("Scripting.FileSystemObject").FileExists(strPath) Then
    MsgBox "File not found"
    WScript.Quit
End If
arrBinary = LoadBinaryFromFile(strPath)
strBase64 = Bytes2Base64(arrBinary)
ShowInNotepad strBase64

Function LoadBinaryFromFile(strPath)
    With CreateObject("ADODB.Stream")
        .Type = 1 ' TypeBinary
        .Open
        .LoadFromFile strPath
        LoadBinaryFromFile = .Read()
    End With
End Function

Function Bytes2Base64(arrBytes)
    With CreateObject("Microsoft.XMLDOM").createElement("objNode")
        .DataType = "bin.base64"
        .NodeTypedValue = arrBytes
        Bytes2Base64 = Replace(Replace(.Text, vbCr, ""), vbLf, "")
    End With
End Function

Sub ShowInNotepad(strToFile)
    Dim strTempPath
    With CreateObject("Scripting.FileSystemObject")
        strTempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%") & "\" & .GetTempName
        With .CreateTextFile(strTempPath, True, True)
            .WriteLine strToFile
            .Close
        End With
        CreateObject("WScript.Shell").Run "notepad.exe " & strTempPath, 1, True
        .DeleteFile (strTempPath)
    End With
End Sub
Щт Уккщк Куыгьу Туче

12

Re: Можно ли звук встроить в скрипт?

omegastripes пишет:

Конвертировать файл в base64-строку можно

имеющимися средствами.

13

Re: Можно ли звук встроить в скрипт?

Flasher пишет:
omegastripes пишет:

Конвертировать файл в base64-строку можно

имеющимися средствами.

Скрипт по ссылке, бесспорно, преобразует файл в base64, свой вариант я привел не с целью изобрести велосипед, а исключительно для удобства - в нем добавлен функционал для перетаскивания файла в проводнике на скрипт и показа конвертированной строки в блокноте, чтобы можно было скопировать и вставить ее в код.

Щт Уккщк Куыгьу Туче

14

Re: Можно ли звук встроить в скрипт?

Всем спасибо кто отозвался.
Но я совсем не понял, ранее я не имел дела с base64. После конвектирования секундного звука, мне выдало огромный код, т.е. звук преобразовался в код? И какую команду мне нужно использовать для воспроизведения этого НЕЧТО?

15

Re: Можно ли звук встроить в скрипт?

strData = "<сюда вставить>"
Это всё тот же vbs.

omegastripes
А зачем циклить? Нужно же один раз.

16

Re: Можно ли звук встроить в скрипт?

Limpompo пишет:

мне выдало огромный код

- посмотрите размер исходного файла, base64 д.б. на 33% больше.

Limpompo пишет:

И какую команду мне нужно использовать для воспроизведения этого

- не знаю на чём пишите, но в скрипте для шелл можно сделать конвейер, шаблон показал выше. Первая команда нужна для обратной раскодировки текста (в *nix подобных системах - base64 -d ) в байтовый поток который передаётся на стандартный вход второй команды, которой д.б. плеер.

17

Re: Можно ли звук встроить в скрипт?

Что то ничего не получается, к сожалению. Всем спасибо.

18

Re: Можно ли звук встроить в скрипт?

Limpompo
А зачем вообще встраивать? Положить звуковой файлик рядом и юзать простой скрипт - проблема?

19 (изменено: omegastripes, 2016-02-23 21:32:54)

Re: Можно ли звук встроить в скрипт?

Flasher пишет:

... omegastripes
А зачем циклить? Нужно же один раз.

В вопросе так-то не сказано, что нужен один раз, а зациклить подтолкнули теплые воспоминания о Q3

Limpompo пишет:

... После конвектирования секундного звука, мне выдало огромный код, ...

В .wav файлах зачастую (как и в других медиа-файлах), кроме звуковых сэмплов, содержатся данные, не востребованные при проигрывании звука. Это одна из причин большого размера, другая - неоправданно высокие частота дискретизации и битность. Можно почистить файл или изменить последние.

Limpompo пишет:

Что то ничего не получается, к сожалению. Всем спасибо.

Привидите код, который не заработал, опишите ошибку.

Щт Уккщк Куыгьу Туче

20 (изменено: Flasher, 2016-02-24 12:41:16)

Re: Можно ли звук встроить в скрипт?

omegastripes пишет:

В вопросе так-то не сказано, что нужен один раз

В вопросе и не написано, что нужно набивать хаотичный по времени чпоньк на пережатом ладу. Если уж запустить не удалось, то на исправления там тем более 'духу' не хватит.

21

Re: Можно ли звук встроить в скрипт?

Вот ошибка:
https://cs7050.vk.me/c627331/v627331296/38301/gjmj46OH-Wk.jpg

22

Re: Можно ли звук встроить в скрипт?

Flasher пишет:

Это всё тот же vbs.

23

Re: Можно ли звук встроить в скрипт?

Limpompo пишет:

Можно ли кастомный звук встроить в рабочий скрипт?

Limpompo, так вы под словом «скрипт» имели в виду AHK-скрипт, или скрипт на любом скриптовом языке? И что вы имели в виду под словом «кастомный»?

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Skype dmitry_fiveg

24

Re: Можно ли звук встроить в скрипт?

teadrinker пишет:

И что вы имели в виду под словом «кастомный»?

Пользовательский, самостоятельно выбранный. Или есть другие варианты?

25

Re: Можно ли звук встроить в скрипт?

Ну, пример выше, как я понял, только для WAV. Здесь проблема с размером полученной строки.

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Skype dmitry_fiveg