-
-
9
-
0Vivid BAD SQUAD(简称VBS)是《世界计划 彩色舞台 feat. 初音未来》中的一个重要团体,由小豆泽心羽、白石杏、东云彰人和青柳冬弥四位成员组成。这个团体的成员们性格各异,但共同拥有着对音乐的热爱和追求。
-
42
-
1#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = TRUE dim str,result,Currentdate,CurrentTime,i,timestr str=" test result: " result="OK!" i=999999 j=0 Set ws = CreateObject("WScript.Shell") Sub Main do until i=0 crt.Screen.Send "admin" crt.Screen.Send chr(13) crt.Sleep 2000 crt.Screen.Send "ssdx123" crt.Screen.Send chr(13) crt.Sleep 2000 j = j + 1 crt.Screen.Send j crt.Sleep 1000 crt.Screen.Send chr(13) crt.Sleep 2000 crt.Screen.Send "ping 1.0.1.28" crt.Screen.Send chr(13) crt.Sleep 5000 ws.SendK
-
7
-
1
-
1
-
2
-
246
-
10电脑把文本后戳改为vbs,没有反应,怎么解决,是缺少那个文件
-
2
-
5
-
267一楼防吞
-
0
-
4
-
2
-
1上次讲到folder对象,现在来讲folderitem对象 set shellapp=createobject("shell.application") set folder=shellapp.namespace("c://windows") folderitem对象可以是文件夹,也可以是文件 以下是获取folderitem对象的几种办法 1. set items=folder.items for each item in items 'item就是folderitem对象 next 2. set item=folder.parsename("system32") 3. set item=folder.self'item就是folder 以下是folderitem对象的方法和属性 1.application属性(只读) 官方解释: 属性返回包含 WebBrowser 控件的应用程序支
-
3
-
1各位老哥好,今天找通义千问写的代码遇到了如图所示上的报错。 代码全文如下: ' 获取脚本当前所在目录的绝对路径 Dim wshShell Set wshShell = CreateObject("WScript.Shell") strCurDir = wshShell.CurrentDirectory Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False ' 打开输入文件 Const INPUT_FILE_PATH = "1.csv" Set objWorkbookInput = objExcel.Workbooks.Open(strCurDir & "\" & INPUT_FILE_PATH) Set objWorksheetInput = objWorkbookInput.Worksheets(1) ' 创建新的Excel
-
17如题。 咱是门外汉,27号去玩魔兽世界 有时候需要出门 所以需要一个能自动原地跳的vbs防止掉线
-
40电脑被VBs代码锁机了,咋办
-
15讨论:vbs如何实现多线程并且实现线程之间的通信?
-
11截图代码已经写好了,但是不知道怎么把剪贴板中的图片变成文件并加密成RAR。 data = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000C00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000450E6EDA016F0089016F0089016F0089016F0189006F008963701389026F0089E9700B89006F008952696368016F008900000000000000000000000000000000504500004C01010017E773460000000000000000E0000F010B0106000000000000040000000000008011000000100000001000
-
16现在我也会vbs进度条了
-
11
-
0
-
2只能一项一项地重复写出来吗?
-
1
-
2目前在玩一个window挂机游戏,需要刷技能熟练度。 执行按键循环已经写好了,但现在每次使用完以后,想要关闭只能从任务管理器里强行关闭。 想问问能不能做到监听键盘按键终止程序的,比如按Y启动循环,按N关闭循环或者退出脚本软件。 或者能做到类似功能的方法都行。 求助求助,先谢过大佬们了!!!!
-
1
-
9
-
2
-
2以下代码: DIm wshshell Set wshshell = WSCRIPT.createobject("wscript.shell") wshshell.appactivate "魔兽世界" while true wscript.sleep 15000 wshshell.sendkeys " ""1" wend 我在我自己电脑和其他朋友电脑上都能用,但是在某一个朋友电脑上,他只能在系统和系统级 应用比如记事本上面,能产生作用,在魔兽世界的游戏内,就完全没反应,这可能是由什么原因产生的?如何解决?求大哥们的指点一下。
-
36被人拍了不该拍的照片,有没有能帮忙黑进别人的手机,删掉照片的,求大神,跪求,很着急
-
19这里有vbs整人代码和vbs基础教学
-
0来个会玩vbs的兄弟 我给米
-
5msgbox的那种太low了! With createobject("shell.application") do .MinimizeALL '或者UndoMinimizeALL Loop End with With createobject("shell.application") For each w in .windows w.visible=false Next End with 下次再发
-
7
-
0如何通过vbs打开打指定印机共享功能
-
1有概率立即窗口和程序输出结果不一致,为什么啊?
-
10Title:关于WMI的事件 Author:次碳酸钴 事件的动作通常只有以下四个,只是他们作用的对象不同而已。 __InstanceCreationEvent __InstanceModificationE
-
0WScript.Sleep 60000 msgbox"突然蹦出来一下,气不气" ————————————————————————————以上是代码 这个东西刚打开屁事没有,干别的事去了,一分钟后突然弹出个窗口
-
3'猜物品' dim name,a dim timu a="Please tell me the title" timu=inputbox(a) dim Clues1 a="Tell me the Clues1" Clues1=inputbox(a) dim Clues2 a="Tell me the Clues2" Clues2=inputbox(a) dim input msgbox"Please guess" a="The first Clues is" msgbox(a) msgbox(Clues1) a="The second Clues is" msgbox(a) msgbox(Clues2) a="Can you guess" do input=inputbox(a) if input=timu Then msgbox"you are right" end if exit do else msgbox"you wrong" Loop
-
5各位大神,现在我有一个问题研究了一天了,对VBS不是很精通所有求解,事情是这样的我在网上下载了一个vbsedit64.dll插件,此控件有一个截屏功能我想用在西门子的wincc里面我注册了这个插件然后我用记事本写个vbs脚本他是可以运行的但是在wincc中通过相同的方法不能使用这个插件,请问难道还有其他的方式吗? 这个可以在win10里面保存为VBS直接运行 Set toolkit = CreateObject("Vbsedit.Toolkit") toolkit.DesktopWindow.Screenshot "c:\desktop.png" 在wincc里面 dim
-
11vbs里写了一个简单的连发消息的组。请问有没有什么暂停或者退出的语句?比如说我手动输入1或者按1键直接结束的?