It is currently Sat Sep 11, 2010 12:07 am

All times are UTC [ DST ]




Post new topic Reply to topic  [ 26 posts ]  Go to page 1, 2  Next
Author Message
 Post subject: Help request for a vb6 noob (even more now)
PostPosted: Fri Jul 13, 2007 12:55 am 
Offline
User avatar
.: Level II :.

Joined: Tue Jul 10, 2007 3:42 pm
Posts: 202
Location: Unknown
iTrader:
Gender: Male
Cash:134
Reputation point: 1
Poprockz is on a distinguished road



Okay, so I just started learning VB6 and I just got through a login source, figuring out all the code along the way. If I were to make a, say, autobuyer, what step would I take next? Can someone with experience point me in the right direction? Thanks in advance.


See the bottom of this thread for my current issue..


Last edited by Poprockz on Fri Jul 13, 2007 3:53 pm, edited 1 time in total.

Top
 Profile  
 
 Post subject: Re: Help request for a vb6 noob
PostPosted: Fri Jul 13, 2007 2:08 am 
Offline
User avatar
.: Evil Moderators :.

Joined: Wed Feb 21, 2007 3:55 am
Posts: 1854
iTrader:
Gender: Male
Cash:1062
Reputation point: 143
Billytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to all


Content Giveaway Donor Award Graphics Trader Winner Award

Poprockz wrote:
Okay, so I just started learning VB6 and I just got through a login source, figuring out all the code along the way. If I were to make a, say, autobuyer, what step would I take next? Can someone with experience point me in the right direction? Thanks in advance.
you cant expect to make an aber right after you started learning. i recommend learning how to use functions in the wrapper and other functions like findstring and instr to help make programs more dynamic

_________________
Image


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 3:02 am 
Offline
.: Newbie :.

Joined: Tue Dec 26, 2006 12:57 am
Posts: 2354
Location: Indiana
iTrader:
Gender: Male
Cash:1433
Reputation point: 4
the_skip is on a distinguished road


Content Giveaway Donor Award Winner Award

I would learn how to make a money tree grabber. I would recomend looking at some source to get the feel of the language

_________________
Image


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 3:11 am 
Offline
.: Newbie :.

Joined: Mon Apr 09, 2007 1:49 am
Posts: 825
iTrader:
Gender: Male
Cash:16
Reputation point: 0
Snowman is an unknown quantity at this point
Maybe try making something really simple like a spider program since you just started. Making a ABer is way too hard for begineers

_________________
Image
Programs:
NP GEN- 98% done
Auto-pricer
Cellblock AP
Neoboard Spammer


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 3:39 am 
Offline
User avatar
.: Level II :.

Joined: Tue Jul 10, 2007 3:42 pm
Posts: 202
Location: Unknown
iTrader:
Gender: Male
Cash:134
Reputation point: 1
Poprockz is on a distinguished road



Alright, thanks for the help, guys. I already understand some commands, I think. Like InStr..

Anyway, I'll go look for some money tree grabber sources/spiderer sources if I can find any.

While I'm here.. can anyone explain to me why this isn't working? Keep in mind that it's for Subeta, not Neopets.

Code:
Private Sub cmdStart_Click()
Dim strHTML As String

lblStatus.Caption = "Starting up!"
strHTML = wrapper.GetWrapper("http://www.subetax.org /explore/ocean_depths.php", "http://www.subetax.org/ explore/unknown.php")

If InStr(1, strHTML, "welcome") Then
lblStatus.Caption = "It's working, captain."
ElseIf InStr(1, strHTML, "Ocean Depths Vending Machine") Then
lblStatus.Caption = "Not quite there, captain."
Else
lblStatus.Caption = "Unknown :("
End If
End Sub


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 4:27 am 
Offline
.: Newbie :.

Joined: Tue Dec 26, 2006 12:57 am
Posts: 2354
Location: Indiana
iTrader:
Gender: Male
Cash:1433
Reputation point: 4
the_skip is on a distinguished road


Content Giveaway Donor Award Winner Award

