2020-02-16 标签:vbs,相加,取值,问题,分析,昵称,预言家,晚报,朋友,很喜欢,soso,问问,等级,lv,10,比较,高了

一个昵称为预言家晚报的朋友很喜欢玩SOSO问问，等级LV10，已经算比较高了。晚上挂QQ的时候，看到他的问问有更新，就点进去看了一下，问题是： 我写了如下一段VBS 实现代码如下： dim a,b,c a=inputbox("a","please input") b=inputbox("b","pl

2020-02-16 标签:vs,初始化,命令,asp,net,常用,技巧,要使,参数,执行,以下,操作,关闭,visual,studio,2005,实例

要使用此参数，请执行以下操作： 1. 关闭所有 Visual Studio 2005 实例。 2. 单击“开始”，选择“运行...”。 3. 键入“devenv.exe /resetuserdata”。 此命令会运行几分钟时间，与此同时，Visual Studio 清除设置并将其自身重置到其最初的状

2020-02-16 标签:vbs,显示,选择,文件,文件夹,对话框,代码,scripting,guy,有没有,方法,让我,使用,脚本,向用,用户

一、显示“选择文件”的对话框问： 嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？答：您好。｜　　如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。　　但如果您使用的是 Windows XP

2020-02-16 标签:vbs,sendkeys,virtual,key,codes,十六进制,符号,constantsvk,lbutton,x,01,left,mouse,button,vk,rbutton,02,right,cancel

ConstantsVK_LBUTTON(0x01) Left mouse button VK_RBUTTON(0x02) Right mouse button VK_CANCEL(0x03) Control-break processing VK_MBUTTON(0x04) Middle mouse

2020-02-16 标签:vbs,整人,代码,大集合,多年,收集,打开,好友,聊天,对话框,记下,在你,qq,昵称,下面,里的,xx,替换,就可以,自定义

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 实现代码如下： On Error Resume Next Dim wsh,ye set wsh=createobject

2020-02-16 标签:vbs,访问,剪贴板,几种,方法,小结,实现,代码,如下,set,ie,application,navigate,blank,clipboard,document

实现代码如下： Set IE = CreateObject("InternetExplorer.Application") IE.Navigate("about:blank") Set clipboard = IE.document.parentWindow.clipboardData 'SetDa

2020-02-16 标签:vbs,标识符,identifiers,存在,两种,普通,括号,我看,过的,书籍,只讲,规则,很熟悉,第一个,字符,必须,字母

VBS其实存在两种标识符： 普通标识符（NORMALIDENTIFIER） 中括号标识符（BRACKETIDENTIFIER） 但是我看过的VBS书籍上都只讲了普通标识符，没有讲中括号标识符。 普通标识符的规则我们已经很熟悉了： 第一个字符必须是字母。 后面的字符可以是字母、数字和下划线（_） 长度

2020-02-16 标签:vbs,中将,gb,2312,unicode,代码,今天,写了,类似于,下面,程序,实现,如下,dim,http,set,msxml

今天写了一个类似于下面的程序： 实现代码如下： Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http

2020-02-16 标签:vbs,tli,遗忘,com,组件,曾经,很好,vbsedit,代码,自动,补全,实现,现在看来,大约,的确,用的,比如,我想

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM。 比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码： 实现代码如下： Set tli = CreateObject("TLI.TLIApplicati

2020-02-16 标签:vbs,字符串,日期,操作,相关,函数,asc,x,chr,转换,字符,filter,搜寻,数组,特定,格式

1. Asc(x),Chr(x):转换字符，字符码 2. Filter:搜寻字符串数组中的特定字符串 格式：v=filter(x,s[,include[,compare]]) 实例： Dim x()={"kjwang","wangkj","peter"} Dim v v=filter(x,"kj")