MyBB Community Forums

MyBB Community Forums > Resources > Third Party Integration > Login on myBBForum from form vb.net
Full Version: Login on myBBForum from form vb.net
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

Dwarfer

2017-07-25, 01:34 PM
Hi. I have a vb.net application and I tried to login on mybbforum by a form that I created. I searched about it and tried by many ways.

* Mybblogin Dll

After added mybblogin.dll as reference in my project. The code:


Imports myBBLogin
Public class form1
....
Public Const myweb As String = "myforumname.ml/mybb"
...

Public sub login()
        Dim wrkr As New HTTPWorker()
        Dim myBBForum As New myBB("http://" & myweb & "/member.php?action=login", txtUsername.Text, txtPassword.Text)

        RichTextBox1.Visible = True
        RichTextBox1.ForeColor = Color.Green
        RichTextBox1.Text = "Loading..."
        If txtUsername.Text = "" Or txtPassword.Text = "" Then
            RichTextBox1.Text = ""
            RichTextBox1.ForeColor = Color.Red
            RichTextBox1.Text = "Fill all" & vbCrLf & "the blanks!"
            Exit Sub
        End If
        
        If wrkr.login(myBBForum) Then
            RichTextBox1.Text = ""
            RichTextBox1.ForeColor = Color.Green
            RichTextBox1.Text = "Logged!"
            MessageBox.Show("Ok")
        Else
            RichTextBox1.ForeColor = Color.Red
            RichTextBox1.Text = "Login Failed." & vbCrLf & "Try again!"
            Process.Start("http://" & myweb & "/member.php?action=register")
        End If

End Sub

End Class


Result: Even with the correct username and password, it can not possible to login. Always: "Login Failed. Try again"

* Testing by POST 


Public Class Form1

Public Sub login()
 Using SendTo As New Net.WebClient
            Dim Param As New Specialized.NameValueCollection
            Param.Add("username", txtUsername.Text)
            Param.Add("password", txtPassword.Text)
            Param.Add("remember", "yes")
            Param.Add("action", "do_login")
            Param.Add("url", "Valor")
            Dim ResponseBytes As Byte() = SendTo.UploadValues("http://myforumname.ml/mybb/member.php", "POST", Param)
            Dim ResponseHTML As String = (New System.Text.UTF8Encoding).GetString(ResponseBytes)
            RichTextBox1.Text = ResponseHTML
        End Using

End Sub

Public Sub btn_transformToHTML()
           WebBrowser1.DocumentText = RichTextBox1.Text
End Sub

End Class


Result: When I try with "community.mybb.com/ " everything works (richtextbox shows html page and webbrowser shows login successful) but with myforum url, i get this html:


<html>
<body>
<script type="text/javascript" src="/aes.js" ></script>
<script>
function toNumbers(d){var e=[];d.replace(/(..)/g,function(d){e.push(parseInt(d,16))});
return e}
function toHex(){for(var d=[],d=1==arguments.length&&arguments[0].constructor==Array?arguments[0]:arguments,e="",f=0;f<d.length;f++)e+=(16>d[f]?"0":"")+d[f].toString(16);
return e.toLowerCase()}var a=toNumbers("f655ba9d09a112d4968c63579db590b4"),b=toNumbers("98344c2eee86c3994890592585b49f80"),c=toNumbers("4aaacc631ef4d1d155793dd8a3ea66b1");
document.cookie="__test="+toHex(slowAES.decrypt(c,2,a,b))+"; 
expires=Thu, 31-Dec-37 23:55:55 GMT; path=/"; 
location.href="http://myforumname.ml/mybb/member.php?i=1";
</script><noscript>
This site requires Javascript to work, please enable Javascript in your browser 
or use a browser with Javascript support</noscript></body></html>

As I don't know what is this problem, I checked if Javascript is activated in my browsers and it's ok. 

If someone can give me another solution, I will be very grateful. Thanks in advance.

fizz

2017-07-26, 05:28 PM
Well seems as though something on your board/server is causing a problem. If you can login properly on the MyBB board but not your own site then it stands to reason that something must be wrong with your site or your server's configuration.

That said, what is this aes.js? That's not included with vanilla MyBB as far as I'm aware so something you've added is not playing well with remote logins.

