wanghao85227的个人资料

这题我真做错了吗？图片来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fxiangce.baidu.com%2Fpicture%2Falbum%2Flist%2Fedece0e5be33ec2b700d7c1c9eee061f51d684c5&urlrefer=938db20b7bb8756b05337c9d4c6e68ba

如何用注册表方式修改默认浏览器网上给出的方法如下，试过无效!(不是电脑问题，换了多台电脑试过，有XP系统的，也有WIN7系统的，而且关闭了安全软件) 1.找到HKEY_CLASSES_ROOT\http\shell\open\command，在右边的窗口中双击"默认"，将要用浏览器的可执行文件的完全路径输入到这里，例如设置IE为默认浏览器：输入“C:\Program Files\Internet Explorer\iexplore.exe” 2.找到 HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application，在右边的窗口中双击"默认"，设置浏览器名，如果是Firefox则输入Firefox，如果是IE则输入IExplore。

请教关于EX1000的问题 1.都说EX1000佩戴渣，是指佩戴时比较麻烦，还是戴着不舒服，或是戴不稳？慢跑时会掉出耳洞吗？与平头赛相比如何？ 2.都说EX1000隔音垃圾，垃圾到什么程度？ 3.都说EX1000不好推，与CK100Pro相比如何？另外，推力主要看播放器的那一项参数？（本人手里只有一台SONY的MD机）。

联想太把自己当事了！

如实让脚本辨别执行完停止和手动中止？以下代码是我放在脚本中的，目的是让脚本区分任务完成（终止）和手动停止（中止）。为什么手动停止时不弹出提示窗，而任务完成时却能正常弹窗？ DimEnv 任务结束,线程ID1 任务结束 = 1*初始化任务状态 for i= 0 to 10 Delay 1000 TracePrint i*以此代表任务流程 Next 任务结束 = 0*任务在没有人为干预的情况下结束 Sub 完成提示() If 任务结束 = 1 Then Call Plugin.Msg.Tips("任务中止！") MSGbox "您中止了程序!" ElseIf 任务结束 = 0 Then Call Plugin.Msg.Tips("任务完成！") MSGbox "任务已完成!" End If End Sub Sub OnScriptExit() 线程ID1 = BeginThread(完成提示)*实际需要，必须使用多线程 End Sub

这货是全金属机身吗？跟华硕ZenFone是一样的材质吗? 这货是全金属机身吗？跟华硕ZenFone是一样的材质吗?

有没有哪个版本的g pro2支持电信？不是G2，是G pro2。电信用户诚心发问

如意印（随机卷轴）不能复制吗？如此逆天的保命工具多复制几个，有备无患嘛！

能不能用手机代替无线路由器，把有线网络变WIFI？ RT,能上网的台式电脑一台（不带无线网卡），安卓手机一部，能不能让安卓手机连接电脑，通过手机发射WIFI信号，使其他无线设备上网（没有笔记本电脑）。

仍旧不支持电信3G，很失望！ RT，电信用户真的很小众？

IE80不过如此！昨日借别人的IE80听了半天，感觉挺失望，听感还不如自己的K420，声音太闷，人声就像没吃饱饭一样干瘪。低频有点怪怪的，气势不足，敲架子鼓像敲木鱼一样。

第二章的壕沟怎么过？即便一开始就匍匐前进也过不了，卡在那里了，要怎么办啊?

为什么吧换个DDR3 1600的内存就开不了机了？ RT，我的主板是技嘉P55A-UD3R，主板是支持DDR3 1600的，以前用的是两条2G DDR3 1333的，现在我有两条4G DDR3 1600的内存条，如果我只插一根DDR3 1600的内存，就开不了机，而且无法进BIOS，反复启动；如果我插一条DDR3 1600+一条DDR3 1333，可以正常开机，安装内存显示:6.00GB! 请问这是周末回事？要怎么解决？要问我我们不把四根内存都插上，呵呵，我想把换下来的两条DDR3-1333内存插在二奶机上用

