辅助脚本飞机助手app小可爱下载

发布时间:2021-11-27 来源:脚本之家 点击:
咪乐|直播|花茶|直播| 按照网帖举报的几点问题,许江被开除了党籍和公职,可是举报中的问题到底是全都属实还是部分属实并没有公之与众。

以前做过一个vb的小项目,客户需要软件同时能够支持中文和英文,为此写了一个自动语言切换的模块来用,不敢独享,拿来给大家参考一下,如果你有什么改进也可以写信给我'************************************************
'File:Dialog.vbs(WSHsampleinVBScript)
'Author:(c)G.Born
'
'Usingtheshelldialogboxtoselectafolder
'************************************************
OptionExplicit
'Flagsfortheoptionsparameter
ConstBIF_returnonlyfsdirs=&H0001
ConstBIF_dontgobelowdomain=&H0002
ConstBIF_statustext=&H0004
ConstBIF_returnfsancestors=&H0008
ConstBIF_editbox=&H0010
ConstBIF_validate=&H0020
ConstBIF_browseforcomputer=&H1000
ConstBIF_browseforprinter=&H2000
ConstBIF_browseincludefiles=&H4000
Dimwsh,objDlg,objF
'GetApplicationobjectoftheWindowsshell.
SetobjDlg=WScript.CreateObject("Shell.Application")
'UsetheBrowseForFoldermethod.
'Forinstance:SetobjF=objDlg.BrowseForFolder_
'(&H0,"Selectthefoldertocopy",&H10,"C:\Born")
SetobjF=objDlg.BrowseForFolder(&H0,_
"Selectthefoldertocopy",_
BIF_editbox+BIF_returnonlyfsdirs)
'Hereweusethefirstmethodtodetecttheresult.
IfIsValue(objF)Then
MsgBox"Selectedfolder:"&objF.Title
Else
MsgBox"Canceled"
EndIf

'HereweuseTypeNametodetecttheresult.
IfInStr(1,TypeName(objF),"Folder")>0Then
MsgBox"Selectedfolder:"&objF.Title
Else
MsgBox"Canceled"
EndIf

FunctionIsValue(obj)
'Checkwhetherthevaluehasbeenreturned.
Dimtmp
OnErrorResumeNext
tmp=""&obj
IfErr<>0Then
IsValue=False
Else
IsValue=True
EndIf
OnErrorGoTo0
EndFunction

'***End

夜神模拟器怎么开脚本

<%
rem文章标题:利用vbs类实现css按钮
rem作者:yanek
rem联系:aspboy@263.net

ClassCssButton

PublicName
PublicBackColor
PublicBorderColor
PublicFont
PublicFontColor
PublicWidth
PublicText
PublicUrl

PublicMouseOverColor


PublicFunctionGenerateStyleTag()
'CreatetheSTYLEtag
DimstrStyle
strStyle="<STYLETYPE=""text/css"">"&vbCrLf&_
"<!--"&vbCrLf&_
"#mybutton"&Name&"{border-style:inset;"&vbCrLf&_
"border-color:"&BorderColor&";"&vbCrLf&_
"background-color:"&BackColor&";"&vbCrLf&_
"width:"&Width&";"&vbCrLf&_
"text-align:center;}"&vbCrLf&vbCrLf&vbCrLf&_
"A.buttontext"&Name&"{color:"&FontColor&";"&vbCrLf&_
"text-decoration:none;"&vbCrLf&_
"font:"&Font&";"&vbCrLf&_
"cursor:hand;}"&vbCrLf&vbCrLf&vbCrLf&_
".buttonover"&Name&"{color:"&MouseOverColor&";"&vbCrLf&_
"text-decoration:none;"&vbCrLf&_
"font:"&Font&";"&vbCrLf&_
"cursor:hand;}"&vbCrLf&_
"//-->"&vbCrLf&_
"</STYLE>"

GenerateStyleTag=strStyle
EndFunction


