Skip to content

Instantly share code, notes, and snippets.

View rosyanxone's full-sized avatar
:octocat:
Learner

Rausyanfikr Adi Karmayoga rosyanxone

:octocat:
Learner
View GitHub Profile
@rosyanxone
rosyanxone / cheatsheet-sia.js
Created June 3, 2024 02:33
Cheat Sheet Kuesioner SIA
!function(){const a=["Cukup baik","Sudah Cukup Baik","Semoga kedepannya lebih baik lagi","Lebih baik lagi kedepannya"],
e=(a,e)=>Math.floor(Math.random()*(e+1-a)+a),t=[...document.links]
.filter((a=>a.href.match(/https:\/\/sia\.unmul\.ac\.id\/pmhskhs\/kuisioner\/.+/)))
.map((t=>new Promise((s=>{pegawaiMatch=/name="QPEGNIP" value="(.+)"/,krsMatch=/name="QKRSDTID" value="(.+)"/,
fetch(t).then((a=>a.text())).then((t=>{const n=t.match(pegawaiMatch),r=t.match(krsMatch);if(!n||!r)return s("Form Kuisioner Error");
const o=((a,e,t,s)=>new Promise((n=>{let r="QPEGNIP="+a+"&QKRSDTID="+e;for(let a=1;a<=35;++a)r+="&jawab["+a+"]="+t[a-1];
r+="&jawab[36]="+s,$.ajax({type:"POST",url:"https://sia.unmul.ac.id/pmhskhs/simpankuis",data:encodeURI(r),success:function(a)
{console.log("Data Terkirim"),n({status:"success",data:r,response:a})},error:function(a,e,t){console.error("Data Gagal Terkirim"),
n({status:"error",xhr:a,ajaxOptions:e,thrownError:t})}})})))(n[1],r[1],[...Array(35)].map((a=>e(3,5).toString())),a[e(0,a.length)]);
<script>
let steps = 1;
document.addEventListener("DOMContentLoaded", function() {
const currentSlug = @json($survey->slug);
let storedSlug = localStorage.getItem('localSurveySlug');
if (currentSlug != storedSlug) {
localStorage.clear();
localStorage.setItem('localSurveySlug', currentSlug);
}
@echo off
title Activate Office 365 ProPlus for FREE - MSGuides.com&cls&echo ============================================================================&echo #Project: Activating Microsoft software products for FREE without software&echo ============================================================================&echo.&echo #Supported products: Office 365 ProPlus (x86-x64)&echo.&echo.&(if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&echo.&echo ============================================================================&echo Activating your Office...&cscript //nologo ospp.vbs /unp