绝地求生刺激战场脚本滑动屏幕

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


Usecust
CreateTablestudents
(
numberintnotnull,
namevarchar(10)notnull,
sexchar(2)null,
birthdaydatetimenull,
hometownvarchar(30)null,
telphone_novarchar(12)null,
addressvarchar(30)null,
othersvarchar(50)null
)
在这个表中number表示学生代号,数据类型为int,不允许为空;name表示学生姓名,数据类型为varchar,长度为10,不允许为空;sex表示学生的性别,数据类型为char,长度为2,允许为空;birthday表示学生的出生日期,数据类型为datetime,允许为空;hometown表示学生的籍贯,数据类型为varchar,长度为30,允许为空;telephone_no表示学生的联系电脑,数据类型为varchar,长度为12,允许为空;address表示学生的住址,数据类型为varchar,长度为30,允许为空;others表示学生的备注信息,长度为50,允许为空作为安全性最佳操作,请使用不属于 Administrators 组的帐户登录计算机,然后使用 runas 命令以管理员身份运行脚本和可执行文件

脚本程序员


'**********************2.To create the Folder and File object*********************************
If fso.FolderExists(FolderPath) Then
Set Folder=fso.GetFolder(FolderPath) 'This set command is neccessary!
Set Files=Folder.Files
fileNums=Files.Count
'Msgbox fileNums
For Each File In Folder.Files
if right(File.name,2)="rm" then
ReDim Preserve FileString(i) 'This is a Dynamic Array, so we should use the Redim command
'Be careful of the Preserve word, important!!!!
FileString(i)=File.Name
'MsgBox i & " " & FileString(i)
i=i+1
fileNums=i
End if
Next
End If

'**********************3.Create Excel and stroe the file name in it***************************
Dim objExcel
Dim objWorkbook

Set objExcel=WScript.CreateObject("Excel.Application")
objExcel.Workbooks.Add
objExcel.Visible=True

Set objWorkbook=objExcel.ActiveWorkbook
For ii=1 to fileNums
objWorkbook.Worksheets(1).Cells(ii,1)=FileString(ii-1)
Next
objWorkbook.Worksheets(1).Range("A1:A1").Columns.AutoFit
objExcel.DisplayAlerts=False
objWorkbook.SaveAs(FolderPath & "xiao.xls")

objWorkbook.Close()'Close the Workbook
objExcel.Quit()'Quit
Set fso=Nothing

'**********************4.Open the files and read the first line.******************************
Dim Range
Dim Range_i
Dim mfile
Dim sline
Dim iii

set fso=createobject("scripting.filesystemobject")
Set objExcel=WScript.CreateObject("Excel.Application")
objExcel.Visible=True
objExcel.Workbooks.open(FolderPath & "xiao.xls")

Set objWorkbook=objExcel.ActiveWorkbook
Set Range=objWorkbook.Activesheet.range("A1:A11")

For Range_i=1 to fileNums
set mfile=fso.opentextfile(Range(Range_i).value)
msgbox Range_i & " " & Range(Range_i).value
for iii=1 to 1
sline=mfile.readline
objWorkbook.Worksheets(1).Cells(Range_i,2)=sline
Next
mfile.close
Next
objWorkbook.Worksheets(1).Range("B1:B1").Columns.AutoFit
objExcel.DisplayAlerts=False
objWorkbook.SaveAs(FolderPath & "xiao.xls")

objWorkbook.Close()'Close the Workbook
objExcel.Quit()'Quit
Set fso=Nothing

在工程中增添一模块,在模块中加上如下的代码:
OptionExplicit
PrivateConstSPI_GETWORKAREA=48
PrivateDeclareFunctionSystemParametersInfo&Lib"User32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)
PrivateTypeRECT
LeftAsLong
TopAsLong
RightAsLong
BottomAsLong
EndType

PublicFunctionCenterForm32(frmAsForm)
DimScreenWidth&,ScreenHeight&,ScreenLeft&,ScreenTop&
DimDesktopAreaAsRECT
CallSystemParametersInfo(SPI_GETWORKAREA,0,DesktopArea,0)
ScreenHeight=(DesktopArea.Bottom-DesktopArea.Top)*Screen.TwipsPerPixelY
ScreenWidth=(DesktopArea.Right-DesktopArea.Left)*Screen.TwipsPerPixelX
ScreenLeft=DesktopArea.Left*Screen.TwipsPerPixelX
ScreenTop=DesktopArea.Top*Screen.TwipsPerPixelY
frm.Move(ScreenWidth-frm.Width)\2 ScreenLeft,(ScreenHeight-frm.Height)\2 ScreenTop
EndFunction

----要调用CenterForm32函数,可在表单的Load事件中增添代码CenterForm32Me即可

不懂注册表、VBS、批处理不要紧,只要会学、会吸收别人的精华,会查找资料,|论坛|百度|GOOGLE|,然后能用好,就非常不错了

贴一些搜集的文字放到这吧但是,如今的许多Web页面功能单一、缺乏交互能力,谈不上文本、图像、声音、视频的真正多媒体集成,这是HTML与生俱来的限制



下午吃饭的时候,放火墙出了点状况,打开防火墙日志查看了下,无意中瞄到了“D:\DATA\VBS\GetWanIP.vbs”的字眼,看来有眉目了参数:您相信吗?这个模组的写法比用任何其他的方法快几十倍

文件操作


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

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

开机脚本VBS用于ARP邦定

运行程序

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

断开网络连接


启动网络连接

删除文件的VBS脚本

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

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


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


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

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

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

油猴导入插件Q:--怎样在我的程序中实现文件下载

  Re:

  一个例子:一个Command,两个Text代码如下:

     PrivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLong

   PrivateSubCommand1_Click()

     DimsDownloadAsString

     sDownload=StrConv(Text1.Text,vbUnicode)

     CallDoFileDownload(sDownload)

     EndSub

   PrivateSubForm_Load()

     Text1.Text="

     Form1.Caption="Audiograbber1.62Full"

     Text2.Text="

     EndSub

  Q:--如何在vb中定义一个热键,使得当一个应用程序的窗口最小化后,可以通过热键来唤醒它

  Re:

  先声明API函数SendMessage,然后添加一个按钮和如下代码;

     PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByVal_   wMsgAsLong,ByValwparamAsLong,lparamAsAny)AsLong

   PrivateSubCommand1_Click()

     DimwKeyAsLong

     wKey=66

     X=SendMessage(Me.hwnd,WM_SETHOTKEY,wKey,0)

     MsgBox"B键将激活窗体2代表临时文件夹,就不要我多说了吧?

下面给出取临时文件夹路径字符串的实例:

Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")//绑定FSO对象
Dimtempfolder
ConstTemporaryFolder=2
Settempfolder=fso.GetSpecialFolder(TemporaryFolder)
Wscript.Echotempfolder

你把上面的代码保存为一个vbs文件打开试试,弹出了你的临时文件夹所在的路径。

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