Help With Coding Myspace

[Charlie Stallings]

what do i have wrong here?

Dim i As Integer
For i = 0 To List.ListCount - 1
BrowSerA.Navigate2 "http://friends.myspace.com/index.cfm?fuseaction=invite.addfriend_verify&friendId=" & List.List(i)
Do Until BrowSerA.ReadyState = 4
DoEvents
Loop
BrowSerA.Document.All("ctl00_ctl00_ctl00_cpMain_cpMain_cpfMainBody_AddFriendRequestButtons_btnAddToFriends").Click
Do Until BrowSerA.ReadyState = 4
DoEvents
Loop
Next

[westconn1]

give us a clue
what happens? error, nothing, unexpeced result?

[Charlie Stallings]

what i want it to do is goto the url click the button on the page then wait for the next page to load then start over

[Charlie Stallings]

here is what i have so far

i have included the source code to my project if you can get it working right then repost it also you wont need a username or password i have included a test account for this as well so if you can help then please do

the way it works is you login using my test account then click browser then browse friends thats the best way then hit gather ids it'll gather the ids but when you click add friends thats where im having the problem if you can assit then please do

[Charlie Stallings]

the way you get the ids is login using the provided myspace email and password (already in text boxes just click login) then goto friends and click browse friends then when you get to the browse friends page click get ids that works fine it loads to a listbox and all but i need help with the adding part ....

[Charlie Stallings]

why does it freeze visual basic sometimes? take a look at the adding code and see whats wrong?

[Charlie Stallings]

here is a error im getting after changing the code


Run-time error'91':

Object varible or With block variable not set


i got it to get to the click but it errors out


here is my updated code want to have a look at source let me know will upload updated source or just relace code in previous source PLEASE HELP!!!!!!!!!!

Dim i As Integer
Dim HTMLData As String
HTMLData = BrowSerA.Document.documentelement.innerhtml
For i = 0 To List.ListCount - 1
BrowSerA.Navigate2 "http://friends.myspace.com/index.cfm?fuseaction=invite.addfriend_verify&friendId=" & List.List(i)
Do Until Not BrowSerA.ReadyState = 4
DoEvents
Loop
Form1.Text3.Text = BrowSerA.Document.documentelement.innerhtml
BrowSerA.Document.All("ctl00_ctl00_ctl00_cpMain_cpMain_cpfMainBody_AddFriendRequestButtons_btnAddToFriends").Click
Do Until BrowSerA.LocationURL = ("http://friends.myspace.com/index.cfm?fuseaction=invite.addfriend_confirm&statusCD=0&friendId=") & List.List(i)
DoEvents
Loop
Next

[akhileshbc]

Try this:
use set

set HTMLData = BrowSerA.Document.documentelement.innerhtml

[Charlie Stallings]

sorry i forgot to remove that line it didnt even have any meaning in that new code so that wouldnt correct anything

[Charlie Stallings]

ok i got it clicking the link and going to the next page it looks like it adds the users and everything it looks like its working great but when you go to the sent request page the requests you send arnt there


here is the source

[Charlie Stallings]

anyone?

[akhileshbc]

when i tried your code, it shows some error message and asks for debugging....

My system details:
OS : Win XP Pro
IE ver: 6

May be it is due to this old IE or something, i don't know...

I will try to check them... But I am not sure..

[Charlie Stallings]

i dunno man its nt erroring on my end but if you get it working correctly upload the project

[Charlie Stallings]

heres the update i got it adding and everything but it errors out can someone help me fix the errors? thats all i need now i fixed the adding code

[Charlie Stallings]

anyone?

[akhileshbc]

[Charlie Stallings]

hmmmmmmmm i dont get that error

[Charlie Stallings]

hmmmm im not sure why your getting that error ..... someone please assist me in this project the coded work but sometimes error out

[Charlie Stallings]

anyone know?

[si_the_geek]

Unfortunately threads on this topic are not allowed on this site.

That is because the MySpace Terms include this:

The following are examples of the kind of activity that is illegal or prohibited ...

8.24 any automated use of the system, such as, but not limited to, using scripts to add friends or send comments, messages, status or mood updates, blogs or bulletins;

..as such you are not allowed to write a program to interact with their site.

Our rules (see the Acceptable Use Policy link at the bottom of all VBForums pages) explicitly state that you cannot use this site to get assistance with violating the rules of other sites - so I'm afraid this thread is now closed.