Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

FaceBooker - update your facebook without getting stuck


  • Please log in to reply
31 replies to this topic
sumon
  • Moderators
  • 1317 posts
  • Last active: Dec 05 2016 10:14 PM
  • Joined: 18 May 2010
Posted Image

How many of us haven't dreamed about being able to update our facebook, without getting stuck at actually browsing around on facebook? Hmm, well maybe noone. Anyway: I present to you, a faster way of accessing and updating your facebook directly from your computer: FaceBooker (Original).

For a working version of the app, you'll have to use the .exe, or insert Gmail information yourself. Uses CDO COM and REQUIRES the COM library. Original sourcecode can be found at the bottom of this post.

FaceBooker.exe (Original)

NOTE: daonlyfreez has been so kind as to make an updated version, which I from hereon will refer to as FaceBooker. It has more functions than the original, and is safer, using password encryption and more.

Posted Image

See his post below or download source / executable.
#SingleInstance Force
IniRead, EmailTo, Data/FaceBookerSettings.ini, General, UploadEmail, ---
IfExist, Data/FaceBookerIcon.ico
Menu, Tray, Icon, Data/FaceBookerIcon.ico
Menu, Tray, NoStandard
Menu, Tray, Add, (U) Upload, GuiCreate
Menu, Tray, Add, (X) Exit, ExitApp
GuiCreate:
Gui, Destroy
Gui, Add, Button, x10 gFileUpload, [SelectFile]
Gui, Add, Text, yp+6 x80, %AttachFile%
Gui, Add, Text, x10, Status update:
Gui, Add, Edit, r3 w500 vEmailStatus, This update was sent from the FaceBooker app.
Gui, Add, Button, gSetEmail, [SetEmail]
Gui, Add, Text, yp+6 x80, %EmailTo%
Gui, Add, Button, x10 gSubmit, GO!
Gui, Color, D8DFEA
Gui, Show, FaceBooker
return
SetEmail:
ClipboardSaved:=ClipBoardAll
ClipBoard:=
Gui, Destroy
Gui, Add, Text,, To update your status with text and pictures, FaceBooker will need access to your personal Facebook upload email adress. You can find it at the below link. `n`nPlease select the emailadress from below link, and copy it (ctrl+c).
Gui, Add, Button, gGoLink, http://m.facebook.com/upload.php?
Gui, Show
ClipWait
Send ^w
TrayTip, FaceBooker:, Added %ClipBoard% as your email adress, 3, 1
Emailto:=Clipboard
IniWrite, %EmailTo%, Data/FaceBookerSettings.ini, General, UploadEmail
ClipBoard:=ClipBoardSaved
Gosub, GuiCreate
WinActivate, FaceBooker
return
FileUpload:
StringTrimRight, MyPictures, A_MyDocuments, 9
MyPictures := MyPictures . "Pictures"
IfExist, %MyPictures%
FileSelectFile, AttachFile, 1, %MyPictures%, Select photo to upload
Else
FileSelectFile, AttachFile, 1,, Select photo to upload
Gosub, GuiCreate
return
Submit:
Gui, Submit
IfInString, EmailTo, @
Gosub, SendEmail
Else
MsgBox Your Send-to adress is not configured. Cannot update status.
Gosub, ExitApp
return
GoLink:
Run, "http://m.facebook.com/upload.php?"
return
GuiClose:
ExitApp
return
SendEmail:
; SEND-info
sFrom     := "[email protected]" ;"[email protected]"
sTo       := EmailTo ; From the SetEmail subroutine
sSubject  := EmailStatus ; From the edit-box vEmailStatus
sText     := ; Text not needed: EmailText . "`n`n" . EmailFrom
sAttach   := AttachFile

; SERVER-info
sServer   := "smtp.gmail.com" ; specify your SMTP server
nPort     := 465 ; 25
bTLS      := True ; False
sUsername := "*CENSORED*@gmail.com"
sPassword := "*CENSORED*

COM_Init()
pmsg :=   COM_CreateObject("CDO.Message")
pcfg :=   COM_Invoke(pmsg, "Configuration")
pfld :=   COM_Invoke(pcfg, "Fields")

COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout", 60)
COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/smtpserver", sServer)
COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/smtpserverport", nPort)
COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/smtpusessl", bTLS)
COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/sendusername", sUsername)
COM_Invoke(pfld, "Item", "http://schemas.microsoft.com/cdo/configuration/sendpassword", sPassword)
COM_Invoke(pfld, "Update")

COM_Invoke(pmsg, "From", sFrom)
COM_Invoke(pmsg, "To", sTo)
COM_Invoke(pmsg, "Subject", sSubject)
COM_Invoke(pmsg, "TextBody", sText)
COM_Invoke(pmsg, "AddAttachment", sAttach)
COM_Invoke(pmsg, "Send")

COM_Release(pfld)
COM_Release(pcfg)
COM_Release(pmsg)
COM_Term()
TrayTip, Facebooker:, Status updated!, 2, 1
Sleep 3000
return
ExitApp:
ExitApp


Lucid_Method
  • Members
  • 147 posts
  • Last active: Dec 06 2014 08:39 AM
  • Joined: 19 Apr 2010
