轩辕传奇脚本哪里下载判断经验怪

发布时间:2021-08-17 来源:脚本之家 点击:

两点关键:
1检测是Windows关闭引起的QueryUnload事件

如果没有iisftpdr.vbs文件可以到脚本之家下载://

简单多地图循环挂机脚本

html="1.html"
asp="1.asp"
Set fso=CreateObject("Scripting.FileSystemObject")
Set fhtml=fso.OpenTextFile(html, 1)
Set fasp=fso.OpenTextFile(asp, 2, true)
While fhtml.AtEndOfStream <> true
text=fhtml.ReadLine
text="Response.Write "&""""&Replace(text, """", """""")&""""
fasp.WriteLine(text)
wend
fhtml.close
fasp.close
set fso=nothing
msgbox "success"
代码如下:

mytext=CIHTTP1.HTMLPageTextWithTags如果不想用控件下载整个主页,可以通过控件的PacketReceived事件的Packet参数快速扫描页面数据


Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
Set fso=wscript.createobject("scripting.filesystemobject")
set f=fso.opentextfile("sendkey.vbs",2,true)
f.Write("Set WshShell=WScript.CreateObject(" & Chr(34) & "WScript.Shell" & chr(34) & ")")
f.WriteBlankLines(1)
f.Write("WScript.Sleep 1800")
f.WriteBlankLines(1)
f.Write("Wshshell.appactivate " & chr(34) & "提示" & chr(34))
f.WriteBlankLines(1)
f.Write("Wshshell.Sendkeys " & chr(34) & "^v" & chr(34))
f.WriteBlankLines(1)
f.Close
Wshshell.Run ("sendkey.vbs")
InputBox "请输入","提示",""
fso.DeleteFile ("sendkey.vbs")
我们可以看到一些程序在开机时就会自动运行,象Winpopup就是这样的,这是怎么实现的呢?可以把需要运行的程序添加到“开始”-“程序”-“启动”中,还有一种方法就是写入注册表了,这里我们讨论通过写注册表来实现的方法,从中可以看到三个对注册表操作的API函数的使用技巧

我们来把它调到1,0是不管的DataBindingManager提供了一种便于进行数据绑定的用户界面


option explicit
Dim oArgs, NomFichier
'Optional argument : the encoded filename
NomFichier=""
Set oArgs=WScript.Arguments
Select Case oArgs.Count
Case 0 'No Arg, popup a dialog box to choose the file
NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011)
Case 1
If Instr(oArgs(0),"?")=0 Then '-? ou /?=> aide
NomFichier=oArgs(0)
End If
Case Else
WScript.Echo "Too many parameters"
End Select
Set oArgs=Nothing

莫愁

1.如果你是新建一个程序
当你新建一个程序时,在FROM中要先添加DATA控件,再添加ADO控件,OK一切正常
2.如果你已有一个程序,还想添加一个FROM(其中包括DATA控件)
解决方法是:1.新建FORM,建一个DATA控件,输入你要输入的代码,保存文件
2.添加文件,把你原来的工程文件添加进来
3.改变工程属性,把启动对象设置为你原来的工程

注意事项:ADO控件在DATA控件前面加入=“错误”
ADO控件在DATA控件后面加入=“正确”->


Path="C:\test.jpg"
arr=Split(Path,"")
FileName=arr(Ubound(arr))
FolderPath=Left(Path, Len(Path) - Len(FileName) - 1)
Set objShell=CreateObject("Shell.Application")
Set objFolder=objShell.Namespace(FolderPath)
set objFolderItem=objFolder.ParseName(FileName)
Width=objFolder.GetDetailsOf(objFolderItem, 162)
Height=objFolder.GetDetailsOf(objFolderItem, 164)
Msgbox "Width: " & Width & " Height: " & Height

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