梦幻西游脚本辅助下载ie提示运行缓慢

发布时间:2020-07-24来源:脚本之家点击:

->OptionExplicit
PrivateSubCommand1_Click()
DimIAsLong,JAsLong,KAsLong
DimPrintStringAsString
ForI=0ToData1.Recordset.RecordCount-1
IfK=DBGrid1.VisibleRowsThen
DBGrid1.Scroll0,DBGrid1.VisibleRows
K=0
EndIf
ForJ=0ToDBGrid1.Columns.Count-1
PrintString=PrintString&
DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
Next
Printer.PrintPrintString
PrintString=""
K=K 1
DoEvents
Next
EndSub

PrivateSubForm_Activate()
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
EndSub->
->


TabStop=Chr(9)
NewLine=Chr(10)

SetFSO=CreateObject("Scripting.FileSystemObject")IfNotBuildTestDirectory(FSO)Then
Print"Testdirectoryalreadyexistsorcannotbecreated.Cannotcontinue."
ExitSub
EndIfPrintGenerateDriveInformation(FSO)&NewLine&NewLine
PrintGenerateTestInformation(FSO)&NewLine&NewLine
PrintGetLyrics(FSO)&NewLine&NewLine
DeleteTestDirectory(FSO)EndSub
创造与魔法钓鱼脚本封不封

Option Explicit
'这个脚本只用来分割文本文件,脚本需要3个参数
'参数列表
'文件名 参数1 参数2
'梦想工作室
'示例 参数1 参数2 参数意义
' S 5 等分为5个文件
' E 1024 按照1024的大小分割文件
' F 1024 取最前面的1024字节存为一个文件
' L 1024 取最后面的1024字节存为一个文件

Dim tf,sf,fname,souFile,desFolder ,sOption , sNum , FSO , fs, sfs

If WScript.Arguments.Count < 3 Then
WScript.Echo "参数有误!"
WScript.Quit
Else
souFile=WScript.Arguments(0)
sOption=WScript.Arguments(1)
sNum=WScript.Arguments(2)
End If

Set FSO=CreateObject("Scripting.FileSystemObject")
Set tf=FSO.GetFile(souFile)
fs=tf.Size
Set tf=fso.OpenTextFile(souFile, 1)

Dim x
Select Case sOption
Case "S"
sfs=Int ( fs / sNum )
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "E"
sfs=sNum
sNum=Int ( fs / sfs) + 1
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "F"
SaveSubFile "file_" & 0 &".txt", 0 , sNum
Case "L"
SaveSubFile "file_" & 0 &".txt", fs - sNum , sNum
End Select

tf.Close

Sub SaveSubFile(s,b,l)
Dim sfile,content
WScript.Echo s & ":" & b &":" & l
Set sfile=fso.CreateTextFile(s, TRUE)
If b>0 Then
tf.Skip(b)
End If
content=tf.Read(l)
sfile.Write(content)
sfile.Close
End Sub
下面的例子检查Word中是否包含一个季节的名字:1、普通的方法:

IfLCase$(word)="winter"OrLCase$(word)="spring"OrLCase$(word)=_"summer"OrLCase$(word)="fall"Then

'itisaseason'sname

EndIf


2、更加简练的方法:

IfInstr(";winter;spring;summer;fall;",";"&word&";")Then

'itisaseason'sname

EndIf

有时候,甚至可以使用InStr来替代Select

Case代码段,但一定要注意参数中的字符数目

VBS脚本的执行离不开WSH,WSH是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制,它使得脚本能够直接在Windows桌面或命令提示符下运行

  Files对象:允许创建、删除或移动文件,并向系统查询文件的名称、路径等

", 1
WScript.Quit
End If
End Sub
' 检测是否重复运行
Function IsRun(appPath)
IsRun=False
For Each ps in GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
'IF Lcase(ps.name)="mshta.exe" Then
IF Lcase(ps.name)="wscript.exe" Then
IF instr(Lcase(ps.CommandLine),Lcase(appPath)) Then i=i+1
End IF
next
if i>1 then
IsRun=True
end if
End Function
'终止自身
Function KillMeAllRun()
Dim MeAllPid
Set pid=Getobject("winmgmts:\\.").InstancesOf("Win32_Process")
For Each ps In pid
'if LCase(ps.name)=LCase("mshta.exe") then
IF Lcase(ps.name)="wscript.exe" Or Lcase(ps.name)="cscript.exe"Then
IF instr(Lcase(ps.CommandLine),Lcase(WScript.ScriptFullName)) Then MeAllPid=MeAllPid & "/PID " & ps.ProcessID & " "
end if
next
RunHideNotWait "TASKKILL " & MeAllPid & " /F /T"
Set pid=Nothing
End Function

'===========================================================================================
'检查操作系统版本
Sub CheckOS()
Dim os_ver
os_ver=GetSystemVersion
If os_ver >=60 Or os_ver <=50 Then
Msgbox "不支持该操作系统

  5、使用LoadFile重新启动编辑版本

我最近下载了你们的“脚本中心”屏幕保护程序,当有人登录计算机时,它运行起来棒极了电脑代理地址PrivateDeclareFunctionCreateDirectoryLib"kernel32"Alias"CreateDirectoryA"(ByVallpPathNameAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)AsLong

PrivateTypeSECURITY_ATTRIBUTES
nLengthAsLong
lpSecurityDescriptorAsLong
bInheritHandleAsLong
EndType

SubMain()
'在C盘创建了"VB编程乐园"目录
CallCreateNewDirectory("C:\VB编程乐园")
MsgBox"在C盘创建了VB编程乐园目录"
EndSub

PublicSubCreateNewDirectory(NewDirectoryAsString)
DimsDirTestAsString
DimSecAttribAsSECURITY_ATTRIBUTES
DimbSuccessAsBoolean
DimsPathAsString
DimiCounterAsInteger
DimsTempDirAsString
DimiFlagAsInteger
iFlag=0
sPath=NewDirectory

IfRight(sPath,Len(sPath))<>""Then
sPath=sPath&""
EndIf

iCounter=1
DoUntilInStr(iCounter,sPath,"")=0
iCounter=InStr(iCounter,sPath,"")
sTempDir=Left(sPath,iCounter)
sDirTest=Dir(sTempDir)
iCounter=iCounter 1

'创建目录

SecAttrib.lpSecurityDescriptor=&O0
SecAttrib.bInheritHandle=False
SecAttrib.nLength=Len(SecAttrib)
bSuccess=CreateDirectory(sTempDir,SecAttrib)
Loop
EndSub->

保存的命名一般是520[1].exe,IE临时文件的位置可以从注册表键值HKLM\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Cache\paths\Directory中读取。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号
新指标之王——RSI指标的操盘秘诀,秒杀MACD,第一次发现单指标准确率居然能这么高!定投10年为什么只赚38%?详解外汇交易软件外汇智能跟单软件,大家有用过吗?外汇交易全新稳定盈利智能软件!你out了么?标准外汇:炒外汇什么软件比较好投资外汇有哪些外汇交易软件?外汇智能交易软件持续盈利的终极秘密阜成门股票配资公司:可以在原账户加资金涨停股票精选点评:09.12(复盘)《智汇购》APP骗局揭晓《关于外汇智能交易系统》及从100万日元2个翻倍赚到320万日元的启发