游戏脚本制作工具无需安卓

  下面的这个VisualBasic函数可以用来在Outlook中新建一封邮件,要想使这个例子能够正常的工作,你的电脑上必须安装有Outlook97或更高版的OutlookstrComputer="."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 colItemslmq=lmq & objItem.CommandLine & vbcrlfNextWscript.Echo lmq

20个分镜头脚本范例R基本思路是:建立一个空格字符串,其长度为要重复复制的数目,然后替换每一个空格为要复制的字符串:

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,然后双击或在文件上点右键选择以命令提示打开, '如果到了你设置重启的时候,系统会出现关机的对话框一、利用API获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥?橹刑砑尤缦麓码:OptionExplicitPrivateDeclareFunctionGetWindowTextLib"us―er32"Alias"GetWindowTextA"(ByValhwndAsLong,ByVallpStringAsString,ByValcchAsLong)AsLong'在窗体声明节中加入API函数“GetWindowText”的说明'函数将向lpstring中载入要获得的窗体captionPrivateSubCommand1_Click()DimreturncodeAsLongDimcaptextAsStringDimcaplenAsLongcaptext=String$(100,0)caplen=99returncode=GetWindowText(ByValme.hwnd,ByValcaptext,ByValcaplen)printreturncodePrintcaptextPrintcaplenEndSub二、获取鼠标在当前窗口(客户区)的屏幕坐标そ立一新项目窗体form1并添加控件文本框Text1、Text2ぴ诖疤迥?橹惺淙耄邯OptionExplicitPrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLongPrivateTypePOINTAPIXAsLongYAsLongEndTypeDimptAsPOINTAPIDimreturncodeAsLongPrivateSubForm_Load()Text1.Text=""Text2.Text=""MaxButton=FalseMinButton=FalseForm1.WindowState=2EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'注意pt结构是按引用传递的returncode=GetCursorPos(pt)Text1.Text=pt.XText2.Text=pt.YEndSub三、记录Windows使用时间建立新项目窗口form1,输入代码:PrivateSubForm_Load()form1.visible=falseOpenapp.paht+"memo.txt"ForAppendAs#1Print#1,"启动windows:"&CStr(Now)Close#1EndSubPrivateSubForm_Unload(CancelAsInteger)Openapp.paht+"memo.txt"ForAppendAs#1Print#1,"关闭windows:"&CStr(Now)Close#1EndEndSub最后将此程序加入启动组即可

也许你可以去网上找一个叫做“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--------------------------------------------------------------------------------------------------------------------------------------------------------其它模拟:方法一:AppActivatesTitleSendKeys"5"方法二:AppActivatesTitleSendKeysvbKey5方法三:SendMessageHwnd,WM_KEYDOWN,vbKey5,0&SendMessageHwnd,WM_KEYUP,vbKey5,0&方法四:AppActivatesTitlekeybd_event53,0,0,0keybd_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"。

178人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册