Dream.In.Code > Programming Help > VB6

Welcome to Dream.In.Code
	Become a VB Expert! Join 300,430 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,491 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

htpp wrapper Problem

Options

nick1200	3 Jul, 2009 - 04:30 PM Post #1
D.I.C Addict Joined: 21 Mar, 2009 Posts: 551 Thanked: 6 times My Contributions	i am new to all this vb stuff but i am trying to make my program login into a site and go to a page and add a person has a freined on the persons whos logged in account ill show my code the explain the problem i use this code to login which works CODE Private Sub Command1_Click() Dim strHTML As String strHTML = HTTPWrapper1.GetWrapper("http://www.bebo.com/SignIn.jsp") strHTML = HTTPWrapper1.PostWrapper("http://www.bebo.com/SignIn.jsp", "FriendsMemberId=&FriendsChecksumNbr=&InviteRecipientId=&InviteChecksumNbr=&AppUrl=&Page=&QueryString=&Domain=&api_key=&AppId=&next=&canvas=null&v=&EmailUsername=" & Text1.Text & "&Password=" & Text2.Text & "&SignIn=Log+In") If InStr(strHTML, "Set-Cookie: Username=") Then Label1.Caption = "logged in" Else Label1.Caption = "Failed To Login" End If End Sub Then i got this bit of code to go to the profile they type in to the text box there is a text box textbox3 every id they enter in the text box i want it to add heres the code CODE Private Sub Command2_Click() Label2.Caption = " adding Users" Dim strHTML As String Dim count As String count = 0 Do Until count = 3 strHTML = HTTPWrapper1.GetWrapper("www.bebo.com/AddAsFriend.jsp?From=Profile&MemberId= & Text3.text") strHTML = HTTPWrapper1.PostWrapper("www.bebo.com/AddAsFriend.jsp?From=Profile&MemberId=" & Text3.Text, "Yes=+Delete+") Label2.Caption = "User added" count = count + 1 Timer1 = SecondsToWait.Text Loop End Sub i save the program and try to use it it logs in i enter ids click go and it says its done but it hasn't added them peep
	This Post Was Helpful!