Can you login to your site normally just using a web browser?

broatcast

2017-07-26, 06:19 PM
This is a javascript ddos protection you are running in.

rocket

2017-07-28, 11:18 AM
here is vb.net mybb login source files:

http://redsec.tk/cc/Thread-vb-net-mybb-login-system
Full vb.net mybb login source


first create a class name it MyBB.vb

code starts here:

MyBB.vb class

Imports System.Net
Public Class myBB
   Inherits Forum

   Public Sub New(ByVal url As String, ByVal username As String, ByVal password As String)
       MyBase.New(url, url & "/member.php?action=login", username, "mybbuser", "", "username=" + username & "&password=" + password & "&submit=Login&action=do_login&url=")
   End Sub

   Public Overrides Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean
       If Not IsNothing(cookies.GetCookies(New Uri(url)).Item(defaultCookieName)) Then
           Return True
       End If
       Return False
   End Function
End Class

create another class name it 

HTTPWorker.vb


Imports System.Net

Imports System.Text
Imports System.IO.Compression

Public Class HTTPWorker
    Public Shared cookies As CookieContainer
    Private data As Byte()

    Public Function login(ByVal forumInstance As Forum) As Boolean
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse
        Dim stream As IO.Stream

        cookies = New CookieContainer
        Try
            request = WebRequest.Create(forumInstance.loginUrl)
            setConnectionParameters(request)

            data = Encoding.ASCII.GetBytes(forumInstance.logindata)
            request.ContentLength = data.Length
            stream = request.GetRequestStream()
            stream.Write(data, 0, data.Length)
            stream.Flush()
            stream.Close()

            response = request.GetResponse()

            If forumInstance.isLoggedIn(cookies) Then
                Return True
            End If
        Catch ex As Exception
            'do something with the exception
        End Try
        Return False
    End Function

    Public Sub setConnectionParameters(ByRef request As HttpWebRequest)
        With request
            .Method = "POST"
            .Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            .ContentType = "application/x-www-form-urlencoded"
            .Proxy = Nothing
            .CookieContainer = cookies
            .KeepAlive = True
            .ServicePoint.Expect100Continue = False
            .UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.8) Gecko/20051111 Firefox/1.5; FBI-version/0.07"
            '.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate") if you want to speed up the steam reading (most boards support this)
        End With
    End Sub

    'this function not implemented, it is added to show how to link the cookies from the login
    Public Sub navTo()
        'Dim request As HttpWebRequest
        'request.CookieContainer = cookies
        'etcetc: you could set idletime, speed if you simultaniously want to fire requests, headers, method (get/post), etc
    End Sub

    'Note: to read the result in login()
    '--If you want to read the result (using compression techniques to speed it up--
    'Dim responseStream As IO.Stream = response.GetResponseStream()

    'If (response.ContentEncoding.ToLower().Contains("gzip")) Then
    ' responseStream = New GZipStream(responseStream, CompressionMode.Decompress)
    'ElseIf (response.ContentEncoding.ToLower().Contains("deflate")) Then
    ' responseStream = New DeflateStream(responseStream, CompressionMode.Decompress)
    'End If

    'Dim streamReader As IO.StreamReader = New IO.StreamReader(responseStream, Encoding.Default)
    'Dim result As String = streamReader.ReadToEnd().Trim()
    'streamReader.Close()
    '--
End Class


create another class name it

Forum.vb

