[TUT] Poll Voter....!!!

i m giovng you some script tht will help u to make poll voter if u have little knowledge of VB.. these script are based o Ajax...with ajax you dont need to navigate towards poll...just paste it on any orkut page and let the script handle the rest..!!!

Moreover ajax is lot more faster than the regular one..!!

The following one is for Voting

javascript:send="POST_TOKEN=" + encodeURIComponent(JSHDF['CGI.POST_TOKEN']) + "&signature=" + encodeURIComponent(JSHDF['Page.signature.raw']) + "&option="+"OPTION"+"&public_vote=1"+"&Action.vote=";var xml = new XMLHttpRequest();xml.open("POST", "/CommPollVote.aspx?cmm=CMM&pid=PID&pct=PCT", true);xml.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;");xml.send(send);void(0)

The following One is for comment
javascript:send="POST_TOKEN=" + encodeURIComponent(JSHDF['CGI.POST_TOKEN']) + "&signature=" + encodeURIComponent(JSHDF['Page.signature.raw']) + "&postText="+encodeURIComponent(" Comment")+"&Action.submit=";var xml = new XMLHttpRequest();xml.open("POST", "/CommPollResults.aspx?cmm=CMM&pid=PID&pct=PCT", true);xml.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;");xml.send(send);void(0)

Now since some Polls require comm joininghere is one more script tht will help you...just Add this at the start of one the scripts given above

javascript:send="POST_TOKEN=" + encodeURIComponent(JSHDF['CGI.POST_TOKEN']) + "&signature=" + encodeURIComponent(JSHDF['Page.signature.raw']) + "&Action.join=";var xml = new XMLHttpRequest();xml.open("POST", "/CommunityJoin.aspx?cmm=32982657", true);xml.setRequestHeader("Content-Type", "application/x-www-form-urlencoded;");xml.send(send);void(0)


THESE SCRIPTS ARE WORKING IN FF i dont know abt IE 7..!!!
____________________________________________________________________



NOw some tips to make your POll voter


1..create a textbox and ask ppl to enter fakes in following manner

_________________

Text1.text
_________________

user1:Pass1
user2:pass2
_________________

_________________

2..now use the command Split...Split breaks the pasticular character and makes and array ouuta them

start:

dim a
dim i=0
a=split(text1.text,vbcrlf)
b=split(a(i),":")

user=b(0)
pass=b(1)

if i=ubound(a) then
masgbox("Fakes khatam paisa hajam")
end if


ur function here

goto start




similarly by using the same function u can introduce another feature...!!! random comment from array of comment


1..Ask the user 2 enter as many comments as possible in a multiline textbox now use following command...eg..

_________________

text2.text
_________________

hi
Bye

_________________
_________________


dim a,b,comment
a=split(text2.text,vbcrlf)
b=ubound(a)
comment=a(int(rnd*b))