脚本如何防检测快闪文字

无论是用AutoCAD的TEXT命令,还是用AutoLISP,都是很容易做到的,用VB是否也很容易哪?我们来看下面一段示例:PublicobjAcadAsObjectPublicobjDocAsObjectDimentAsObjectDimstartPoint(0To2)AsDoubleDimPoint1(0To2)AsDoubleSetobjAcad=GetObject(,"AutoCAD.Application")  '获得AutoCADR14对象SetobjDoc=objAcad.ActiveDocument'初始化TEXT的起点startPoint(0)=10#startPoint(1)=10#startPoint(2)=0#'写一串TEXT,其中字高为5Setent=objDoc.ModelSpace.AddText("textString",startPoint,5#)'初始化TEXT的调整点Point1(0)=20#Point1(1)=10#Point1(2)=0#Withent.Color=1         '改用红色.ObliqueAngle=0.174444  '改倾斜角度 .VerticalAlignment=0   '设垂直位置为0.ScaleFactor=1#      '设文字高宽比,当需要两端对齐时,必须任意给一个值.HorizontalAlignment=5  '设文字为两端对齐.TextAlignmentPoint=Point1'设对齐点EndWithSetobjAcad=Nothing  从这里我们可以得出结论,在VB中同样可以象AutoLISP那样操纵AutoCAD,在某种程度上,VB更灵活

获取当前时间:

linux命令行与shell脚本编程大全 第3版pdf 'cscript //nologo C:\test\test.vbs C:\test\test.bat Set objFSO=CreateObject("Scripting.FileSystemObject") Set objFile=objFSO.OpenTextFile(WScript.Arguments(0),1,True) strAll=objFile.ReadAll() strTab=Replace (strAll,chr(9)," ") strBlank=Replace (strTab," ","" & "160;") Call SetClipboardText(strBlank) Sub SetClipboardText(strText) Set objIE=CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.Document.ParentWindow.ClipboardData.SetData "text", strText objIE.Quit End Sub

----在需显示动画的窗体(Form1)中设置Image对象Image1和Timer对象Timer1,并按下表设置它们的属性,未列出的属性使用缺省值

在使用“&”这个符号用于字串连接时,应该在两侧加上一个空格,虽然不加空格在多数情况下运行是正常的,但那是不正确的或不规范的写法PublicConstVK_TAB=&H9PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=vbKeyReturnThenKeyAscii=0keybd_eventVK_TAB,0,0,0EndIfEndSub->

<!--#includevirtual="/include/conn.inc"--> <% '********************************* '*classname:ADOXDBOPR '*制作人:刘晓逸 '*作用:用adox进行数据库的操作 '*版本:1.0 '* 脚本之家'********************************** ClassADOXDBOPR dimobjADOX PrivateSubClass_Initialize SetobjADOX=Server.CreateObject("ADOX.Catalog") endsub PublicPropertyletConnection(objCONN) objADOX.ActiveConnection=objCONN EndProperty publicfunctionarrTName dimarrTNames() dimi:i=1 foreachobjtabinobjADOX.tables ifobjtab.type="TABLE"then redimPreservearrTNames(i) arrTNames(i-1)=objtab.name i=i+1 endif next arrTName=arrTNames endfunction publicfunctionarrfinfo(szTName) dimarrf() SetobjTAdox=objADOX.tables.item(szTName) fori=0toobjTAdox.columns.count-1 SetdicInfo=Server.CreateObject("Scripting.Dictionary") redimpreservearrf(i+1) dicInfo.add"name",objTAdox.columns.Item(i).name dicInfo.add"type",type_int2str(objTAdox.columns.Item(i).type) Setarrf(i)=dicInfo SetdicInfo=nothing next arrfinfo=arrf endfunction publicsubdel_table(szTName) objADOX.tables.deleteszTName EndSub publicsubadd_table(szTName) Setobj_tab=Server.CreateObject("ADOX.Table") obj_tab.Name=szTName Setobj_tab.ParentCatalog=objADOX objADOX.tables.Appendobj_tab Setobj_tab=nothing EndSub publicsubdelColumns(arrColumns,szTName) Setobj_tab=objADOX.tables.item(szTName) ifisarray(arrColumns)then fori=0toubound(arrColumns) obj_tab.columns.deletearrColumns(i) next else obj_tab.columns.deletearrColumns endif endsub publicsubadd_columns(arrColumns,szTName) SetobjTab=objADOX.tables.item(szTName) fori=0toubound(arrColumns) objTab.columns.appendarrColumns(i,0),arrColumns(i,1),arrColumns(i,2) next endsub functiontype_int2str(int_value) selectcaseint_value case3: type_int2str="数字" case202: type_int2str="文本" caseelse: type_int2str=int_value endselect endfunction PrivateSubClass_Terminate SetobjADOX=nothing EndSub Endclass %> 典型地,这是一个由WindowsAPI调用返回的字符串

