forum.boolean.name - Бибикалка

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Бибикалка (http://forum.boolean.name/showthread.php?t=12121)

DeeJex

05.03.2010 14:23

Бибикалка

Копался в кернел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

05.03.2010 14:59

Ответ: Бибикалка

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

Arton

05.03.2010 15:10

Ответ: Бибикалка

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

ARA	05.03.2010 15:52

Ответ: Бибикалка

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

L.D.M.T.

05.03.2010 17:43

Ответ: Бибикалка

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

Arton

05.03.2010 18:17

Ответ: Бибикалка

Цитата:

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

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

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

Reks888

05.03.2010 18:25

Ответ: Бибикалка

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

Arton

05.03.2010 18:26

Ответ: Бибикалка

Цитата:

Сообщение от Reks888 (Сообщение 140698)

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

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

Reks888

05.03.2010 18:28

Ответ: Бибикалка

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

ABTOMAT

05.03.2010 20:00

Ответ: Бибикалка

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

Часовой пояс GMT +4, время: 16:57.