Traffic router testing помогите оттестировать

Mr.Power

в старом посте решил не писать, т.к начал всё заново .помогите проверить программу по обмену трафикомвот скачать: http://introzorn.ru/fileHOSt/Traffic_ROUTER.rar (исходник)там исходник. задача такова, производится пингация пользователей. в списке должны появится пользователи.всем кто поможет большое спасибо
2 ответа

Mr.Power

> Автор: Mr.Power> там исходник. задача такова, производится пингация пользователей. в списке должны появится пользователи.Привет.В функции PINGip цикл заканчивается раньше чем изменяется состояние винсокса1, Winsock1.State = 6(sckConnecting). Если поставить
Do While True
 DoEvents
 d = Winsock1.State
 If d = <b>8</b> Then Exit Function
 If d = <b>9</b> Then Exit Function
 If datas = "pong" Then
 datas = ""
 Exit Do
 End If
Loop
то просто висит и пока не вывалился по таймауту


Mr.Power

я доработал программу и готов к тестированию, протестируйте пожалуйста, кот может!http://introzorn.ru/fileHOSt/trafic_roter_testmode.rarp.s. фаирвол может его блокировать(если чё вырубайте его)