|
2-3 дня назад один человек попросил меня поделится исходником MMBOT ..., но бесплатно могу только написать относительно тщательный обзор по этому боту... (Для друзей и хороших знакомых все также работаю бесплатно :) )
Заказной пост специально для
Напишу непосредственно для combats.ru... MMBOT написан на языке visual basic 6. (исходник - 3000р)
1. Необходимо малец знать html
Да потому что комбатс браузерная игра... Сразу хочу предостеречь, не мучайтесь, если игра написана на флеш... вы просто не смоете манипулировать этим сайтом.
Все странички состоят из элементов управления и форм (хтмл) ... Главная страница на комбатсе не имеет фреймов, и с ней легче всего работать. Для этого я использую компонент webbrouser (internet explorer - этот компонент есть абсолютно под все языки программирования). Мы загружаем главную страницу. Вебброузер сообщает, что страница загружена и мы считываем все элементы с этой странице... (зы считываем их тип и название - помните, что у всех элементов уникальное название)
For q = 0 To Form1.WebBrowser1.Document.All.Length - 1
temp_type = Form1.WebBrowser1.Document.All(q).Type
temp_name = Form1.WebBrowser1.Document.All(q).Name
temp_value = Form1.WebBrowser1.Document.All(q).Value
temp_src = Form1.WebBrowser1.Document.All(q).src
temp_href = Form1.WebBrowser1.Document.All(q).href
'//---------------------------------------------------------------------
'// ДЛЯ АВТОРИЗАЦИИ НА САЙТЕ
'// вводим логин
If Form1.MSFlexGrid1.TextMatrix(temp_shet_row, 3) = "login" Then
temp_login = 1
Form1.WebBrowser1.Document.All(q).Value = Form1.cap0(0).text
End If
'// вводим пароль
If Form1.MSFlexGrid1.TextMatrix(temp_shet_row, 3) = "psw" Then
temp_psw = 1
Form1.WebBrowser1.Document.All(q).Value = Form1.cap0(1).text
End If
'// если введены логин и пароль -> кликаем по кнопки войти
If temp_login = 1 And temp_psw = 1 And _
Form1.MSFlexGrid1.TextMatrix(temp_shet_row, 2) = "submit" And _
Form1.MSFlexGrid1.TextMatrix(temp_shet_row, 4) = "Войти" Then
Call bot_say("На главной странице, заходим...")
Form1.WebBrowser1.Document.All(q).Click
End If
'//---------------------------------------------------------------------
Next q
|