' --------------------------------------------------------------------------------------
'	Modified by  Валерий Апарышев
' --------------------------------------------------------------------------------------

DomainPath=lcase (document.all.IMG1.src)
DomainPath=replace( DomainPath, "/img/pc.gif","/" )

Sub onUnload
	'closeit(lstart)
End Sub

Sub dwr (st)
	document.write(st)
End Sub

Sub img1_onmouseout
	window.IMG1.style.filter=""
	'window.lstart.style.visibility = "hidden"
	'document.all.lstart.innerHTML=sInfStart
	'dropit(lstart)
	window.status = ""
End Sub

Sub img1_onmouseover
	Sound_sp 6
	window.IMG1.style.filter="dropshadow(color=#00ffff)"
	'window.lstart.style.visibility = "hidden"
	'document.all.lstart.innerHTML="Изучим и Улучшим Свой PC !!"
	'dropit(lstart)
	window.status = "Изучим и Улучшим Свой PC !!"
	document.all.layerinf1.innerHTML=slayerinf1
End Sub

Sub img1_onclick
	Sound_sp 5
End Sub

Sub lstart_onmouseover
	Sound_sp 2
	With window.layerinf
		if (window.event.clientX+.clientwidth)>document.body.offsetwidth Then
			.style.left = document.body.offsetwidth-.clientwidth-50
		Else
			.style.left = window.event.clientX- 60
		End If
		.style.top = window.event.clientY +document.body.scrollTop+10
		'.style.visibility = "visible"
	End With
	dropit(layerinf)
	window.status = "Краткая информация о странице !!"
End Sub

Sub lstart_onclick
	Sound_sp 6
	window.location.replace("mailto:goodpc@narod.ru?Subject=Re Good PC")
End Sub

Sub lstart_onmouseout
	closeit(layerinf)	
	window.status = ""
End Sub

Sub AddFavorit
	url = document.URL
	nav=window.navigator.appVersion
	if ((InstrRev(nav,"MSIE") > 0) And (parseInt(nav) >= 4)) then
		document.all.AddPage.innerHTML="<SPAN STYLE='color:blue' onclick='window.external.AddFavorite(location.href, document.title);'onmouseover='vis(infav);Sound_sp(7) 'onmouseout='hid(infav)'><u>В Избранное !!</u>"
		window.AddPage.style.cursor="hand"
	end if
End Sub 

function InfInWin(m) '		 // Write function.
    window.alert(m)
end function

Function NameHTML(ss)
	For ii=Len(ss) to 1 step -1
		lg=mid(ss,ii,1)
		IF lg="\" Then 
			NameHTML=mid(ss,ii+1)
			Exit For
		End If
	Next
End Function

Sub RenZip
	aPage=IntrPath+NameHTML(window.location.pathname)
	IF window.location.protocol="file:" then
		document.all.zip.innerHTML="Адрес в Internet <a href="+aPage+">"+aPage+"</a>"
		document.all.narod.innerText="Внимание! При поиске будет произведен переход в On Line режим!"
	End IF
End Sub

' --------------------------------------------------------------------------------------
'	On Load Run
' --------------------------------------------------------------------------------------

IntrPath="http://www.goodpc.narod.ru/"
window.document.write ("<div class='layergo' id=layerinf style='left: 12; top: 68;position:absolute'><p class='bord7'>Немного о Странице !!<br>"+window.lend.innerHTML+"</div>")
slayerinf1 = "<marquee loop='1' behavior='slide'>Прямо в Локальной  Сети, Intranet или Internet !!</marquee>"
document.all.layerinf1.innerHTML=slayerinf1
'sInfStart = window.lstart.innerHTML
'window.lstart.style.visibility = "hidden"
window.layerinf.style.visibility = "hidden"
dropit(lstart)
AddFavorit
RenZip

'-----------------------------
' Обработчик звука конец
' Корневая Директория Звуковых Файлов
Public WinDirTemp
WinDirTemp=""
mMEDIA="MEDIA\"

Function fPlay(mfile,mdir)
	fPlay=False
	If WinDirTemp<>"" Then ' Проверка на наличие обращения ранее
		TempErr=PlaySound(WinDirTemp+mdir+mfile)
		if TempErr=0 Then Fplay=True
	Else		
		Dim mpath,mdrive,errSpecial 
		mpath=Array("WINDOWS","WIN","WIN.95",_
			"WIN.98","WIN98.SE",_
			"WIN98.SE2","WIN9X",_
			"WINDOWS98","WINDOWS.95",_
			"WINDOWS.98","WINDOWS.98SE",_
			"WINDOWS.9X","WINDOWS.000",_
			"WINNT","WINT","WIN2000",_
			"WINXR","WINDOWS.XR")
		mdrive=Array("C:","D:","E:","F:","G:")
		errSpecial=Array(11111,23456)
		j=-1
		Do
			j=j+1
			i=-1
			Do
				i=i+1
				WinDirTemp1=mdrive(j)+"\"+mpath(i)+"\"
				TempErr=PlaySound(WinDirTemp1+mdir+mfile)
				For ik=0 To UBound(errSpecial)
					If TempErr=errSpecial(ik) Then Exit Do
				Next
			Loop Until (TempErr=0)Or(i>=UBound (mpath))
		Loop Until (TempErr=0)Or(j>=UBound (mdrive))
		if TempErr=0 Then
			WinDirTemp=WinDirTemp1 
			Fplay=True
		Else
			WinDirTemp=""
		End If
	End If	
End Function

Function PlaySound(TSound)
	MPlayer.FileName=TSound
	PlaySound=MPlayer.ErrorCode
End Function

Sub MPlay(mfile,mFile1)
	If  not fPlay(mfile,mMEDIA)  Then  tttt=PlaySound(DomainPath+mFile1)
End Sub

Sub Sound_sp(tip_sound) 
' Воспроизводит мелодию
	sSound = 0
	On Error Resume Next
 	Select Case tip_sound
	Case 0
' Воспроизводит мелодию при старте  работы в Windows
		sSound =  PlaySound(WSHShell.RegRead("HKCU\AppEvents\Schemes\Apps\.Default\SystemStart\.Default\"))
	Case 1
' Воспроизводит мелодию при завершении работы в Windows
		MPlay "Logoff.wav",WSHShell.RegRead("HKCU\AppEvents\Schemes\Apps\.Default\SystemExit\.Default\")
	Case 2
		MPlay "Logoff.wav","midi/melody2.mid"
	Case 3
		MPlay "Logoff.wav","midi/melody3.mid"
	Case 4
		MPlay "Chimes.wav","midi/melody4.mid"
	Case 5
		MPlay "Notify.wav","midi/melody5.mid"
	Case 6
		sSound =  PlaySound("midi/melody6.mid")
	Case 7
		MPlay "Tada.wav","midi/melody6.mid"
	Case 8
		MPlay "RECYCLE.WAV","midi/melody6.mid"
	Case Else
	End Select
	Err.Clear
End Sub

document.write "<OBJECT classid=clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95 id=MPlayer style='position: absolute; visibility: hidden; z-index: -1' VIEWASTEXT ></OBJECT>"
' Обработчик звука конец
'-----------------------------