(求助)代码有误，资源耗尽当机

faceyao · 发表于 2009-9-15 15:22:10

有个篮球比赛统计绿色软件，但运行后会弹出一个网页广告，目的是想把这个"弹出的广告关掉"

代码如下：

FileChangeDir("D:\XT")

FileInstall("D:\XT\jt.exe", "",1)

RunWait("D:\XT\jt.exe")

Sleep(400)

While 1
        
WinClose("篮球集锦点播", "")        

WEnd

Exit

可是执行后就死机了，进程里面拼命的运行jt.exe无限循环，只能硬关机

请问代码写错了哪里？，郁闷的来，死机2次了，代码怎么改都运行不成功

(jt.exe运行时需要他目录下的DLL，不是独立的一个单个EXE，只是不需要安装不导注册表所以算绿色软件)

afan · 发表于 2009-9-15 15:43:54

Run("D:\XT\jt.exe")
WinWaitActive("篮球集锦点播")
WinClose("篮球集锦点播")

行不行？

faceyao · 发表于 2009-9-15 15:50:41

本帖最后由 faceyao 于 2009-9-15 15:55 编辑

Run("D:\XT\jt.exe")
WinWaitActive("篮球集锦点播")
WinClose("篮球集锦点播") 行不行？
afan 发表于 2009-9-15 15:43

行是行，但必须要用FileInstall，我要知道自己哪里写错了，谢谢

afan · 发表于 2009-9-15 15:51:47

本帖最后由 afan 于 2009-9-15 16:04 编辑

害我编辑~~~

faceyao · 发表于 2009-9-15 15:53:19

答非所问....
afan 发表于 2009-9-15 15:51

请afan大哥，帮忙诊断诊断偶的代码，

俺在线等，先谢谢了

afan · 发表于 2009-9-15 15:53:59

不正在弄吗，我问的你都不说结果

faceyao · 发表于 2009-9-15 15:59:59

不正在弄吗，我问的你都不说结果
afan 发表于 2009-9-15 15:53

不好意思，回复帖时间延迟，刚才没看到，

您换种方法的代码结果肯定是“行的”，但俺是想帮忙看看我上面的代码哪里不对。用fileinstall代码该怎么改，谢谢

stdmis · 发表于 2009-9-15 16:02:59

错在没有终止循环的条件.

afan · 发表于 2009-9-15 16:03:37

本帖最后由 afan 于 2009-9-15 16:09 编辑

你是要编译成一个exe文件运行是吧：

FileInstall("jt.exe", @TempDir & "\jt.exe",1)
;如果还有其它的文件(如dll文件)，继续FileInstall
FileInstall("jt.dll", @TempDir & "\jt.dll",1)
Run("@TempDir & "\jt.exe"")
WinWaitActive("篮球集锦点播")
WinClose("篮球集锦点播")

将脚本和你的jt.exe放在一起编译。

注意脚本名不要和jt.exe文件同名！

如有需要还可加上关闭jt.exe后删除jt.exe等。

faceyao · 发表于 2009-9-15 16:04:51

错在没有终止循环的条件.
stdmis 发表于 2009-9-15 16:02

那也不会死机啊，现在的情况是不停的增加jt.exe这个进程，出现了几百个jt.exe

我循环的只是winclos，并不是runwait

afan · 发表于 2009-9-15 16:07:25

那也不会死机啊，现在的情况是不停的增加jt.exe这个进程，出现了几百个jt.exe

我循环的只是winclos，并不是runwait
faceyao 发表于 2009-9-15 16:04

这个不必说了，你编译后的文件名肯定是jt.exe。

faceyao · 发表于 2009-9-15 16:12:17

本帖最后由 faceyao 于 2009-9-15 16:30 编辑

这个不必说了，你编译后的文件名肯定是jt.exe。
afan 发表于 2009-9-15 16:07

根本不是循环的问题，也不是文件名的问题，我把循环的代码去掉了照样死循环

跟了10贴就是没人能解决，还是我自己发现了，郁闷的来

netegg · 发表于 2009-9-15 16:43:33

运行你那个程序后，检查下进程，直接结束进程

afan · 发表于 2009-9-15 16:52:18

本帖最后由 afan 于 2009-9-15 16:54 编辑

建议LZ重新仔细看完本楼...
代码及操作步骤各处都有问题~

下了...

faceyao · 发表于 2009-9-15 17:10:35

你是要编译成一个exe文件运行是吧：FileInstall("jt.exe", @TempDir & "\jt.exe",1)
;如果还有其它的文件(如dll文件)，继续FileInstall
FileInstall("jt.dll", @TempDir & "\jt.dll",1)
Run("@TempDir & "\jt.exe ...
afan 发表于 2009-9-15 16:03

谢谢，但dll很多，都已经存在于D盘根目录下，难道必须一定还要每个dll都fileinstall一次吗？能不能把@TempDir & 直接改为D盘根目录，这样不就可以不需要分别fileinstall每个dll了，这个才是我问题的关键！

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

(求助)代码有误，资源耗尽当机

相关帖子