Увеличение скорости сети (наглость :))

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Увеличение скорости сети (наглость :))

Сообщение A.A.Z. » 07.02.2004 (Сб) 20:22

Наглый вопрос:
Если в Диспетчере задач XP выбрать вкладку "сеть", то там будет отображено использование сети. Так вот, можно ли как-то его увеличить?
Нет меня больше

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 07.02.2004 (Сб) 20:24

:roll:
Самый простой, приходящий на ум способ - качание чего-либо большого в бесконечном цикле :)

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 07.02.2004 (Сб) 21:34

Можно, пожалуйста, поподробней? :roll:
Нет меня больше

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 07.02.2004 (Сб) 22:02

Ну, скажем, используем Microsoft Internet Controls, на худой конец. Пишем код вроде:

Код: Выделить всё
Private Exit As Boolean 'Останавливали ли мы процесс

Private Sub Form_Load
Command1.Caption = "Увеличить нагрузку на сеть!"
Command2.Caption = "Остановить насилие!"
End Sub

Private Sub Command2_Click()
Exit=True
End Sub

Private Sub Command1_Click()
Do
WebBrowser1.Navigate "http://www.vbstreets.ru"
Do While WebBrowser1.Busy
DoEvents
If Exit Then
WebBrowser1.Stop
Exit Sub
End If
Loop
Loop
End Sub


Если надо через API, то используем, скажем, ф-цию URLDownloadToFile... Можно использовать ещё Internet Transfer Controls... Вообщем, вариантов тыщща :), главное - надо постоянно что-то качать :)

О! Нашёл функцию InternetReadFile (см. API-Guide). Идеально подходит для наших целей!

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 08.02.2004 (Вс) 18:28

Не, не пашет, только пытается заново загрузить ее...
Проблема в том, что даже в твоем способе загруженность сети у меня не превышает 4%, а надо чтоб превышало! 8)
Нет меня больше

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 09.02.2004 (Пн) 11:03

А зачем это? Вообще-то можешь кидать что-то большое по локалке, желательно с двух сторон, тогда сетка грузиться хорошо. Только не пойму, зачем это надо.
Lasciate ogni speranza, voi ch'entrate.

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 09.02.2004 (Пн) 18:14

Просто после того, как я передернул всю сеть в школе, больше 4% (от 100 мБит/сек) ее использование не поднимается. Вот мне и надо как-то получить большую производительность! :roll:
Нет меня больше

Armageddon
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 15.11.2002 (Пт) 15:16

Сообщение Armageddon » 10.02.2004 (Вт) 7:01

в программе загрузкой создай около 512 обьектов winsock, и ломись по всем портам на все компы:)

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 10.02.2004 (Вт) 10:50

Отобрази этот диспетчер сети свой и через setwindowtext пиши ему в нужный static нужную цифру, хоть 101%...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 10.02.2004 (Вт) 16:39

А разве можно в стандартном Диспетчере Задач Windows что-то менять?? Надо попробовать... :idea:
Нет меня больше


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 6

    TopList