监视浏览器

woeiwoei · 发表于 2010-1-21 18:27:38

本帖最后由 woeiwoei 于 2010-1-21 19:26 编辑

想写个监视浏览器的小程序。
while1
If **** Then ；此处想写监测浏览器标题，但是不明白咋写，能帮帮忙么？
ProcessClose("IEXPLORE.EXE ")
msgbox（0，“警告”，“禁止浏览其他网页”）
else
sleep(2000)
Run(@Program Files & "\Internet Explorer\IEXPLORE.EXE http://www.jcard.cn")
endif
WEnd

afan · 发表于 2010-1-21 18:48:27

咋又发到未解决了？

woeiwoei · 发表于 2010-1-21 18:53:45

回复 2# afan

不好意思啊，老大。下次不会了。。

woeiwoei · 发表于 2010-1-21 18:55:31

没人愿意帮帮我么？？

afan · 发表于 2010-1-21 19:13:21

本帖最后由 afan 于 2010-1-21 19:15 编辑

根据自己的实际应用修改下浏览器的标题字符及其它细节即可

While 1
        Local $var = WinList()
        For $i = 1 To $var[0][0]
                If StringInStr($var[$i][0], 'Microsoft Internet Explorer') <> 0 Then 
                        If StringInStr($var[$i][0], '骏网一卡通') = 0 Then
                                ProcessClose('IEXPLORE.EXE')
                                MsgBox(16, '警告', '禁止浏览其他网页', 2)
                                Run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE http://www.jcard.cn")
                        EndIf
                EndIf
        Next
        Sleep(3000)
WEnd

请LZ将标题具体问题化~ 以便搜索

woeiwoei · 发表于 2010-1-21 19:26:19

回复 5# afan

谢谢超级版主！！！！

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