我是无线网，原来别人帮设置过IP地址，说是能获得更多的网络资源。现在我和他关系搞僵了，我发现我的电脑连网页都登不了。后来我就把IP地址改成自动获取， 现在我想把他的电脑也设置不能上网，或者上网很慢。求高手解答我这个小白！ 好像P2P没用。
var sogou_ad_id=731545;
var sogou_ad_height=90;
var sogou_ad_width=980;今日论坛第 1 个签到，每日签到可得财富值+2，连续5天签到后再连续签到则每日可得财富值
+4，记得每天都来签到哦~
上一主题：
下一主题：
查看: 2352 | 回复: 17
求求高手帮忙打包.是N96心机主题，本人提取的！望高手给打包
UID 2918260
财富值 1788
交易信用 0
积分/帖子：1133
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
诺基亚920 水果5 4S等等
来自：沈阳
状态： 离线
求求高手帮忙打包.是N96心机主题，本人提取的！望高手给打包
刚刚把N96心机的主题提取出来了！现在求高手给打包成SISX& &谢谢！这个是未打包的主题文件
这个N96心机主题由本人首次提取！望大转发时请著名出处！谢谢合作！
(1.05 MB)下载次数: 80 21:28
UID 3535276
交易信用 0
积分/帖子：238
连续签到天数：1
全部签到天数：1
注册时间：
手机型号：
NOKIA-5700
来自：辽宁
状态： 离线
世间竟有如此女子，爱上你我连死都不怕，还在乎活着么...
UID 1503145
财富值 2782
交易信用 0
积分/帖子：2441
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
LZ，少个mbm文件
UID 2918260
财富值 1788
交易信用 0
积分/帖子：1133
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
诺基亚920 水果5 4S等等
来自：沈阳
状态： 离线
望高手帮忙
UID 2918260
财富值 1788
交易信用 0
积分/帖子：1133
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
诺基亚920 水果5 4S等等
来自：沈阳
状态： 离线
原帖由 КīMi|翎L 于
21:37 发表
LZ，少个mbm文件 不缺少& &可以的！
UID 1503145
财富值 2782
交易信用 0
积分/帖子：2441
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
回复 #4 许心乐 的帖子
少了不能打包的，主题由skn mif 和mbm组成.......
貌似少一个都不行
很郁闷........
[ 本帖最后由 КīMi|翎L 于
22:45 编辑 ]
(Evenfall)
UID 665642
财富值 4836
交易信用 0
荣誉卸任特殊组
再见马队！
积分/帖子：5796
连续签到天数：1
全部签到天数：149
注册时间：
手机型号：
N82-G1-M9-U9508-MX3
来自：SCUT
状态： 离线
尝试了一下打包，貌似成功了，不过感觉主题质量老实不咋地……打包后居然有1.2M……而安装的时候居然是2900K……
(31.33 KB) 22:09
(28.28 KB) 22:09
&&下载次数: 39
打开尘封已久的carbide，我内牛满面
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" />
UID 631204
财富值 5343
交易信用 0
积分/帖子：5089
连续签到天数：1
全部签到天数：2
注册时间：
手机型号：
状态： 离线
也要弄个图片看看啊
Device：Samsung Galaxy S3 I9300
ROM：&&Android Revolution HD 2.1.1
Kernel：SiyahKernel S3-v1.5beta6
Modem: I9300XXLH1
UID 2019325
交易信用 0
积分/帖子：141
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
自签名 和其他的没区别
&&下载次数: 10
(Evenfall)
UID 665642
财富值 4836
交易信用 0
荣誉卸任特殊组
再见马队！
积分/帖子：5796
连续签到天数：1
全部签到天数：149
注册时间：
手机型号：
N82-G1-M9-U9508-MX3
来自：SCUT
状态： 离线
LZ重复发帖了吧……另外一个帖子我都有上传打包后的附件了……
打开尘封已久的carbide，我内牛满面
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" />
UID 5560940
财富值 1678
交易信用 0
积分/帖子：1646
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
有图多好 还是谢谢分享
UID 6751770
财富值 1640
交易信用 0
积分/帖子：1458
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
我讨厌中国移动
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" />
UID 6764028
财富值 236
交易信用 0
积分/帖子：315
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
N85/G7/iphone4
状态： 离线
原帖由 ＿诸神的黄昏＿ 于
22:09 发表
尝试了一下打包，貌似成功了，不过感觉主题质量老实不咋地……打包后居然有1.2M……而安装的时候居然是2900K……
49 能不能套个5800的图标，心机的图标太次了。
UID 2918260
财富值 1788
交易信用 0
积分/帖子：1133
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
诺基亚920 水果5 4S等等
来自：沈阳
状态： 离线
原帖由 ＿诸神的黄昏＿ 于
22:09 发表
尝试了一下打包，貌似成功了，不过感觉主题质量老实不咋地……打包后居然有1.2M……而安装的时候居然是2900K……
49 十分感谢！谢谢！高手真是好心人！
交易信用 0
积分/帖子：4
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
诺基亚 N96
状态： 离线
回复 #7 ＿诸神的黄昏＿ 的帖子
我的n97是10年6月20买的，当时特别喜欢心机，尤其喜欢中国移动定制的手机，我就喜爱中国移动通信的标志，什么叫心机懂我心的手机才叫心机。可惜好景不长到今年国庆时手机因为装错了软件导致无法开机，无奈之下就把它送去诺基亚售后客服中心升级到了最新30的版本。好了但是中国移动通信的主题也没有了，当时可把我气坏了，当时跑去找诺基亚专卖店让他帮我下载，可就是没找着，我自己在我电脑上找了两个月今天终于被我下载到了，大哥我实在是太感谢你了。我真心的祝福你永远幸福美满！[s:27]
微信扫一扫关注dospy查看: 977|回复: 8
求助：一个抓取程序改了网址就不能抓取了求高手帮忙，谢谢！
阅读权限20
在线时间 小时
一个抓取程序改了网址就不能抓取了求高手帮忙，谢谢！
Sub test2(t As Integer)
Dim html, tb, i%, j%, r As Long
On Error Resume Next
Set html = CreateObject(&htmlfile&)
With CreateObject(&msxml2.xmlhttp&)
& & .Open &GET&, &file:///C:\Users\ADMINI~1\AppData\Local\Temp\%W@GJ$ACOF(TYDYECOKVDYB.png/data_ndkA0A46A198/& & t & &.html&, False
& & html.body.innerhtml = .ResponseText
& & Set tb = html.all.tags(&table&)(0).Rows
& & s = Range(&a65536&).End(3).Row
& & For i = 1 To tb.Length - 1
& && &&&For j = 0 To tb(i).Cells.Length - 1
& && && && &Cells(i + s, j + 1) = tb(i).Cells(j).innertext
& && &&&Next
Sub 中财行情()
& & Dim i As Integer
Cells.ClearContents
[a2:i2] = Array(&序号&, &股票代码&, &股票简称&, &相关资料&, &业绩变动&, &业绩变动幅度&, &预告类型&, &上年同期净利润(万元)&, &公告日期&)
For i = 1 To 2 '导入1到37页
& & Call test2(i)
阅读权限20
在线时间 小时
为啥报错啊
Sub 新浪行情()
& & Cells.Clear
& & Dim arr()
& & With CreateObject(&Msxml2.XMLHTTP&)
& && &&&.Open &GET&, &.cn/data/#stock&, False
& && &&&.send
& && &&&str1 = Split(.responseText, &{&)
& & End With
& & ReDim arr(1 To UBound(str1), 1 To 19)
& & With CreateObject(&MSScriptControl.ScriptControl&)
& && &&&.Language = &JScript&
& && &&&For p = 1 To UBound(str1) - 1
& && && &AddCode &var a = {& & Replace(str1(p), &},&, &};&)
& && && && &arr(p, 1) = .Eval(&a.symbol&)
& && && && &arr(p, 2) = .Eval(&a.name&)
& && && && &arr(p, 3) = .Eval(&a._5low&)
& && && && &arr(p, 4) = .Eval(&a._5high&)
& && && && &arr(p, 5) = .Eval(&a._5changes&)
& && && && &arr(p, 6) = .Eval(&a._10low&)
& && && && &arr(p, 7) = .Eval(&a._10high&)
& && && && &arr(p, 8) = .Eval(&a._10changes&)
& && && && &arr(p, 9) = .Eval(&a._20low&)
& && && && &arr(p, 10) = .Eval(&a._20high&)
& && && && &arr(p, 11) = .Eval(&a._20changes&)
& && && && &arr(p, 12) = .Eval(&a._60low&)
& && && && &arr(p, 13) = .Eval(&a._60high&)
& && && && &arr(p, 14) = .Eval(&a._60changes&)
& && && && &arr(p, 15) = .Eval(&a.day&)
& && && && &arr(p, 16) = .Eval(&a.flag5&)
& && && && &arr(p, 17) = .Eval(&a.flag10&)
& && && && &arr(p, 18) = .Eval(&a.flag20&)
& && && && &arr(p, 19) = .Eval(&a.flag60&)
& && &&&Next p
& & End With
& & Range(&a2&).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
& & [a1:O1] = Split(&代码,名称,5日最低价,5日最高价,5日涨跌幅,01日最低价,01日最高价,10日涨跌幅,20日最低价,20日最高价,20日涨跌幅,60日最低价,60日最高价,60日涨跌幅,日期&, &,&)
阅读权限50
在线时间 小时
因为抓取程序一般来讲并不通用，所以要针对你所要的数据网页进行有针对的编程抓取。
阅读权限20
在线时间 小时
求助：有人能帮我写出来吗？谢谢
阅读权限50
在线时间 小时
本帖最后由 onlycxb 于
14:27 编辑
Sub 新浪行情()
& & Cells.Clear
& & Dim n As Integer, Js As Object
& & Dim i As Integer, j As Integer, m As Integer, a As Object, arrdata(1 To 10000, 1 To 24)
& & Set Js = CreateObject(&scriptcontrol&)
& & Js.Language = &jscript&
& & With CreateObject(&Msxml2.XMLHTTP&)
& && &&&.Open &GET&, &http://money..cn/d/api/openapi_proxy.php/?__s=[[%22hq%22,%22hs_a%22,%22%22,0,1,40]]&, False
& && &&&.send
& && &&&Js.addcode &var dy= & & .responsetext
& && &&&n = Application.WorksheetFunction.RoundUp((Js.eval(&dy[0].count&) / 80), 0)
& && &&&For i = 1 To n
& && && && &.Open &GET&, &http://money..cn/d/api/openapi_proxy.php/?__s=[[%22hq%22,%22hs_a%22,%22%22,0,&& i&&&&,80]]&, False'这里已经修改，引用了变量i
& && && && &.send
& && && && &Js.addcode &dy= & & .responsetext
& && && && &For Each a In Js.eval(&dy[0].items&)
& && && && && & m = m + 1
& && && && && & For j = 0 To 23
& && && && && && &&&arrdata(m, j + 1) = CallByName(a, j, VbGet)
& && && && && & Next j
& && && && &Next a
& && &&&Next i
& & End With
& & [a2].Resize(m, 24) = arrdata
End Sub复制代码
阅读权限20
在线时间 小时
谢谢onlycxb老师，帮我重写了程序，能加我qq吗？
阅读权限20
在线时间 小时
谢谢onlycxb老师，帮我重写了程序，可是这个程序是每240行重复的，这个循环在哪儿能指点一下吗，能加识别重复的功能吗？
阅读权限50
在线时间 小时
五指山888 发表于
谢谢onlycxb老师，帮我重写了程序，可是这个程序是每240行重复的，这个循环在哪儿能指点一下吗，能加识别重 ...
5楼代码已经修正
阅读权限20
在线时间 小时
谢谢老师！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}