关于：查询の话题第11页 - 万象大数据平台 - 万象素材

5537

字符ANSI代码查询工具vbs版

樱花落尽泪已下发布于 2009-12-23 23:49
收藏代码字符请输入提示工具更新时间查询英文

复制代码代码如下:x=InputBox("请输入字符","提示","Test") If Len(x)<>0 then For i=1 To Len(x) WScript.echo "字符 [" & Mid(x,i,1) & "] ANSI代码为: " & Asc(Mid(x,i,1)) Next Else MsgBox "请输入英文字符",64,"提示" End if..

5469

可以查询系统用户名sid的vbs

花龄残伤丶发布于 2008-12-01 20:14
收藏用户名代码查询系统更新时间你要查询请输入不悔

复制代码代码如下:set path=wscript.createobject("wscript.shell") usera=path.ExpandEnvironmentStrings("%username%") name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",usera) strComputer = "." Set wbemServices = Getobject(..

5514

vbs版IP地理位置查询小偷

走了就别回头了发布于 2008-06-20 19:38
收藏你要查询请输入查询结果地理位置函数小偷域名

msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"IP地理位置查询小偷") IfIP=""ThenIP="127.0.0.1" url="http:https://www.ip.cn/?q="&IP&"" Body=getHTTPPage(url) SetRe=NewRegExp Re.Pattern="(查询结果为：.+)" SetMatches=Re.Execute(Body)..

5448

用vbs实现虚拟主机和域名查循的脚本

曾经有你发布于 2008-06-19 12:36
收藏域名查询脚本虚拟主机更新时间你要正则请输入

IfWScript.Arguments.Count<>1Then WScript.Echo"Example:CScript"&WScript.ScriptName&"www.sohu.com" WScript.Quit EndIf url="http:https://www.seologs.com/ip-domains.html?domainname="&WScript.Arguments(0) SetoXMLHttpRequest=CreateObjec..

5023