прошу помощи

[Qwertiy]

Код: Выделить всё

    Sub Main()
        Dim letitbit As New letitbit(proxy, url)
        Dim tex1 As String = letitbit.GetHtmlPageByGet1(url & "wm-panel/User/signin")
        Dim tex3 As String = letitbit.GetHtmlPageByPost(url & "admin/clicker/?page=clicker", "act=saveVisit&type=1&client_page=signin&browser=mozilla&client_lang=en&referer=")
        Dim tex4 As String = letitbit.GetHtmlPageByPost(url & "admin/clicker/?page=clicker", "act=saveVisit&type=2&btn=btn_signin&client_page=signin&browser=mozilla&client_lang=en")
        Dim tex5 As String = letitbit.GetHtmlPageByPost(url & "wm-panel/User/signin-do", "log=roshcius%40yandex.ru&pas=0b672ae0f318&inout=Login")
        Dim tex6 As String = letitbit.GetHtmlPageByPost(url & "admin/clicker/?page=clicker", "act=saveClick&mouseX=83&mouseY=292&clientWidth=727&client_page=signin&browser=mozilla&client_lang=en")
        Dim tex7 As String = letitbit.GetHtmlPageByGet1(url & "wm-panel/User/signin")
        Console.WriteLine(tex7)
    End Sub


Этот код - полный бред. Точнее, то, что передаётся в post-запросах. Недостаточно просто открыть страницу, надо использовать данные с неё.

Должно быть нечто типа: [Код удалил, ниже есть верное решение].

[FireFenix]

где находится, то что нужно нажимать? в файл менеджере?
не жалко раздавать логин и пароль с проектом?

[strelec]

где находит, то что нужно нажимать? в файл менеджере?
не жалко раздавать логин и пароль с проектом?

нет не жалко тестовый аккк=)
а прич-ом тут нажимать когда я только пишу об куки .куки идет а читать не как не получается

[Qwertiy]

а прич-ом тут нажимать когда я только пишу об куки .куки идет а читать не как не получается

Ну так и не получится, пока нормально не напишешь.

[Qwertiy]

Всё делается точно так же, как для форума:
1. Берёшь эту программу.
2. Переименовываешь VBStreetsForum в LetitBit.
3. В двух местах исправляешь на CookieContainer.SetCookies(New Uri(Regex.Match(Url, "^http://.*?/").Value), CookiesString).
4. Добавляешь

Код: Выделить всё

Public Function Login(ByVal User As String, ByVal Password As String) As String
  Dim Page As String, Form As String, Data As String, Url As String

  Page = GetHtmlPageByGet("http://lib.wm-panel.com/").Replace(vbCr, " ").Replace(vbLf, " ")
  Form = FindFormWith(Page, "signin-do")
  Url = "http://lib.wm-panel.com" & FormAction(Form)
  Data = FormToFormUrlEncoded(Form).Replace("log=&pas=&", String.Format("log={0}&pas={1}&", User, Password))

  Page = GetHtmlPageByPost(Url, Data)

  Return Page
End Function

5. В форме меняешь на

Код: Выделить всё

Dim Result As String = (New LetitBit()).Login(TxtLogin.Text, TxtPassword.Text)
TxtResult.Text = Result
MsgBox(Regex.Replace(Regex.Match(Result.Replace(vbCr, " ").Replace(vbLf, " "), "Здравствуйте.+?Выход").Value, "<[^>]*>", ""), MsgBoxStyle.Information, "Здравствуйте")

6. Запускаешь, пишешь roshcius%40yandex.ru (с собакой тоже работает) и 0b672ae0f318, жмёшь Ok.
7. Наслаждаешься MsgBox'ом

PS: Разберись ты с кодом наконец. Я за 5 минут переделал вход, ещё 5 повозился с регулярным выражением для MsgBox'а. И никаких проблем нет.

[strelec]

