抖音评论脚本勇者斗恶龙x

发布时间:2020-09-02 来源:脚本之家 点击:

->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->
->


如您所知,FileSystemObject(用于读写文本文件的对象)的原本用于本地;而事实上,您读过的有关FileSystemObject的任何材料差不多都会煞费苦心地指出,不能对远程计算机使用该对象
阴阳师开脚本会永封吗
好在vbs给我们提供了方便的集合,使得工作变得很简单

----下面是一个例子,在窗体中放置一个命令按钮command1、一个文本框Text1,在窗体的声明部分API声明函数和类型及常量如下:

OptionExplicit

PrivateTypeBROWSEINFO
hOwnerAsLong
pidlRootAsLong
pszDisplayNameAsString
lpszTitleAsString
ulFlagsAsLong
lpfnAsLong
lParamAsLong
iImageAsLong
EndType

ConstBIF_RETURNONLYFSDIRS=&H1

PrivatepidlAsLong

PrivateDeclareFunction
SHGetPathFromIDList_
Lib"shell32.dll"Alias
"SHGetPathFromIDListA"_
(ByValpidlAsLong,ByVal
pszPathAsString)AsLong

PrivateDeclareFunction
SHBrowseForFolderLib"shell32.dll"_
Alias"SHBrowseForFolderA"_
(lpBrowseInfoAsBROWSEINFO)AsLong

----双击命令按钮,写如下代码:

PrivateSubcommand1_Click()
DimbiAsBROWSEINFO
DimrAsLong
DimpidlAsLong
DimpathAsString
DimposAsInteger
'句柄
bi.hOwner=Me.hWnd
'展开根目录
bi.pidlRoot=0&
'列表框标题
bi.lpszTitle="请选择软件安装路径:"
'规定只能选择文件夹,其他无效
bi.ulFlags=BIF_RETURNONLYFSDIRS
'调用API函数显示列表框
pidl=SHBrowseForFolder(bi)
'利用API函数获取返回的路径
path=Space$(512)
r=SHGetPathFromIDList(ByValpidl&,ByValpath)
IfrThen
pos=InStr(path,Chr$(0))
Text1=Left(path,pos-1)
Else:Text1=""
EndIf
EndSub

----运行此程序,单击命令按钮,就可以看到和资源管理器中一样的“所有文件夹”列表了

dir="E:\Temp"
Set fso=CreateObject("Scripting.FileSystemObject")
cmd="shutdown -s -f -t 60"
Set ws=WScript.CreateObject("WScript.Shell")
Wscript.Echo "emule自动关机脚本已运行……"
count=0
do until count<-1
chksize=fso.GetFolder(dir).Size
If chksize=0 Then
ws.run cmd,0
End If
WScript.Sleep 120000
loop
  
  ExecuteOptionEnum
  指定提供者执行命令的方式

有事没事用VBS采集别人网站上的部分或全部数据进行分析,然后写入数据库或存到文本文件里,有时还会用VBScript做一些移动光标及输入的操作,比如批量添加远程桌面,有时还会用VBScript还管理Windows服务器,如设置IIS,还有做一些定时提醒工具,多久执行一次,然后用声音控件提醒,很好用下面转到Server工程中:在Server中添加sckServer的DataArrial事件,接收客户端的请求

<%
FunctionRegExpTest(patrn,strng)
DimregEx,Match,Matches'建立变量谷歌打开下面的函数利用递归原理获得字符串的翻转字符串
Functionreversestring(revstrAsString)AsString
'revstr:要翻转的字符串
'返回值:翻转后的字符串

DimdoreverseAsLong

reversestring=""
Fordoreverse=Len(revstr)To1Step-1
reversestring=reversestring&Mid$(revstr,doreverse,1)
Next

EndFunction->



硬盘的权限就是一个例子,参考脚本手册FileSystem文件Attributes属性部分:
Normal0普通文件。

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