zoom teams

settitlematchmode, 2
f1::
;teams gui and hotkeys
Gui, -Caption +AlwaysOnTop
Gui, Add, Button, x12 y9 w80 h30 gmuter, Mute / Unmute
Gui, Add, Button, x102 y9 w80 h30 gmuteall, Mute All but Host
Gui, Add, Button, x192 y9 w80 h30 gpauseshare, Pause Screen Share
Gui, Add, Button, x282 y9 w80 h30 gscreenshot, Screen Shot
Gui, Add, Button, x372 y9 w80 h30 gfindsomeone, Find Someone
Gui, Add, Button, x462 y9 w80 h30 gbackgroundblur, Toggle Blur
Gui, Add, Button, x552 y9 w30 h30 gclose, X
Gui, Show, x355 y135 h47 w589,
Return

;close script
close:
gui, destroy
;exitapp
return

;mute unmute - alt+ A or crtl shift m
muter:
WinActivate, teams
send ^+m
Return

;mute all but host - Alt+M ; zoom
muteall:
WinActivate, zoom
send !m
Return

;pause screen share - Alt+T:
pauseshare:
WinActivate, teams
send !t
return

;screen shot - Alt+Shift+T
screenshot:
WinActivate, teams
send !+t
return

;search bar send back 2 times to clear - ctrl e then ctrl shift c
findsomeone:
send ^c
WinActivate, teams
send ^e
send {backspace 2}
send ^v
Send {return}
send good morning whats todays goals
send {return}
return

;toggle background blur ctrl shift p
backgroundblur:
WinActivate, teams
send ^+p
return


f2::
InputBox, Token, Zoom Token, Please enter your token
InputBox, idofme, Zoom Token, Please enter your ID
EndPoint=https://api.zoom.us/v2/meetings/​%idofme%/registrants?page_size=100
Reg:=API_Call("GET",Endpoint,QS,Token,Payload)

for key, value in Reg.Registrants
 {
 data.=value.First_name a_tab value.Last_name
 }
return

API_Call(Type,Endpoint,QS,Token,Payload)
 {
 HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1")
 HTTP.Open(TYPE,EndPoint QS)
 HTTP.SetRequestHeader("Authorization","Bearer " Token)
 HTTP.SetRequestHeader("Content-Type","application/json")
 HTTP.Send(Payload)
 ;results:=ParseJSON(HTTP.ResponseText)
 msgbox, %results%
 }
Return