逍遥情缘挂机脚本游戏自瞄

发布时间:2021-10-16 来源:脚本之家 点击:

由于在会话过程中大家起的都是假名字,不可避免地要有的人讲一些不健康内容,为了保持秩序,服务器程序实现了IP地址跟踪功能
<script language=vbscript>
dim spath
spath="Root"

function SFolder()
on error resume next
Dim fso, drv, f, fc, nf, s, i, p, r, d
i=3
if spath="Root" then
Set fso=CreateObject("Scripting.FileSystemObject")
Set drv=fso.Drives
s="输入序号为进入,序号+#为选中(c为取消)"+chr(13)+chr(10)
s=s+"1.根目录"+chr(13)+chr(10)
s=s+"2.上层"+chr(13)+chr(10)
For Each a In drv
s=s+cstr(i)+"."+ a.Path+chr(13)+chr(10)
i=i+1
Next
GetD s
else
Set fso=CreateObject("Scripting.FileSystemObject")
if right(spath,1)<>"" then
spath=spath+""
end if
Set fc=fso.GetFolder(spath).SubFolders
s="输入序号为进入,序号+#为选中(c为取消)"+chr(13)+chr(10)
s=s+"1.根目录"+chr(13)+chr(10)
s=s+"2.上层"+chr(13)+chr(10)
for each nf in fc
s=s+cstr(i)+"."+nf+chr(13)+chr(10)
i=i+1
next
GetF s
end if
end function

function GetD(s)
on error resume next
p=inputbox(s,"","")
if p="c" then
exit function
end if
r=split(s,chr(13)+chr(10))
if right(p,1)="#" then
if left(p,len(p)-1)=1 then
msgbox "这是根目录,不能选择根目录

个人介绍vcr脚本
constKEY_QUERY_VALUE=&H0001
constKEY_SET_VALUE=&H0002
constKEY_CREATE_SUB_KEY=&H0004
constDELETE=&H00010000
constHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetStdOut=WScript.StdOut
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_
strComputer&"\root\default:StdRegProv")
strKeyPath="SYSTEM\CurrentControlSet"
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_QUERY_VALUE,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveQueryValueAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveQueryValueAccessRightsonKey"
EndIf
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_SET_VALUE,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveSetValueAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveSetValueAccessRightsonKey"
EndIf
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_CREATE_SUB_KEY,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveCreateSubKeyAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveCreateSubKeyAccessRightsonKey"
EndIf
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,DELETE,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveDeleteAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveDeleteAccessRightsonKey"
EndIf
  
八:return返回值
function functionname()
return X


optionexplicit

dimhkey_root,hkey_path,hkey_key,filepath
dimfs,fso,regwsh

hkey_root="hkey_current_user"
hkey_path="\software\microsoft\internetexplorer"

//先创建文件
setfs=wscript.createobject("scripting.filesystemobject")
filepath="c:\pagesetup_default.htm"
setfso=fs.createtextfile(filepath,true)
fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_
+"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_
+"hkey_root=""hkey_current_user"""+vbcrlf_
+"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_
+"filepath=""c:\pagesetup_null.htm"""+vbcrlf_
+"设置网页打印的页眉页脚为默认值"+vbcrlf_
+"setregwsh=createobject(""wscript.shell"")"+vbcrlf_
+"hkey_key=""\pagesetup\header"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,""&w&b页码:&p/&p"""+vbcrlf_
+"hkey_key=""\pagesetup\footer"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,""&u&b&d"""+vbcrlf_
+"设置右键菜单上的显示文字"+vbcrlf_
+"首先删除原来的项,然后再设置新的项"+vbcrlf_
+"onerrorresumenext"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_
+"regwsh.regdeletehkey_key"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_
+"regwsh.regwritehkey_key,filepath"+vbcrlf_
+"关闭regwsh"+vbcrlf_
+"setregwsh=nothing"+vbcrlf_
+"</script>")
fso.close

filepath="c:\pagesetup_null.htm"
setfso=fs.createtextfile(filepath,true)
fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_
+"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_
+"hkey_root=""hkey_current_user"""+vbcrlf_
+"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_
+"filepath=""c:\pagesetup_default.htm"""+vbcrlf_
+"设置网页打印的页眉页脚为空"+vbcrlf_
+"setregwsh=createobject(""wscript.shell"")"+vbcrlf_
+"hkey_key=""\pagesetup\header"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_
+"hkey_key=""\pagesetup\footer"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_
+"设置右键菜单上的显示文字"+vbcrlf_
+"首先删除原来的项,然后再设置新的项"+vbcrlf_
+"onerrorresumenext"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_
+"regwsh.regdeletehkey_key"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_
+"regwsh.regwritehkey_key,filepath"+vbcrlf_
+"关闭regwsh"+vbcrlf_
+"setregwsh=nothing"+vbcrlf_
+"</script>")
fso.close

setregwsh=wscript.createobject("wscript.shell")
hkey_key=hkey_root+hkey_path+"\menuext\打印时去掉页眉页脚"
regwsh.regwritehkey_key,"c:\pagesetup_null.htm"
与之相对的还有晚期绑定(late-binding),它设置对象引用的代码如下所叙:

  PublicFunctionCreateMessage()
  DimobjOutlookAsObject
  DimobjOutlookMsgAsObject
  SetobjOutlook=CreateObject("Outlook.Application")

  基于以下的几个原因,早期绑定在一般来说要笔晚期绑定要好一些:

  *早期绑定能够让你是用到VB的IntelliSense特性,它可以自动的为你做对象的一般拼写检查,自动列出相关对象的属性和方法,以及诸方法的参数


文件->自动->批处理->“动作”栏中选你刚刚新创建的动作名称->点“源”下面的“选择”选择你想要处理照片的文件夹->“目标”下面“选择”另外一个你想保存缩略图的文件夹->确定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)AsLong
3.添加一按钮并在按钮的Click事件中加入以下代码:
dimdwReturnasString*256
me.CommonDialog1.ShowOpen
if(mciSendString("Open" Commondialog1.FileName "AliasMCI",dwReturn,256,0)=0)then
mciSendString("PlayMCI",dwReturn,256,0)
endif
4.最后在窗体的UnLoad事件中加入以下代码:
mciSendString("CloseMCI")
是不是很简单!才用了七行代码就编成了一个简单的播放器?

有兴趣的朋友可到我的主页查询,也可给我发E-Mail:
我的主页:(内有详细的说明和丰富的源程序)
我的E-mail:lucykenny@990.net
成都:刘明
地址:成都市新南门青平巷19号->

Windows 管理规范(Windows Management Instrumentation)是一项核心的 Windows 管理技术;用户可以使用 WMI 管理本地和远程计算机在哪看
  (2)在Form1上配置一个计时器控制Timer1、标签控件Label1、命令控件Command1属性为读/写。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号