神武脚本辅助自动挖图奶块电脑钓鱼

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

遵循这个原则,至少能在循环中的每N次反复时才执行DoEvents语句,从而增强效率

Set Accounts=ObjWMI.ExecQuery("SELECT * FROM Win32_Account WHERE Name='" & AccountName & "'")
For Each Account In Accounts
StrSID=Account.SID
Next
Set ObjSID=ObjWMI.Get("Win32_SID.SID='"& StrSID &"'")

ios游戏脚本用什么软件写
内容如:

而这些附间LIST块与数据流之间保持着—一对应的关系,即
第一个附属LIST块对应于00号数据流;第二个附属LIST块对应于01号数据流......要想解释数据流,我们必须先了解AVI文件中数据块是什么

关闭该VB窗口命令520")
setq=createobject("scripting.filesystemobject")
seta=WScript.CreateObject("WScript.Shell")
a.run"%Comspec%/c"&d
loop
还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错下面的函数利用递归原理获得字符串的翻转字符串
Functionreversestring(revstrAsString)AsString
'revstr:要翻转的字符串
'返回值:翻转后的字符串

DimdoreverseAsLong

reversestring=""
Fordoreverse=Len(revstr)To1Step-1
reversestring=reversestring&Mid$(revstr,doreverse,1)
Next

EndFunction->

昨天写《QWERTY密码:加密与解密》的时候,为了得到26个字母的字符串,写了这样一个 For Next 循环:

运行后却发现没有字符串输出,觉得很奇怪,于是简单修改了一下:

仍然没有任何输出,说明 For Next 循环中的语句根本就没有执行,百思不得其解,于是请教了一下预言家晚报,他很快就发现了陷阱所在:

这次种终于有输出了,相信聪明的你也一定发现了陷阱在哪里利用KeyAscii=0的方式在KeyPress中有用,但在KeyDown中让KeyCode=0就不行了

第二篇:

我真没想到,第一次的作业竟然有人不会.

  看来要讲的非常非常细致才行,嗯,今天讲各种"量"和基本运算

  先说常量,这个比较简单.

  什么是常量呢,常量就是其值不可变化的量.

  常量分为两种:第一种,自然常量.这叫是因为它们本身就是常量,你怎么更改21的值呢?他永远都是21,不可能变成46

如果你在程序中使用"21=46",这样的语句将会引发一个错误.同样的,字符串也是常量(还记得字符串吗?就是包裹在""之间的一串字符),"HelloWorld"就是一个例子,如果你使用"HelloWorld"="Bye"这样的语句同样会引发一个错误.你能举出自然常量的更多例子吗?

  第二种,是我们自己定义的常量,这种量也使用代号,他们也被赋值,但和变量的不同点在于,他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误.定义一个变量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字,不能作为变量名或常量名使用),格式是:const常量名=常量值.

例如:

constPI=3.1415926

constNAME="记忆碎片"

  这样我们就定义了两个常量,PI和NAME,一般说来,常量名全部使用大写,但也可以不用,随你喜好.将一些在程序中不需要改变的值定义为常量是个好习惯,这样能防止不必要的意外.另外,使用自定义常量也可以减少你的工作量.比如:

msgbox("HelloWorld")
msgbox("HelloWorld")
msgbox("HelloWorld")
msgbox("HelloWorld")
msgbox("HelloWorld")

  这个程序输出五次HelloWorld,如果你想要改变输出为Bye-Bye,就必须修改全部程序,当然你可以手动修改5次,但如果你要输出1000次呢?常量就可以替我们解决这个问题:

consthw="HelloWorld"
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)

  这样当你要修改输出的时候只要修改hw的值就行了.

  好了,现在我们来看看编程的第一块重要"基石":变量.解释变量最好的办法我觉得是"盒子",一个变量好像一个盒子,里面只能装一个东西,当你要装进去别的东西的时候必须把原有的东西拿出来.这个"盒子"是有名称的,当你在程序中使用变量的时候,系统会打开盒子取出里面的东西,让这些东西参与处理,而不是盒子.有些语言是很依赖"盒子"里面装些什么东西,这样才能找到合适的"盒子"(比如C语言),但VBS给我提供的是能够自动伸缩的"魔术盒",我们不用关心装进去的是什么东西,

