双击获取公网IP到剪贴板代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】双击获取公网IP到剪贴板

作者:defddr / 发布于2014/11/13/ 1476

双击获取公网IP到剪贴板，如有IE提示，请在IE的自定义安全级别中，勾选启用允许对剪贴板进行编程访问


	@echo off
	echo On Error Resume next >checkip.vbs
	echo Url="http://anool.net/ip.php" >>checkip.vbs
	echo Set NP = Createobject("Microsoft.XMLHTTP") >>checkip.vbs
	echo NP.Open "GET", url, False >>checkip.vbs
	echo NP.Send >>checkip.vbs
	echo Data=NP.responsebody >>checkip.vbs
	echo Set NP = Nothing >>checkip.vbs
	echo Data = bytes2BSTR(Data) >>checkip.vbs
	echo Here = InstrRev(Data, "你的ip:", -1,0) >>checkip.vbs
	echo Data = Mid(Data,Here+5,16) >>checkip.vbs
	echo Hers = InstrRev(data, "<",-1,0) >>checkip.vbs
	echo Set ICEhack = CreateObject("InternetExplorer.Application") >>checkip.vbs
	echo ICEhack.Navigate("about:blank") >>checkip.vbs
	echo If Hers ^<^> 0 Then >>checkip.vbs
	echo ICEhack.document.parentwindow.clipboardData.SetData "text", Mid(Data,1,Hers-1) >>checkip.vbs
	echo Set WshSHell = WScript.CreateObject("WScript.Shell") >>checkip.vbs
	echo Else >>checkip.vbs
	echo ICEhack.document.parentwindow.clipboardData.SetData "text", Data >>checkip.vbs
	echo Set WshSHell = WScript.CreateObject("WScript.Shell") >>checkip.vbs
	echo End If >>checkip.vbs
	echo ICEhack.Quit >>checkip.vbs
	echo fso.DeleteFile(WScript.ScriptName) >>checkip.vbs
	echo Function bytes2BSTR(vIn) >>checkip.vbs
	echo strReturn = "" >>checkip.vbs
	echo For i = 1 To LenB(vIn) >>checkip.vbs
	echo ThisCharCode = AscB(MidB(vIn,i,1)) >>checkip.vbs
	echo If ThisCharCode ^< ^&H80 Then >>checkip.vbs
	echo strReturn = strReturn ^& Chr(ThisCharCode) >>checkip.vbs
	echo Else >>checkip.vbs
	echo NextCharCode = AscB(MidB(vIn,i+1,1)) >>checkip.vbs
	echo strReturn = strReturn ^& Chr(CLng(ThisCharCode) * ^&H100 + CInt(NextCharCode)) >>checkip.vbs
	echo i = i + 1 >>checkip.vbs
	echo End If >>checkip.vbs
	echo Next >>checkip.vbs
	echo bytes2BSTR = strReturn >>checkip.vbs
	echo End Function >>checkip.vbs
	echo 我消失就得到IP了，去粘帖吧！
	checkip.vbs

试试其它关键字

　公网IP　　剪贴板　

同语言下

可能有用的

defddr贡献的其它代码(6)