first remove spaces, secondsly teh instr is case sensitive. if you need help fell free to pm/msn me. Also remebr if you have to be logged int to veiw the page you will not be logged in sicne you;ll nned to manually login with the httpwrapper

_________________
Image


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 4:41 am 
Offline
User avatar
.: Level II :.

Joined: Tue Jul 10, 2007 3:42 pm
Posts: 202
Location: Unknown
iTrader:
Gender: Male
Cash:134
Reputation point: 1
Poprockz is on a distinguished road



I've added you on msn. :). Thanks for the help so far

EDIT: In case I don't get in contact with you soon enough: The problem still occurs.. I changed the InStr to "Welcome" to be more accurate, but it still return and unknown error. For the login part.. are you saying I have to include a login to my program for it to work? Or can I just manually log in on firefox and start the program?

EDIT again: Another thing.. can anyone here successfully make a login for Subetax.org? If they could and show me the source, I'd greatly appreciate it, for I have failed every attempt :(


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 5:00 am 
Offline
.: Newbie :.

Joined: Tue Dec 26, 2006 12:57 am
Posts: 2354
Location: Indiana
iTrader:
Gender: Male
Cash:1433
Reputation point: 4
the_skip is on a distinguished road


Content Giveaway Donor Award Winner Award

well I'm really supoosed to be asleep right now so I cannot be on right now. And yes you will need a working sebetax.org login for this program to work unless you grab the bookie from firefox which is next to impossible for a begiiner.

_________________
Image


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 5:12 am 
Offline
User avatar
.: Level II :.

Joined: Tue Jul 10, 2007 3:42 pm
Posts: 202
Location: Unknown
iTrader:
Gender: Male
Cash:134
Reputation point: 1
Poprockz is on a distinguished road



the_skip wrote:
well I'm really supoosed to be asleep right now so I cannot be on right now. And yes you will need a working sebetax.org login for this program to work unless you grab the bookie from firefox which is next to impossible for a begiiner.


Damn.. I tried to make a login for Subeta but it wouldn't work..
Well, thanks for the help D:


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 3:50 pm 
Offline
User avatar
.: Level II :.

Joined: Tue Jul 10, 2007 3:42 pm
Posts: 202
Location: Unknown
iTrader:
Gender: Male
Cash:134
Reputation point: 1
Poprockz is on a distinguished road



Well, along with this not working:

Code:
Private Sub cmdStart_Click()
Dim strHTML As String

lblStatus.Caption = "Starting up!"
strHTML = wrapper.GetWrapper("http://www.subetax.org/explore/ocean_depths.php", "http://www.subetax.org/ explore/unknown.php")

If InStr(1, strHTML, "welcome") Then
lblStatus.Caption = "It's working, captain."
ElseIf InStr(1, strHTML, "Ocean Depths Vending Machine") Then
lblStatus.Caption = "Not quite there, captain."
Else
lblStatus.Caption = "Unknown :("
End If
End Sub


I tried to make a login, but it's not working either. Here's the code:

Code:
Private Sub cmdLogin_Click()
Dim strHTML As String

strHTML = wrapper.GetWrapper("http://www.subetax.org/")
lblStatus.Caption = "Logging in 1 . . ."
strHTML = wrapper.GetWrapper("http://www.subetax.org/login.php", "http://www.subetax.org/")
lblStatus.Caption = "Logging in 2 . . ."
strHTML = wrapper.Postwrapper("http://www.subetax.org/login.php", "Name=" & txtUser.Text & "&Password=" & txtPass.Text & "&act=login&actcode=&Login=Login")
lblStatus.Caption = "Logging in 3 . . ."

If InStr(1, strHTML, "Incorrect") Then
lblStatus.Caption = "Bad password. Try again."
ElseIf InStr(1, strHTML, "http://www.subetax.org/news.php") Then
lblStatus.Caption = "You have logged in."
Else
lblStatus.Caption = "Error. :("
End If

End Sub


The login tells me if the pass is bad, which is good. But it won't recognize it when I put in a GOOD user/pass. If I do, it gives me an error.


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 4:32 pm 
Online
User avatar
.: Admin :.

