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)
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