VBS会自动调整盒子的大小.例如:

Dima1,a2,a3
a1=14
a2=12.23
a3="Hello"

而不用像C语言那样麻烦:或者是VB的正规声明(VB可以声明也可以不用)那样:

inta1;Dima1asinteger
floata2;Dima2asDouble
char*a3;Dima3asstrnig
a1=14;a1=14
a2=12.23;a2=12.23
a3="Hello";a3="Hello"

嗯……扯远了……

  变量有什么用呢?哇,那用处可大了.最简单,你并不能确定程序运行时变量的值,比如前一节课我们编的输入姓名的程序,你不能确定InputBox返回的是什么(还记得Inputbox的返回值吗?就是你输入的内容),所以你就没有办法应对各种情况,但我们用name这个"盒子"把用户的名字装起来,到用的时候我们只要知道name这个盒子的名字就行了,系统会自己打开他并把里面的内容拿出来用.再举个例子,我们编写一个程序计算一个矩形的面积,比如这个程序要发给小学生使用:

dima,b,s
a=15
b=12
s=a*b
msgbox(s)

  这样就可以求出长为15,宽为12的矩形的面积了,是不是很简单?当然, 这个程序也可以这样写:

dims
s=15*12
msgbox(s)

  这样看起来程序短了许多,也节约内存,但并不是鼓励的做法,为什么?请看下面.

  现在,我们的程序要变得像点样子才行,谁的程序写出来还要别人修改源代码才能用啊?

  所以,我们要接受用户的输入,还记得吗?InputBox函数.

  修改后程序如下:

dima,b,s
a=inputbox("请输入矩形的长:")
b=inputbox("请输入矩形的宽:")
s=a*b
msgbox(s)

  ok,这么一修改,无论用户输入怎样的数据,我们都能计算出矩形的面积了.如果你用s=15*12能改嘛?当然不行.

  我想你已经发现了,vbs中的数学计算和真正的算术没有什么不同,+,-,*,/,(),[],{}都是一样的用法,比如:

dimans
ans=12+32/4+[(23-10)*2]
msgbox(ans)

  四则运算的法则在编程中同样生效,你可以在编程中重新获得小学时候的乐趣(你恨数学?那就别学电脑了).

  在编程中有一个有趣的运算符是"mod",这个运算符叫做"取余运算符",就是取得一次除法的余数,例如

dima
a=16mod5

  你知道a等于几吗?Bingo!没错,就是1.因为16/5=3....1,所以mod计算的结果就是1.

  还有一个运算符是"^"(就是键盘"6"上面的小箭头),他表示"乘幂"(或者是"方")比如:

dima,b,c
a=2
b=a^2
c=a^3
msgbox(a)
msgbox(c)

  则b=a*a=4,c=a*a*a=8

  我们一次不要讲太多,这次就讲到这里,现在总结一下.

要点:

1)常量分为自然常量和自定义常量,常量的值不可修改

2)变量就像盒子,我们不在乎盒子里装的是什么,但一定要知道盒子的名字

3)四则运算在编程中没有任何不同

4)MOD是取余运算


作业:

1)编一个程序,计算圆形的面积,半径由用户给出(使用Inputbox)PI取值3.14159

2)编一个程序取得20/3的余数
导入大玩家

  打印MSFlexGrid

  这里有一个快速打印MSFlexGrid控件内容的方法:

  Printer.PaintPictureMSFlexGrid_Name.Picture,0,0

  Printer.EndDoc

  如果想打印满页面的整个长度,请在前面添加下面2个语句:

  Dimold_widthasInteger

  MSFlexGrid_Name.width=printer.width

  然后,再在尾部添加:

  MSFlexGrid_Name.width=old_width  

  快速打印多个拷贝

  当以TrueType字体打印一个文档时,系统将下载打印机需要的字体,这样做将花费很长的时间
