AciidForums » Computing » Programming » Final Releases
View unanswered posts
View active topics

AF Auth Module

Reply to topic Page 1 of 1 [ 3 posts ]
AF Auth Module
Author Message

Offline Liam

1337 n00b!!!111!!one!


User avatar


Joined: Mon Feb 04, 2008 3:57 am

Posts: 2504

Location: Wales

PostPosted: Thu Nov 06, 2008 10:01 pm   Post subject: AF Auth Module   
Aciid Auth Module, add Module, then add 3 texbox's, & a button, 1 textbox called User, 1 called Pass, 1 called Sid
You need Wrapper added & named Wrapper, kinda pointless i no but got bored dft011


You do not have the required permissions to view the files attached to this post.
Top Profile 

Offline Intoxic

The Don


Joined: Sun Jan 27, 2008 6:38 pm

Posts: 1026

Location: Sheffield, UK

PostPosted: Fri Nov 07, 2008 5:42 pm   Post subject: Re: AF Auth Module   
No offense but you're wank at functions.

Here is a better copy of your code (Ch r(34) is spaced, remove it).
Code: Select all
Public Function AF(WForm As Form, Username As String, Password As String)
Dim strHTML As String, SID As String

If Username = vbNullString Then
AF = False
Exit Function
ElseIf Password = vbNullString Then
AF = False
Exit Function
End If

strHTML = WForm.Wrapper.GetWrapper("http://www.aciidforums.com/ucp.php?mode=login")
SID = GB(strHTML, "sid=", Ch r(34))
strHTML = WForm.Wrapper.PostWrapper("http://www.aciidforums.com/ucp.php?mode=login", "username=" & Username & "&password=" & Password & "&redirect=index.php&sid=" & SID & "&login=Login", "http://www.aciidforums.com/ucp.php?mode=login")
If InStr(strHTML, "You have been successfully logged in.") Then
AF = True
Else
AF = False
End If
End Function


How to call:
Code: Select all
If AF(Form1, User.Text, Pass.Text) = False Then
MsgBox "You Failed To Login"
Exit Sub
else
Msgbox "Shoop Da Whoop"
End If

_________________
Image
Top Profile E-mail 

Offline Liam

1337 n00b!!!111!!one!


User avatar


Joined: Mon Feb 04, 2008 3:57 am

Posts: 2504

Location: Wales

PostPosted: Fri Nov 07, 2008 6:19 pm   Post subject: Re: AF Auth Module   
Tbh i don't care was just bored xD
Top Profile 
Display posts from previous:  Sort by  
Reply to topic Page 1 of 1 [ 3 posts ]

 
 •  

Who is online
Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum