You are not connected. Please login or register

View previous topic View next topic Go down  Message [Page 1 of 1]

The Professor

avatar
Contributor
Loading
Alright, I know I'm going a little overboard with these type of scripts, but most of you are more familiar with VB than you are with AutoIt. So I made an authorization script in VB6 + VB.NET. For those of you who are fairly new to Visual Basic the best option would be to download the .zip file, but those of you who have fairly enough experience to implement this code without downloading any files, the source code will be included in this post.

VB6 Download: [You must be registered and logged in to see this link.]

VB6 Source Code:
Code:
Private Sub Command1_Click()
    Dim oHTTP As winhttp.WinHttpRequest
   
    Set oHTTP = New winhttp.WinHttpRequest

    oHTTP.Open "GET", "http://www.computalks.com/login?" & "username=" & Text1.Text & "&password=" & Text2.Text & "&login=Log+in", False
    oHTTP.Send
   
    If InStr(oHTTP.ResponseText, "Welcome") Then
            Text1.Text = ""
            Text2.Text = ""
            MsgBox ("Login Sucessful!")
            ' Secondary Functionality Here...
        Else
            Text1.Text = ""
            Text2.Text = ""
            MsgBox ("Login Unsucessful! Invalid User Info.")
            ' Secondary Consequencial Functionality Here..
    End If
End Sub
VB8 / VB.NET Download: [You must be registered and logged in to see this link.]

VB8 / VB.NET Source Code:
Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oHTTP As WinHttp.WinHttpRequest
        oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

        oHTTP.Open("GET", "http://www.computalks.com/login?" & "username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&login=Log+in", False)
        oHTTP.Send()

        If InStr(oHTTP.ResponseText(), "Welcome") Then
            TextBox1.Text = ""
            TextBox2.Text = ""
            'Secondary Actions / Main Functionality Here...
            MsgBox("Success! User has been successfully authenicated!")
        Else
            TextBox1.Text = ""
            TextBox2.Text = ""
            MsgBox("Failure! User data invalid!")
            'Secondary Consequencial Functionality Here...
        End If
    End Sub
End Class

Requirements (Both):

Form; don't change name from the default.
Two TextBoxes; don't change name from the default.
Button; don't change name from the default.

I think this is pretty deserving of +rep, but I'll let you decide.

As a side note, the VB6 version of the authorization will be posted ASAP.






OwenWilson

avatar
Master
Loading
wait,, wat do u open thes files wit???????????????????????
my wizardzip watever dwont open it.
Sad
plos reppd btw

The Professor

avatar
Contributor
Loading
OwenWilson wrote:wait,, wat do u open thes files wit???????????????????????
my wizardzip watever dwont open it.
Sad
plos reppd btw

You have to download WinRar to open the zip.
BTW, you didn't +rep me, you -rep'd me rofl.

Apocalypse

avatar
Master
Loading
+ Rep, good tut bro.

OwenWilson

avatar
Master
Loading
Protozoid wrote:
OwenWilson wrote:wait,, wat do u open thes files wit???????????????????????
my wizardzip watever dwont open it.
Sad
plos reppd btw

You have to download WinRar to open the zip.
BTW, you didn't +rep me, you -rep'd me rofl.

wat no idint, u have a +rep on there
Smile
also winzardzip says it can open .rar files.............
BAUT IT WONT!!
Sad
is somethin wrong wit mine/????

The Professor

avatar
Contributor
Loading
OwenWilson wrote:
Protozoid wrote:
OwenWilson wrote:wait,, wat do u open thes files wit???????????????????????
my wizardzip watever dwont open it.
Sad
plos reppd btw

You have to download WinRar to open the zip.
BTW, you didn't +rep me, you -rep'd me rofl.

wat no idint, u have a +rep on there
Smile
also winzardzip says it can open .rar files.............
BAUT IT WONT!!
Sad
is somethin wrong wit mine/????

Most likely, there's nothing wrong with the files I posted.
And just drop the whole reputation thing, you didn't +rep me but I don't mind.

OwenWilson

avatar
Master
Loading
Protozoid wrote:
OwenWilson wrote:
Protozoid wrote:
OwenWilson wrote:wait,, wat do u open thes files wit???????????????????????
my wizardzip watever dwont open it.
Sad
plos reppd btw

You have to download WinRar to open the zip.
BTW, you didn't +rep me, you -rep'd me rofl.

wat no idint, u have a +rep on there
Smile
also winzardzip says it can open .rar files.............
BAUT IT WONT!!
Sad
is somethin wrong wit mine/????

Most likely, there's nothing wrong with the files I posted.
And just drop the whole reputation thing, you didn't +rep me but I don't mind.
o.
whar do i get this winar thing??????
Razz

The Professor

avatar
Contributor
Loading
[You must be registered and logged in to see this link.]

OwenWilson

avatar
Master
Loading
mmk doneloaded
so wat exatly do thwese do????????????
tongue

The Professor

avatar
Contributor
Loading
OwenWilson wrote:mmk doneloaded
so wat exatly do thwese do????????????
tongue

It allows you the open files with the .rar extension.
Try opening the file now, it should work.

OwenWilson

avatar
Master
Loading
Protozoid wrote:
OwenWilson wrote:mmk doneloaded
so wat exatly do thwese do????????????
tongue

It allows you the open files with the .rar extension.
Try opening the file now, it should work.
o ok,,
but i meant wat do ur orignal ifles do????
:o

The Professor

avatar
Contributor
Loading
OwenWilson wrote:
Protozoid wrote:
OwenWilson wrote:mmk doneloaded
so wat exatly do thwese do????????????
tongue

It allows you the open files with the .rar extension.
Try opening the file now, it should work.
o ok,,
but i meant wat do ur orignal ifles do????
:o

Why download it if you don't know what it does..?
It's an authorization script for the site.

Here's a screenshot of it:



But I doubt you're gonna use it anyways.

OwenWilson

avatar
Master
Loading
o lol probly not
Razz
but now i have wirnar!!!!!!!!!

The Professor

avatar
Contributor
Loading
OwenWilson wrote:o lol probly not
Razz
but now i have wirnar!!!!!!!!!

OwenWilson

avatar
Master
Loading
Protozoid wrote:
OwenWilson wrote:o lol probly not
Razz
but now i have wirnar!!!!!!!!!

uhhh ya lol
i typod
sry
Razz Razz Rolling Eyes
its winrar.

Sponsored content


Loading

View previous topic View next topic Back to top  Message [Page 1 of 1]

Related topics

Permissions in this forum:
You cannot reply to topics in this forum