Joined: Mon Oct 30, 2006 12:35 pm
Posts: 1180
Location: UK
iTrader:
Gender: Male
Cash:1803
Reputation point: 213
expon has a brilliant futureexpon has a brilliant futureexpon has a brilliant futureexpon has a brilliant futureexpon has a brilliant futureexpon has a brilliant futureexpon has a brilliant futureexpon has a brilliant futureexpon has a brilliant future


Giveaway Donor Award Winner Award

add a breakpoint on this line

ElseIf InStr(1, strHTML, "http://www.subetax.org/news.php") Then

and hover your mouse over strHTML and see what code that string contains, paste it here.

also when you say an error do you mean a proper error or the 'Error :(' message in the label?


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 4:34 pm 
Offline
User avatar
.: Level II :.

Joined: Tue Jul 10, 2007 3:42 pm
Posts: 202
Location: Unknown
iTrader:
Gender: Male
Cash:134
Reputation point: 1
Poprockz is on a distinguished road



expon wrote:
add a breakpoint on this line

ElseIf InStr(1, strHTML, "http://www.subetax.org/news.php") Then

and hover your mouse over strHTML and see what code that string contains, paste it here.

also when you say an error do you mean a proper error or the 'Error :(' message in the label?


What's a breakpoint?
and I hovered but I don't get anything.. only the mouse is there :(.
and the error is my error, not the proper error.

Also,

Code:
ElseIf InStr(1, strHTML, "http://www.subetax.org/news.php")

The url in that code doesn't have to be there.. I could just change it to something else contained on the page after you login (right?)


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 4:53 pm 
Offline
User avatar
.: Evil Moderators :.

Joined: Wed Feb 21, 2007 3:55 am
Posts: 1854
iTrader:
Gender: Male
Cash:1062
Reputation point: 143
Billytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to all


Content Giveaway Donor Award Graphics Trader Winner Award

a break is where you click on the left margin on the line you want it to stop at and a red circle will appear and when your running the program the code window will come up and you can check the values of your variables.

_________________
Image


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 5:08 pm 
Offline
User avatar
.: Level II :.

Joined: Tue Jul 10, 2007 3:42 pm
Posts: 202
Location: Unknown
iTrader:
Gender: Male
Cash:134
Reputation point: 1
Poprockz is on a distinguished road



Okay, I clicked the side and the red circle appeared.. I ran the program.. then it stopped and there's a yellow circle and yellow background on that line now. What do I do next?

Wait, I hovered over strHTML and got this:

Code:
strHTML = "HTTP/1.1 302 FoundDate: Fri, 13 Jul 2007 16:07:39 GMTServer: ...


That's all it says..


Top
 Profile  
 
 Post subject:
PostPosted: Fri Jul 13, 2007 5:41 pm 
Offline
User avatar
.: Evil Moderators :.

Joined: Wed Feb 21, 2007 3:55 am
Posts: 1854
iTrader:
Gender: Male
Cash:1062
Reputation point: 143
Billytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to allBillytart is a name known to all


Content Giveaway Donor Award Graphics Trader Winner Award

Poprockz wrote:
Okay, I clicked the side and the red circle appeared.. I ran the program.. then it stopped and there's a yellow circle and yellow background on that line now. What do I do next?

Wait, I hovered over strHTML and got this:

Code:
strHTML = "HTTP/1.1 302 FoundDate: Fri, 13 Jul 2007 16:07:39 GMTServer: ...


That's all it says..
you need the whole strhtml, so after the instr, put msgbox(strhtml) and that should be enough to see at least to the part your looking for.

_________________
Image


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 26 posts ]  Go to page 1, 2  Next

All times are UTC [ DST ]


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

Search for:
Jump to:  
* FAQ

Powered by phpBB © 2000-2008 phpBB Group
NEOPETS, characters, logos, names and all related indicia are trademarks of Neopets, Inc., © 1999-2008. © denotes Reg. US Pat. & TM Office. All rights reserved.
Website © 2008 neofriends.net - this site is in no way affiliated with Neopets, Inc or Viacom International, Inc.

phpBB SEO