 » Site Navigation | | | | » Advertisement | | | | » Recent Threads |  Would you.. Today 02:26 PM Today 02:26 PM 0 Replies, 1 Views | | | | | | | | | |  | | 
01-22-2008, 08:05 AM
|
#11 (permalink)
| Banned 
Join Date: Jun 2007 Posts: 34
GPoints: 20 Rep Power: 0 | Debug.print will output the HTML. I think in VB6 it's called the intermediate window. Use view to open it; find and post the source. | |
| |  | |  | |
01-22-2008, 03:37 PM
|
#12 (permalink)
| Underground 
Join Date: Jan 2007 Posts: 139
GPoints: 21 Rep Power: 6 | Code: </div>
</body>
</html>
<script language="JavaScript">
<!--
var SymRealOnLoad;
var SymRealOnUnload;
function SymOnUnload()
{
window.open = SymWinOpen;
if(SymRealOnUnload != null)
SymRealOnUnload();
}
function SymOnLoad()
{
if(SymRealOnLoad != null)
SymRealOnLoad();
window.open = SymRealWinOpen;
SymRealOnUnload = window.onunload;
window.onunload = SymOnUnload;
}
SymRealOnLoad = window.onload;
window.onload = SymOnLoad;
//-->
</script>
HTTP/1.1 200 OK
Transfer-Encoding: chunked
Date: Tue, 22 Jan 2008 22:33:53 GMT
Server: Apache/2.2.4 (Fedora)
X-Powered-By: PHP/5.1.6
Set-Cookie: PHPSESSID=*****************; path=/
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
--------------: ----
Connection: close
Content-Type: text/html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<base href="http://srpg.myircshells.com/"/>
<title>Shadow RPG :: Shadow Realm</title>
<link rel="stylesheet" href="includes/style.css" />
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="JavaScript">
<!--
function SymError()
{
return true;
}
window.onerror = SymError;
var SymRealWinOpen = window.open;
function SymWinOpen(url, name, attributes)
{
return (new Object());
}
window.open = SymWinOpen;
//-->
</script>
<script type="text/javascript" src="formscript.js"></script>
</head>
<body onload="window.status='Shadow RPG v1.0'">
<div align="center">
<table width="900" class="td" cellpadding="0" cellspacing="0">
<tr>
<td align="right" height="60" bgcolor="#FFFFFF" style="border-bottom: solid black 1px;"><div align="center"><img alt="" src="images/header1.gif" /></div></td>
</tr>
<tr>
<td>
<table>
<tr>
<td valign="top" width="150">
<table cellpadding="0" cellspacing="0" class="td" width="100%">
<tr>
<td style="border-bottom: solid black 1px;" bgcolor="#EEEEEE" align="center"><b>Login</b></td>
</tr>
<tr>
<td>
<br />
<div align="center">
<form method="post" action="login.php">
<input type="text" name="user" value="Username" onfocus="if(this.value=='Username')this.value='';" onblur="if(this.value=='')this.value='Username';" />
<input type="password" name="pass" value="password" onfocus="if(this.value=='password')this.value='';" onblur="if(this.value=='')this.value='password';" />
<input type="submit" value="Login" onclick="this.disabled = 'true'; this.value = 'Loading..'; this.form.submit();" />
<br /><input name="cookie" type="checkbox" value="1" /> Remember Me
</form>
[<a class="link" href="registera.php">Register</a>] [<a class="link" href="lostpass.php">Lost Pass</a>]<br />
</div>
</td>
</tr>
</table>
<br />
<table cellpadding="0" cellspacing="0" class="td" width="100%">
<tr>
<td style="border-bottom: solid black 1px;" bgcolor="#EEEEEE" align="center"><b>Nav</b></td>
</tr>
<tr>
<td style="background-image: url(tdbg.gif); background-position: bottom left; background-repeat: no-repeat;">
- <a href="about.php">About SRPG</a><br />
</td>
</tr>
</table>
</td>
<td width="600" valign="top">
<table cellpadding="0" cellspacing="0" class="td" width="100%">
<tr>
<td style="border-bottom: solid black 1px;" bgcolor="#EEEEEE" align="center"><b>Shadow Realm</b></td>
</tr>
<tr>
<td align="center">
Please log in to view this page. </td>
</tr>
</table>
</td>
<td width="150" valign="top">
<table cellpadding="0" cellspacing="0" class="td" width="100%">
<tr>
<td style="border-bottom: solid black 1px;" bgcolor="#EEEEEE" align="center"><b>Game info</b></td>
</tr>
<tr>
<td align="left">
<b>544</b> main accounts<br />
<b>195</b> storage accounts<br />
<b>58478</b> pokemon<br />
</td>
</tr>
</table>
<br />
<table cellpadding="0" cellspacing="0" class="td" width="100%">
<tr>
<td style="border-bottom: solid black 1px;" bgcolor="#EEEEEE" align="center"><b>Game</b></td>
</tr>
<tr>
<td>
- <a href="http://srpg.myircshells.com/forums/" target="_blank">Forum</a><br />
</td>
</tr>
</table>
<br />
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#EEEEEE" style="border-top: solid black 1px;">SRPG © 2007 - 2008 HawwO and Trigger<br />Pokémon © 1995 - 2008 Nintendo/Creatures Inc./Game Freak Inc<br />Hosted by: <a href="http://myircshells.com/">http://myircshells.com/</a></td>
</tr>
</table>
</div>
</body>
</html>
<script language="JavaScript">
<!--
var SymRealOnLoad;
var SymRealOnUnload;
function SymOnUnload()
{
window.open = SymWinOpen;
if(SymRealOnUnload != null)
SymRealOnUnload();
}
function SymOnLoad()
{
if(SymRealOnLoad != null)
SymRealOnLoad();
window.open = SymRealWinOpen;
SymRealOnUnload = window.onunload;
window.onunload = SymOnUnload;
}
SymRealOnLoad = window.onload;
window.onload = SymOnLoad;
//-->
</script> Is what I get...
It says Shadow Realm, which is the right page to be on to catch pokemon.
__________________
Successful Trades: 4 - Legend and Duckii and iOwnurazz and Matt://, no MM :]
| |
| |  | |
01-22-2008, 03:44 PM
|
#13 (permalink)
| Underground
Join Date: Jan 2007 Posts: 139
GPoints: 21 Rep Power: 6 | "Please log in to view this page. "
Well shit, I guess my log in isn't working properly..
__________________
Successful Trades: 4 - Legend and Duckii and iOwnurazz and Matt://, no MM :]
| |
| | | | | |
01-22-2008, 11:41 PM
|
#14 (permalink)
| Underground
Join Date: Sep 2006 Location: BrisBANE <---- Age: 19 Posts: 5,025
GPoints: 320 Rep Power: 16 | Try to neaten your code up a bit. Quote:
Private Sub cmdLogin_Click()
Dim strHTML As String
strHTML = Wrapper.PostWrapper("http://srpg.myircshells.com/login.php", "user=" & txtUser.Text & "&pass=" & txtPass.Text)
If InStr(1, strHTML, "failed") Then
lblStatus.Caption = "Bad password."
ElseIf InStr(1, strHTML, "logged") Then
lblStatus.Caption = "Logged In."
strHTML = Wrapper.GetWrapper("http://srpg.myircshells.com/index.php", "http://srpg.myircshells.com/login.php")
If InStr(1, strHTML, "Shadow RPG") Then
strHTML = Wrapper.GetWrapper("http://srpg.myircshells.com/promo.php", "http://srpg.myircshells.com/index.php")
strHTML = Wrapper.GetWrapper("http://srpg.myircshells.com/promo.php?action=explore", Wrapper.LastPage)
lblStatus.Caption = "Working."
If InStr(1, strHTML, "Try again") Then
strHTML = Wrapper.GetWrapper("http://srpg.myircshells.com/promo.php?action=explore", "http://srpg.myircshells.com/promo.php?action=explore")
ElseIf InStr(1, strHTML, "Unown") Then
strHTML = Wrapper.GetWrapper("http://srpg.myircshells.com/promo.php?action=catch", "http://srpg.myircshells.com/promo.php?action=explore")
Else
lblStatus.Caption = "Unknown Error. 3"
End If
Else
lblStatus.Caption = "Unknown Error. 2"
End If
Else
lblStatus.Caption = "Unknown Error. 1"
End If
End Sub
| It was hard to understand what you wanted... but try that xD
__________________ This is from:
Screenies Of A Mod Code: How did you do it? FLP , jotform, some other form of hacking? - First Class Noob Lawl.. funny shit.
Quote: |
Originally Posted by Kore By  k[ore] on Today, 08:44 AM
i'll give you rep alright, but it won't be positive. | Lawl Ownt
Hoes forgot to eat a dick and shut the FUCK UP! | |
| | | |
01-23-2008, 04:05 PM
|
#15 (permalink)
| Underground
Join Date: Jan 2007 Posts: 139
GPoints: 21 Rep Power: 6 | Hrm. I got Unknown Error 3.
__________________
Successful Trades: 4 - Legend and Duckii and iOwnurazz and Matt://, no MM :]
| |
| | |
01-23-2008, 10:47 PM
|
#16 (permalink)
| Underground
Join Date: Sep 2006 Location: BrisBANE <---- Age: 19 Posts: 5,025
GPoints: 320 Rep Power: 16 | Unown
You sure you didn't miss type that
maybe Unknown?
__________________ This is from:
Screenies Of A Mod Code: How did you do it? FLP , jotform, some other form of hacking? - First Class Noob Lawl.. funny shit.
Quote: |
Originally Posted by Kore By k[ore] on Today, 08:44 AM
i'll give you rep alright, but it won't be positive. | Lawl Ownt
Hoes forgot to eat a dick and shut the FUCK UP! | |
| | | | | |
01-25-2008, 06:03 AM
|
#17 (permalink)
| Underground
Join Date: Jan 2007 Posts: 139
GPoints: 21 Rep Power: 6 | Nah, it's Unown. :/
Can someone join the website to get a better feel of what I'm trying to do, please? x_x
Okay so apparently (thanks to Debug.Print) my login is messing up. What happens is it'll input the username/pass on the and hit log in but after that a redirect page will pop up, saying: Quote:
You are logged in. You will be redirected in 0 seconds.
If you are not redirected, please click here.
| Then it redirects to the index, but if you 'click here' it'll take you to: Shadow RPG :: Stats
Now, I tried the Debug.Print after immediately logging in, and it successfully tells me that I am logged in and waiting to be redirected. When you 'click here' when you're actually on the site (and not using the program) it'll take you to the stats page and keep you logged in. When I put it into my program, then put Debug.Print after it, the Immediate Window tells me that I'm no longer logged in. Any help here? Quote:
Private Sub cmdLogin_Click()
Dim strHTML As String, OnOff As Boolean
strHTML = Wrapper.PostWrapper("http://srpg.myircshells.com/login.php", "user=" & txtUser.Text & "&pass=" & txtPass.Text)
If InStr(1, strHTML, "failed") Then
lblStatus.Caption = "Bad password."
ElseIf InStr(1, strHTML, "You are logged") Then
lblStatus.Caption = "Logged In."
Debug.Print strHTML
Else
lblStatus.Caption = "Unknown Error."
End If
End Sub
| So basically this redirect is messing me up, cause I don't know how to make the program 'wait to be redirect [and stay logged in]' on its own, and forcing it to go to the stats.php page after logging in isn't letting me stay logged in. ><
Hell yeah, I finally got it to work lol. Any way to make it wait between page changes? I wanna slow the program down a little.
__________________
Successful Trades: 4 - Legend and Duckii and iOwnurazz and Matt://, no MM :]
Last edited by Tyler; 01-26-2008 at 07:24 PM.
| |
| | | | |
|
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | | | | Thread Tools | | | | Display Modes |  Linear Mode |
Posting Rules
| You may not post new threads You may not post replies You may not post attachments You may not edit your posts
HTML code is Off | | |
|