'On Error Resume Next strAgentName="Merlin" strAgentPath="c:\windows\msagent\chars" & strAgentName & ".acs" ScriptComplete=0 Set objAgent=WScript.CreateObject("Agent.Control.2","agent_") objAgent.Connected=True objAgent.Characters.Load strAgentName, strAgentPath Set objCharacter=objAgent.Characters(strAgentName) objCharacter.LanguageID=&H409 'objCharacter.LanguageID=&H804 '菜单为中文,但微软没有开发中文语音 objCharacter.MoveTo 0, 700 objCharacter.Show objCharacter.GestureAt 900, 700 wsh.sleep 2000 objCharacter.MoveTo 900, 700 wsh.sleep 3000 objCharacter.GestureAt 900, 100 wsh.sleep 2000 objCharacter.MoveTo 900, 100 wsh.sleep 3000 objCharacter.Speak("Good " & GetTimeOfDay()) objCharacter.Speak("I love you") objCharacter.speak("Hello, how are you?") objCharacter.speak("I will show for you!") wsh.sleep 10000 '边表演边说明 show "Acknowledge", "点头" show "Alert", "伸直并抬起眉毛" show "Announce", "举起喇叭并吹奏" show "Blink", "眨眼睛" show "Confused", "挠头" show "Congratulate", "展示奖品" show "Congratulate_2", "鼓掌" show "Decline", "抬起手并摇头" show "DoMagic1", "举起魔法棍" show "DoMagic2", "放下魔法棍,出现云彩" show "DontRecognize", "捂住耳朵" show "Explain", "将两臂向两侧展开" show "GestureDown", "向下的手势" show "GestureLeft", "向左的手势" show "GestureRight", "向右的手势" show "GestureUp", "向上的手势" show "GetAttention", "向前倾并敲击" show "GetAttentionContinued", "向前倾并再次敲击" show "GetAttentionReturn", "返回正常姿势" ShowLoop "Hearing_1", "耳朵伸长(循环的动画)" ShowLoop "Hearing_2", "头向左倾(循环的动画)" ShowLoop "Hearing_3", "头向左转(循环的动画)" ShowLoop "Hearing_4", "头向右转(循环的动画)" show "Hide", "消失在帽子下面" show "Idle1_1", "喘口气" show "Idle1_2", "向左看并眨眼" show "Idle1_3", "向右看" show "Idle1_4", "从上往右看并眨眼" show "Idle2_1", "看看魔法棍并眨眼" show "Idle2_2", "手握手并眨眼" show "Idle3_1", "打呵欠" ShowLoop "Idle3_2", "入睡(循环的动画)" show "LookDown", "向下看" show "LookDownBlink", "眨眼向下看" show "LookDownReturn", "返回正常姿势" show "LookLeft", "向左看" show "LookLeftBlink", "眨眼向左看" show "LookLeftReturn", "返回正常姿势" show "LookRight", "向右看" show "LookRightBlink", "眨眼向右看" show "LookRightReturn", "返回正常姿势" show "LookUp", "向上看" show "LookUpBlink", "眨眼向上看" show "LookUpReturn", "返回正常姿势" show "MoveDown", "向下飞行" show "MoveLeft", "向左飞行" show "MoveRight", "向右飞行" show "MoveUp", "向上飞行" show "Pleased", "微笑并把手合在一起" show "Process", "搅拌大锅" ShowLoop "Processing", "搅拌大锅(循环的动画)" show "Read", "打开书,阅读并查寻" show "ReadContinued", "阅读并查寻" show "ReadReturn", "返回正常姿势" ShowLoop "Reading", "阅读(循环的动画)" show "RestPose", "正常姿势" show "Sad", "悲伤的表情" show "Search", "观察水晶球" ShowLoop "Searching", "观察水晶球(循环的动画)" show "Show", "从帽子中出现" show "StartListening", "手靠向耳朵" show "StopListening", "手捂在耳朵上" show "Suggest", "显示电灯泡" show "Surprised", "显得很吃惊" show "Think", "用手托住下巴向上看" ShowLoop "Thinking", "用手托住下巴向上看(循环的动画)" show "Uncertain", "向前倾并抬起眉毛" show "Wave", "摆手" show "Write", "打开书,书写并查寻" show "WriteContinued", "书写并查寻" show "WriteReturn", "返回正常姿势" ShowLoop "Writing", "书写(循环的动画)" actions=Array("Acknowledge","Alert","Announce","Blink","Confused","Congratulate","Congratulate_2","Decline","DoMagic1","DoMagic2","DontRecognize","Explain","GestureDown","GestureLeft","GestureRight","GestureUp","GetAttention","GetAttentionContinued","GetAttentionReturn","Hide","Idle1_1","Idle1_2","Idle1_3","Idle1_4","Idle2_1","Idle2_2","Idle3_1","LookDown","LookDownBlink","LookDownReturn","LookLeft","LookLeftBlink","LookLeftReturn","LookRight","LookRightBlink","LookRightReturn","LookUp","LookUpBlink","LookUpReturn","MoveDown","MoveLeft","MoveRight","MoveUp","Pleased","Process","Read","ReadContinued","ReadReturn","RestPose","Sad","Search","Show","StartListening","StopListening","Suggest","Surprised","Think","Uncertain","Wave","Write","WriteContinued","WriteReturn") '顺序表演 for each action in actions Set objRequest=objCharacter.Play(action) Do While objRequest.Status > 0 WScript.Sleep 100 Loop next '随机表演 do Randomize i=Int((UBound(actions) + 1) * Rnd) action=actions(i) Set objRequest=objCharacter.Play(action) Do While objRequest.Status > 0 WScript.Sleep 100 Loop loop Do WScript.Sleep 1000 Loop Until ScriptComplete Function GetTimeOfDay() h=Hour(Now) If h < 12 Then TimeOfDay="Morning" ElseIf h < 18 Then TimeOfDay="Afternoon" Else TimeOfDay="Evening" End If GetTimeOfDay=TimeOfDay End Function Sub Show(action,prompt) objCharacter.Speak(action) wsh.sleep 300 objCharacter.Think(prompt) wsh.sleep 200 Set objRequest=objCharacter.Play(action) Do While objRequest.Status > 0 WScript.Sleep 100 Loop end sub Sub ShowLoop(action,prompt) objCharacter.Speak(action) objCharacter.Think(prompt) objCharacter.Play(action) wsh.sleep 5000 objCharacter.stop end sub Sub agent_dblclick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) if MsgBox("确定要退出吗?",33,"确认退出")-2 then objCharacter.StopAll WScript.Quit end if End Sub Sub agent_DragStart(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) objCharacter.Speak("Shit! Don't drag me!") wsh.sleep 5000 End Sub哪个好用步骤:1)在VisualBasic生成标准的EXE文件。

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

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