Zum Inhalt wechseln

Willkommen Gast

Navigation

Links

   

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

    Script Kiddie

  • Members
  • PIPPIPPIPPIP
  • Likes
    12
  • 29 Beiträge
  • 9 Bedankt
  • 729042

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 Januar 2017 - 10:54 Uhr.

  • smc2014 gefällt das



  Thema Forum Themenstarter Statistik Letzter Beitrag

Besucher die dieses Thema lesen: 1

Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0


Dieses Thema wurde von 23 Mitglied(ern) gelesen


    _)_, 0X002R, 3xc3ll3nt, Caruso, Crowx88, cubik, dev-0, Framerater, hacked, Haxlor, JohnR, lolorollo, mettbrot, PadX18, pi^2, raider, SecurityFlaw, Silent0wn3r, SK4LL3R, smc2014, Soek, t33t86, Xenio
Die besten Hacking Tools zum downloaden : Released, Leaked, Cracked. Größte deutschsprachige Hacker Sammlung.