请教 关于判断文件是否存在的问题

nmgwddj

本人弄一个关于修改IE主页的脚本
我预想的是这样的
首先连接下载http://221.202.188.147/ie.ini这个文件
然后通过REGINI.EXE修改一些注册表项的权限
然后判断本目录下是否存在ie.ini
如果存在 就读取其中的配置信息 修改注册表
如果不存在 就下载此文件 并修改
我弄了好长时间 还是没有弄明白到底是怎么回事 程序运行过程中 总是读取不到ie.ini里边的配置 导致IE首页改不了。请高手帮忙给小弟看看


代码如下
#NoTrayIcon
$a =iniread(@ScriptDir&"\ie.ini","配置","主页",0)
$b =iniread(@ScriptDir&"\ie.ini","配置","iexplorer",0)
$ie = "http://221.202.188.147/ie.ini"
$setup = ".\ie.ini"
FileInstall("regini.exe", @WindowsDir & "\regini.exe",1)
FileInstall("reg.txt", @WindowsDir & "\reg.txt",1)
FileInstall("regeveryone.txt", @WindowsDir & "\regeveryone.txt",1)
Sleep(3000)
Run(@ComSpec & ' /c regini.exe c:\windows\regeveryone.txt',"", @SW_HIDE)
Sleep(500)
If FileExists(".\ie.ini") Then
RegWrite("HKEY_CURRENT_USER\SOFTWARE\microsoft\Internet Explorer\main", "Start Page", "REG_SZ", $a)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "", "REG_SZ", $b)
Else
InetGet($ie, $setup, 1, 1)
RegWrite("HKEY_CURRENT_USER\SOFTWARE\microsoft\Internet Explorer\main", "Start Page", "REG_SZ", $a)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "", "REG_SZ", $b)
EndIf
Sleep(500)
Run(@ComSpec & ' /c regini.exe c:\windows\reg.txt',"", @SW_HIDE)



ie.ini配置文件如下
[配置]
主页=http://www.baidu.com/
iexplorer=""C:\Program Files\Internet Explorer\iexplore.exe" "http://www.baidu.com/""

nmgwddj

还有 就是如何让命令执行完上一句之后再执行下一句
FileInstall("regini.exe", @WindowsDir & "\regini.exe",1)
FileInstall("reg.txt", @WindowsDir & "\reg.txt",1)
FileInstall("regeveryone.txt", @WindowsDir & "\regeveryone.txt",1)
Sleep(3000)
Run(@ComSpec & ' /c regini.exe c:\windows\regeveryone.txt',"", @SW_HIDE)

在这几句中 加了一个等待3秒就是为了让文件解压完了再调用文件！

kodin

心怀不轨！想做坏事前，还是先好好补补基础吧！

nmgwddj

切 你别以为谁都和你一样。

我们这样网吧收费软件用的是PUBWIN（强制修改主页）
游戏更新软件是网维大师（强制修改主页）

我只不过想把我自己做的网吧改成自己的主页 赚点外快 那里不合情合理了。
也许这东西弄出来之后为广大的网吧用户带来方便呢。
切

nmgwddj

有人在吗 帮咱看看呗

nmgwddj

谢谢大家 这个问题我解决了。。

#NoTrayIcon
$ie = "http://221.202.188.147/ie.ini"
$setup = ".\ie.ini"
InetGet($ie, $setup, 1, 0)  ;把后边的1改成0就是下载完之后再执行下边的命令。
$a =iniread(@ScriptDir&"\ie.ini","配置","主页",0)
$b =iniread(@ScriptDir&"\ie.ini","配置","iexplorer",0)
$c = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page")
$d = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "")
FileInstall("regini.exe", @WindowsDir & "\regini.exe",1)
FileInstall("main.txt", @WindowsDir & "\main.txt",1)
FileInstall("IExplorer.txt", @WindowsDir & "\IExplorer.txt",1)
FileInstall("everyone.txt", @WindowsDir & "\everyone.txt",1)
Sleep(3000)
Run(@ComSpec & ' /c regini.exe c:\windows\everyone.txt',"", @SW_HIDE)
Sleep(500)
If $c=$a Then
Else
        RegWrite("HKEY_CURRENT_USER\SOFTWARE\microsoft\Internet Explorer\main", "Start Page", "REG_SZ", $a)
        Run(@ComSpec & ' /c regini.exe c:\windows\main.txt',"", @SW_HIDE)
EndIf
If $d=$b Then
Else
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "", "REG_SZ", $b)
        Run(@ComSpec & ' /c regini.exe c:\windows\iexplorer.txt',"", @SW_HIDE)
EndIf


希望对大家有用

81206954

谢谢!!!!!!!!!!

pig

非常感谢，可以用来改主页了。

qzit0595

支持下 很好很强大