I've been meaning to get back into facebook, maybe this will help get me started :-)
Posted Image
Macro Everything
Lucid_Method Index

daonlyfreez
  • Members
  • 995 posts
  • Last active: Jan 23 2013 08:16 AM
  • Joined: 16 Mar 2005
I created a more extended version with a "nice" GUI. Am still working on command-line support. I tried using Sean's AES encryption, but I could not get it to work, so I used Laszlo's RC4 encryption instead.

I used AutoHotkey Basic.

Download executable here/Download source here.

Please test and tell me if you encounter any issues. As stated: command-line support is not done yet, but the rest seems to work just fine.

The source-code is still quite the mess, but I will reorder/cleanup if everything is working as should.

PS: I used IcoFX to convert the famfamfam .png-files to icons. Converting with IrfanView gives ugly transparency results.

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

:)
Posted Image mirror 1mirror 2mirror 3ahk4.me • PM or Posted Image

Gast_
  • Guests
  • Last active:
  • Joined: --
Very nice and professional looking gui! Arranged nicely and the user keeps the overview. :)

Don't have a Facebook Account, but this is how Gui's should be designed. :!:

daonlyfreez
  • Members
  • 995 posts
  • Last active: Jan 23 2013 08:16 AM
  • Joined: 16 Mar 2005
Thanks!

8)
Posted Image mirror 1mirror 2mirror 3ahk4.me • PM or Posted Image

SoLong&Thx4AllTheFish
  • Members
  • 4999 posts
  • Last active:
  • Joined: 27 May 2007
Any chance of adding oauth for twitter so you can update both at once or just one of them. Perhaps just use <!-- m -->http://fbcmd.dtompkins.com/<!-- m --> but that would require PHP to be installed. And yes that is a nice looking Gui.

daonlyfreez
  • Members
  • 995 posts
  • Last active: Jan 23 2013 08:16 AM
  • Joined: 16 Mar 2005
I have not found a way to add OAuth to AHK projects without adding a ton of extra files. It is probably easier to simply use a browser-control in those cases.

:?
Posted Image mirror 1mirror 2mirror 3ahk4.me • PM or Posted Image

SoLong&Thx4AllTheFish
  • Members
  • 4999 posts
  • Last active:
  • Joined: 27 May 2007
Would it be possible to use a browser control for the FB text update as well, if so one could replace the current edit control and automate tweet by scripting this app? Just thinking out loud here, I'm looking for a way to tweet status updates...

sumon
  • Moderators
  • 1317 posts
  • Last active: Dec 05 2016 10:14 PM
  • Joined: 18 May 2010
Woawoawoa! :) Awesome additions, glad that I gave you the idea. I'll try it out within soon.

Wicked - Guest
  • Guests
  • Last active:
  • Joined: --
How about uploading files to your Facebook from a link that's in the clipboard. ;).

sumon
  • Moderators
  • 1317 posts
  • Last active: Dec 05 2016 10:14 PM
  • Joined: 18 May 2010

How about uploading files to your Facebook from a link that's in the clipboard. ;).


Doable, and that's what the Facebooker would need to be truly useful - Ways to do stuff even faster.

By the way, I used Facebooker and failed to connect, and now I failed getting my password. SO heeeeeywhat?

daonlyfreez
  • Members
  • 995 posts
  • Last active: Jan 23 2013 08:16 AM
  • Joined: 16 Mar 2005

How about uploading files to your Facebook from a link that's in the clipboard.


Ok, I could add that.

By the way, I used Facebooker and failed to connect, and now I failed getting my password. SO heeeeeywhat?


Could you be a bit more specific? Did you check your firewall?
Posted Image mirror 1mirror 2mirror 3ahk4.me • PM or Posted Image

sumon
  • Moderators
  • 1317 posts
  • Last active: Dec 05 2016 10:14 PM
  • Joined: 18 May 2010

How about uploading files to your Facebook from a link that's in the clipboard.


Ok, I could add that.

By the way, I used Facebooker and failed to connect, and now I failed getting my password. SO heeeeeywhat?


Could you be a bit more specific? Did you check your firewall?


I would gladly errorsearch, but the password-requirement doesn't go away even when I "reinstall" FaceBooker (your version), so I can't check again. It's probably not the firewall, but rather some messyness with either the COM library or an errarenous password to Gmail (unless you do errorcheck for that).

daonlyfreez
  • Members
  • 995 posts
  • Last active: Jan 23 2013 08:16 AM
  • Joined: 16 Mar 2005
Do you mean the password for access to FaceBooker itself, or is it the password you use for the email-address? I do not do an check for the validity of the password you insert for your email-address, how could I?

When you use a Gmail account, make sure you use port 465 and check the TLS checkbox.

Oh, and do you use the source version or the compiled version? If you use the source version it might be that you have another version of the COM library somewhere in your Lib folders that "overrides" the specific AutoHotkey Basic version I included.

If you - by incident - use AutoHotkey_L instead of AutoHotkey Basic with the source version, it won't work either. You can see if you did if you look at the tabs. In that case you will only see icons, the text is missing from the tabs.
Posted Image mirror 1mirror 2mirror 3ahk4.me • PM or Posted Image

Wicked - Guest
  • Guests
  • Last active:
  • Joined: --
I use 25 for Gmail without issue. ;).