XL39H真的有国际版吗？ RT，国际版和国行有什么区别？

关于生物进化的困惑生物进化是从低级到高低、从简单到复杂。为什么蚯蚓、海星、章鱼等许多低等生物都有断肢再生绝技，而哺乳动物却都没有，这么牛B的技能为什么不继承下来？

富士施乐P158b能自己往碳粉盒里加碳粉吗？就是普通的市售碳粉，不用原装的会不会影响打印效果？

骚尼，请至少用IPS屏啊~！ RT，屏幕干不过三棒很憋屈啊！

为什么脚本执行完了，小精灵仍在运行？ RT，脚本执行完毕，连脚本里的OnScriptExit事件都触发了，小精灵还是显示在运行（系统托盘显示小精灵还在执行）

我用365插件写屏，终止脚本时无法擦除屏幕显示内容 RT，我用365插件写屏，终止脚本时无法擦除屏幕显示内容，何解？脚本里明明加了Sub OnScriptExit,代码如下： Dimenv 线程ID1, 线程ID2, i 线程ID2=BeginThread(屏幕显示) Sub 屏幕显示 Plugin.Plug365Ex.Form_Show 300,200,400,200,"","241CED","宋体",20,False,False,0,True Plugin.Plug365Ex.Form_WriteText "下面将用弹窗从1数到10！", 1 For i = 1 To 10 Delay 1000 线程ID1 = BeginThread(弹窗提示) Next End Sub Sub 弹窗提示 MsgBox i-1 End Sub Sub OnScriptExit() Plugin.Plug365Ex.Form_Close End Sub

求推荐个治疗职业官网介绍的很含糊，是不是每个种族的对应职业都差不多，只是名字不同？求推荐个治疗职业，或者说下不同治疗职业的不同特点以前玩过魔兽世界、剑网三、巫师之怒等，都玩得治疗职业。

[问题] 多线程问题，求高手帮忙修改这段代码！ b 关机倒计时() 线程ID2 = BeginThread(询问关机) Do i=1 For 30 Delay 1000 Call Plugin.Msg.Tips("还有"&30-i&"秒关机！") i=i+1 Next Call Plugin.Sys.ExitOS(1) loop End Sub Sub 询问关机() SF = MSGbox("按【确定】按钮立即关机，按【取消】按钮取消关机", vbOKCancel + VbExclamation, "系统即将关闭！") Select Case SF Case vbOK Call Plugin.Sys.ExitOS(1) Case vbCancel StopThread 线程ID1 Call Plugin.Msg.Tips("已取消关机！") End Select End Sub End If

【求助】两个宏合并运行出现自动化(automation)错误！两个宏合单独运行很正常，合并一起就报错：以下是合并后的代码： Sub UnWorksheets() Application.ScreenUpdating = False Dim lj As String Dim dirname As String Dim nm As String Dim sname As String Dim i As Integer, ii As Integer lj = ActiveWorkbook.Path nm = ActiveWorkbook.Name dirname = Dir(lj & "\*.csv") Do While dirname <> "" If dirname <> nm Then Workbooks.Open Filename:=lj & "\" & dirname ii = ActiveWorkbook.Sheets.Count For i = 1 To ii Workbooks(dirname).Sheets(i).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next Workbooks(dirname).Close False End If dirname = Dir Loop Dim sh As Object Application.DisplayAlerts = False For Each sh In Worksheets If Application.CountA(sh.UsedRange.Cells) = 0 Then sh.Delete End If Next Application.DisplayAlerts = True End Sub

