Zum Inhalt wechseln

Als Gast hast du nur eingeschränkten Zugriff!


Anmelden 

Benutzerkonto erstellen

Du bist nicht angemeldet und hast somit nur einen sehr eingeschränkten Zugriff auf die Features unserer Community.
Um vollen Zugriff zu erlangen musst du dir einen Account erstellen. Der Vorgang sollte nicht länger als 1 Minute dauern.

  • Antworte auf Themen oder erstelle deine eigenen.
  • Schalte dir alle Downloads mit Highspeed & ohne Wartezeit frei.
  • Erhalte Zugriff auf alle Bereiche und entdecke interessante Inhalte.
  • Tausche dich mich anderen Usern in der Shoutbox oder via PN aus.
 

   

Foto

[Batch] Prank

- - - - -

  • Bitte melde dich an um zu Antworten
Keine Antworten in diesem Thema

#1
SK4LL3R

SK4LL3R

    Lehrling

  • Premium Member
  • Likes
    58
  • 75 Beiträge
  • 152 Bedankt

Hallo zusammen,

 

dieses Script zeigt 5 Sekunden ein Bild an... xD

hatte ich noch auf der Platte liegen...

    <!-- :
@echo off
mshta.exe "%~f0" %*
exit /b
rem
-->
<html>
<hta:application id="oHTA"
<HTA:APPLICATION    
BORDER="none"  
INNERBORDER="no"  
CAPTION="no"  
SYSMENU="no"  
MAXIMIZEBUTTON="no"  
MINIMIZEBUTTON="no"  
ICON="NO"  
SCROLL="No"  
SCROLLFLAT="yes"  
SINGLEINSTANCE="yes"  
WINDOWSTATE="maximize"  
SHOWINTASKBAR="no"  
CONTEXTMENU="no"  
SELECTION="no"/>
<head>
<style>
body {
color:black;
background-color:black;
background-image:url(http://fs5.directupload.net/images/170104/2dqggnlj.jpg);
background-position:center center;
}
</style>
</head>
<script language="VBScript">
Sub Window_OnLoad()
    Call Kill("explorer.exe")
    idTimer = window.setTimeout("vbscript:ExecuteMyScript()",5000)
end sub
'****************************************************
Sub ExecuteMyScript()
    window.close
    Call RunExplorer()
End Sub
'****************************************************
Sub Kill(Process)
    Dim Ws,Command,Execution
    Set Ws = CreateObject("Wscript.Shell")
    Command = "cmd /c Taskkill /F /IM "& Process &""
    Execution = Ws.Run(Command,0,True)
    Set Ws = Nothing
End Sub
'****************************************************
Sub RunExplorer()
    Dim Ws
    Set Ws = CreateObject("Wscript.Shell")
    ws.run "explorer.exe"
End Sub
'****************************************************
</script>
<body>
</body>
</html>

Bearbeitet von SK4LL3R, 05 January 2017 - 10:54 Uhr.

  • smc2014 gefällt das



  Thema Forum Themenstarter Statistik Letzter Beitrag

Besucher die dieses Thema lesen:

Mitglieder: , Gäste: , unsichtbare Mitglieder:


This topic has been visited by 33 user(s)


    _)_, 3xc3ll3nt, back_ext, Caruso, Crowx88, Cryptologic, cubik, daredevil_hellfire207, dev-0, Framerater, FrogPussyGreen, hacked, Haxlor, Jack_Frost, Jackdaniels, JohnR, kiwitone, Kraenk, lolorollo, mettbrot, Onek, PadX18, pi^2, raider, SecurityFlaw, Sezession, Silent0wn3r, SK4LL3R, smc2014, Soek, t33t86, Xenio, Zerobyte
Die besten Hacking Tools zum downloaden : Released, Leaked, Cracked. Größte deutschsprachige Hacker Sammlung.