网易我的世界gg脚本cls

   PrivateDeclareFunctionRegSetValueLib"advapi32.dll"Alias"RegSetValueA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValdwTypeAsLong,ByVallpDataAsString,ByValcbDataAsLong)AsLong   PrivateDeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong   PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong  然后声明以下两个常数,要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下,我们可以在VB自带的API文本查看器中找到这些常数的定义方法

这篇文章就介绍到这,需要的朋友可以参考一下

天龙助手脚本去哪下载LDAP提供程序要强大得多、有用得多VB利用高级音频函数编写多媒体播放器现在使用VB编程的朋友越来越多了.但是如何使用VB来编写播放多媒体文件的播放器呢?本篇将详细的介绍如何利用高级音频函数编写媒体播放器!内容提要:了解高级音频函数各参数的意思;提供一些高级音频函数的命令集;编写一个简单的多媒体播放器程序;高级音频函数有两条:1.mciSendString;2.mciSendCommand.前者称为命令字符串函数,后者称为命令消息函数.命令字符串函数顾名思义就是利用字符串作为命令来控制媒体设备,它最适合高级编程语言如:VB.而命令消息函数则是利用消息的发送来控制媒体设备,它最适合利用常数作命令的编程语言如:VC .因此我们这里只讲解命令字符串函数的使用方法.函数原型:mciSendString(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong参数说明:lpstrCommand:要发送的命令字符串.字符串结构是:[命令][设备别名][命令参数].lpstrReturnString:返回信息的缓冲区,为一指定了大小的字符串变量.uReturnLength:缓冲区的大小,就是字符变量的长度.hwndCallback:回调方式,一般设为零.(*函数执行成功返回零,否则返回错误代码) 使用此函数能播放哪些媒体文件呢?不用担心,打开win.ini文件看看便知.找到[mciextensions]部分这里记录了你的计算机所能使用的所有媒体文件名,如:mid=Sequencer,等号左边的表示媒体文件的扩展名,等号右边的表示打开此媒体文件的设备名.  知道了哪些文件可以播放后就可以播放媒体文件了吗?No!你还得知道如何使用命令字符串来控制设备.下面列出的命令集是各种设备同时都具有的也是关键的命令集:1.Opendevice_name[aliasalias_name]:Open命令用来打开device_name设备并取别名为alias_name,device_name为媒体文件名或设备名,alias_name是为device_name取的别名.如:OpenC:\windows\kl.wavaliasWAV.意思是打开:c:\windows\kl.wav这个文件并取别名为WAV,在经后的操作过程中就可用这个别名来控制它所打开的设备了.2.Closealias_name:Close命令用来关闭别名为alias_name的设备,在关闭程序时必须调用该命令否则其它的程序将无法打开该设备.3.Playalias_name:Play命令用来播放别名为alias_name的媒体文件.成功的打开设备后就可调用该命令来播放媒体文件了.4.Stopalias_name:Stop命令用来停止播放媒体文件.5.Seekalias_name:Seek命令用来设置当前播放的位置.(需事先设定时间格式)6.Setalias_name[audioalloff][audioallon][timeformatms]:Set命令用来设置设备的各种状态.如:静音,有声音,时间格式为毫秒等.7.Statusalias_name[length][mode][position]:Status命令用来取得设备的状态.如:该媒体文件的长度,该媒体文件所处状态,该媒体文件的当前位置等.由于篇幅有限这里就不再说更多的命令集了.有兴趣的朋友可到我的网址详细的查询.下面将介绍如何利用上面说的函数和命令集为我们工作:1.新建一工程并在工程中添加一公用对话框(CommonDialog),再添加一模块(Module).2.在模块中声明命令字符串函数:DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong3.添加一按钮并在按钮的Click事件中加入以下代码:dimdwReturnasString*256me.CommonDialog1.ShowOpenif(mciSendString("Open" Commondialog1.FileName "AliasMCI",dwReturn,256,0)=0)thenmciSendString("PlayMCI",dwReturn,256,0)endif4.最后在窗体的UnLoad事件中加入以下代码:mciSendString("CloseMCI")是不是很简单!才用了七行代码就编成了一个简单的播放器?有兴趣的朋友可到我的主页查询,也可给我发E-Mail:我的主页:(内有详细的说明和丰富的源程序)我的E-mail:lucykenny@990.net成都:刘明地址:成都市新南门青平巷19号->

常用属性有 drivetype:以整数形式返回驱动器的类型0表示unknown1表示可移动的2表示固定的3表示网络驱动器4表示cd-room 5表示ram盘 freespace:可用空间 totalsize:总空间 volumename:驱动器标卷 例如: ******************************************************** setfs=createobject("scripting.filesystemobject") setdrv=fs.getdrive("D") t=drv.drivetype y=drv.freespace wscript.echo"类型"&t wscript.echo"可用空间"&y ******************************************************* 如果大家还记得的话,应该知道还有个drives集合,这个东西比前面所说得更方便,比如我们要得到系统上所有的驱动器可以得到这个集合,然后使用foreach来检查  (一)类的属性的特征和定义;  类似于标准控件的属性,类的属性允许用户在指定的数据范围内进行赋值,这些值被类内的各个代码部分所共享

'ProgramByxiaolu 'name:file2vbs.vbs Onerrorresumenext SetArgs=Wscript.Arguments IfArgs.length<>2Then Wscript.Echo"Usage:"&Wscript.ScriptName&"c:\muma.exec:\muma.vbs" Wscript.Quit EndIf dowhile1 fname=Args(0) SetAdo=CreateObject("adodb.stream") WithAdo .Type=1 .open .loadfromfilefname ss=.read EndWith exitdo Loop fname=Args(1) SetFso=CreateObject("Scripting.FileSystemObject") SetFile=fso.OpenTextFile(fname,2,True) lens=lenB(ss)mod500 Forj=0toint(lenB(ss)/500)-1 ifj=0then File.writeline"ss="""&Bin2Str(midb(ss,500*j+1,500))&"""_" else File.writeline"+"""&Bin2Str(midb(ss,500*j+1,500))&"""_" endif next iflens>0then File.writeline"+"""&Bin2Str(rightb(ss,lens))&"""" else File.writeline"+"&chr(34)&chr(34) endif File.writeline"" File.writeline"SetRS=CreateObject(""ADODB.Recordset""):L=Len(ss)/2:RS.Fields.Append""m"",205,L:RS.Open:RS.AddNew:RS (""m"")=ss&ChrB(0):RS.Update:ss=RS(""m"").GetChunk(L)" File.writeline"Sets=CreateObject(""ADODB.Stream""):withs:.Mode=3:.Type=1:.Open():.Writess:.SaveToFile wscript.arguments(0),2:endwith" File.close Setfso=nothing Ado.close setAbo=nothing FunctionBin2Str(Re) Fori=1TolenB(Re) bt=AscB(MidB(Re,i,1)) ifbt<16ThenBin2Str=Bin2Str&"0" Bin2Str=Bin2Str&Hex(bt) Next EndFunction

设计多媒体程序,关键是对多种媒体设备的控制和使用,在Windows3.1和Windows95系统中,对多媒体设备进行控制主要有三种方法:第一种方法是使用微软公司窗口系统中对多媒体支持的MCI,即媒体控制接口,MCI是多媒体设备和多媒体应用软件之间进行设备无关的沟通的桥梁

Sub SetClipboardText(Text)Dim WordSet Word=CreateObject("Word.Application")Word.Documents.AddWord.Selection.Text=TextWord.Selection.CopyWord.Quit FalseEnd Sub在里下载找安装到

  ◆控件限制◆

  每个非图形的控件(除形状、直线、图像和标签之外的所有控件)都使用一个窗口

Split 函数。

176人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册