Сохранен 21
https://2ch.hk/pr/res/855492.html
Прошлые домены не функционирует! Используйте адрес ARHIVACH.VC.
24 декабря 2023 г. Архивач восстановлен после серьёзной аварии. К сожалению, значительная часть сохранённых изображений и видео была потеряна. Подробности случившегося. Мы призываем всех неравнодушных помочь нам с восстановлением утраченного контента!

VB api функции

 waffe 12/10/16 Срд 20:37:17 #1 №855492 
14762938370930.jpg
Эй хэй, ребят, нид хелпа с апи функциями.
Пердолюсь уже пару дней, все никак не могу сделать.
Нужно с помощью GetVolumeInformation определить метку диска C:\
Функцию задекларировал, но вот как вытащить метку - хз. Хелпаните кто может.
Я сам не прогер нихуя. Просто пытаюсь чем-то себя занять.
Моя телега если че - @jefflebowski
waffe 12/10/16 Срд 20:47:03 #2 №855500 
14762944240560.jpg
Буду бампать пока не сделаю.
sageАноним 12/10/16 Срд 20:54:33 #3 №855505 
Ага, щас, бампать он собрался, твое место на зоне, лысый.
waffe 12/10/16 Срд 21:04:40 #4 №855507 
14762954807330.jpg
Бамп
Аноним 12/10/16 Срд 21:19:27 #5 №855510 
14762963678890.jpg
Возьми другой язык, например хаскелл.
>Your father's Haskell. This is the weapon of a Working Mathematician. Not as clumsy or random as Scala. An elegant weapon... for a more civilized age.
Аноним 12/10/16 Срд 22:48:45 #6 №855589 
>>855492 (OP)
Никогда не писал на WinAPI, тем более на бейсике. Вот, попробовал запилить нужную тебе хрень. Это FreeBasic. Под Wine'ом у меня это компилируется, но ничего не печатает. Возможно, это из-за Wine, либо я где-то накосячил.
http://pastebin.com/ztK57p6G
Аноним 12/10/16 Срд 23:05:05 #7 №855604 
>>855589
Братишка, я бы тебе отлил канистру нефти за то что ты пытался) но у меня это ваще нихера не работает(. А так спасибо тебе:)
Буду дальше пытаться сделать
Аноним 12/10/16 Срд 23:06:21 #8 №855606 
>>855510
Не, нужно на бэйсике попытаться
Аноним 12/10/16 Срд 23:10:21 #9 №855610 
>>855604
Ну, ясное дело, что конкретно этот код у тебя не запустится, т.к. он для другого бейсика. Ты просто пойми сам принцип, что функции GetVolumeInformation надо передать ссылку на буфер, в который будет записана метка диска.
А вообще, лучше покажи свой код.
Аноним 12/10/16 Срд 23:27:26 #10 №855628 
14763040467650.jpg
>>855610
я кароч нашел похожую тему, только оно выбивало серийник диска, а я хочу переделать чтобы оно показывало метку раздела. вот сижу читаю разное чтиво по апи функциям, но мало что вдупляю тк особо этим не занимался. так что с этого недокода особо не смейся)
Аноним 12/10/16 Срд 23:48:53 #11 №855642 
>>855628
Тебе нужны только первые три аргумента. Остальное можно смело занулять. Попробуй переписать функцию так. Вызов тоже отредактируй, как в 8 строке.
http://pastebin.com/nSicmq6g
Аноним 12/10/16 Срд 23:50:36 #12 №855644 
>>855642
В 4 строке
>GetVulumeInformation
GetVolumeInformation, конечно же.
Аноним 12/10/16 Срд 23:55:37 #13 №855646 
>>855642
сделал как ты сказал. в мессажбоксе пусто.
Аноним 12/10/16 Срд 23:58:16 #14 №855650 
>>855646
Тут нужен спец по VB. Или хотябы анон, у которого он установлен. Попробуй в закрепленный тред написать, так больше шансов, что увидят.
waffe 12/10/16 Срд 23:59:05 #15 №855652 
может просто оно не выводит русские буквы? как я понял должно выбить это - "Локальный диск". Или я что-то путаю?
Аноним 13/10/16 Чтв 00:03:35 #16 №855657 
>>855652
Мне кажется, ошибка может быть либо при возрате значения из функции (5 строка), либо при передаче значения в функцию. Попробуй в 4 строке заменить rootPathName на Nothing. Если не поможет, то ставь брейкпоинт на строке "GetVolumeNameBuffer = volName" и запускай под отладчиком, чтобы увидеть, какое значение хранится в volName.
Аноним 13/10/16 Чтв 00:13:34 #17 №855664 
14763068145760.jpg
>>855657
с заменой rootPathName на Nothing тоже самое.
Аноним 13/10/16 Чтв 00:18:06 #18 №855668 
>>855664
Ага, у тебя после вызова GetVolumeInformation в стоке volName одни нули почему-то. Во второй строке, где ты объявляешь внешнюю функцию, проверь, чтобы перед вторым параметром стояло byRef.
Аноним 13/10/16 Чтв 00:26:55 #19 №855672 
>>855492 (OP)
Вот тебе определение и примеры использования
http://pinvoke.net/default.aspx/kernel32/GetVolumeInformation.html

</thread>
waffe 13/10/16 Чтв 01:06:06 #20 №855688 
14763099663500.jpg
охуительный прогресс, уже выдает буквы "я(я)"
waffe 13/10/16 Чтв 02:38:52 #21 №855722 
14763155330090.jpg
Охуеть сделал. Мб кому интересно, код пикрелейтедвпадлу скрин было делать
comments powered by Disqus