Public MustInherit Class Forum

    Private _logindata As String
    Private _loginUrl As String
    Private _url As String
    Private _username As String
    Private _defaultCookieName As String
    Private _defaultCookieSearch As String

    Public Sub New(ByVal url As String, ByVal loginUrl As String, ByVal username As String, ByVal cookieName As String, _
    ByVal cookieSearch As String, Optional ByVal data As String = "")
        Me._url = url
        Me.loginUrl = loginUrl
        Me.logindata = data
        Me.username = username
        Me._defaultCookieName = cookieName
        Me._defaultCookieSearch = cookieSearch
    End Sub

    Public MustOverride Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean

    Public Property logindata() As String
        Get
            Return Me._logindata
        End Get
        Set(ByVal value As String)
            Me._logindata = value
        End Set
    End Property

    Public Property url() As String
        Get
            Return Me._url
        End Get
        Set(ByVal value As String)
            Me._url = value
        End Set
    End Property
    Public Property loginUrl() As String
        Get
            Return Me._loginUrl
        End Get
        Set(ByVal value As String)
            Me._loginUrl = value
        End Set
    End Property

    Public Property username() As String
        Get
            Return Me._username
        End Get
        Set(ByVal value As String)
            Me._username = value
        End Set
    End Property
    Public Property defaultCookieName() As String
        Get
            Return Me._defaultCookieName
        End Get
        Set(ByVal value As String)
            Me._defaultCookieName = value
        End Set
    End Property
    Public Property defaultCookieSearch() As String
        Get
            Return Me._defaultCookieSearch
        End Get
        Set(ByVal value As String)
            Me._defaultCookieSearch = value
        End Set
    End Property
End Class


double click Form1.vb

paste this in

Imports System.Net, System.IO, System.Management, System, System.Security.Cryptography, System.Text
Imports System.Security.Permissions
Imports Microsoft.Win32
Public Class Form1
    Public PVerison As String = "V1"
    Public web As String = "http://cgi.pchelppros.com" 'your hidden path for the loader system
    Public forum As String = "SERVER URL HERE" 'your forum path which people have to register / login (mybb)
    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'load login information if asked
        Dim vCheatLoader As RegistryKey = _
           Registry.CurrentUser.CreateSubKey("vCheatLoader")
        vCheatLoader.CreateSubKey("vCheatLoader").Close()
        Dim Settings As RegistryKey = _
            vCheatLoader.CreateSubKey("Settings")
        Dim RememberMeChecked As String = Settings.GetValue("RememberMe")
        If RememberMeChecked = "True" Then
            Dim username As String = Settings.GetValue("Username")
            Dim password As String = Settings.GetValue("Password")
            TextBox1.Text = username
            TextBox2.Text = password
            CheckBox1.Checked = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MessageBox.Show("Please Enter Your Username And Password.")
        Else
            If CheckBox1.Checked = True Then
                Dim vCheatLoader As RegistryKey = _
            Registry.CurrentUser.CreateSubKey("vCheatLoader")
                vCheatLoader.CreateSubKey("vCheatLoader").Close()
                Dim Settings As RegistryKey = _
                    vCheatLoader.CreateSubKey("Settings")
                Settings.SetValue("Username", TextBox1.Text)
                Settings.SetValue("Password", TextBox2.Text)
                Settings.SetValue("RememberMe", CheckBox1.Checked)
            Else
                Dim vCheatLoader As RegistryKey = _
Registry.CurrentUser.CreateSubKey("vCheatLoader")
                vCheatLoader.CreateSubKey("vCheatLoader").Close()
                Dim Settings As RegistryKey = _
                    vCheatLoader.CreateSubKey("Settings")
                Settings.SetValue("Username", "")
                Settings.SetValue("Password", "")
                Settings.SetValue("RememberMe", "False")
            End If
            Dim wrkr As New HTTPWorker()
            Dim myBBForum As New myBB(forum, TextBox1.Text, TextBox2.Text)
            If wrkr.login(myBBForum) Then
                Me.Hide()
                Main.Show()
            Else
                MsgBox("You Have Entered Invalid Account Information. Please Try Again.")
            End If
        End If
        'Select Case system2.CheckLogin(TextBox1.Text, TextBox2.Text)
        '    Case "True"
        'Me.Dispose()
        'Main.Show()
        '  Case "Banned"
        '  MsgBox("You Attempt To Access This Account Has Failed. Reason = This Account Has Had Its Permissions Removed And Has Been Banned!", MsgBoxStyle.Critical, "This Account Is Banned")
        '     Case "Invalid Account Details"
        ' MsgBox("Invalid Username Or Password", MsgBoxStyle.Critical, "Error")
        '     Case Else
        '  MsgBox("An Error has occurred, Please try again in a few moments", MsgBoxStyle.Exclamation, "Error")
        ' End Select
    End Sub
 
  
End Class
 
now create new windows form name it Main.vb

GenoSans

