Бибикалка

[DeeJex]

Копался в кернел32.длл и вот что намутил -

While Not GetKey() 
BeeP 
Wend 
End 

Function BeeP() 
xCallDll("kernel32.dll","Beep","Здесь пишем любое значение и оно озвучится щелчками xD") 
End Function 

Function xCallDll(dll$,func_name$,command$) 
Open  = CreateBank(Len(command)) 
For I = 1 To Len(command) 
  PokeByte Open,I - 1,Asc(Mid$(command,I,1)) 
Next 
CallDLL(dll,func_name,Open) 
End Function

[SKA_DIMKA]

не выходит....( лишь молчание..

[Arton]

Прикольно! Пищит! Потом ну очень противно стало, отключил. Кстати запустилось на семёрке.
P.S. Я се в коллекцию кодов на блице кину.

[ARA]

А я отрезал свою бибикалку нажом

[L.D.M.T.]

у меня на семерке тоже пошло, правда через колонки

[Arton]

Сообщение от L.D.M.T.

у меня на семерке тоже пошло, правда через колонки

А разве через колонки и не должно идти??? У меня через колонки.
P.S. Понял это через спикер идти должно, тока блиц видимо так не может и направляет на колонки.

[Reks888]

У меня никак не клацает. Такое ощущение что как раз на ХР не идет а идет только на семерке)

[Arton]

Сообщение от Reks888

У меня никак не клацает. Такое ощущение что как раз на ХР не идет а идет только на семерке)

А колонки включены.

[Reks888]

И колонки и наушники, никак не хочет. Значение program писал и как текст и как цифру - нулевой результат

[ABTOMAT]

Та же ситуация