【求助】这算不算BUG？以前用按键9.3版本制作的，无论调试还是制作成小精灵都很正常，但将脚本导入到最新版的按键9.5中却不能工作，具体表现是：1.调试时左上角闪屏，脚本不启动；2.制作成下精灵后，小精灵闪关，不启动；提示：第3行：下标越界第7行：下标越界："[number:1]" 脚本已经停止执行附代码 1.单位 = array("420984770000", "420984510000", "420984520000", "420984530000", "420984540000", "420984550000", "420984560000", "420984570000", "420984580000", "420984590000", "420984600000", "420984610000", "420984620000", "420984630000", "420984640000", "420984650000", "420984660000", "420984670000", "420984680000", "420984690000", "420984700000", "420984710000", "420984720000", "420984730000", "420984740000", "420984750000", "420984760000", "420984780000", "420984010000", "420984020000", "420984030000", "420984050000", "420984110000", "420984170000", "420984210000", "420984090000") 2.Form1.ComboBox1.List = "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|A1|B1|C1|D1|E1|F1|G1|H1|I1" 3.单位代码 = 单位(Form1.ComboBox1.ListIndex) 4.查询时间段 = Form1.InputBox3.Text 5.MyArray = Split(查询时间段, "-") 6.起始日期 = MyArray(0) 7.终止日期 = MyArray(1)........................

能帮我看看这个问题吗？急求啊！个工作簿，分别为：汇总工作簿.xls、一月.xls、二月.xls、三月.xls，其中一月.xls、二月.xls、三月.xls均只含有一张工作表且工作表中的数据均自单元格A1开始，现在要求将它们合并至“汇总工作簿.xls”中。代码： 1.Sub ConsolidateWorkbook() 2.Dim RangeArray() As String 3.Dim bk As Workbook 4.Dim sht As Worksheet 5.Dim WbCount As Integer 6.WbCount = Workbooks.Count 7.ReDimRangeArray(1 To WbCount - 1) 8.For Each bk In Workbooks '在所有工作簿中循环 9.If Not bk Is ThisWorkbook Then '非代码所在工作簿 10.Set sht = bk.Worksheets(1) '引用工作簿的第一个工作表 11.i = i + 1 12.RangeArray(i) = "'[" &bk.Name& "]" &sht.Name& "'!" & _ 13.sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1) 14.End If 15.Next 16.Worksheets(1).Range("A1").Consolidate RangeArray, xlSum, True, True 17.End Sub 12行和13行提示语法错误，我不知道哪里出了问题，完全按照书上写的啊！

我看看这个问题吗？急求啊！有四个工作簿，分别为：汇总工作簿.xls、一月.xls、二月.xls、三月.xls，其中一月.xls、二月.xls、三月.xls均只含有一张工作表且工作表中的数据均自单元格A1开始，现在要求将它们合并至“汇总工作簿.xls”中。代码： Sub ConsolidateWorkbook() Dim RangeArray() As String Dim bk As Workbook Dim sht As Worksheet Dim WbCount As Integer WbCount = Workbooks.Count ReDimRangeArray(1 To WbCount - 1) For Each bk In Workbooks '在所有工作簿中循环 If Not bk Is ThisWorkbook Then '非代码所在工作簿 Set sht = bk.Worksheets(1) '引用工作簿的第一个工作表 i = i + 1 RangeArray(i) = "'[" &bk.Name& "]" &sht.Name& "'!" & _ sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1) End If Next Worksheets(1).Range("A1").Consolidate _ RangeArray, xlSum, True, True End Sub 提示语法错误，我不知道哪里出了问题

双倍经验活动没了？昨天攒了一大堆任务，准备今天双倍时间交........

为什么我打同级怪很吃力？稍有不慎就会死注：就是一般的同级怪物。本人是牧师！

【语法问题】哪位大侠帮忙看下！ if a>0 or b>0 or c>0 then MessageBox "运行程序A" elseif MessageBox "运行程序B" endif 意思是当a,b,c三个变量任意一个大于0时运行A程序，否则运行B程序这段代码不能通过语法检测！

如何将多个excel文件中的内容依次写入目标Excel文档中？现有1.xls，2.xls，3.xls 三个excel文件。新建一个名为【目标文件.xls】的excel文件，要求按顺序将1.XLS，2.XLS，3.XLS三个文件中的第一列（即A1）依次输入目标文件.xls的第一列中。假设原来1.XLS的最后一行写在【目标文件.xls】的A100里；则原来2.xls的第一行必须写在【目标文件.xls】的第A101里.........以此类推。现在的难点是如何让1.2.3三个文件中的内容在【目标文件.xls】中无缝衔接，既不空行，又不重叠！