2017-09-22, 07:20 PM
(2017-07-28, 11:18 AM)rocket Wrote: [ -> ]here is vb.net mybb login source files:

http://redsec.tk/cc/Thread-vb-net-mybb-login-system
Full vb.net mybb login source


first create a class name it MyBB.vb

code starts here:

MyBB.vb class

Imports System.Net
Public Class myBB
   Inherits Forum

   Public Sub New(ByVal url As String, ByVal username As String, ByVal password As String)
       MyBase.New(url, url & "/member.php?action=login", username, "mybbuser", "", "username=" + username & "&password=" + password & "&submit=Login&action=do_login&url=")
   End Sub

   Public Overrides Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean
       If Not IsNothing(cookies.GetCookies(New Uri(url)).Item(defaultCookieName)) Then
           Return True
       End If
       Return False
   End Function
End Class

create another class name it 

HTTPWorker.vb


Imports System.Net

Imports System.Text
Imports System.IO.Compression

Public Class HTTPWorker
    Public Shared cookies As CookieContainer
    Private data As Byte()

    Public Function login(ByVal forumInstance As Forum) As Boolean
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse
        Dim stream As IO.Stream

        cookies = New CookieContainer
        Try
            request = WebRequest.Create(forumInstance.loginUrl)
            setConnectionParameters(request)

            data = Encoding.ASCII.GetBytes(forumInstance.logindata)
            request.ContentLength = data.Length
            stream = request.GetRequestStream()
            stream.Write(data, 0, data.Length)
            stream.Flush()
            stream.Close()

            response = request.GetResponse()

            If forumInstance.isLoggedIn(cookies) Then
                Return True
            End If
        Catch ex As Exception
            'do something with the exception
        End Try
        Return False
    End Function

    Public Sub setConnectionParameters(ByRef request As HttpWebRequest)
        With request
            .Method = "POST"
            .Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            .ContentType = "application/x-www-form-urlencoded"
            .Proxy = Nothing
            .CookieContainer = cookies
            .KeepAlive = True
            .ServicePoint.Expect100Continue = False
            .UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.8) Gecko/20051111 Firefox/1.5; FBI-version/0.07"
            '.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate") if you want to speed up the steam reading (most boards support this)
        End With
    End Sub

    'this function not implemented, it is added to show how to link the cookies from the login
    Public Sub navTo()
        'Dim request As HttpWebRequest
        'request.CookieContainer = cookies
        'etcetc: you could set idletime, speed if you simultaniously want to fire requests, headers, method (get/post), etc
    End Sub

    'Note: to read the result in login()
    '--If you want to read the result (using compression techniques to speed it up--
    'Dim responseStream As IO.Stream = response.GetResponseStream()

    'If (response.ContentEncoding.ToLower().Contains("gzip")) Then
    ' responseStream = New GZipStream(responseStream, CompressionMode.Decompress)
    'ElseIf (response.ContentEncoding.ToLower().Contains("deflate")) Then
    ' responseStream = New DeflateStream(responseStream, CompressionMode.Decompress)
    'End If

    'Dim streamReader As IO.StreamReader = New IO.StreamReader(responseStream, Encoding.Default)
    'Dim result As String = streamReader.ReadToEnd().Trim()
    'streamReader.Close()
    '--
End Class


create another class name it

Forum.vb

Public MustInherit Class Forum

    Private _logindata As String
    Private _loginUrl As String
    Private _url As String
    Private _username As String
    Private _defaultCookieName As String
    Private _defaultCookieSearch As String

    Public Sub New(ByVal url As String, ByVal loginUrl As String, ByVal username As String, ByVal cookieName As String, _
    ByVal cookieSearch As String, Optional ByVal data As String = "")
        Me._url = url
        Me.loginUrl = loginUrl
        Me.logindata = data
        Me.username = username
        Me._defaultCookieName = cookieName
        Me._defaultCookieSearch = cookieSearch
    End Sub

    Public MustOverride Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean

    Public Property logindata() As String
        Get
            Return Me._logindata
        End Get
        Set(ByVal value As String)
            Me._logindata = value
        End Set
    End Property

    Public Property url() As String
        Get
            Return Me._url
        End Get
        Set(ByVal value As String)
            Me._url = value
        End Set
    End Property
    Public Property loginUrl() As String
        Get
            Return Me._loginUrl
        End Get
        Set(ByVal value As String)
            Me._loginUrl = value
        End Set
    End Property

    Public Property username() As String
        Get
            Return Me._username
        End Get
        Set(ByVal value As String)
            Me._username = value
        End Set
    End Property
    Public Property defaultCookieName() As String
        Get
            Return Me._defaultCookieName
        End Get
        Set(ByVal value As String)
            Me._defaultCookieName = value
        End Set
    End Property
    Public Property defaultCookieSearch() As String
        Get
            Return Me._defaultCookieSearch
        End Get
        Set(ByVal value As String)
            Me._defaultCookieSearch = value
        End Set
    End Property
