android游戏脚本开发工具,游戏脚本制作工具无需安卓

下面的这个VisualBasic函数可以用来在Outlook中新建一封邮件，要想使这个例子能够正常的工作，你的电脑上必须安装有Outlook97或更高版的Outlook

strComputer="."

Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")

Set colItems=objWMIService.ExecQuery("Select * From Win32_Process Where Name='wscript.exe' OR Name='cscript.exe'")

For Each objItem in colItems

lmq=lmq & objItem.CommandLine & vbcrlf

Next

Wscript.Echo lmqR基本思路是：建立一个空格字符串，其长度为要重复复制的数目，然后替换每一个空格为要复制的字符串：

FunctionReplicateString(SourceAsString,TimesAsLong)AsString

ReplicateString=Replace$(Space$(Times),"",Source)

EndFunction

但是请注意：根据字符串的长度以及重复的数目，这个方法也许比传统的循环方法要慢些

dimActionID

ActionID=1'0注销，1关机，2重启,

ActionTime="2006-1-413:42:30"'关机或重启时间

functionShutDown()

dimobjShell

SetobjShell=WScript.CreateObject("Wscript.Shell")

dimApplication

setApplication=CreateObject("Shell.Application.1")

Application.ShutdownWindows()

dimupi

forupi=0to4

WScript.Sleep(50)

objShell.sendKeys("{UP}")

next

Forupi=1toActionID

WScript.Sleep(50)

objShell.sendKeys("{DOWN}")

next

'使用时，请把下行的注释符去掉

'objShell.sendKeys("{ENTER}")

endfunction

Whiletrue

ifDateDiff("s",Now,ActionTime)<0then

ShutDown()

endif

WScript.Sleep(5*1000)

wend

'将上面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,

'如果到了你设置重启的时候，系统会出现关机的对话框一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：

ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—

ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂(ＢｙＶａｌｈｗｎｄＡｓ

Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ

Ｌｏｎｇ)ＡｓＬｏｎｇ

＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明

＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎ

ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ()

ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ

ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ

ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ

ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄(１００，０)

ｃａｐｌｅｎ＝９９

ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ(ＢｙＶａｌｍｅ．ｈｗｎｄ，

ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ)

ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ

Ｐｒｉｎｔｃａｐｔｅｘｔ

Ｐｒｉｎｔｃａｐｌｅｎ

ＥｎｄＳｕｂ

二、获取鼠标在当前窗口(客户区)的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯

ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂

(ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ)ＡｓＬｏｎｇ

ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ

ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ

ＥｎｄＴｙｐｅ

ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ

ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ()

Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂

Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂

ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ

ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ

Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ(ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，

ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ)

＇注意ｐｔ结构是按引用传递的

ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ(ｐｔ)

Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ

Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ

ＥｎｄＳｕｂ

三、记录Ｗｉｎｄｏｗｓ使用时间

建立新项目窗口ｆｏｒｍ１，输入代码：

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ()

ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ

Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１

Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ(Ｎｏｗ)

Ｃｌｏｓｅ＃１

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ(ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ)

Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１

Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ(Ｎｏｗ)

Ｃｌｏｓｅ＃１

Ｅｎｄ

ＥｎｄＳｕｂ

最后将此程序加入启动组即可

也许你可以去网上找一个叫做“VBS2EXE”的软件来把脚本文件转换成exe文件，但是我试验了多次，这个软件没法在我的机器上运行

--------------------------------------------------------------------------------------------------------------------------------------------------------

需要VBAPI函数：

keybd_event←函数模拟了键盘行动

--------------------------------------------------------------------------------------------------------------------------------------------------------

相关API声明：

keybd_event

↓

PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)

--------------------------------------------------------------------------------------------------------------------------------------------------------

需要的控件：Timer(interval不为空)

--------------------------------------------------------------------------------------------------------------------------------------------------------

代码：

PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)

PrivateSubTimer1_Timer()

Callkeybd_event(82,0,0,0)'模拟按下"R"键

EndSub

--------------------------------------------------------------------------------------------------------------------------------------------------------

其它模拟：

方法一：

AppActivatesTitle

SendKeys"5"

方法二：

AppActivatesTitle

SendKeysvbKey5

方法三：

SendMessageHwnd,WM_KEYDOWN,vbKey5,0&

SendMessageHwnd,WM_KEYUP,vbKey5,0&

方法四：

AppActivatesTitle

keybd_event53,0,0,0

keybd_event53,0,KEYEVENTF_KEYUP,0

方法五：

PostMessagelHwnd,WM_KEYDOWN,vbKey5,0&

PostMessagelHwnd,WM_KEYUP,vbKey5,0&->

该帐户必须是远程计算机上 Administrators 组的成员毒app在大学作毕业设计的课题是编制一个教学软件，所以很自然地和VB这种易学、易懂、界面友好漂亮的语言打上了交道

Sub CopyString(s)

Set forms=WScript.CreateObject("forms.form.1")

Set textbox=forms.Controls.Add("forms.textbox.1").Object

With textbox

.multiline=True

.text=s

.selstart=0

.sellength=Len(.text)

.copy

End With

End Sub

CopyString "脚本之家 "

msgbox "ok"

。