AHK: Internet Explorer Platform APIs (Страница 1 из 2)

ClearTracks(sCmd) 
{
	ValidCmd 	:=  {Files		:8		; Clear Temporary Internet Files
			    ,Cookies		:2		; Clear Cookies
			    ,History		:1		; Clear History
			    ,Forms		:16		; Clear Form Data
			    ,Passwords		:32		; Clear Passwords
			    ,All		:255		; Clear all
			    ,All2		:4351}		; Clear All and Also delete files and settings stored by add-ons

	If (ValidCmd.haskey(sCmd))
	{
		iCmd := ValidCmd[sCmd] ; Get the integer value
		VarSetCapacity(wCmd,15,0)
		DllCall("MultiByteToWideChar", "Uint", 0, "Uint", 0, "str", iCmd, "int", -1, "str", wCmd, "int", 8)
		DllCall("inetcpl.cpl\ClearMyTracksByProcessW", "Uint", 0, "Uint", 0, "str", wCmd, "int", 0)
	}
	Else
		MsgBox % "Invalid Command -" sCmd "-"
	return ErrorLevel
}

Run RunDll32.exe InetCpl.cpl`,ClearMyTracksByProcess 4351

IE := ComObjCreate("InternetExplorer.Application")
IE.Visible := True
IE.Navigate("https://autohotkey.com/search/")
while IE.busy
   continue
oDoc := IE.document
input := oDoc.GetElementByID("gsc-i-id1")
input.value := "SetTimer"
input.focus()
event := oDoc.createEvent("KeyboardEvent")
event.initKeyboardEvent("keydown", true, true, oDoc.parentWindow, "Enter", 0, "", false, "en-US")
input.dispatchEvent(event)

{"eventProperties":{"client_time":1515770208940,"milestone":"launch_web","result":"guest_user","thread_id":"19:9d7a9c975cc34161a9a4ea2bfce85fae@thread.skype","path":"launcher","uiVersion":"30003/0.9999.0.0","session_id":"d13d147a","user_agent":"Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; .NET4.0E; rv:11.0) like Gecko"},"eventName":"weblauncher_join"}

HTTP.Open("GET", "https://join.skype.com/guests/leave?threadId=" threadId, true)
HTTP.send()

HTTP.Open("GET", "https://client-s.gateway.messenger.live.com/v1/threads/" threadId, true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP.setRequestHeader("Content-Type", "application/json")
HTTP.setRequestHeader("csrf_token", csrf_token)
HTTP.setRequestHeader("Authentication", "skypetoken=" skypetoken)
HTTP.setRequestHeader("RegistrationToken", "registrationToken=" registrationToken)
HTTP.send()
HTTP.WaitForResponse()
msgbox % http.responsetext

HTTP.SetRequestHeader("csrf_token", csrf_token)

HTTP.SetRequestHeader("Authentication", "skypetoken=" skypetoken)

#SingleInstance Force
#NoEnv 
  
OnExit, ExitApp 
Global Debug, HTTP, GuestName, Script, Step

GuestName = GuestMuest

Debug := 1

htmldoc := ComObjCreate("htmlfile")
Script := htmldoc.Script
Script.execScript(" ", "JScript")

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")

; ComObjError(false)

Chats = pCNsoYURMAq0|aKLrwYnxcmG1|A2gtoEAl3CUB|m9FV2t2Sn4pJ|jH0VBIsFNP3m|jHvcFCix6fo4|jIYK7ku8pREf|jIjMtgoVGnDA|jKnF6j5QvDlh|jLF1o9qB81tz|jMfGNxQcqrf2|jN0fQJdKFuwG|jPatxd9BrOiv|jRKJ87IqNPlC|jSQlGYDKN6d3|jSgPUHBhFXg2|jTFnFBjyyuws|jUASyemGxz5b|jV3USvobfZf7|jVtZNPfBmVeB|jXAv9Ut6yQ1O|jXeLtbzT0bvB|jXz0OFJ7Zq4d|jZKKlUsWUvUq|jZmZWDQPHyDp|jcGK2TqThART|jcoD6cfqyUFt|jdAXhaxdO5fa|jdk8FB15pFpm|jePRX7SD8mbq|jeUyLXAhe7dk|jfAtvzCtZA6n|jfJeM0uX5eya|jg72h1XivK8t|jgQzRaIxuv3d|jgvXbPe4JJhm|jhTLH5vvJGXR|jiiAreTYgCNc|jjLQ9vDFPl4a|jjPoHZFzhwAR|jkrRO74XgKuX|jnh35Rjxi8EK|jpKadI9JXUIb|jpVtqUyzPJW1|jqVKNtBJfvLo|jrbYrxAAkmjh|jsvOMSdMA03o|jtYb0TYKt4jX|juyTbgQ4Tu8V|jwPqEhe33UGl|jwR523XOHkNa|jxEmBoORbZNH|k15dhTfO7aRz|k5oXtdNB1hj0|k6Bn9TQclvPg|k7AyVvel3zj5|k7PqxtWeXah5|k9iWHf3Qhfmp|kC59p6UNgarR|kJFUGp3ph8k5|kJKn1zUnDxhe|kJkGYFfx7lBt|kLYw93QJ9XAz|kM6uqGsndIhT|kMxAD08O4bBK|kPbt2OPr2hb3|kQoEEJE6uLLr|kQqfb7nRYv62|kRWp2fskNPWy|kRq0bxN6ilH2|kSSwsKlmnC01|kSidlLhiuIDe|kTsXuBhmeier|kUfqrgctqKc1|kWdeekhWiBAH|kbxGTKKv2VFO|kc1Dnr5SM6Xt|kdtB1QxmErDr|kdzqjiWpKRAt|kedtpEjUiAnv|kf23K4wGskrn|kgXB8ovoJS2c|kgxzVWfFvOmT|khYfTqwNh0wG|ki6OeXfXp1JN|kjOWKKAZMyQr|kjSiWaFP9DdL|kjhDiVjgT3KT|klVzZySxiBe8|km8cgz3hKhGr|kmg3z6hz8Bhp|kmvvgJHV0PYC|ko9sm515zTRK|kofsSdZXTeOn|kp76fJCeNXci|krvA4lxYJz93|ksLgtnJxgNzo|ksvQbfQaI2zh|ktZAdGDiu8uD|kudNuzSMxj1t|kuvhUELDruDx|kvHNo6bGM2L3|kw7stiqhiaVb|kx2dsmpUXawS|kxCJ2RqvuqCu|kzvoe7twcz2F|l0OfPJcLgslP|l1YckSCaAr4a|l2iq5NnB6AIi|l3GUzdbl8XIF|l4DFbTbAcA0Q|l4yMSei95hET|l6r9R1cU26pu|l984HjIsdzhf|l98AAYVIrScG|l9JHUwYDW0k9|lBVgdtg7RvPZ|lBqKwpqc6R5h|lC7WBzDMdKa4|lEDETfxA9uqu|lGmnXwv7HCqt|lHctwvWmxkVp|lITdImCDjbWp|lJFZBlfqCJaz|lJfxsucJaXhm|lLAj4qsKpu9n|lM9BkT1xnJTZ|lMeUcZdKhYZ0|lMlOOdejwlGz|lMr7BynO55NH|lOyTKo5iEhFI|lPpEnjs0Momi|lQCuNQ5bKdt1|lQEIyj30OhBe|lR7YVK3Xg33O|lR8gGsASUxaU|lRxI0wuXz7jU|lUKmd0PqtNyK|lUSCSMth7soB|lXg2JzJexIqx|lXz56a0AjRrI|lb4rb0dBYAt5|lbHa9ozN7X5i|lbcyBCT4dvLJ|lcZzkt9oMek8|lcxzA6FOBAUs|le4Qf0mrJKa2|lekGpuLfvPPO|lexuFQhqtsQs|lfVbuglt4ueB|lhjnz13R0QdU|li67o13EKtgs|liYqhiOtrzG5|lkhWKylflG1L|llWg6Xcy3K6e|lmNpUaen4gDz|lmZetQeCzSTS|lo8eltiCtthD|loSi6rg9kY3C|logzoxTDnjxc|lpwDX02rJVm2|ltEjl00ZMtGW|lvkdUawoZeaK|lw9nCgU7PfN2|lx3uj1KhF4wU|lyCqWQdssqjw|m1Dt7UCKH31k|m1H0cpmy164d|m1yK82J3jaCG|m2hCBBkbKHgo|m3JuEtAFEZko|m4k9Upctdgsc|m7GKANdAVPiN|m7Jmo3iJodLP|m7NFwljOSXjw|m7X3aduov61u|m7vanepvzUrC|m8QkJIjUYyaZ|m99qVyvgo8Ak|m9nJbk7syYhb|m9y6rpxqvIet|mBX6K1Pv4YiG|mDyfhSzz1amx|mEHRzvgrWIx8|mELeGZrKo1VY|mEuAqrjITywZ|mEuDaxSPREwn|mFvaGI1La9N8|mGN1Xc4utQV6|mGh4ha1nPTC2|mGzIEzAdfYjb|mIgpQysOHQ7T|mIrfs4wXQf8L|mL9OdcKwNz3X|mNZ1kjICWQTG|mPX14iEv7kDC|mPZNQWQFPAe|mR2BxZXwqn4C|mReUeeXri2tx|mRxocPLCVb9q|mSCf6d9exPeX|mTNAve0Y4Pgn|mTxBRC3iX5zi|mU8pEbjwjzLb|mUbar08KM7mh|mVGeBpQP4SpH|mWGWFicmi1Ve|mXuVKbExe5cC|mZPOYA9kPMff|mZnV3teerrf1|mbA9WYHQxd80|mbUGs7G7TYWE|mcSzA4cAGN2T|mcSzA4cAGN2TJ|mdZYlduUMFJW|mdjgsr1DJthQ|meZjav0PoTeP|mfOxbe07PVf8|mfpOryGxzAem|miJAv6IlnrE6|miWo5rGbnZl6|miodOfIeyZOb|mitdMkVgaTog|ml2uk9gqF1ej|mlP62jGlymDP|modgtNRLNWGt|mqpIyuVFFzl7|mqwIdLWEID9J|msdOXmlrIgSx|msicKQHuK7ri|mszvCgDlbBM8|mtPDw6KfjPCu|mwPu3JW1mGCK|my5AXuzsFgtV|myaGMyj5V8EW|mzTker8SyfEW|n16hMKKKJNp3|n3x5Z9N1EoAN|n4GKtdNxZwp8|n5bMCdt7g9mR|n5t4KEigaZTC|n7fPDSma4wwU|n8EcixFEho8t|nAlgUlFGVkjn|nDHgRVZKmePo|nFPVGAnkknqj|nGW1O4Q6JgbB|nIXrLJJEs3g0|nNkm5m0adShb|nRxAIFPjs2DG|nSh3KBHfvz3F|nTg2cMq4VxJC|nV9sDbmGe50s|nYeNCq3NgLhN|nYuuYK6BjU68|nZJNdKg6VG8d|nbKOr1oyuXyc|ncUlttCsxCW7|ncZVKbIYYf3O|nd0rHDZGAbcf|nfYPeiBGZQjk|ngZFNHOK1lb9|nhRfTZzttQEd|njxJ2G6xouda|nqCNkkqPWPbd|nrR2GzHb81x5|nrl0c56n7XB7|nu74AW2rZOkj|nv104JC9gv0n|nw4RxT4839rB|nwVZ2WdDvi8B|nzRqGsAB9Axc|o263QHX4CEbt|o34jg2nTXxOW|o38nux5ejFj6|o5BeJijZ89vG|o6dgLv6YlIDu|o7DlohezvgE2|o8yqyB9TwrxY|o99SgKObtfGI|o9V025Qg81na|oAxufjx6FQWG|oBFVqcN5JbP5|oBVUNc0a3Cuu|oCUDF5gNx9Td|oD6noBNMuvlW|oDA1NCEaxKwp|oEb7W3eG79z3|oGFpgdhi9OG3|oHj1O1OhmHVB|oKvD53LVCAX8|oMF7Iq0CMNCS|oMIvgTJ8tfPa|oMzUHaSSCEg4|oNExvtrf9Dtv|oP42LWd46PRQ|oPDcgBIGuIQu|oRztHr4wMUoc|oT2zS5VRQZgM|oTNaLaQ1jrNv|oUnS77caxmtD|oUz1ouSR45f9|oV7lktzx1jPY|oWYoStejrXTu|oXZ1UuEXAdN5|oZTZSlufnl1h|oZWK7gSTLRh8|oa1RfLcx99uX|oah4HCxWXznc|oaivv9IBHw16|oay0M2II4caT|oc4vJypK2abV|oci4aaWfc3v|oecNnCmTCbzr|ojjwLMKd4jVH|oklP3D0d8SqV|okw6DFGlogmj|oljVEvbJFqSi|omgUgvk5S3la|on7PVJf6K7Ih|onNfqVaWH43E|onVjzJeb6oU9|oppbxEM5pi7S|oqaXh8uENgOr|orcvmzvTA5mv|ot50FYRhw6Km|ovXxEhA34FVe|owYtfjcLdA2o|oy8aY5Cq1W1b|ozSSRk1y4G4q|ozTuorCAJNJF|ozzw4MK7TVyy|p18SbE7KdPDX|p1Ew4EjxXpbV|p2AqRFgHAXSR|p2Mm0XTWnbQ7|p3bcpML02yg5|p5DXn0PxD7Zt|p5eTgKjA3BGb|p7qhrjTVikwU|p9gfvhluEt3B|pAGsMiR3QUDL|pBG7kAnLj4nT|pBoMtSTwGvDQ|pCjmdadPnWnT|pCkcihiqszys|pCxWcHMIPq9R|pG3RFi8fTVeM|pGM6aafazJpO|pHFFQMYrEcF6|pHibo8cw8pQa|pI7hRLos9FUk|pIKqIowb3902|pMxtW2UabidU|pNs3jhEdSCfK|pNuKcxUtnh0N|pOUkjlA4ODqF|pObPYMYNtyhz|pOkLWyNkPQX2|pPErz2tba4eK|pRE19GLvU0bv|pSGmx8aS7JKG|pSg0KOXleSWp|pVYiOTxv77A1|pZmKbhbndLaL|pbkPgmgAle2q|pbyjFbaUvWwZ|pcGrcB8T3WtB|pcYGKBdWYmL1|pcw036cfDE9S|pevb3wCc0IRy|pkasMkvC78Co|pmI3LpncARNM|pnUKRQKrIwqo|pnxvkMNeBto2|pvNAeqJlAEWh|pwVhw2XQuajX|px5J5Uubc1jV|pyBaDN4PU1RL|pyqMsma2hqXN|qnZlemxOXgtD|rAhsGEJf2uJc|rFQMFoNAclJI|re5cMs3TU2oz|rpslCNe7GGJ1|sJpUv3zIqupk|sdlbsHWFeNlB|soAfFkkmEiEi|t9KgNAIgPnWK|tDxJnxEc3UbH|tge1DqfVsKgT|uJsSDX06cpBH|uNAZR940JXv1|uRcLjKZT7xyK|vDK7AjHPorVh|vpS6La7175Ix|wDkTyblfro4K|wJ0XBUNKF6fY|wJeC9LIotY0l|wKTLocwnBjCk|wT1Df94fey2P|xH0akv0UL43N|xPenu0bzdouB|xr5GEIQOVq80|y46xSP7byKJr|yTcRRxMllc95|zKQXpWOF7BLJ|zhAh66teGkGd|zjxH1wSFnLIK|zk7unPOIZGjv|zrdX2PfRgLlf|zuyW8sC8aR8q|orlaASiXyumc|ndEa7lIsZcu7|hOem1ANTAQ3e|bP6tGs7v1GNE|kHPXTUlAcKot|czIdk3D45PdW|gfGb7pmwu2bB|cIpji1Kutf0d|c258c1UmjHZt|oO7ByneOs3Yh|noMBVg18bKLJ|oFKbhE2wsw8S|lCJFKGrLorMv|pRGbKEk8IYyN|arixZiNz2D85|iN5cHpGYSy01|kOcymW1pEWou|fVIAtgWfvszw|oBqoKemBhrdI|dtr362L2N5k1|g4A7l0Bx13mv|pVi564BkhVJb|omV4UOeKae9U|nwy39gzhd6Yp|kDAYIm1bj2su|e3XQ3cVzwBNp|cSCDw1ItgwQS|yviKLixtDIeo|AHVMp4xREw5s|oa7MhjultoLb|lfaInW01ZQLS|riGjW9ZrrmAJ|taYfYhFJeteN|bXaz31lFBuEM|itI1ZMjDcS8e|dW7e44XrNzr3|pZSHjvypU52w|a1BnsF21nAX9|e067xrFdHmuK|FRWsWFpVkcs9|v7CiKCXwJrV6|QiuNCWBpzfTG|tneoKzbyyMeS|loRcwaBgCjBc|m09wtxjntfBQ|ddcyzmzkqVB8|faKNZdsvVFTU|gispZiM0VmHo|mEwGOe7Ebkws|oiemjZkQYwNF|pZxNoetgBEek|dvUvBecbC7e1|gJVdB7aI7yL6|det1daq80qgx|eAnz7JCw3RAp|lIXSNFiLqXx7

Loop, Parse, Chats, |
{
	Step := A_Index
	Error := Func(A_LoopField)
	If Error = 2
		msgbox, 4112, , "Ссылка нoмер: " Step "`nСменить айпи"
	Sleep 100
}
msgbox, 4112, , "Завершено: " Step
ExitApp

