批处理之家» BAT原创&转载 » BAT转载代码 » hta版连接地址转换——转我朋友的代码

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 5 Rank: 5

帖子: 295
积分: 1142
技术: 2
捐助: 0
注册时间: 2008-2-4

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2008-12-29 19:36 | 只看该作者

hta版连接地址转换——转我朋友的代码

<script>
window.onerror=killerror
function killerror(){
return true
}
window.onload=ini
function ini(){
var x=520;y=270
window.resizeTo(x,y)
document.title="链接转换工具 - Made By oiioooiiii"
}
function paste(){
in_add.value=window.clipboardData.getData("text")
}
function copy(){
window.clipboardData.setData("text",out_add.value)
}
function load(){
window.open(out_add.value)
}
function reset(){
in_add.value=""
out_add.value=""
xtp.click()
}

</script>

<style>
body{background:#f0f0f0;}
*{font-size:13;cursor:default;}
a{color:#177cb0;}
a:visited{color:#177cb0;}
a:hover{color:#25f8cb;cursor:hand;}
</style>
<body scroll="no" topMargin="10" oncontextmenu="return false">
<table border width="100%" cellspacing=0 cellpadding=3>
<tr><td>
请输入需要转换的地址(双击编辑框即可粘贴)：


<input id="in_add" style="width:60%;" ondblclick=paste()>
<input type="button" value=" 转 换 " id="ok" onclick="sub()">

<input type="button" value=" 粘 贴 " onclick="paste()">
<div>

转换后的地址(双击编辑框即可复制)：

<input id="out_add" style="width:60%;" ondblclick=copy()>
<input id="load" type="button" value=" 下 载 " onclick="load()">

<input type="button" value=" 复 制 " onclick="copy()">
</div>
</table>

<table border width="100%" cellspacing=0 cellpadding=1 style=margin-top:10><tr><td>
<table cellspacing="0" cellpadding="4" width="100%;">
<tr>
<td width=60%;>
<input type="radio" name="choice" id="xtp" checked>
<span onclick="xtp.click()">迅雷专用链&rArr;普通链接</span>
<td>
<input type="button" value=" 重 置 " onclick="reset()" style=margin-left:4;>

<input type="button" onclick="window.close()" value=" 退 出 " >

<tr>
<td>
<input type="radio" name="choice" id="ktp">
<span onclick="ktp.click()">快车专用链&rArr;普通链接</span>

<td> 
<tr>
<td>
<input type="radio" name="choice" id="ftp">
<span onclick="ftp.click()">旋风专用链&rArr;普通链接</span>
<td> 
<a href=http://hi.baidu.com/oiioooiiii>作者博客</a>
   
<a href="mailtoiioooiiii@163.com?subject=连接转换工具-意见反馈">意见反馈</a>
</table>
</table>

<script language=vbscript>
Function fDecode(sStringToDecode)
'This function will decode a Base64 encoded string and returns the decoded string.
'This becomes usefull when attempting to hide passwords from prying eyes.
Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim iDataLength, sOutputString, iGroupInitialCharacter
sStringToDecode = Replace(Replace(Replace(sStringToDecode, vbCrLf, ""), vbTab, ""), " ", "")
iDataLength = Len(sStringToDecode)
If iDataLength Mod 4 <> 0 Then
fDecode = "Bad string passed to fDecode() function."
Exit Function
End If
For iGroupInitialCharacter = 1 To iDataLength Step 4
Dim iDataByteCount, iCharacterCounter, sCharacter, iData, iGroup, sPreliminaryOutString
iDataByteCount = 3
iGroup = 0
For iCharacterCounter = 0 To 3
sCharacter = Mid(sStringToDecode, iGroupInitialCharacter + iCharacterCounter, 1)
If sCharacter = "=" Then
iDataByteCount = iDataByteCount - 1
iData = 0
Else
iData = InStr(1, CharList, sCharacter, 0) - 1
If iData = -1 Then
fDecode = "Bad string passed to fDecode() function."
Exit Function
End If
End If
iGroup = 64 * iGroup + iData
Next
iGroup = Hex(iGroup)
iGroup = String(6 - Len(iGroup), "0") & iGroup
sPreliminaryOutString = Chr(CByte("&H" & Mid(iGroup, 1, 2))) & Chr(CByte("&H" & Mid(iGroup, 3, 2))) & Chr(CByte("&H" & Mid(iGroup, 5, 2)))
sOutputString = sOutputString & Left(sPreliminaryOutString, iDataByteCount)
Next
fDecode = sOutputString
End Function

function ok_onclick

str=in_add.value
str=trim(str)
if str="" then exit function
if left(str,10)="thunder://" then xtp.click
if left(str,11)="flashget://" then ktp.click
if left(str,7)="qqdl://" then ftp.click

if xtp.checked then                          '迅雷转普通
if lcase(left(str,10))<>"thunder://" then
exit function
end if
str=replace(str,left(str,10),"")
str=fdecode(str)
str=trim(str)
str=replace(str,left(str,2),"")
str=replace(str,right(str,2),"")
out_add.value=str
end if

if ktp.checked then                    '快车转普通
if lcase(left(str,11))<>"flashget://" then
exit function
end if
str=replace(str,left(str,11),"")
str=fdecode(str)
str=trim(str)
out_add.value=str
end if

if ftp.checked then                '旋风转普通
if lcase(left(str,7))<>"qqdl://" then
exit function
end if
str=replace(str,left(str,7),"")
str=fdecode(str)
str=trim(str)
out_add.value=str
end if
end function

</script>
复制代码

我靠，代码极强，太厉害了

他的空间是http://hi.baidu.com/oiioooiiii/blog/item/c81337c2079d521c0ff47776.html

戏弄苍天的空间，希望大家访问

1 评分人数

erjnasrtnws: 感谢分享技术 + 1

我的百度空间欢迎你

Rank: 5 Rank: 5

帖子: 245
积分: 914
技术: 1
捐助: 0
注册时间: 2008-10-25

2楼

发表于 2008-12-29 19:53 | 只看该作者

有想过用batch写个吗？

for /f "delims=" %%a in ('%0') do (echo %%a)

Rank: 2

帖子: 2
积分: 104
技术: 0
捐助: 0
注册时间: 2009-3-19

3楼

发表于 2009-3-29 17:03 | 只看该作者

zen me shi luan ma a

Rank: 2

帖子: 2
积分: 104
技术: 0
捐助: 0
注册时间: 2009-3-19

4楼

发表于 2009-3-29 17:06 | 只看该作者

bian ma bi xu bao cun wei UNCODE

Rank: 1

帖子: 35
积分: 44
技术: 0
捐助: 0
注册时间: 2010-9-21

5楼

发表于 2011-2-27 09:13 | 只看该作者

不管用啊，不能转换啊

Rank: 5 Rank: 5

帖子: 83
积分: 983
技术: 0
捐助: 0
注册时间: 2012-10-13

6楼

发表于 2012-10-15 22:29 | 只看该作者

不是批处理