Jump to content

Willkommen Gast

Navigation

Links

Als Gast hast du nur eingeschränkten Zugriff!


Sign In 

Create Account

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.
 

   

Photo

[Batch] Prank

- - - - -
Started by SK4LL3R ,

  • Please log in to reply
No replies to this topic

#1
SK4LL3R
Posted 05 January 2017 - 10:53 Uhr

SK4LL3R

    Lehrling

  • Premium Member
    • Likes
    58
  • 75 posts
  • 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>

Edited by SK4LL3R, 05 January 2017 - 10:54 Uhr.

  • smc2014 likes this
Back to Scripting

  Topic Forum Started By Stats Last Post Info

user(s) are reading this topic

members, guests, anonymous users


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.
  1. Toolbase.bz
  2. →   Coding
  3. →  High Level Coding
  4. → Scripting