Func(id) {
	static start, skypetoken, csrf_token, threadId, longId
	
	HTTP.Open("GET", "https://join.skype.com/" id, true)
	SetDefaultHeader()
	If send() 
		Return Error(id, A_LineNumber)
	GetAllResponseHeaders := HTTP.GetAllResponseHeaders()
	launcher_session_id := RegexReplace(GetAllResponseHeaders, "s)^.*Set-Cookie: launcher_session_id=(.+?);.*$", "$1")
	csrf_token := RegexReplace(GetAllResponseHeaders, "s)^.*Set-Cookie: csrf_token=(.+?);.*$", "$1")
	
	HTTP.Open("POST", "https://join.skype.com/api/v2/conversation", true)
	SetDefaultHeader()
	If send("{""shortId"":""" id """,""type"":""wl""}") 
		Return Error(id, A_LineNumber)  
	ResponseText := HTTP.ResponseText
	threadId := RegexReplace(ResponseText, "s)^\{""Resource"":""(.+?)"".*$", "$1")
	longId := RegexReplace(ResponseText, "s)^.*,""Id"":""(.+?)"".*$", "$1")

	if !start
	{
		HTTP.Open("POST", "https://join.skype.com/api/v1/users/guests", true)
		SetDefaultHeader()
		HTTP.SetRequestHeader("csrf_token", csrf_token)
		If send("{""name"":""" GuestName """,""threadId"":""" threadId """,""shortId"":""" id """,""longId"":""" longId """,""flowId"":""" launcher_session_id """}") 
			Return Error(id, A_LineNumber)  
		skypetoken := RegexReplace(HTTP.ResponseText, "s)^.*\{""skypetoken"":""(.+?)"".*$", "$1")
		start := 1
	}
	Else
	{
		HTTP.Open("POST", "https://join.skype.com/api/v1/users/guests", true)
		SetDefaultHeader()
		HTTP.SetRequestHeader("csrf_token", csrf_token)
		If send("{""name"":""" GuestName """,""threadId"":""" threadId """,""shortId"":""" id """,""longId"":""" longId """,""flowId"":""" launcher_session_id """}") 
			Return Error(id, A_LineNumber)   
	}
	
	; MsgBox % GetAllResponseHeaders "`n`n" Script.eval("(" . HTTP.ResponseText . ")").skypetoken "`n`n" skypetoken

	HTTP.Open("POST", "https://client-s.gateway.messenger.live.com/v1/users/ME/endpoints", true)
	SetDefaultHeader()
	HTTP.SetRequestHeader("Authentication", "skypetoken=" skypetoken)
	If send("{""endpointFeatures"":""Agent""}") 
		Return Error(id, A_LineNumber)  
	registrationToken := RegexReplace(HTTP.GetAllResponseHeaders(), "s)^.*Set-RegistrationToken: registrationToken=(.+?);.*$", "$1")

	HTTP.Open("GET", "https://client-s.gateway.messenger.live.com/v1/threads/" threadId "?view=msnp24Equivalent", true)
	SetDefaultHeader()
	HTTP.SetRequestHeader("RegistrationToken", "registrationToken=" registrationToken)
	If send() 
		Return Error(id, A_LineNumber)
	JSON := HTTP.ResponseText
	oJSON := Script.eval("(" . JSON . ")")      ; topic :=  oJSON.properties.topic  ;	 "`n" oJSON.properties.creator
	topic :=  oJSON.properties.topic
	oJSON := Script.eval(oJSON.members)
	Loop % oJSON.length
	{
		str := oJSON[A_Index-1].id
		if !instr(str, ":guest:")
			list .= RegExReplace(str, "i)^8:", "", , 1) "`n"
	}
	if Debug
		MsgBox % "Ссылка нoмер: " Step "`n" topic "`n" list
	
	; SendMessage("text", name, registrationToken, threadId)
	
	; Exit
	; HTTP.Open("GET", "https://join.skype.com/guests/leave?threadId=" threadId, true)
	; send() 
	Return 0
} 

send(body = "") {
	HTTP.send(body) 
	HTTP.WaitForResponse()
	Status := HTTP.Status
	If (Status != 201 && Status != 200) 
		Return 1
	Return 0
}

SetDefaultHeader() {
	HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
	HTTP.SetRequestHeader("Pragma", "no-cache")
	HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
	HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
	HTTP.SetRequestHeader("Content-Type", "application/json")
}

SendMessage(message, name, registrationToken, threadId) {
	now := A_NowUTC
	EnvSub, now, 1970, seconds
	now .= A_MSec
	HTTP.Open("POST", "https://client-s.gateway.messenger.live.com/v1/users/ME/conversations/" threadId "/messages", true)
	HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
	HTTP.SetRequestHeader("Pragma", "no-cache")
	HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
	HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
	HTTP.SetRequestHeader("Content-Type", "application/json")
	HTTP.SetRequestHeader("RegistrationToken", "registrationToken=" registrationToken)
	body = {"content":"%message%","messagetype":"RichText","contenttype":"text/html","Has-Mentions":"false","imdisplayname":"%name%","clientmessageid":"%now%"}
	HTTP.send(body)
	HTTP.WaitForResponse()
}

ExitApp:
	HTTP := ""
	OnExit
	ExitApp 
	
Error(str, Line="") {
	If Debug
		msgbox, 4112, , % "Ссылка нoмер: " Step "`n" str "`n" Line "`n" HTTP.Status "`n" HTTP.StatusText "`n" HTTP.Option(1) "`n" HTTP.GetAllResponseHeaders() "`n" HTTP.ResponseText
	If (HTTP.Status = 429 || HTTP.Status = 503)
		Return 2
	Return 1
}

HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")