End Class


double click Form1.vb

paste this in

Imports System.Net, System.IO, System.Management, System, System.Security.Cryptography, System.Text
Imports System.Security.Permissions
Imports Microsoft.Win32
Public Class Form1
    Public PVerison As String = "V1"
    Public web As String = "http://cgi.pchelppros.com" 'your hidden path for the loader system
    Public forum As String = "SERVER URL HERE" 'your forum path which people have to register / login (mybb)
    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'load login information if asked
        Dim vCheatLoader As RegistryKey = _
           Registry.CurrentUser.CreateSubKey("vCheatLoader")
        vCheatLoader.CreateSubKey("vCheatLoader").Close()
        Dim Settings As RegistryKey = _
            vCheatLoader.CreateSubKey("Settings")
        Dim RememberMeChecked As String = Settings.GetValue("RememberMe")
        If RememberMeChecked = "True" Then
            Dim username As String = Settings.GetValue("Username")
            Dim password As String = Settings.GetValue("Password")
            TextBox1.Text = username
            TextBox2.Text = password
            CheckBox1.Checked = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MessageBox.Show("Please Enter Your Username And Password.")
        Else
            If CheckBox1.Checked = True Then
                Dim vCheatLoader As RegistryKey = _
            Registry.CurrentUser.CreateSubKey("vCheatLoader")
                vCheatLoader.CreateSubKey("vCheatLoader").Close()
                Dim Settings As RegistryKey = _
                    vCheatLoader.CreateSubKey("Settings")
                Settings.SetValue("Username", TextBox1.Text)
                Settings.SetValue("Password", TextBox2.Text)
                Settings.SetValue("RememberMe", CheckBox1.Checked)
            Else
                Dim vCheatLoader As RegistryKey = _
Registry.CurrentUser.CreateSubKey("vCheatLoader")
                vCheatLoader.CreateSubKey("vCheatLoader").Close()
                Dim Settings As RegistryKey = _
                    vCheatLoader.CreateSubKey("Settings")
                Settings.SetValue("Username", "")
                Settings.SetValue("Password", "")
                Settings.SetValue("RememberMe", "False")
            End If
            Dim wrkr As New HTTPWorker()
            Dim myBBForum As New myBB(forum, TextBox1.Text, TextBox2.Text)
            If wrkr.login(myBBForum) Then
                Me.Hide()
                Main.Show()
            Else
                MsgBox("You Have Entered Invalid Account Information. Please Try Again.")
            End If
        End If
        'Select Case system2.CheckLogin(TextBox1.Text, TextBox2.Text)
        '    Case "True"
        'Me.Dispose()
        'Main.Show()
        '  Case "Banned"
        '  MsgBox("You Attempt To Access This Account Has Failed. Reason = This Account Has Had Its Permissions Removed And Has Been Banned!", MsgBoxStyle.Critical, "This Account Is Banned")
        '     Case "Invalid Account Details"
        ' MsgBox("Invalid Username Or Password", MsgBoxStyle.Critical, "Error")
        '     Case Else
        '  MsgBox("An Error has occurred, Please try again in a few moments", MsgBoxStyle.Exclamation, "Error")
        ' End Select
    End Sub
 
  
End Class
 
now create new windows form name it Main.vb

Site's DEAD.

Mr.Kurd

2017-09-30, 02:32 PM
(2017-09-22, 07:20 PM)GenoSans Wrote: [ -> ]
(2017-07-28, 11:18 AM)rocket Wrote: [ -> ]here is vb.net mybb login source files:

