[VK]ObT II - Рабочая версия.

[kull007]

Не работает: ввожу логин пароль, нажимаю авторизация, и программа просто исчезает!!!

[alek0585]

обмен уроном теперь только на 10к народа, учтите.
чтоб вкурить как происходит - чарльс и искать инит гейм. список корешей подмениваешь на произвольный и ок

[sauras13]

Цитата: Сообщение от слава0987654321 а зачем логин и пароль водить я боюсь сопрут

и что если спрут у тя номер и мило от своєго ак ти чо нуб

Добавлено через 8 минут
и все паходу роботаєт вот только че за таймер и там где бос че жать 1 или че ?

[ultraz]

Отличный бот буду ждать обнов в частности возможность работы бота в онлайне ! (еще не хватает лога )

[kurinmaksim]

У меня тоже бот не работает. При вводе логин : пароля программа немного думает и вылетает. Так и должно быть?))

[gusvovan]

всё пашет тока про обмен бицухой и уроном не вкурсе) пока ничего не добавилось и как включить обмен подогревами? О_о кнопка не активна... И ещё вот на скрине ошибку выложил. [Ссылки могут видеть только зарегистрированные пользователи. ] онлайн некогда не показывает xD

[_MykytiuK_]

Разве уже можно обмениваться бицухой с человек который не состоит у вас в друзьях? Программа ещё актуальна?

[Norzis]

[Ссылки могут видеть только зарегистрированные пользователи. ]

Почему не показывает сколько человек онлайн? и что за кнопка "Обычные"?

[raspisnoi]

Он движухи проходит ?

[asd23333333]

не работает

[moloko911]

Вообщем просмотрел исходный код этой программы и увидел следущие:
что строка подозрительная

Цитата: str3 = Me.post("18vat.com/obt/reg.php", String.Concat(New String() { "&viewer_id=", Settings.Default.id, "&user_bicux=",Me.bic, "&method=reg" }))

а вот немного кода

Цитата: Dim str3 As String = Me.post("109.234.155.196/prison/universal.php?getInfo", ("&key=" & Settings.Default.auth & "&sig=2792ac9c0beed27ec77e3f011cb9ebc1&method=getI nfo&user=" & Settings.Default.id)) Dim regex4 As New Regex("<basePopularity>([^#]+)</basePopularity>") If regex4.IsMatch(str3) Then matchs = regex4.Matches(str3) Dim match As Match For Each match In matchs Me.bic = match.Groups.Item(1).ToString Next End If str3 = Me.post("18vat.com/obt/reg.php", String.Concat(New String() { "&viewer_id=", Settings.Default.id, "&user_bicux=", Me.bic, "&method=reg" })) If (method Is Nothing) Then method = Function New obt(Me.bic).Show MyBase.Hide End Function End If MyBase.Invoke(method) End If

[K1erik2]

Цитата: Сообщение от kull007 Не работает: ввожу логин пароль, нажимаю авторизация, и программа просто исчезает!!!

+1