bytes2BSTR

代码如下:

Function bytes2BSTR(vIn) 
 strReturn = "" 
 For i = 1 To LenB(vIn) 
 ThisCharCode = AscB(MidB(vIn,i,1)) 
 If ThisCharCode < &H80 Then 
 strReturn = strReturn & Chr(ThisCharCode) 
 Else 
 NextCharCode = AscB(MidB(vIn,i+1,1)) 
 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
 i = i + 1 
 End If 
 Next 
 bytes2BSTR = strReturn 
End Function

赞 (0)

相关推荐

  • bytes2BSTR

    复制代码 代码如下: Function bytes2BSTR(vIn)   strReturn = ""   For i = 1 To LenB(vIn)   ThisCharCode = AscB(MidB(vIn,i,1))   If ThisCharCode < &H80 Then   strReturn = strReturn & Chr(ThisCharCode)   Else   NextCharCode = AscB(MidB(vIn,i+1,1))

  • 使用vbs获取雅虎汇率

    使用vbs获取雅虎汇率 Function bytes2bstr(vin) strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vin,i,1)) if thischarcode < &h80 then strreturn = strreturn & chr(thischarcode) else nextcharcode = ascb(midb(vin,i+1,1)) strreturn =

  • Javascript 实用小技巧

    //自定义的apply,call Function.prototype.apply = function (obj, argu) {  if (obj) obj.constructor.prototype._caller = this;   var argus = new Array();  for (var i=0;i<argu.length;i++)   argus[i] = "argu[" + i + "]";  var r;  eval("r

  • 天意商务系统后台管理帐号破解html版

    /** 慈勤强 http://blog.csdn.net/cqq */ 自从上次写了个天意商务系统破解程序之后, 收到了不少朋友的来信, 有询问程序原理的,有询问如何防护的. 今天,我抽了一点时间,做了这个Html版,就只有这一个htm文件 相信有点html知识和SQL Injection知识的朋友都能够看懂 原理非常简单,破解用户帐号是用的SQL Injection方法, 因为这套系统好多地方存在sql injection漏洞, 然后自己下载个这套系统,就可以很方便的找出问题了. 以前是Vc+

  • 获取软件下载的真实地址！再谈获取Response.redirect重定向的URL

    http://www.im286.com/viewthread.php?tid=1550010&extra=page%3D1 其实这个问题落伍谈了n次了其中care4也说了两次所以如果你有问题最好先搜索一下 说不定问题早有人解决了http://www.im286.com/viewthread. ... ;highlight=%2Bcare4http://www.im286.com/viewthread. ... ;highlight=%2Bcare4care4的代码有一个小缺点 就是需要组件.第

  • 获取外网IP并发送到指定邮箱的vbs代码[已测]

    复制代码 代码如下: ''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1 sss=mid(ss,intS

  • N年前的两个脚本%5c暴库

    Dim xStatus,tStatus,vServer,vHeader,vRsBody GetError=InputBox("请输入网站,例如:http://www.hackerxfiles.com/files/list.asp?id=415","请输入网址","http://www.hackerxfiles.com/files/list.asp?id=415") If GetError = "" Then MsgBox(&q

  • 用ADODB.Stream转换

    用ADODB.Stream转换,用streamtochar这个函数 <HTML> <html> <head> <META http-equiv="Content-Type" content="text/html; charset=Big5"> <title>test</title> <SCRIPT LANGUAGE="JavaScript"> <!-- wi

  • ASP强制刷新网页和判断文件地址实例代码

    强制刷新网页 <% '强制性刷新随机验证码 '让随机验证码每次按IE的后退按钮时,返回登录页面的随即码都自动刷新, Response.expires=-1 Response.AddHeader"pragma","no-cache" Response.AddHeader"cache-control","no-store" %> 判断文件地址是否有效 <% Response.Write("")

  • 转换中文为unicode 转换unicode到正常文本

    复制代码 代码如下: '//转换中文为unicode function URLEncoding(vstrIn) dim i     dim strReturn,ThisChr,innerCode,Hight8,Low8 strReturn = ""     for i = 1 to Len(vstrIn)         ThisChr = Mid(vStrIn,i,1)         If Abs(Asc(ThisChr)) < &HFF then          

随机推荐