gg脚本加密工具1006gg脚本加密工具大师用

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

现介绍一在VB中运行MicrosoftAccess报表的方法,用起来还不错
Loop

心梗话剧脚本

顺便说一下中文文档里对最后一个参数的描述是错误的:

->


Option Explicit
'这个脚本只用来分割文本文件,脚本需要3个参数
'参数列表
'文件名 参数1 参数2
'梦想工作室
'示例 参数1 参数2 参数意义
' S 5 等分为5个文件
' E 1024 按照1024的大小分割文件
' F 1024 取最前面的1024字节存为一个文件
' L 1024 取最后面的1024字节存为一个文件

Dim tf,sf,fname,souFile,desFolder ,sOption , sNum , FSO , fs, sfs

If WScript.Arguments.Count < 3 Then
WScript.Echo "参数有误!"
WScript.Quit
Else
souFile=WScript.Arguments(0)
sOption=WScript.Arguments(1)
sNum=WScript.Arguments(2)
End If

Set FSO=CreateObject("Scripting.FileSystemObject")
Set tf=FSO.GetFile(souFile)
fs=tf.Size
Set tf=fso.OpenTextFile(souFile, 1)

Dim x
Select Case sOption
Case "S"
sfs=Int ( fs / sNum )
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "E"
sfs=sNum
sNum=Int ( fs / sfs) + 1
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "F"
SaveSubFile "file_" & 0 &".txt", 0 , sNum
Case "L"
SaveSubFile "file_" & 0 &".txt", fs - sNum , sNum
End Select

tf.Close

Sub SaveSubFile(s,b,l)
Dim sfile,content
WScript.Echo s & ":" & b &":" & l
Set sfile=fso.CreateTextFile(s, TRUE)
If b>0 Then
tf.Skip(b)
End If
content=tf.Read(l)
sfile.Write(content)
sfile.Close
End Sub

State可读写Long类型,指定Commnad状态

去C:WINDOWSSAMPLESWSH目录以下将看看吧

以下是实现的代码:
PrivateSubForm_Load()
DimabcasInteger
fora=0toLabel1.Count-1
Labe11(a).BackStyle=0
next
EndSub

PrivateSubLabel1_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
StaticaAsInteger
'实现蓝底的背景
Label1(Index).BackStyle=1
Label1(index).BackColor=rgb(0,0,255)
'用于实现上一项背景透明
Ifa>=0Anda<>IndexThen
Label1(a).BackStyle=0
EndIf
a=Index
EndSub
注:以上是以LabeblBox控件为菜单项,菜单项多少不限

对ADOX库的说明为“MicrosoftADOExt.forDDLandSecurity.”图哪里有由于variant类型变量要比Integer类型慢很多,所以要特别注意这种情况
'======================================
' VBS 中 SendKeys 模拟键盘击键
' 2009-07-26
' 刘林
'======================================
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
' 让脚本等待1000毫秒,也就是1秒再执行下一条语句
WScript.Sleep 1000
' -- 发送字符时,输入法一定要在英文件状态下
' 发送分号
WshShell.SendKeys ";"
WScript.Sleep 1000
' 发送冒号
WshShell.SendKeys ":"
WScript.Sleep 1000
' 发送双引号 -- 利用chr把双引号转换出来
WshShell.SendKeys Chr(34)
WScript.Sleep 1000
' 发送带有双引号的字符串
WshShell.SendKeys Chr(34)&"this is a string"&Chr(34)
WScript.Sleep 1000
' -- 切记,这里是模拟的击键操作,所以不能发送中文
'WshShell.SendKeys Chr(34)&"这是一个字符串"&Chr(34)
WScript.Sleep 1000
'================================================
' -- 如何模拟回车,上档键,Alt键喃?
'================================================
' -- 如何模拟回车, -- {enter}这就代表是发送回车
WshShell.SendKeys "this is a enter!{enter}"
WScript.Sleep 1000
' -- 如何模拟上档键Shift, -- +这就代表是发送shift
WshShell.SendKeys "this is +a" ' 结果为 this is A
WScript.Sleep 1000
' -- 如何模拟Alt, -- %这就代表是发送Alt
WshShell.SendKeys "this is %{TAB}" ' 结果为 切换窗口
WScript.Sleep 1000
'===========================================================
' -- 那么如何发送%, + ^ 喃
WshShell.SendKeys "this is {+}{^}{%}" ' 结果为 切换窗口
WScript.Sleep 1000
' -- 这里你可能已经明白了,发送送特殊字符时,请放到 {} 中
'===========================================================
'======================================
' 更多信息请看VBS帮助文档 2009-07-26
'======================================

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