Facebook Updater for mIRC

By GrimReaper on Jul 23, 2011

This isn't originally my snippet, I saw it and decided to have a go at making it post to facebook..

Original Snippet: http://forum.swiftirc.net/viewtopic.php?f=34&t=23791

UPDATE: I have made this code into a dialog snippet.. All you need to do now is load up the dialog.. Input your email address and password for Facebook.. Then hit Setup.

After you've done that.. It'll tell you that it has set it up correctly.. When it's done that you can post to facebook your new status'.. I will eventually be making a new update but not for a while yet..

I hope you all like it.. :)

Image

NOTE: Will not work if your profile is set to private.. I am still tryin to figure that out!

I am currently on mIRC 6.35 so I am unsure if this will work on Later versions.. I will download the latest mIRC and re-write it on that eventually..

menu menubar,channel,query,status {
  Facebook Update:dialog $iif($dialog(facebook),-v,-m facebook) facebook
}
dialog facebook {
  title "Facebook Status Updater by Danneh"
  size -1 -1 125 115
  option dbu
  text "Username:", 4, 3 3 26 8
  edit "", 5, 31 2 91 10, autohs
  text "Password:", 6, 3 14 25 8
  edit "", 7, 31 13 91 10, pass autohs
  box "Status:", 8, 3 35 119 50
  edit "", 9, 6 43 112 38, multi return autovs
  text "", 10, 3 88 119 8, center
  button "Setup", 11, 5 99 37 12
  button "Update", 12, 44 99 37 12
  button "Ok/Cancel", 13, 83 99 37 12, ok cancel
  check "Remember Me", 14, 31 24 50 10
  menu "File", 1
  item "Clear Status", 2, 1
  item "Close", 3, 1, cancel
}

on *:DIALOG:facebook:init:*: {
  if ((%fbuser) && (%fbpass)) {
    did -a $dname 5 %fbuser
    did -a $dname 7 %fbpass
    did -c $dname 14
  }
  if (%fburl1) { did -h $dname 11 }
}

on *:DIALOG:facebook:sclick:11,12,14: {
  if ($did == 11) {
    sockclose fbsetup
    sockopen fbsetup m.facebook.com 80
    sockmark fbsetup $+($did(5),$chr(170),$did(7))
    did -ra $dname 10 ---- Starting Facebook Script ----
  }
  if ($did == 12) {
    var %a = 1
    while (%a <= $did($dname,9).lines) {
      set %fbupdate $addtok(%fbupdate,$did(facebook,9,%a),32)
      inc %a
    }
    sockclose fbupdate
    sockopen fbupdate m.facebook.com 80
    sockmark fbupdate $+($did(5),$chr(170),$did(7),$chr(170),%fbupdate)
  }
  if ($did(14).state == 0) { unset %fbuser %fbpass }
  if ($did(14).state == 1) { set %fbuser $did(5) | set %fbpass $did(7) }
}

on *:sockopen:fbsetup: {
  tokenize 170 $sock(fbsetup).mark
  var %data $+(email=,$1,&pass=,$2,&login=Log_in)
  var %fbtype sockwrite -nt $sockname
  %fbtype POST /login.php?http HTTP/1.1
  %fbtype Host: m.facebook.com
  %fbtype Content-Type: application/x-www-form-urlencoded
  %fbtype Content-Length: $len(%data) 
  %fbtype $crlf $+ %data
}
on *:sockread:fbsetup: {
  var %fb | sockread %fb
  if $regex(%fb,Location: http://m.facebook.com/(.*)) {
    did -ra facebook 10 ---- Retrieving cookies ----
    set %fburl / $+ $regml(1)
  }
  if $regex(%fb,Set-Cookie: L=(.*) path=/; domain=.facebook.com; httponly) {
    set %fbc1 cur_max_lag= $+ $regml(1)
  }
  if $regex(%fb,Set-Cookie: datr=(.*) expires=.*) {
    set %fbc2 datr= $+ $regml(1)
  }
  if $regex(%fb,Set-Cookie: m_user=(.*) expires=.* path=/; domain=.facebook.com; httponly) {
    set %fbc3 m_user= $+ $regml(1)
  }
  if $regex(%fb,Set-Cookie: W=(.*) path=/; domain=.facebook.com) {
    set %fbc4 made_write_conn= $+ $regml(1)
  }
  .sockclose fbsetup2
  sockopen fbsetup2 m.facebook.com 80
}