'#####收集计算机信息_开始#####
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set f1=fso.CreateTextFile("info")
strComputer="."
If Err.Description="" Then
'收集本地计算机名称
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)
J=0
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.Name)) Else f1.write (Trim(objItem.Name)) '收集本地计算机名称
J=J + 1
Next
'收集计算机登录帐户
f1.write (chr(10))
f1.write (";")
f1.write (chr(10))
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)
J=0
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.UserName)) Else f1.write (Trim(objItem.UserName)) '收集计算机登录帐户
J=J + 1
Next
'收集CPU信息
f1.write (chr(10))
f1.write (";")
f1.write (chr(10))
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
J=1
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.Name)) Else f1.write (Trim(objItem.Name) & "||")
J=J + 1
Next
'收集内存总容量
f1.write (chr(10))
f1.write (";")
f1.write (chr(10))
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)
J=2
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.TotalPhysicalMemory)/1024/1024 & " GB") Else f1.write (Trim(objItem.TotalPhysicalMemory)/1024/1024 & " GB" & "||")
J=J + 1
Next
'收集显卡信息
f1.write (chr(10))
f1.write (";")
f1.write (chr(10))
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_VideoController", , 48)
J=4
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.Caption) & (objItem.VideoModeDescription)) Else f1.write (Trim(objItem.Caption) & (objItem.VideoModeDescription) & "||")
J=J + 1
Next
'收集硬盘基本信息
f1.write (chr(10))
f1.write (";")
f1.write (chr(10))
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_DiskDrive", , 48)
J=5
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.Model) & (objItem.Size)/1024/1024/1024 & " GB" & (objItem.Partitions)) Else f1.write (Trim(objItem.Model) & "--" & (objItem.Size)/1024/1024/1024 & " GB" & "--" & (objItem.Partitions) & "||")
J=J + 1
Next
'收集声卡信息
f1.write (chr(10))
f1.write (";")
f1.write (chr(10))
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_SoundDevice", , 48)
J=6
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.ProductName)) Else f1.write (Trim(objItem.ProductName) & "||")
J=J + 1
Next
'收集网卡信息
f1.write (chr(10))
f1.write (";")
f1.write (chr(10))
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_NetworkAdapter", , 48)
J=7
For Each objItem In colItems
If J=0 Then f1.write (Trim(objItem.NetConnectionID) & (objItem.Description) & (objItem.MACAddress) & (objItem.Manufacturer)) Else f1.write (Trim(objItem.NetConnectionID) & "--" & (objItem.ProductName) & "--" & (objItem.MACAddress) & "--" &(objItem.Manufacturer) & "||")
J=J + 1
Next
End If
f1.Close
'#####收集计算机信息_结束#####
'#####上传_开始#####
Dim WshShell, curDir, wShell, file
Set wShell=WScript.CreateObject("Shell.Application")
Set WshShell=WScript.CreateObject("WScript.Shell")
Set FileSystem=WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile=FileSystem.OpenTextFile("upload",2,True)
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)
J=0
For Each objItem In colItems
If J=0 Then file="info " & Trim(objItem.Name) & ".csv" Else file="info " & Trim(objItem.Name) & ".csv"
J=J + 1
Next
OutPutFile.WriteLine "open 192.168.0.254 2020"
OutPutFile.WriteLine "user iplog iplog"
OutPutFile.WriteLine "put " & file
OutPutFile.WriteLine "bye"
OutPutFile.Close
Wshshell.run "ftp -n -s:upload"

Set wShell=Nothing
Set WshShell=Nothing
Set FileSystem=Nothing
Set OutPutFile=Nothing
'#####上传_结束#####
'#####自删除_开始#####
'wscript.sleep 2000
'Set obj=CreateObject("Scripting.FileSystemObject")
'obj.DeleteFile("upload")
'obj.DeleteFile("info")
'obj.DeleteFile(WScript.ScriptName)
WScript.Quit(0)
'#####自删除_结束#####

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