http://redsec.tk/cc/Thread-vb-net-mybb-login-system
Full vb.net mybb login source


first create a class name it MyBB.vb

code starts here:

MyBB.vb class

Imports System.Net
Public Class myBB
   Inherits Forum

   Public Sub New(ByVal url As String, ByVal username As String, ByVal password As String)
       MyBase.New(url, url & "/member.php?action=login", username, "mybbuser", "", "username=" + username & "&password=" + password & "&submit=Login&action=do_login&url=")
   End Sub

   Public Overrides Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean
       If Not IsNothing(cookies.GetCookies(New Uri(url)).Item(defaultCookieName)) Then
           Return True
       End If
       Return False
   End Function
End Class

create another class name it 

HTTPWorker.vb


Imports System.Net

Imports System.Text
Imports System.IO.Compression

Public Class HTTPWorker
    Public Shared cookies As CookieContainer
    Private data As Byte()

    Public Function login(ByVal forumInstance As Forum) As Boolean
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse
        Dim stream As IO.Stream

        cookies = New CookieContainer
        Try
            request = WebRequest.Create(forumInstance.loginUrl)
            setConnectionParameters(request)

            data = Encoding.ASCII.GetBytes(forumInstance.logindata)
            request.ContentLength = data.Length
            stream = request.GetRequestStream()
            stream.Write(data, 0, data.Length)
            stream.Flush()
            stream.Close()

            response = request.GetResponse()

            If forumInstance.isLoggedIn(cookies) Then
                Return True
            End If
        Catch ex As Exception
            'do something with the exception
        End Try
        Return False
    End Function

    Public Sub setConnectionParameters(ByRef request As HttpWebRequest)
        With request
            .Method = "POST"
            .Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
            .ContentType = "application/x-www-form-urlencoded"
            .Proxy = Nothing
            .CookieContainer = cookies
            .KeepAlive = True
            .ServicePoint.Expect100Continue = False
            .UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.8) Gecko/20051111 Firefox/1.5; FBI-version/0.07"
            '.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate") if you want to speed up the steam reading (most boards support this)
        End With
    End Sub

    'this function not implemented, it is added to show how to link the cookies from the login
    Public Sub navTo()
        'Dim request As HttpWebRequest
        'request.CookieContainer = cookies
        'etcetc: you could set idletime, speed if you simultaniously want to fire requests, headers, method (get/post), etc
    End Sub

    'Note: to read the result in login()
    '--If you want to read the result (using compression techniques to speed it up--
    'Dim responseStream As IO.Stream = response.GetResponseStream()

    'If (response.ContentEncoding.ToLower().Contains("gzip")) Then
    ' responseStream = New GZipStream(responseStream, CompressionMode.Decompress)
    'ElseIf (response.ContentEncoding.ToLower().Contains("deflate")) Then
    ' responseStream = New DeflateStream(responseStream, CompressionMode.Decompress)
    'End If

    'Dim streamReader As IO.StreamReader = New IO.StreamReader(responseStream, Encoding.Default)
    'Dim result As String = streamReader.ReadToEnd().Trim()
    'streamReader.Close()
    '--
End Class


create another class name it

Forum.vb

Public MustInherit Class Forum

    Private _logindata As String
    Private _loginUrl As String
    Private _url As String
    Private _username As String
    Private _defaultCookieName As String
    Private _defaultCookieSearch As String

    Public Sub New(ByVal url As String, ByVal loginUrl As String, ByVal username As String, ByVal cookieName As String, _
    ByVal cookieSearch As String, Optional ByVal data As String = "")
        Me._url = url
        Me.loginUrl = loginUrl
        Me.logindata = data
        Me.username = username
        Me._defaultCookieName = cookieName
        Me._defaultCookieSearch = cookieSearch
    End Sub

    Public MustOverride Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean

    Public Property logindata() As String
        Get
            Return Me._logindata
        End Get
        Set(ByVal value As String)
            Me._logindata = value
        End Set
    End Property

    Public Property url() As String
        Get
            Return Me._url
        End Get
        Set(ByVal value As String)
            Me._url = value
        End Set
    End Property
    Public Property loginUrl() As String
        Get
            Return Me._loginUrl
        End Get
        Set(ByVal value As String)
            Me._loginUrl = value
        End Set
    End Property

    Public Property username() As String
        Get
            Return Me._username
        End Get
        Set(ByVal value As String)
            Me._username = value
        End Set
    End Property
    Public Property defaultCookieName() As String
        Get
            Return Me._defaultCookieName
        End Get
        Set(ByVal value As String)
            Me._defaultCookieName = value
        End Set
    End Property
    Public Property defaultCookieSearch() As String
        Get
            Return Me._defaultCookieSearch
        End Get
        Set(ByVal value As String)
            Me._defaultCookieSearch = value
        End Set
    End Property
