当前脚本发生错误接单

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

详见CommandType所用到的常数String

炉石传说怎么举报脚本

End If
Next
Wscript.Echo ""
Wscript.Echo "All done."
Wscript.Quit (0)

其设置方法为ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*

B、颜色

C、字体

D、打印

E、帮助

过滤器属性的设置方法:

Dialog1.filter=“ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*”

通过FileName属性获取选定的文件名

文件操作


VBS 导入注册表,然后执行文件

PING内网 不通就 执行关机 的VBS

开机脚本VBS用于ARP邦定

运行程序

运行 oshell.run "d:\soft\hf\hfgame3\GameClient.lnk"

断开网络连接


启动网络连接

删除文件的VBS脚本

无界面自动检测安装iscsi客户端,映射及断开映射vbs脚本

下列代码实现无界面自动检测安装iscsi客户端,自动映射


下例代码实现无界面删除iscsi映射盘


删除QQ用户文件强制删除是不行的了,要跳过的话这样:

格5分钟运行一次批处理程序

要设开机自动运行,禁止程序

这样对于用户来说,就很不好控制

如果省略,将使用空字符("")

  二、实现图文动态缩放和渐隐渐现特效的程序代码

->‘对全局变量和API函数的通用声明(API函数Sleep,BitBlt及其常参数SRCCOPY的声明从略,可从API浏览器中复制、粘贴):
Dim1(4)AsBoolean,iasLong,sAsString,ztAsInteger
‘实现图片渐现渐隐的通用过程:
PrivateSubPicCpy(OptionalstripAsInteger=10,OptionaldelayAsInteger=20)
 DimplwAsInteger,plhAsInteger,p2AsInteger
 If1(3)=TrueThen
  Picture1=LoadPicture("c:\win98\安装程序.bmp")
 Else
  Picture1=LoadPicture("")
 EndIf
 plw=Picturel.Width
 plh=Picturel.Height
 p2=0
 DoWhilep2<=plw
  BitBltPicture2.hDC,p2,0,strip,plh,Picture1.hDC,p2,0,SRCCOPY
  p2=p2 strip
  Sleepdelay
  DoEvents
 Loop‘由于图片宽度不一定是strip的整数倍,故下面再全图复制一遍图片:
 BitBltPicture2.hDC,0,0,plw,plh,Picture1.hDC,0,0,SRCCOPY
EndSub

PrivateSubForm_load()
 Label1.Font.Name="黑体"
 Image1.Top=0
 Image1.Left=0
 Picture2.Top=0
 Picture2.Left=Screen.Width-Picthne2.Width
 s="产生缩放和隐现效果的文字"
 zt=5'zt为字体大小控制变量
 i=0'i为显示文字时截取文字的字数变量
EndSub

PrivateSubCmd_Click(IndexAsInteger)
 If1(Index)=TrueThen
  1(Index)=False
 Else
  1(Idex)=True
 EndIf
 SelectCaseIndex
  Case0'激活timer1的timer过程
   Timer1.Enabled=True
   Timer1.Interval=50
   ......'Case1,2与上述类似,分别激活timer2,timer3的timer过程
  Case3'调用图片复制过程Piccpy

   PiCpy10,50
  Case4‘结束程序运行
   UnloadMe
   End
 EndSelect
EndSub
PrivateSubTimer1_Timer()'实现文字缩放的过程
 If1(0)=TrunThen
  zt=zt< 5
 Else
  Zt=Zt-5
 ElseIf
  Ifzt>50orzt<=5Then
   Timer1.Enabled=False
  EndIf
  WithLabel1
   .Font.Size=zt
   .Left=(Form1.Width-Lable1.Width)/2
   .Top=(Form1.Height-Label1.Height)/2
  EndWith
  Label1.Caption=s
EndSub

PrivateSubTimer2_Timer()'实现图片缩放的过程
 If1(1)=TrueThen'使图片放大
  Image1.Width=Image1.Width Form1.Width/10
  Image1.Height=Image1.Height Form1.Height/10
 Else'使图片缩小
  Image1.Width=Image1.Width-Form1.Width/10
  Image1.Height=Image1.Height-Form1.Height/10
 EndIf
 If(Image1.Width>=Form1.Width/2)or(Image1.Width<=Form1.Width/10)Then
  Timer2.Enabled=False
 EndIf
  Image1=LoadPicture("c:\win98\安装程序.bmp")
 EndSub

PrivateSubTimer3.Timer()
 Label1.Font.Size=30
 If1(2)=TrueThen
  i=i l
 Else
  i=i一1
 EndIf
 Ifi>=Len(s)oni<1Then
  Timer3.Enabled=False
 EndIf
 Ifi>=0Then
  Label1.Caption=Left$(s,i)
 EndIf
EndSub->

  以上程序在VB6.0和Windows98/2000环境下调试通过


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
ae二进制使用ADO的打开Accecc数据库方法:
DimDBAsDatabase
SetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法:
首先设置Data控件的属性Exclusive=True为独占模式
设置Connect属性为;pwd=密码
Data1.Connect=";pwd=你的密码"
修改密码:
Data1.Database.NewPassword老密码,新密码

->

insertintoarticle(id,class,title,content)selectid,'2',title,contentfromarticlewhereclass='1'

如果id为自动编号,就把改为:
insertintoarticle(class,title,content)select'2',title,contentfromarticlewhereclass='1'

如果class为数字类型,则去掉单引号.。

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