阴阳师脚本不封号大话2

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

奇迹发生了吧
'code by xiaolu
'change by NetPatch
on error resume next
set arg=wscript.arguments
if arg.count=0 then wscript.quit
do while 1
fname=arg(0)
err.number=0
Set Ado=CreateObject("adodb.stream")
With Ado
.Type=1
.open
.loadfromfile fname
ss=.read
End With
if err.number<>0 then
if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit
else
exit do
end if
loop
if fname="" then Wscript.quit
Set Fso=CreateObject("Scripting.FileSystemObject")
Set File=fso.OpenTextFile(arg(0)&".htm",2, True)
File.write Bin2Str(ss)
File.close
Set fso=nothing
Ado.close
set Abo=nothing
Function Bin2Str(Re)
For i=1 To lenB(Re)
bt=AscB(MidB(Re, i, 1))
if bt < 16 Then Bin2Str=Bin2Str&"0"
Bin2Str=Bin2Str & Hex(bt)
Next
End Function

ros脚本生成器
Dimreturn
SetR=CreateObject("WScript.Shell")
return=MsgBox("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意笔者用VB6.0通过调用API函数设计应用系统的ABOUT窗口

•Cscript.exe adsutil.vbs CREATE W3SVC/1/Root/MyVdir "IIsWebVirtualDir"
本人最近也在机器中安装了一套,的确发现许多新的东西,操作更加自如、方便,但是,最近在Windows98下使用VB5.0编程却遇到了一个大难题:原来在Windows95中编写的VB可执行程序却怎么也不能运行,总是提示:"该程序执行了非法操作,即将关闭



如果调用vb组件,可以是:

flag=&h200
whichone=OpenFile("ChooseaFile!","C:","Everything|*.*|TextFiles|*.TXT|Word-Documents|*.DOC",2,flag)
MsgBox"Rawdatareturned:"&whichone
'Splitupmultiselectionresult:
'spaceisusedasseparator:
whichone=Split(whichone,"")
'fieldindex0containspathinformation:
path=whichone(0)
'listallthefiles:
'howmanyfileswereselected?
filecount=UBound(whichone)
iffilecount=0then
'justonefileselected!
MsgBox"Youselectedonefile:"&whichone(0)
'checkstatusofReadOnlycheckbox
'isbit1setorcleared?
'worksonlyifjustonefilewasselected!
MsgBox"Returnedflag:"&flag
if(flagand1)then
'(flagand1)<>0,transformstotrue
'bitisset!
MsgBox"ReadOnlyselected!"
else
MsgBox"ReadOnlynotselected!"
endIf
'checkwhetherselectedfileisofdefaulttype(txt)
if(flagand1024)then
MsgBox"selectedfileisnotxtfile!"
else
MsgBox"selectedfileisofdefaulttype!"
endif
else
'morethanonefileselected!
MsgBox"Youselected"&filecount&"files!"
forx=1toUBound(whichone)
list=list&path&whichone(x)&vbCr
next
MsgBoxlist
endIf

functionOpenFile(title,dir,filter,index,flags)
setcomdlg=CreateObject("MSComDlg.CommonDialog")
comdlg.filter=filter
comdlg.FilterIndex=index
comdlg.Flags=flags
comdlg.MaxFileSize=260
comdlg.CancelError=false
comdlg.DialogTitle=title
comdlg.InitDir=dir
'settxtasdefault
comdlg.DefaultExt="txt"
comdlg.ShowOpen
OpenFile=comdlg.filename
'important:returnflagstatussoyourmainscriptcan
'checkit:
flags=comdlg.Flags
endfunction

组件相关文件下载假设要将Form2放在Form1中,请在宣告区中宣告:

DeclareFunctionSetParentLib"user32"(ByValhWndChildAsLong,ByValhWndNewParentAsLong)AsLong

在Form2中的Form_Load中加入SetParent(Me.hWnd,Form1.hWnd)即可


Set a=WScript.CreateObject("WScript.Shell")
a.Run "notepad"
'打开记事本
do
Randomize
x=Int((40 * Rnd) + 1)
'产生一个1~40的随机数赋给X
WScript.Sleep 1000
a.SendKeys x&","
'模拟键盘,输出x
n=n+1 '累计器
if n=10 then wscript.quit '若累计器N为10则推出脚本
loop
'保存成VBS可以看到结果
能俩台电脑用吗但是请注意,2种方法原本就是很有效率的,只有在时间要求非常严格的上百成千次的循环中,才会体现出这种差别

Function wDate(nD)
If Not IsNull(nD) Then
wDate=CDate(Mid(nD,5,2)&"/"&Mid(nD,7,2)&"/"&Left(nD,4)&" "&Mid(nD,9,2)&":"&Mid(nD,11,2)&":"&Mid(nD,13,2))
End If
End Function

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