End Class


double click Form1.vb

paste this in

Imports System.Net, System.IO, System.Management, System, System.Security.Cryptography, System.Text
Imports System.Security.Permissions
Imports Microsoft.Win32
Public Class Form1
    Public PVerison As String = "V1"
    Public web As String = "http://cgi.pchelppros.com" 'your hidden path for the loader system
    Public forum As String = "SERVER URL HERE" 'your forum path which people have to register / login (mybb)
    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'load login information if asked
        Dim vCheatLoader As RegistryKey = _
           Registry.CurrentUser.CreateSubKey("vCheatLoader")
        vCheatLoader.CreateSubKey("vCheatLoader").Close()
        Dim Settings As RegistryKey = _
            vCheatLoader.CreateSubKey("Settings")
        Dim RememberMeChecked As String = Settings.GetValue("RememberMe")
        If RememberMeChecked = "True" Then
            Dim username As String = Settings.GetValue("Username")
            Dim password As String = Settings.GetValue("Password")
            TextBox1.Text = username
            TextBox2.Text = password
            CheckBox1.Checked = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MessageBox.Show("Please Enter Your Username And Password.")
        Else
            If CheckBox1.Checked = True Then
                Dim vCheatLoader As RegistryKey = _
            Registry.CurrentUser.CreateSubKey("vCheatLoader")
                vCheatLoader.CreateSubKey("vCheatLoader").Close()
                Dim Settings As RegistryKey = _
                    vCheatLoader.CreateSubKey("Settings")
                Settings.SetValue("Username", TextBox1.Text)
                Settings.SetValue("Password", TextBox2.Text)
                Settings.SetValue("RememberMe", CheckBox1.Checked)
            Else
                Dim vCheatLoader As RegistryKey = _
Registry.CurrentUser.CreateSubKey("vCheatLoader")
                vCheatLoader.CreateSubKey("vCheatLoader").Close()
                Dim Settings As RegistryKey = _
                    vCheatLoader.CreateSubKey("Settings")
                Settings.SetValue("Username", "")
                Settings.SetValue("Password", "")
                Settings.SetValue("RememberMe", "False")
            End If
            Dim wrkr As New HTTPWorker()
            Dim myBBForum As New myBB(forum, TextBox1.Text, TextBox2.Text)
            If wrkr.login(myBBForum) Then
                Me.Hide()
                Main.Show()
            Else
                MsgBox("You Have Entered Invalid Account Information. Please Try Again.")
            End If
        End If
        'Select Case system2.CheckLogin(TextBox1.Text, TextBox2.Text)
        '    Case "True"
        'Me.Dispose()
        'Main.Show()
        '  Case "Banned"
        '  MsgBox("You Attempt To Access This Account Has Failed. Reason = This Account Has Had Its Permissions Removed And Has Been Banned!", MsgBoxStyle.Critical, "This Account Is Banned")
        '     Case "Invalid Account Details"
        ' MsgBox("Invalid Username Or Password", MsgBoxStyle.Critical, "Error")
        '     Case Else
        '  MsgBox("An Error has occurred, Please try again in a few moments", MsgBoxStyle.Exclamation, "Error")
        ' End Select
    End Sub
 
  
End Class
 
now create new windows form name it Main.vb

Site's DEAD.
Site's not dead, http://redsecurity.info/cc/Thread-vb-net...gin-system
they changed the domain.

rocket

