麻烦帮忙加几句代码，谢谢

全球悬赏 · 发表于 2019-10-22 06:34

这行代码绑定了计算机名称"8AM3T70VV0P3S9P"只要不在此台电脑上运行就会自动关机，代码没有问题。现在我想再增加两台计算机代码应该怎么改下，劳烦大家了，谢谢。

If Environ("ComputerName") <> "8AM3T70VV0P3S9P" Then Call gj

复制代码

小小鸟前滚翻 · 发表于 2019-10-22 06:38

If Environ("ComputerName") <> "8AM3T70VV0P3S9P" or Environ("ComputerName") <> "机器码2" or Environ("ComputerName") <> "机器码3" Then Call gj

小小鸟前滚翻 · 发表于 2019-10-22 06:41

最好的是只加1个符号,注释掉这句,就和机器无关了
'If Environ("ComputerName") <> "8AM3T70VV0P3S9P" Then Call gj

全球悬赏 · 发表于 2019-10-22 09:21

小小鸟前滚翻发表于 2019-10-22 06:38
If Environ("ComputerName") "8AM3T70VV0P3S9P" or Environ("ComputerName") "机器码2" or Environ("Com ...

代码不对，增加机器码后还是关机

全球悬赏 · 发表于 2019-10-22 09:23

小小鸟前滚翻发表于 2019-10-22 06:41
最好的是只加1个符号,注释掉这句,就和机器无关了
'If Environ("ComputerName") "8AM3T70VV0P3S9P" Then C ...

没想注释掉，就是想在3台电脑之间可以运行。其它之外电脑运行就关机

mzbao · 发表于 2019-10-22 09:33

本帖最后由 mzbao 于 2019-10-22 09:43 编辑

If InStr(Environ("ComputerName"), "8AM3T70VV0P3S9P" & "," & "机器码2" & "," & "机器码3") = 0 Then Call gj

或者：
If Environ("ComputerName") = "8AM3T70VV0P3S9P" Or Environ("ComputerName") = "机器码2" Or Environ("ComputerName") = "机器码3" Then Else Call gj

全球悬赏 · 发表于 2019-10-22 10:13

mzbao 发表于 2019-10-22 09:33
If InStr(Environ("ComputerName"), "8AM3T70VV0P3S9P" & "," & "机器码2" & "," & "机器码3") = 0 Then Ca ...

If InStr(Environ("ComputerName"), "8AM3T70VV0P3S9P" & "," & "机器码2" & "," & "机器码3") = 0 Then Call gj

复制代码

这句不行。下面那句可以

小小鸟前滚翻 · 发表于 2019-10-23 05:53

小小鸟前滚翻发表于 2019-10-22 06:38
If Environ("ComputerName") "8AM3T70VV0P3S9P" or Environ("ComputerName") "机器码2" or Environ("Com ...

没注意，写反了

If Environ("ComputerName") <> "8AM3T70VV0P3S9P" and Environ("ComputerName") <> "机器码2" and Environ("ComputerName") <> "机器码3" Then Call gj

		自动登录	找回密码
密码			免费注册

[求助] 麻烦帮忙加几句代码，谢谢

最新热点 /1