子程序中有变量怎么办？ dim X sub X() //****一下省若干代码******* .....................（键鼠动作） SayString X //****一下省若干代码******* .....................（键鼠动作） End Sub 如上例，我想让子程序随着变量X的变化而变化，就是带变量的子程序。如不采用子程序的形式，我将不得枚举所有情况，这样既增加的代码的长度，又容易出错，求大神们教我！

萨洛特新兵礼包可以一直开下去吗？ RT，如果能一直开的话，那就不用花钱买喇叭、知识书、熏香和各种药水还是到一定级别就不能领了呢？

【求教】牧师技能和天赋加点刚出道的小牧师向大家请教技能和天赋加点。主要是为了练级，兼顾任务副本（毕竟有些任务要在副本做，练级装备也从副本中来），请大家指教！谢谢大家！

冒险岛还有外*挂吗？本人因外*挂离开冒险岛，现在想玩，又怕外*挂影响心情，求解！

求教关于蓝光3D的问题我没有播放3D的设备，但想下载一些蓝光3D原盘（*iso）收藏，留到以后用。我请问： 1.3D原盘的内容能在普通电脑（能流畅播放1080P，但不支持3D播放）上播放出2D效果吗？比如3D板的复仇者联盟能自动转成2D播放吗？ 2.我在网上看到有所谓2D+3D的蓝光盘和纯3D格式拉光盘，二者有何区别？是否只有前者才能强制播放成2D，而后者仅能播放3D？

求教~怎样使QUI跨输入框连续输入！ RT 每个输入框内最多可输入5个数字，超过5个数字时自动转到下一个输入框（这个过程完全是自动的，不用手动切换输入框，就像输入CD-KEY一样！）。原因：在QUI的输入框中输入超长数字时，会强制将数字变为科学计数。为了解决这个问题，我的思路是将这串长数字分割输入进几个不同的输入框内，最后再合成、还原成原来的长串数字。

WP8系统的手机和平板能安装电脑上的应用程序吗？ RT，听说WP8采用与Wwindows 8一样的内核，兼容性很好，这是否是说电脑上的应用程序能直接应用在WP8上？

求解~【钢牙】为何没有参加最后一站？有比较官方的说法吗？

【求助】关于区域找字问题，跪求高手解答！不需要识别出来，只要在屏幕上找到“520”这个字，鼠标移动到“520”上。 1.构成字的点阵有多种颜色，且颜色不固定（同一点阵位置颜色可能不同）！ 2.背景色为单一颜色（但有两种颜色变化，单数行一种颜色，偶数行一种颜色）。我试过找图，但没成功，猜测是由于点阵颜色变化导致的。真心求教啊！！！！

求教，坐标变量问题我想写一个脚本达到如下目的：在上图第一行选取三个点（即起始点）：（407,506），（412,506），（409,507）判断三个点的颜色，当三个点的坐标均为某一颜色（FF0000）时，执行A，否则鼠标移动到下一行，判断该行同样位置三个点（即X坐标相同，Y坐标下移11）的颜色，如果是同一颜色执行A，不同一再下一行，如此循环！

【求教】关于网络叠加，跪求高手解答！现有两条有线，都是电信10M带宽，两条线分别从两个路由器接出来（即无需再拨号），请问我需要添加什么设备，需要如何设置，才能实现10M+10M＞10M？需要双WLAN路由器吗？貌似双WLAN路由器得好几百。。请给出投入最少的解决方案！ PS：操作系统=WIN7旗舰版

【求教】关于PVP的一些问题 1.军需官那里怎么只有203的军装卖，战阶不够看不到吗？ 2.战阶升级怎么算，分到了直接升吗，会不会有一次升两阶的情况？ 3.230的军装需求几级战阶？