lol喷人脚本开封号多久

发布时间:2020-06-29 来源:脚本之家 点击:

分别在:

  
  

  这些是标准的SQL导出语句:

  select*into[office/9.shtml'target='_blank'class='article'>Excel8.0;database=导出目录].导出表名from表

  select*into[FoxPro2.6;database=导出目录].导出表名from表

  select*into[FoxPro2.5;database=同上].导出表名from表

  select*into[dBaseIII;database=同上].导出表名from表

  select*into[Paradox4.X;database=同上].导出表名from表

  select*into[;database=C:\temp\xxx.mdb].导出表名from表

  下面程序为实现用户自定议文件名用变量代替一部分
'===================================================================
Const FAVORITES=&H6&
Const ForWriting=2
Set objShell=CreateObject("shell.application")
Set objFolder=objShell.Namespace(FAVORITES)
Set fso=CreateObject ("scripting.filesystemobject")
processGet objFolder
Set objFolder=Nothing
Set fso=Nothing
Wscript.quit
'===================================================================
Sub processGet (objFolder)
For Each objItem in objFolder.Items
If objItem.IsLink Then
Set objLink=objItem.GetLink
Wscript.echo objItem.Name
Wscript.echo objLink.Target
Set objLink=Nothing
ElseIf objItem.IsFolder Then
processGet objItem.getfolder
Else
Exit For
End If
Next
End Sub
'===================================================================

创造与魔法免费捡蚯蚓脚本
此外,我们要使返回的数据按创建日期和时间顺序排列,最先创建的文件排在最前面:

strQuery="SELECTName,CreationTimeFROM'C:\Scripts\*.*'"&_
"WHERENOTAttributesLIKE'%D%'ORDERBYCreationTimeDESC"

此查询中唯一不寻常的就是WHERE子句:WHERENOTAttributesLIKE'%D%'这一函数使用时会返回一个代表前一个光标的变量值(jiu),为我们关闭程序时得以方便的恢复原始光标(jiu)
PrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpFileNameAsString)AsLong
PrivateDeclareFunctionSetClassLongLib"user32"Alias"SetClassLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
DimxinAsLong
DimjiuAsLong

PrivateSubForm_Load()
xin=LoadCursorFromFile("C:\WINDOWS\CURSORS\Globe.ani")
jiu=SetClassLong(hwnd,-12,xin)
EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
SetClassLonghwnd,-12,jiu
EndSub->


'BY Coo_boi
If WScript.Arguments.Count=0 Then WScript.Quit
Dim fso,txt,htm
txt=WScript.Arguments(0)
Set fso=CreateObject("Scripting.FileSystemObject")
Set htm=fso.CreateTextFile(txt&".htm",True)
title=fso.GetFile(txt).Name
title=Left(title,Len(title)-4)
MsgBox title
htm.WriteLine "<html>"
htm.WriteLine "<head>"
htm.WriteLine "<title>"&title&"</title>"
htm.WriteLine "</head>"
htm.WriteLine "<body>"
htm.WriteLine "<h1 align=center>"&title&"</h1>"
htm.WriteLine "<hr color=red>"
For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)
htm.WriteLine line&"<br>"
Next
htm.WriteLine "</body>"
htm.WriteLine "</html>"
htm.Close
WScript.Echo "将txt转换为html成功"
->

VBS中InStrRev函数使用过不少,但是几乎没有用过第三个参数,今天才发现第三个参数的用法跟我想的不太一样

  OptionExplicit

  DimHoursAsInteger

  DimMinutesAsInteger

  DimSecondsAsInteger

  DimtimeAsDate

  PrivateDeclareFunctionRasHangUpLib"RasApi32.dll"Alias"RasHangUpA"(ByValhRasConnAsLong)AsLong

  PrivateDeclareFunctionRasEnumConnectionsLib"RasApi32.dll"Alias"RasEnumConnectionsA"(lprasconnAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong

  ConstRAS95_MaxEntryName=256

  ConstRAS95_MaxDeviceName=128

  ConstRAS_MaxDeviceType=16

  PrivateTypeRASCONN95

  dwSizeAsLong

  hRasConnAsLong

  szEntryName(RAS95_MaxEntryName)AsByte

  szDeviceType(RAS_MaxDeviceType)AsByte

  szDeviceName(RAS95_MaxDeviceName)AsByte

  EndType

  下面一段代码是对Timer的控制,以及到设定时间的时候断开连接的代码

  PrivateSubTimer1_Timer()

  Timer1.Enabled=False

  If(Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss"))〈〉"00:00:00"Then

  time=DateAdd("s",-1,time)

  Label1.Visible=False

  Label1.Caption=Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss")

  Label1.Visible=True

  Timer1.Enabled=True

  Else

  Timer1.Enabled=False

  EndIf

  IfLabel1.Caption="00:00:01"Then

  dsdklj.WindowState=0

  Command1.Enabled=True

  MsgBox"时间到了,正在断开连接"

  DimlngRetCodeAsLong

  DimlpcbAsLong

  DimlpcConnectionsAsLong

  DimintArraySizeAsInteger

  DimintLooperAsInteger

  ReDimlprasconn95(intArraySize)AsRASCONN95

  lprasconn95(0).dwSize=412

  lpcb=256*lprasconn95(0).dwSize

  lngRetCode=RasEnumConnections(lprasconn95(0),lpcb,lpcConnections)

  IflngRetCode=0Then

  IflpcConnections〉0Then

  ForintLooper=0TolpcConnections-1

  RasHangUplprasconn95(intLooper).hRasConn

  NextintLooper

  UnloadMe

  Else

  MsgBox"时间到了,没有拨号网络连接"

  UnloadMe

  EndIf

  EndIf

  EndIf

  EndSub

  其实,这个程序还可以进一步的完善,比如添加暂停功能、或者经过改造,适用于宽带的,等等


'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
'?Kelly Theriot and Doug Knox - 8/22/2003 加工 加龙ddf3
'翻译:Smallfrogswin7页面解决MicrosoftJet通过直接读取文件或用方案描述信息文件来确定文本文件的格式
i=0
set wshshell=createobject("wscript.shell")
Set objWord=CreateObject("Word.Application")
Set colTasks=objWord.Tasks
do while i<30
For Each objTask in colTasks
if left(objTask.Name,1)="与" then
wshshell.appactivate objTask.Name
WshShell.SendKeys "{enter}"
wshshell.sendkeys "^v"
WshShell.SendKeys i
wscript.sleep 600
WshShell.SendKeys "%s"
i=i+1
end if
next
loop

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