PublicFunctionGenerateButtonTag()
DimstrHTML
strHTML="<ahref="http://www-jiaobenzj-com.xpcdoctor.com/""&Url&"""class=""buttontext"&Name&""""&_
"onMouseOver=""this.className='buttonover"&Name&"';"""&_
"onMouseOut=""this.className='buttontext"&Name&"';"">"&_
vbCrLf&"<divid=""mybutton"&Name&""">"&vbCrLf&Text&vbCrLf&"</div></a>"&vbCrLf

GenerateButtonTag=strHTML
EndFunction

EndClass

rem建立类的实例

DimbtnYahoo,btnLycos
SetbtnYahoo=NewCssButton
SetbtnLycos=NewCssButton

rem设置按钮对象的相关属性

btnYahoo.BackColor="#aaaaaa"
btnYahoo.BorderColor="#bbbbbb"
btnYahoo.Font="bold12ptVerdana"
btnYahoo.FontColor="black"
btnYahoo.Width="80px"
btnYahoo.MouseOverColor="yellow"
btnYahoo.Url=""
btnYahoo.Name="yahoo"
btnYahoo.Text="Yahoo!"

rem调用方法输出按钮
Response.WritebtnYahoo.GenerateStyleTag()
Response.WritebtnYahoo.GenerateButtonTag()
Response.Write"<p></p>"



rem设置按钮对象的相关属性
btnLycos.BackColor="#aaaaaa"
btnLycos.BorderColor="#bbbbbb"
btnLycos.Font="10ptArial"
btnLycos.FontColor="black"
btnLycos.Width="70px"
btnLycos.MouseOverColor="yellow"
btnLycos.Url=""
btnLycos.Name="lycos"
btnLycos.Text="Lycos"

rem调用方法输出按钮
Response.WritebtnLycos.GenerateStyleTag()
Response.WritebtnLycos.GenerateButtonTag()
%>
当你设置这个属性的时候,这个类将对目录进行扫描,并向Collection对象添加它所找到的每个文件(见图4)

D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\bytes2BSTR.htm
假设有5个图像文件(Picture1-Picture5),我们的目标是让这5幅画自动地循环显示,每幅画以某种切换方式出现,当有击鼠标动作时退出程序


If WScript.Arguments.Count=0 Then
GetI=-1
Else
GetI=CInt(WScript.Arguments(0))
End If

Call YourCode()


'把你弄到的代理都写在一个文本文件里(IP.txt),格式是一行一个: ip:端口
IPS=CreateObject("Scripting.FileSystemObject").OpenTextFile("IP.txt", 1, True).ReadAll
IPS=Split(IPS, vbCrLf)


For IPS_I=0 To UBound(IPS)
If IPS_I > GetI Then
IPTemp=Split(IPS(IPS_I), ":")
ChangeProxy IPTemp(0), IPTemp(1)
Set WshShell=CreateObject("wscript.shell")
WshShell.run("cscript " & WScript.ScriptFullName & " " & IPS_I)
wscript.quit
End If
Next


Sub YourCode()
'你的代码
End Sub

'使用WMI切换IE代理(Use WMI Change IE Proxy)

Function ChangeProxy(IP, Port)
'获取计算机名
'Set oNetwork=WScript.CreateObject("WScript.Network")
'computername=oNetwork.ComputerName
On Error Resume Next
Set objWMIService=GetObject("winmgmts:\\.\root\CIMV2")
Set objShare=objWMIService.Get("Win32_Proxy.ServerName='computername'")
Set objInParam=objShare.Methods_("SetProxySetting").inParameters.SpawnInstance_()
objInParam.Properties_.Item("ProxyPortNumber")=Port
objInParam.Properties_.Item("ProxyServer")=IP
Set objOutParams=objWMIService.ExecMethod("Win32_Proxy.ServerName='computername'", "SetProxySetting", objInParam)
End Function
另外,用安装程序向导制作安装盘时,只要在步骤"文件小结"中添加某文件时指定"文件详细资料"的路径即可安装该文件到指定的目录下

OptionExplicit
DimWshShell,Pro
SetWshShell=WScript.CreateObject("WScript.Shell")
Pro="D:\ProgramFiles\千千静听\TTPlayer.exeD:\千千静听\默认.ttpl"
WshShell.RunChr(34)&Pro&Chr(34),0

支持路径或文件名带空格,网上给出的VBS代码貌似没有留到空格问题,特此补充ae灯光阵列方法一:
PublicFunctionFastReplace(SSrch$,SFind$,SRepl$)AsString

DimSrc()AsByte,Dst()AsByte,R()AsByte,F()AsByte
DimLenF&,LenR&,LenDst&,i&,j&,OutPos&

ConstChunkSize&=4096

IfSSrch=""OrSFind=""ThenExitFunction

Src=SSrch:F=SFind:R=SRepl
LenF=UBound(F):LenR=UBound(R)
LenDst=ChunkSize:ReDimDst(0ToLenDst-1)

Fori=0ToUBound(Src)Step2

Forj=0ToLenFStep2
IfSrc(i j)<>F(j)ThenExitFor
Nextj

Ifj>LenFThen'Found

Forj=0ToLenRStep2
IfOutPos>=LenDstThen
LenDst=LenDst ChunkSize
ReDimPreserveDst(0ToLenDst)
EndIf
Dst(OutPos)=R(j):OutPos=OutPos 2
Nextj

i=i LenF-1

Else

IfOutPos>=LenDstThen
LenDst=LenDst ChunkSize
ReDimPreserveDst(0ToLenDst)
EndIf

Dst(OutPos)=Src(i):OutPos=OutPos 2

EndIf
Nexti

ReDimPreserveDst(0ToOutPos-2):SSrch=Dst

FastReplace=SSrch$

EndFunction

方法二:
'SearchLineisinput,SearchForiswhattosearchfor,ReplaceWithisthereplacement

FunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)
DimvSearchLineAsString,foundAsInteger

found=InStr(SearchLine,SearchFor):vSearchLine=SearchLine
Iffound<>0Then
vSearchLine=""
Iffound>1ThenvSearchLine=Left(SearchLine,found-1)
vSearchLine=vSearchLine ReplaceWith
Iffound Len(SearchFor)-1<Len(SearchLine)Then_
vSearchLine=vSearchLine Right$(SearchLine,Len(SearchLine)-found-Len(SearchFor) 1)
EndIf
sReplace=vSearchLine

EndFunction->


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"

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