on *:sockopen:fbsetup2: {
  var %fbtype sockwrite -nt $sockname
  %fbtype GET %fburl HTTP/1.1
  %fbtype Host: m.facebook.com
  set %cookie $+(%fbc1,;,$chr(32),%fbc2,;,$chr(32),%fbc3,;,$chr(32),%fbc4)
  %fbtype Cookie: %cookie
  %fbtype $crlf 
}

on *:sockread:fbsetup2: {
  var %f2
  sockread %f2
  if $regex(%f2,action="\/a\/(.*)"><input type="hidden") {
    set %fburl1 $+(/a/,$regml(1))
  }
  if $regex(%f2,name="fb_dtsg" value="(.*)" autocomplete="off" \/><input type="hidden") {
    set %fbv1 fb_dtsg= $+ $regml(1)
  }
  if $regex(%f2,name="post_form_id" value="(.*)" /><input type="hidden") {
    set %fbv2 post_form_id= $+ $regml(1)
    .sockclose fbsetup2
    .sockclose fbsetup
    did -ra facebook 10 ---- All information stored. ----
    .timer 1 1 did -r facebook 10
    did -h facebook 11
  }
}

on *:sockopen:fbupdate: {
  tokenize 170 $sock(fbupdate).mark
  var %data $+(%fbv1,&,%fbv2,&status=,$3-,&update=Share)
  var %fbtype sockwrite -nt $sockname
  %fbtype POST %fburl1 HTTP/1.1
  %fbtype Host: m.facebook.com
  %fbtype Cookie: %cookie
  %fbtype Content-Type: application/x-www-form-urlencoded
  %fbtype Content-Length: $len(%data)
  %fbtype User-Agent: $+(mIRC/,$version)
  %fbtype $crlf $+ %data
  did -ra facebook 10 ---- Status updated ----
  .timer 1 1 did -r facebook 10
  .unset %fbupdate
}

Comments

Sign in to comment.
devcline   -  Apr 29, 2015
  • /did: invalid parameters
  • and dosent work
 Respond  
SpotsBox   -  Mar 24, 2014

hey could i get this converted to osx for mac irc client textual? applescript conversion right?

 Respond  
sagargulati   -  Dec 24, 2013

Can we make it work using Apps on Facebook or the API's?

 Respond  
Xzempt   -  Jun 18, 2013

This just gets stuck on "Retrieving Cookies" ;[

 Respond  
frederik   -  Jun 03, 2012

ok thanks grimreaper :)

 Respond  
GrimReaper   -  Jun 03, 2012

@frederik I will have a look into changing it for you, But I'm unsure if it still works.. But will see what I come up with for you. :)

 Respond  
frederik   -  Jun 03, 2012

hello does it possible to make this scritp work in #chan like type !post2fb (message on facebook)

Thank you

 Respond  
TMFKSOFT   -  Oct 15, 2011

Ripley, Fan pages are the same as Profiles.
Just the profile type is set to page instead of user.
So a page will carry a profile id just like a group or user.
You can change the code to post to your fanpage instead of yours.
I'm probably talking wrong here. but you may be able to find a way to change it.

 Respond  
GrimReaper   -  Jul 25, 2011

Line 67 is

    did -ra facebook 10 ---- Retrieving cookies ----

I can't see why that is giving an error.. I tried it on my mIRC and all works well.. Although I am on mIRC 6.35.

 Respond  
TMFKSOFT   -  Jul 25, 2011
  • /did: invalid parameters (line 67, script12.mrc)
  • /did: invalid parameters
 Respond  
TMFKSOFT   -  Jul 25, 2011

Im guessing that you can play with the %fburl part.
Ill look into it myself! Nice one Dan

 Respond  
Ripley   -  Jul 24, 2011

Hi im new to this but how i can change it for a facebook fans page ? thank you

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.