ну не получается у меня ((( все сделал как написано ,пожалуйста дай Исходник проекта

[Qwertiy]

ну не получается у меня ((( все сделал как написано ,пожалуйста дай Исходник проекта

Проект в студию! Хочу посмотреть, что ты пишешь. Абсолютно не понимаю, как может не получиться, когда есть готовый код.

strelec letitbit.7z

Работает

(18.14 Кб) Скачиваний: 136

[strelec]

ну не получается у меня ((( все сделал как написано ,пожалуйста дай Исходник проекта

Проект в студию! Хочу посмотреть, что ты пишешь. Абсолютно не понимаю, как может не получиться, когда есть готовый код.

Вложение strelec letitbit.7z больше недоступно.

у меня не работает ((
возможно что у меня стоит нет 3.5 ? а не 4.0

[strelec]

Qwertiy

проверил ?

[Qwertiy]

проверил ?

Проверил. Ты прав:

возможно что у меня стоит нет 3.5 ? а не 4.0

Скомпилированная в VS2008 программа не работает. Если компилировать так:

Код: Выделить всё

C:\WINDOWS\Microsoft.NET\Framework\v3.5\vbc.exe Module1.vb /target:exe /out:exe35.exe

то тоже не работает

А вот если так:

Код: Выделить всё

C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\vbc.exe Module1.vb /target:exe /out:exe40.exe

то работает

Так что ставь .NET 4.0.

Мой код можно скомпилировать так:

Код: Выделить всё

C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\vbc.exe LetitBit.vb Form1.Designer.vb Form1.vb /main:Form1 /target:winexe /out:exe40w.exe

[strelec]

ппц !!! =) и-за net я вес свой код переделал )) придется обратно переделывать ) :D я сразу понял что тут что-та не то ))

Qwertiy Огромное тебе спасибо

[Qwertiy]

Пожалуйста

Кстати, если мои программы у тебя запускались, то .NET 4 уже установлен

[strelec]

Пожалуйста

Кстати, если мои программы у тебя запускались, то .NET 4 уже установлен

нет не запускалось я его копировал )

[strelec]

возможна ли к Microsoft Visual Basic 2008 Express Edition Прикрепит NET 4.0 чтоб все программы компилировались на NET 4.0 ?? если да то как ?

Qwertiy скачал установил нет 4.0 твой проект не работает .нечего не переделываю сразу врубаю strelec letitbit.exe и авторизация не происходит (. блин что делать а (

[strelec]

вот сейчас качаю Microsoft Visual Basic 2010 Express надеюсь поможет)

[Qwertiy]

возможна ли к Microsoft Visual Basic 2008 Express Edition Прикрепит NET 4.0 чтоб все программы компилировались на NET 4.0 ?? если да то как ?

Думаю, нет. Компилировать руками пробовал (я приводил команды немного выше)?

Qwertiy скачал установил нет 4.0 твой проект не работает .нечего не переделываю сразу врубаю strelec letitbit.exe и авторизация не происходит (. блин что делать а (

Запускать уже скомпилированный exe пробовал (я его специально оставил в архиве)?

вот сейчас качаю Microsoft Visual Basic 2010 Express надеюсь поможет)

Сам пока им пользуюсь. Поможет. По крайней мере, должно.

[strelec]

Компилировать руками пробовал (я приводил команды немного выше)?

пробовал не получается файл не находит)

Запускать уже скомпилированный exe пробовал (я его специально оставил в архиве)?

[/quote]
уже запускается как скачал нет 4.0 но авторизацию не проходит

[Qwertiy]

пробовал не получается файл не находит)

В смысле, vbc.exe? А у тебя папка (ну и версия соответсятвенно) v4.0.30319? Или в ней действительно файла нет?

уже запускается как скачал нет 4.0 но авторизацию не проходит

Странно.

На всякий случай: Скачивал Framework тут.

Просто из любопытства:

Код: Выделить всё

Module All
    Sub Main()
      Console.WriteLine(Math.Cos(2.1212121212121211E+19))
      Console.ReadKey()
    End Sub
End Module

Скомпилируй

[strelec]

2,12121212121212E+19

[Qwertiy]

2,12121212121212E+19

У меня - тоже, причём во всех версиях

Кстати, С++ считает правильно

[strelec]

Microsoft Visual Basic 2010 Express не помогло ((((((((((((((((((((

[strelec]

а все перезагрузил комп и все нормально )

[strelec]

и то что я сделал до этого тоже работает!!!!!!!! проблема была в куках .на 2008 куки пропадают!! а на 2010 все куки есть ))) Qwertiy не знаю как тебя отблагодарит)) без тебя я бы некогда не додумался что проблема в нет платформе )))

[strelec]

и то что я сделал до этого тоже работает!Я идиот! Убейте меня, кто-нибудь!!! проблема была в куках .на 2008 куки пропадают!! а на 2010 все куки есть ))) Qwertiy не знаю как тебя отблагодарит)) без тебя я бы некогда не додумался что проблема в нет платформе )))

Я идиот! Убейте меня, кто-нибудь!!!

модераторы почему ?

[iGrok]

модераторы почему ?

Это не модераторы. На форуме стоит автозамена кучи восклицательных или вопросительных знаков на эту фразу.
Это для того, чтобы люди учились пользоваться знаками препинания по назначению.

[strelec]

модераторы почему ?

Это не модераторы. На форуме стоит автозамена кучи восклицательных или вопросительных знаков на эту фразу.
Это для того, чтобы люди учились пользоваться знаками препинания по назначению.

а все понятно спасибо =)

[strelec]

ребята еще раз помогите)) мне интересно статью, примеры, учебники про "Регулярные выражения в VB .NET Regex.Matches "и.т.д хочу вызубрит )где это можно прочитать ? msdn читаю но не все понятно )

[Qwertiy]

а все перезагрузил комп и все нормально )

Установка VS же и так требует выполнить перезагрузку...

без тебя я бы некогда не додумался что проблема в нет платформе )))

