自动编程解放双手 xiaoyao2ds
vb6,vba开发,爬虫,数据采集,浏览器内核研发
关注数: 227 粉丝数: 258 发帖数: 3,565 关注贴吧数: 38
被蜜蜂蛰了肿很大痒三五天?比洋辣子痛苦 洋辣子 起疙瘩,小的时候被这些砸一下,真的是奇痒无比啊,但是用菜籽油什么有特效药,马上可以止痒,基本上一两天就好了,但是被蜜蜂蛰了,肿的很大好几天,痒的不行。 我以前在上海待了两年,然后回到老家这边,就那些很小的跟跳蚤一样,那些蚊子咬的话都全部肿起来,有点像水土不服,过敏。 给他喂了一点白糖水这些蜜蜂跑出来了,铁丝网盖子给他放一边,希望他能够回去。结果这些蜜蜂就飞到楼下节能灯泡里了。我给他抓了放回去他又不肯出来,又把我蛰了一下。跑出来二十几个我跑了几次才把他们抓回去。听说这个刺会断掉,所以我都啊故意从楼上跑到楼下来,慢慢的给他拔出来,估计就是毒液都全部注进去了,毒针会连肚子里面一些肠子一起拉出来,不停的收缩会把毒液源源不断的给他注入身体。阳了一整天啊,手都感觉很重啊,一垂下来感觉肿的更加厉害。听别人说用热毛巾给他敷。越热越好,身体能承受的程度。后面我就用那个热水器的热水调好温度,不停的冲洗,然后呢搓搓。到下午的时候,这个手就憋下去1/3了。都起皱纹了,有的时候用手垫一下头也不感觉痛了,一看大大的坑都一下子退不回去。 另外一个手指也被折了一下,我马上拔掉了,然后就到下面用开水烫。这个就基本没什么问题,就是一开始会麻掉,第2天有一点点痒。
淘宝买了2窝蜜蜂,哪一个是王?诱蜂几个月等不了 下午5点到晚上12点多,嘿嘿,东搞西搞搞了5个小时个小时,淘宝买了两窝4500一脾带产王。 a窝蜜蜂声音比较大,蜜蜂导出来的时候,一直挂在网上面,不肯掉下来,但是蜜蜂数量很少,我估计也就两三千个,只有左下角和脾后面一小堆。b窝没什么声音,倒出来的时候就像豆子一样,刷刷掉下来了,那个王笼就粘在巢框上面,都没有什么蜜蜂。左下角一堆,脾后面一小堆,箱底2小堆,右下角还有一堆,没有找到那个王。 巢框比较短,我这个箱子比较大,卡不上去,开始把蜜蜂都压住了,我搞了两个塑料盒子接上去,累死人,找了一两个小时。估计用热熔枪把塑料棒融化粘上一个木片加长比较省力气。 现在两个箱子都只有一脾蜜蜂,他们都扎堆在一个角落。中插了一个木板,缩小范围让他们提高温度。是不是蜜蜂应该越靠近箱边越好呀?天气太冷了。 晚上10点多搞了一些白糖。蜜蜂都不来吃,不知道明天会不会吃。现在我把出蜂口都给他塞死了,具体要怎么养都不知道。 如果这个王笼挂在上面的话,检查也方便。我收到的是拧在巢框侧面,卡在小箱子里面,只能把蜜蜂全部放到蜂箱里,然后再慢慢的拿出王笼。第1次学的养蜜蜂怕死了,全副武装。做几步就休息一下,都不敢开灯。最后也只是被咬了一口
有没有汇编高手,VBA 64位取类对象函数地址 获取VB类模块成员函数指针(转) - alexywt - 博客园 http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fwww.cnblogs.com%2Falexywt%2Fp%2F5880993.html&urlrefer=ddb77e27ed08f8adb1dbb3ca6154ae14 我的QQ:2776478814,希望可以帮我解决一下,谢了。 这个GetClassProcAddr如何改成64位的汇编代码,VBA 64位EXCEL用 Private Function GetClassProcAddr(obj As Object, ByVal Index As Long, _ Optional ByVal ParamCount As Long = 4, Optional ByVal HasReturnValue As Boolean) As Long Static lReturn As Long, pReturn As Long Static AsmCode(50) As Byte Dim i As Long, pThis As Long, pVtbl As Long, pFunc As Long pThis = ObjPtr(obj) CopyMemory pVtbl, ByVal pThis, 4 CopyMemory pFunc, ByVal pVtbl + (6 + Index) * 4, 4 pReturn = VarPtr(lReturn) For i = 0 To UBound(AsmCode) '填充nop AsmCode(i) = &H90 Next AsmCode(0) = &H55 'push ebp AsmCode(1) = &H8B: AsmCode(2) = &HEC 'mov ebp,esp AsmCode(3) = &H53 'push ebx AsmCode(4) = &H56 'push esi AsmCode(5) = &H57 'push edi If HasReturnValue Then AsmCode(6) = &HB8 'mov offset lReturn CopyMemory AsmCode(7), pReturn, 4 AsmCode(11) = &H50 'push eax End If For i = 0 To ParamCount - 1 'push dword ptr[ebp+xx] AsmCode(12 + i * 3) = &HFF AsmCode(13 + i * 3) = &H75 AsmCode(14 + i * 3) = (ParamCount - i) * 4 + 4 Next i = i * 3 + 12 AsmCode(i) = &HB9 'mov ecx,this CopyMemory AsmCode(i + 1), pThis, 4 AsmCode(i + 5) = &H51 'push ecx AsmCode(i + 6) = &HE8 'call 相对地址 CopyMemory AsmCode(i + 7), pFunc - VarPtr(AsmCode(i + 6)) - 5, 4 If HasReturnValue Then AsmCode(i + 11) = &HB8 'mov eax,offset lReturn CopyMemory AsmCode(i + 12), pReturn, 4 AsmCode(i + 16) = &H8B 'mov eax,dword ptr[eax] AsmCode(i + 17) = &H0 End If AsmCode(i + 18) = &H5F 'pop edi AsmCode(i + 19) = &H5E 'pop esi AsmCode(i + 20) = &H5B 'pop ebx AsmCode(i + 21) = &H8B: AsmCode(i + 22) = &HE5 'mov esp,ebp AsmCode(i + 23) = &H5D 'pop ebp AsmCode(i + 24) = &HC3 'ret GetClassProcAddr = VarPtr(AsmCode(0)) End Function Edit / DeleteEdit Post Quick reply to this messageReply Reply With QuoteReply With Quote Multi-Quote This Message
京东买3个360n6手机免费用一个月,超大电池 想买一个电池比较大的手机。以前我弟弟用了一个中兴手机5000多毫安,一天重度下来还能剩个50%,而我原来的华为手机呢,都没怎么用就只有30%了。 选来选去,也就发现360n6的电池比较大5030mah。然而价格也比较便宜,才1300。然后买了一个,手机下面漏光也是想凑合着用,电池很给力,基本没有发热。但是应用启动速度很慢,要十几秒,受不了。手机系统一些功能缺少,不够人性化所以就退了。想买个魅族e3,这个拍照是很强大呀,可是排队几天都抢不到。又买了6g手机360n6,结果发现发热非常严重,充电的时候温度也很高,和第一个真的相差太大了。怀疑是天气的原因,然后又重新买了一个4g内存版作比较。发现热量也比较大,稍微好一点。主要就在测试4g内存的,用500毫安的充电器,终于没有发热情况。然后就把6GB内存的退回去了。 京东上买手机退货很方便。用了几天,发现这个手机老是自动内存清理掉,打开的应用都被关闭了。比较一下,原来我的华为手机一般情况都能够有1.7-2g内存空余,可是360手机一般情况都只有1g或者500兆空余。在内存足够的情况,老是乱清理app,360全家桶太占资源了,6g是必不可少。手机是不错的。就是拍照光线比较暗,拍起来就很难看。直播的时候也是,逆光一点脸就黑了,比较暗的地方拍出来,清晰度不够很多噪点。 但是想想也是内心很纠结啊,把人家新手机拆掉三个。 没有其他大电池高性价比比较便宜的手机,还是想重新买6g内存360n6手机,但是这款手机呢4G信号比较差,经常只有一格两格的信号,可是我用的华为手机呢一般都是3到4格。 对他是又爱又恨啊,有好些短板真的是没办法将就。
1 下一页