Sep 24, 2011 11:59 AM
(This post was last modified: Sep 24, 2011 12:02 PM by Androcir.)
So yeah, today i finished a, kinda 2 hours project.
So here's a showoff xD
Features
So what this does, as the title says, it logs in to something that you want, and it registers to that samething...
This applications uses a uploaded textfile to get and check if the username/password is right. In order to do this you need to upload a php file, that will write/create the textfile in the same domain.
Source of The program
Login Form
Register Form
PHP File
If you're going to useit, leave a thanks =)
Special Thanks
Ac!d!c.
Вanksy
Antti
So here's a showoff xD
Features
So what this does, as the title says, it logs in to something that you want, and it registers to that samething...
This applications uses a uploaded textfile to get and check if the username/password is right. In order to do this you need to upload a php file, that will write/create the textfile in the same domain.
Source of The program
Login Form
Code
Imports System.Net
Imports System.IO
Public Class Form1
Dim wc As New Net.WebClient
Dim texting = wc.DownloadString("<yourdomainhere>/data.txt")
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
Form2.TextBox1.Text = Me.TextBox1.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Nothing Or TextBox2.Text = Nothing Or TextBox1.Text = Nothing And TextBox2.Text = Nothing Then
MessageBox.Show("Please specify both username and password")
ElseIf texting.contains(TextBox1.Text & ":" & TextBox2.Text) Then
MessageBox.Show("you're loged in")
ElseIf Not texting.contains(TextBox1.Text & ":" & TextBox2.Text) Then
MessageBox.Show("Invalid login information")
End If
End Sub
End ClassRegister Form
Code
Imports System.Net
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim request As WebRequest = WebRequest.Create("<yourdomainhere>/post.php?w=" & TextBox1.Text & ":" & TextBox2.Text)
request.GetResponse()
MessageBox.Show("You have been successfully Registered, please restart the application to login", "Notification")
Button2.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start(Application.ExecutablePath)
Me.Close()
Form1.Close()
End Sub
End ClassPHP File
Code
<?php
$msg = $_GET['w'];
$logfile= 'data.txt';
$fp = fopen($logfile, "a");
fwrite($fp, $msg);
fclose($fp);
?>If you're going to useit, leave a thanks =)
Special Thanks
Ac!d!c.
Вanksy
Antti
"There's no dead which can eternal lie, and with strange Aeons even death may die."


