dim - 程序员之家

PHP 数组遍历的差异（array_diff 的实现）

2020-02-24 标签:深思,php,数组,遍历,差异,array,diff,实现,前两天,有人,编个,考试,系统,当时,简单,回了,随机,函数,rnd,实际

前两天看到有人要编个考试系统，当时只是简单回了下用随机函数RND 实际一般需要从数据库中随机提取N道题目。以下代码都基于VBS;通常的编写类似这样的'产生不重复随机数function rndarray(istart,iend,sum)dim arrayid(),i,j,blnre,temp,iloo

VB.net

vb.net操作注册表的方法分析【增加,修改,删除,查询】

2020-02-24 标签:vb,n,et,操作,注册表,方法,分析,增加,修改,删除,查询,本文,实例,讲述,分享,大家,参考,具体,如下

本文实例讲述了vb.net操作注册表的方法。分享给大家供大家参考，具体如下：增加：Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software/Faxturer"

首页

用VBS实现的发送带Cookie的HTTP请求的代码

2020-02-16 标签:vbs,实现,发送,cookie,http,请求,代码,方便,测试,先写,简单,php,程序,如下,foreach,key,value

为了方便测试，先写一个回显Cookie的简单的PHP程序：实现代码如下： $value) echo "$key => $value\r\n"; ?>然后分别用ServerXMLHTTP和XMLHTTP测试：实现代码如下： Dim http Set http = CreateObje

首页

校准系统时间的VBS代码

2020-02-16 标签:校准,系统,时间,vbs,代码,实现,如下,batman,dim,objxml,url,message,恭喜,本机,非常,准确,无需,校对,set

实现代码如下： 'VBS校准系统时间 BY BatMan Dim objXML, Url, Message Message = "恭喜你，本机时间非常准确无需校对！" Set objXML = CreateObject("MSXML2.XmlHttp") Url = "http://open.bai

首页

VBS合并一个文件夹里的TXT的实现代码

2020-02-16 标签:vbs,合并,文件夹,里的,txt,实现,代码,如下,const,forreading,这句,dim,xint,xinlu,jiuw,objfso,f

实现代码如下： Const ForReading = 1 'VBS的这句不能少。 dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scriptin

首页

Hardware_Info.vbs 获取硬件信息的VBS代码

2020-02-16 标签:hardware,info,vbs,获取,硬件,信息,代码,实现,如下,v,fastslzon,error,resume,nextdim,wmi,ws,fsoset,getobject,winmgmts

实现代码如下：'Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\ci

首页

vbs向指定的文件添加内容的函数

2020-02-16 标签:vbs,指定,文件,添加,内容,函数,实现,代码,如下,写字,第三个,参数,是否,删除,原来,function,z,writefile

实现代码如下： '向指定的文件写字符串，第三个参数指定是否删除原来的内容 Function Z_WriteFile(sFileName, sText, bAppend) Dim fs, fso, iomode if bAppend = True Then iomode = 8 'ForAppendi

首页

ASP.NET(VB)写的后台发送短信实现代码

2020-02-16 标签:asp,net,vb,写的,后台,发送,短信,实现,代码,如下,dim,postdata,string,bytearray,byte,n,ewstream,stream

实现代码如下： Dim postData As String Dim byteArray As Byte() Dim objWebRequest As HttpWebRequest Dim newStream As Stream postData = "cell=短信供应商提供信息1&ent

首页

基于mootools插件实现遮罩层新手引导

2020-02-16 标签:基于,mootools,插件,实现,遮罩,新手,引导,代码,如下,n,ame,userguider,authors,garland,yang,requires,core,class,element

插件代码实现代码如下： /* --- name: UserGuider authors: - Garland Yang requires: [Core/Class, Core/Element.Style, Core/Element.Event, Core/Element.Dimensions] v

首页

QQ多帐号自动登录批处理脚本

2020-02-16 标签:qq,帐号,自动,登录,批处理,脚本,实现,代码,如下,定义,程序,路径,密码,dim,program,a,b

实现代码如下： '定义QQ程序路径、帐名、密码 Dim Program1,a,b Program1= "C:\Program Files\Tencent\QQ\Bin\QQ.exe" Set WshShell=createobject("wscript.shell") '运行QQ主程序 Set oE

与 dim 相关的软件列表