2017-10-04, 06:49 PM
form looks like crap but it works it actually works vb.net mybb_user register no login code included just mybb user register
only part of code i have not figured out is getting captcha web browser image to display in a picture box

not much code

form1.vb

whats need

7 textboxes
2 buttons
note when starting the app first click button2

after u filled in the textbox info

click button 1

please note as this is my first attempt
u will have to look at the web browser
on form1.vb
to get Captcha image


Public Class Form1
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim doc As Size = Me.WebBrowser1.document.Body.ScrollRectangle.Size
doc = Size.Add(doc, New Size(50, 50))

Dim wb As Size = Me.WebBrowser1.Size

Dim factor As String = (Math.Round(Math.Min(wb.Width / doc.Width, wb.Height / doc.Width), 2) * 100).ToString & "%"
Me.WebBrowser1.document.Body.Style &= ";zoom:" & factor
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

WebBrowser1.Navigate("http://45.32.168.102/forum/member.php?action=register")




End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


WebBrowser1.Document.GetElementById("username").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("password").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("password2").SetAttribute("value", TextBox3.Text)
WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox4.Text)
WebBrowser1.Document.GetElementById("email2").SetAttribute("value", TextBox5.Text)
WebBrowser1.Document.GetElementById("imagestring").SetAttribute("value", TextBox6.Text)
WebBrowser1.Document.GetElementById("answer").SetAttribute("value", TextBox7.Text)

WebBrowser1.Document.GetElementById("regsubmit").InvokeMember("click")
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
WebBrowser1.Document.GetElementById("agree").InvokeMember("click")
End Sub
End Class

rocket

2018-05-01, 02:51 AM
Working mybb user register vb.net

whats need 7 textboxes
1 picturebox
2 buttons

source:
Public Class reegister

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim doc As Size = Me.WebBrowser1.document.Body.ScrollRectangle.Size
        doc = Size.Add(doc, New Size(50, 50))

        Dim wb As Size = Me.WebBrowser1.Size

        Dim factor As String = (Math.Round(Math.Min(wb.Width / doc.Width, wb.Height / doc.Width), 2) * 100).ToString & "%"
        Me.WebBrowser1.document.Body.Style &= ";zoom:" & factor
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

     

        WebBrowser1.Navigate("SITE URL HERE/member.php?action=register")




    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("username").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("password").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("password2").SetAttribute("value", TextBox3.Text)
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox4.Text)
        WebBrowser1.Document.GetElementById("email2").SetAttribute("value", TextBox5.Text)
        WebBrowser1.Document.GetElementById("imagestring").SetAttribute("value", TextBox6.Text)
        WebBrowser1.Document.GetElementById("answer").SetAttribute("value", TextBox7.Text)

        '   WebBrowser1.Document.GetElementById("regsubmit").InvokeMember("click")
    End Sub


'this below can be deleted

    ' WebBrowser1.Document.GetElementById("username").SetAttribute("value", TextBox1.Text)
    ' WebBrowser1.Document.GetElementById("password").SetAttribute("value", TextBox2.Text)
    ' WebBrowser1.Document.GetElementById("password2").SetAttribute("value", TextBox3.Text)
    ' WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox4.Text)
    ' WebBrowser1.Document.GetElementById("email2").SetAttribute("value", TextBox5.Text)
    ' Me.WebBrowser1.Document.GetElementsByTagName("input")(1).SetAttribute("value", TextBox6.Text)
    ' WebBrowser1.Document.GetElementById("CAPTCHa").SetAttribute("value", TextBox6.Text)
    ' WebBrowser1.Document.GetElementById("question_id").SetAttribute("value", TextBox7.Text)
    ' WebBrowser1.Document.GetElementById("regsubmit").InvokeMember("click")
'stop


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("agree").InvokeMember("click")
    End Sub


      Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    Dim elem As HtmlElement = WebBrowser1.Document.GetElementById("captcha_img")
       Dim cap As Object = WebBrowser1.Document.DomDocument.bOdy.createControlRange()
        cap.Add(elem.DomElement)
       cap.execCommand("Copy")
        PictureBox1.Image = My.Computer.Clipboard.GetImage
      End Sub
End Class
MyBB Community Forums > Resources > Third Party Integration > Login on myBBForum from form vb.net