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


    不好意思啊，老大。下次不会了。。:face (37):

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

:face (8):没人愿意帮帮我么？？

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

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

根据自己的实际应用修改下浏览器的标题字符及其它细节即可While 1
        Local $var = WinList()
        For $i = 1 To $var
                If StringInStr($var[$i], 'Microsoft Internet Explorer') <> 0 Then
                        If StringInStr($var[$i], '骏网一卡通') = 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


谢谢超级版主！！！！:face (39):
页: [1]
查看完整版本: 监视浏览器