Пожалуйста. Хотя, я бы тоже не додумался, без твоей фразы. Я вообще не знал, что ты в VS2008 пишешь.
Кстати, было бы интересно проверить на VS2005.

[Qwertiy]

мне интересно статью, примеры, учебники про "Регулярные выражения в VB .NET Regex.Matches "и.т.д хочу вызубрит )где это можно прочитать ? msdn читаю но не все понятно )

По-моему, в Googl'е нормальные ссылки, по крайней мере, первая и третья из первых трёх (остальные не смотрел):
http://www.gotdotnet.ru/LearnDotNet/VBNET/719.aspx
http://www.vbnet.ru/articles/showarticle.aspx?id=93

[strelec]

мне интересно статью, примеры, учебники про "Регулярные выражения в VB .NET Regex.Matches "и.т.д хочу вызубрит )где это можно прочитать ? msdn читаю но не все понятно )

По-моему, в Googl'е нормальные ссылки, по крайней мере, первая и третья из первых трёх (остальные не смотрел):
http://www.gotdotnet.ru/LearnDotNet/VBNET/719.aspx
http://www.vbnet.ru/articles/showarticle.aspx?id=93

это все читал спс ) но както трудновато ) Qwertiy напиши мне пожалуйста пример если не трудно мне всего надо будет 5-6 примеров )
как найти к примеру


sub FindFormWith()
Dim MyText As String = "Книга программирование, язык программирование, большой проект , начинаем тестирование "
Dim m As Match = Regex.Match(MyText, "")
For Each Form As Match In Regex.Matches(page, Text)
s &= Form.ToString & vbCrLf

Next Form

End Sub
1.как надо искать в тексте слово который начинается с "прог" и кончается на "ние" и вывести результат
2.все тоже самое но чтобы найти в MyText слово который начинается с "прог" но в результате будет "раммирование" (прог) отпадает
3.как заменит все что начинается с "прог" и кончается на "ние" на слово "vb.net"
спасибо заранее