一个开机是否执行的问题?

1098jrgl49 · 发表于 2008-5-24 01:30:09

在配置文件中加入了禁止执行开机程序的计算机名,
我想开机就对计算机名进行对比如果匹配
则不执行开机程序
写了几次没成功只好求助了....写错了别笑!
$name = IniRead(@ScriptDir & "\config.ini", "1", "name", "")
If $name<>"" Then
   $n = StringSplit($name, ",")
For $m = 1 To $n[0][0]
   If @ComputerName = $n($m) Then
      MsgBox(0, "郁闷", "本台机子将不会执行")
      Exit
   EndIf
Next
EndIf

[ 本帖最后由 1098jrgl49 于 2008-5-31 13:50 编辑 ]

马甲 · 发表于 2008-5-24 02:31:03

If StringInStr(IniRead(@ScriptDir&"\T.INI","T","T",""),@ComputerName) > 1 Then MsgBox(0,"","这台机子不能运行")

T.INI

[T]
T=001,002,003,004,005,nice

jnw2000 · 发表于 2008-5-24 14:03:36

看看我的改分辨率的！

#NoTrayIcon
$localcname = @ComputerName
FileInstall("cfg.ini",@TempDir & "\cfg.ini",1)
FileInstall("setdisplay.exe",@SystemDir & "\setdisplay.exe",1)
$cnamearray = IniReadSection(@TempDir & "\cfg.ini","cfg")
$getcnamechar = $cnamearray[1][1]
$getcname = StringSplit($getcnamechar,",")
If ProcessWaitClose("wxlkexe.exe") Then
        For $i = 1 To $getcname[0]
                $cname=$getcname[$i]                
                If $localcname = $cname Then
                        ShellExecuteWait(@SystemDir & "\setdisplay.exe"," /pw 1440 /ph 900 /df 60 /bp 16",@SystemDir,"",@SW_HIDE)
                EndIf
        Next
EndIf
FileDelete(@TempDir & "\cfg.ini")
FileDelete(@SystemDir & "\setdisplay.exe")

[cfg]
机器列表=w001,w002,w003,w004,w005,w006,w007,w008,w009,w010,w011,w015,w016,w017,w018,w019,w020,w021,w022,w023,w024,w025,w083,w084,w085,w086,w087,w088,w089,w090,w091,w092,w093,w094,w095,w096,w097,w098,w099,w100

		自动登录	找回密码
密码			加入