AutoHotkey Community

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