罗技压枪宏脚本下载钓鱼链接

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



PrivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext
'
DimwsAsWorkspace
DimdbAsDatabase
DimrsAsRecordset
'
ForEachwsInWorkspaces
ForEachdbInws.Databases
ForEachrsIndb.Recordsets
rs.Close
Setrs=Nothing
Next
db.Close
Setdb=Nothing
Next
ws.Close
Setws=Nothing
Next
'
EndSub->


strURL=InputBox("请输入要读的网址", "朗读网页", "")
If strURL="" Then
Wscript.quit
End If
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
ie.navigate strURL
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
strContent=ie.document.body.innerText
Set objVoice=CreateObject("SAPI.SpVoice")
Set objVoice.Voice=objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
objVoice.Rate=5 '速度:-10,10 0
objVoice.Volume=100 '声音:0,100 100
objVoice.Speak strContent
自动视频脚本


  EndWith
  frmPeerB.Show′显示第二个窗体


'codeBY伤脑筋
'copytofilename.vbs
dimnum,var,fso,wsh,pathname
num="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,"+_
"V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,"+_
"F7,F8,F9,F10,F11,F12"

var=Split(num,",",-1,1)
Setfso=CreateObject("Scripting.FileSystemObject")
setWsh=WScript.CreateObject("WScript.Shell")
pathname=Wsh.SpecialFolders("AllUsersStartMenu")+"\程序\附件\辅助工具"

fori=0toUBound(var)
setLink=Wsh.CreateShortcut(pathname+var(i)+".lnk")
Link.TargetPath="conime.exe"
Link.Hotkey=var(i)
Link.Save
SetFile=fso.GetFile(pathname+var(i)+".lnk")
file.Attributes=2+4
next
->



  把下面的代码添加到示例代码末尾:

SubPrint(x)
Response.Write"<PRE><FONTFACE=""宋体""SIZE=""1"">"
Response.Writex
Response.Write"</FONT></PRE>"
EndSub
Main
  前面的代码增加一个将在服务器端运行,但在客户端显示结果的打印过程现在我们运行程序,就会看到第一条记录中的完整信息,但点击列表来选择其他的项目时则不会发生任何变化,这是因为没有指明列表框控件如何响应Click事件,导致Data不能重定位到记录集中与所点击项目匹配的新的记录,因此要在列表控件的Click事件中加入如下代码:

  Data1.RecordSet.Bookmark=DBList1.SelectedItem

  Bookmark属性标识记录集中的一行,通过设置这个属性,使Data控件重新定位到特定的行


On Error Resume Next
Set Arg=Wscript.Arguments
If Arg.Count=0 Then wscript.quit
'code by NetPatch
'enjoy it
Set Fso=CreateObject("Scripting.FileSystemObject")
Set File=Fso.OpenTextFile(arg(0),1,False,-2)
Set Files=Fso.OpenTextFile(arg(0)&".vbs",2,True)
Do While File.AtEndOfStream <> True
szBuf=File.readline
szBuf=Replace(szBuf,chr(9),"")
Findnum=InStr(LCase(szBuf),"then")
If Findnum >0 Then
Findnum=findnum+3
If Len(szBuf) > Findnum Then
szBuf=szBuf&":End If"
End If
End If
Files.Write szBuf&":"
Loop
File.Close
Files.Close
Set Fso=Nothing
Wscript.echo "ok!"
起源缺省创建Form1
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
set fn2=fso.GetFile("c:\index2.htm")
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile("c:\index.htm")
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists("c:\index2.htm") and flsize2>50000 and fldate2>fldate1 Then
fso.getfile("c:\index2.htm").copy("c:\index.htm")
if err.number=0 then WriteHistory "成功"&now(),"log.txt"
end if

Sub WriteHistory(hisChars, path)
Const ForReading=1, ForAppending=8
Dim fso, f
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(path, ForAppending, True)
f.WriteLine hisChars
f.Close
End Sub

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