Socials Mini

Post your working scripts, libraries and tools
User avatar
adegard
Posts: 77
Joined: 24 Nov 2017, 05:58
GitHub: adegard

Socials Mini

05 Dec 2018, 07:11

Simple and Fast,
I skip errors, after login when you enter you need to click on logo (above left corner)

2018-12-10:
-added Gmail
-added Instagram (but cannot load photos for now)

Image

Code: Select all


#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
SetBatchLines -1
FileEncoding, UTF-8

Menu Tray, Icon, shell32.dll, 265


Gui,+AlwaysOnTop
;Gui 1:+Resize 
Menu, Social, Add, &Facebook, Facebook
;Menu, Social, Add, &Linkedin, Linkedin
Menu, Social, Add, &Instagram, Instagram
;Menu, Social, Add, &Pinterest, Pinterest
;Menu, Social, Add, &Github, Github
;Menu, Social, Add, &Whatsapp, Whatsapp
Menu, Utilities, Add, &Gmail, Gmail
;Menu, Utilities, Add, &Google, Google
Menu, Utilities, Add, &YouTube, YouTube
Menu, MyMenuBar, Add, &Socials, :Social
Menu, MyMenuBar, Add, &Utilities, :Utilities
; Attach the menu bar to the window:
Gui, Menu, MyMenuBar

Gui, 1:Add, ActiveX, x5 y5 w365 h480 vpwb, Shell.Explorer



;pwb.Navigate("http://m.facebook.com",0,0,0,"User-Agent: Mozilla/5.0 (Mobile; Windows Phone 8.1; Android 4.0; ARM; Trident/7.0; Touch; rv:11.0; IEMobile/11.0; NOKIA; Lumia 520) like iPhone OS 7_0_3 Mac OS X AppleWebKit/537 (KHTML, like Gecko) Mobile Safari/537")

    pwb.Navigate("https://m.facebook.com",0,0,0,"User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0; NOKIA; Lumia 710)")  


pwb.silent := true ;Surpress JS Error boxes
pwb.statusbar := false
WinGetTitle, WinTitle, A


;**********************************
Gui, 1:Show, w374 h492, Socials Mini ;w811 h412
WinGetPos,,, Width, Height, Socials Mini
WinMove, Socials Mini,, (A_ScreenWidth)-(Width), (A_ScreenHeight)-(Height*1.1)
while pwb.busy
	sleep 10
;
window := pwb.document.parentWindow

WinGet, active_id, ID, A
  
return

Pinterest:
    ;pwb.Navigate("https://www.pinterest.com")
     pwb.Navigate("http://www.pinterest.com",0,0,0,"User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.3; Trident/7.0; .NET4.0E; .NET4.0C)")
return


Facebook:
    ;pwb.Navigate("http://m.facebook.com",0,0,0,"User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0; NOKIA; Lumia 710)")
    pwb.Navigate("https://m.facebook.com",0,0,0,"User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0; NOKIA; Lumia 710)")    
return

Gmail:
    pwb.Navigate("https://mail.google.com/mail/",0,0,0,"User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0; NOKIA; Lumia 710)")    
return

Google:
    pwb.Navigate("https://www.google.com",0,0,0,"User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0; NOKIA; Lumia 710)")    
return


Whatsapp:

    pwb.Navigate("https://web.whatsapp.com/",0,0,0,"User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows Phone OS 7.5; Trident/5.0; IEMobile/9.0; NOKIA; Lumia 710)")    
return
Instagram:
   ; pwb.Navigate("http://www.instagram.com")
    
    
    ;Mozilla/4.0 (compatible; MSIE 6.0; Windows CE; IEMobile 6.12)
    
    pwb.Navigate("https://m.instagram.com/",0,0,0,"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows CE; IEMobile 6.12)")

    ;https://pastebin.com/pTshVbNr
    ;   https://pastebin.com/TdEst4VF 
    
return

Github:
    ;pwb.Navigate("https://github.com/login",0,0,0,"User-Agent: MMozilla/5.0 (iPhone; CPU iPhone OS 11_0_1 like Mac OS X) AppleWebKit/604.1.38 (KHTML, like Gecko) Version/11.0 Mobile/15A402 Safari/604.1")    
    pwb.Navigate("https://github.com/login")    
return

Linkedin:
   ; pwb.Navigate("http://m.Linkedin.com")
    pwb.Navigate("http://m.Linkedin.com",0,0,0,"User-Agent: Mozilla/5.0 (Windows Phone 10.0; Android 6.0.1; Microsoft; Lumia 640 XL) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/52.0.2743.116 Mobile Safari/537.36 Edge/15.15063")
return

YouTube:
    pwb.Navigate("http://m.youtube.com")
    ;pwb.Navigate("http://m.youtube.com",0,0,0,"User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows Phone 8.0; Trident/6.0; IEMobile/10.0; ARM; Touch; NOKIA; Lumia 520)")
    
return


FileExit:     ; User chose "Exit" from the File menu.
GuiClose:  ; User closed the window.
ExitApp

;Esc::ExitApp


Last edited by adegard on 10 Dec 2018, 06:50, edited 3 times in total.
guest3456
Posts: 2570
Joined: 09 Oct 2013, 10:31

Re: Facebook Mini

05 Dec 2018, 12:03

haha nice :thumbsup:

burque505
Posts: 1020
Joined: 22 Jan 2017, 19:37

Re: Facebook Mini

05 Dec 2018, 20:04

Very nice!
godofOOF
Posts: 24
Joined: 22 Dec 2018, 06:03

Re: Socials Mini

31 Dec 2018, 01:39

This is a good script but YouTube dosent seem to work and gmail is not formatted correctly but Instagram and Facebook works fine
User avatar
Delta Pythagorean
Posts: 474
Joined: 13 Feb 2017, 13:44
GitHub: DelPyth
Location: Somewhere in the US

Re: Socials Mini

03 Jan 2019, 06:14

Looks cool, but you can definitely minimize a lot of this code. Even allow the user to add their own log ins if they'd like!

Return to “Scripts and Functions”

Who is online

Users browsing this forum: Chunjee, Spikea and 48 guests