vithing

模拟鼠标出现的问题

54931104@qq.com(vithing) — Thu, 17 Sep 2009 16:33:16 GMT

现在遇到问题如下:
　　向另一个进程发送鼠标左键按下消息,spy监视我PostMessage的坐标和我在那个进程手工点击的消息是同一点,但是却没达到目的,目标进程执行时候解析得到的坐标不是我想要的,并且和消息传过去的坐标好像没关系到是和我在发消息的进程的位置有关,比如说在操作进程点控件计算位置发245,241点击消息,spy监测到245,241点击消息以传递到目标进程,但是实际出现的结果却不是我想要的,而且我在左边点击目标程序执行点向左偏,在右边点向右偏,直观的感觉是目标进程得到的点是我在操作进程点击穿透窗口在目标进程的窗口又点上了,和消息传送的坐标没关系.

设计时没考虑好遭遇尴尬

54931104@qq.com(vithing) — Fri, 07 Aug 2009 02:03:22 GMT

写的一个内存分析的辅助程序，当时做成这样。

可是后来觉得不够用的，要显示二级指针这下可坏了，弄到第250个控件后说什么也不能再增加了，只好改
成下图形式，晕啊，可怜的我白排那些控件了。

关于CString 成员函数GetLength的困惑

54931104@qq.com(vithing) — Thu, 06 Aug 2009 13:54:52 GMT

CString 的成员函数GetLength()我原来理解是的到串的长度，没想到今天用时原来用的正常的一个函数怎么都不正确，经调试发现GetLength()得到的不是串的长度，而是缓冲区的长度，如果此时字符串只做显示用没有关系，但是有些操作就会严重影响程序的正确性，比如说将一字符串转成十六进制数，仔细看MSDN觉得也没有描述清楚。

CString::GetLength int GetLength( ) const;
Return Value
A count of the bytes in the string.
Remarks
Call this member function to get a count of the bytes in this CString object. The count does not include a null terminator.
For multibyte character sets (MBCS), GetLength counts each 8-bit character; that is, a lead and trail byte in one multibyte character are counted as two bytes.
Example
The following example demonstrates the use of CString::GetLength.
明明写着The count does not include a null terminator，可是我用GetLength()却返回了包含了\0和它以后的数据的统计值，既是得到的是缓冲区的长度，不知微软怎么想的。

简单的函数地址问题弄了2天

54931104@qq.com(vithing) — Thu, 16 Jul 2009 08:31:14 GMT

编译环境windowsxp,vc6.0
由于写的程序进行远线程注入，注入的函数体用汇编语言写的
void ThreadProc( )
_asm{
PUSH ECX
PUSH EDX
mov esi,0x******
mov esi,[esi]
mov eax,[esi+0x***]
PUSH *
PUSH esi
PUSH *
PUSH *
push *
mov eax,[esi+0x***]
mov ebx,eax
mov ecx, esi
call codecall
pop edi
pop esi
mov esp,ebp
pop ebp
ret
}

。。。
WriteProcessMemory(openedHand,pRemoteThread,&ThreadProc,THREADSIZE,0)//ThreadProc远线程函数名
注入时程序老是得不到函数正确的起始地址，而且被注入的程序也是个比较牛的程序采,用的Themida2.x的壳调试起来非常困难，跟老鼠是的瞎撞，1天的时间终于解决了原来函数申明时应声明static类型，并且LNK要将Link incremental选项关掉，可是为什么还不清楚；后来远线程调试发现函数也比我的汇编代码多些,编译器给附加了点东西害的我调整堆栈平衡调了好半天，要不老是注入运行完成后把对方弄崩了 :)

极简单的HTML却让我百思不得其解，这到底为什么？

54931104@qq.com(vithing) — Sun, 18 Jan 2009 16:06:44 GMT


添加双语教学课程建设表格或标准文件

标题：
排序：
表格或标准文件：	onclick="document.all.file1.click();if(document.all.file1.value.length>0){document.all.classpic.value=document.all.file1.value;document.all.classpic.focus();}" />

Program By weixing QQ:54931104

网络上10条让人抓狂的整人短信（转）

54931104@qq.com(vithing) — Sun, 18 Jan 2009 15:56:02 GMT

▲你跌倒，我就跑上去———踩两脚！

▲ 一口气读完看你晕不晕：在乎你的我只在乎我在乎的你是否在乎在乎你的我，我在乎的你是否和在乎你的我在乎的你一样在乎在乎你的我。到底是我在乎你还是你在乎我？

▲天下雨了，是云儿哭了；失去你了，是爱情输了；风儿累了，要去睡了，夕阳醉了，要下坠，唱歌的我，很疲惫了，看信息的猪啊，也该喂了！

▲记不记得那天你问道：猪的英文怎么拼？我说是PUG，而你却说是：PIG。我说猪是U，你却说猪是I，那没办法，只好随你了！

▲蛐蛐和狗熊打赌说：我跳进草里你看不到，狗熊不信，蛐蛐一下跳进草里，狗熊在看，狗熊还在看，狗熊咋还在看哪？熊样！别看了！

▲以后要注意点自己的形象，你已不是小孩子！别老跟以前似的。昨天又有人看到你端着个酒杯追着一头猪，嘴里还大叫：是不是兄弟？是兄弟就干了！

▲听着！我要追你！我就认定你了！我一直以来要找的就是你了！这次机会我绝对会好好把握的！我一定要追到你为止！死苍蝇！我拍死你！

▲某男玩蚱蜢，放了它抓回来，放了它抓回来———一连抓放七次，蚱蜢哭了：大哥，您是诸葛亮吧？我不是孟获啊！

▲狼来了，猪窝里慌乱不安，猪妈安排工作：大猪快去堵门！二猪快去堵窗！当看到小猪时，猪妈来火了，大叫：小猪！不要玩手机啦！你肉多！出去把狼引开！

▲天气变得好快，寒风悄悄袭来，因为你的可爱，所以给你关怀，晚上毯子要盖，别把猪脚冻坏，没事叼根骨头，那样可以补钙！

历史上最经典智力题

54931104@qq.com(vithing) — Wed, 24 Dec 2008 08:01:55 GMT

历史上最经典智力题转载
1、有两根不均匀分布的香，香烧完的时间是一个小时，你能用什么方法来确定一段15分钟的时间？
２、一个经理有三个女儿，三个女儿的年龄加起来等于13，三个女儿的年龄乘起来等于经理自己的年龄，有一个下属已知道经理的年龄，但仍不能确定经理三个女儿的年龄，这时经理说只有一个女儿的头发是黑的，然后这个下属就知道了经理三个女儿的年龄。请问三个女儿的年龄分别是多少？为什么？
3、有三个人去住旅馆，住三间房，每一间房$10元，于是他们一共付给老板$30，
第二天，老板觉得三间房只需要$25元就够了于是叫小弟退回$5给三位客人，
谁知小弟贪心,只退回每人$1，自己偷偷拿了$2，这样一来便等于那三位客人每人各花了九元，
于是三个人一共花了$27，再加上小弟独吞了不$2，总共是$29。可是当初他们三个人一共付出$30那么还有$1呢？
４、有两位盲人，他们都各自买了两对黑袜和两对白袜，八对袜了的布质、大小完全相同，
而每对袜了都有一张商标纸连着。两位盲人不小心将八对袜了混在一起。他们每人怎样才能取回黑袜和白袜各两对呢？
５、有一辆火车以每小时15公里的速度离开洛杉矶直奔纽约，另一辆火车以每小时20公里的速度从纽约开往洛杉矶。如果有一只鸟，以30公里每小时的速度和两辆火车同时启动，从洛杉矶出发，碰到另一辆车后返回，依次在两辆火车来回飞行，直到两辆火车相遇，请问，这只小鸟飞行了多长距离？
６、你有两个罐子，50个红色弹球，50个蓝色弹球，随机选出一个罐子，随机选取出一个弹球放入罐子，怎么给红色弹球最大的选中机会？在你的计划中，得到红球的准确几率是多少？

７、你有四个装药丸的罐子，每个药丸都有一定的重量，被污染的药丸是没被污染的重量＋1.只称量一次，如何判断哪个罐子的药被污染了？

８、你有一桶果冻，其中有％％，绿色，红色三种，闭上眼睛，抓取两个同种颜色的果冻。抓取多少个就可以确定你肯定有两个同一颜色的果冻？
９、对一批编号为1～100，全部开关朝上(开)的灯进行以下*作：凡是1的倍数反方向拨一次开关；2的倍数反方向又拨一次开关；3的倍数反方向又拨一次开关……问：最后为关熄状态的灯的编号。
１０、想象你在镜子前，请问，为什么镜子中的影像可以颠倒左右，却不能颠倒上下？
１１、一群人开舞会，每人头上都戴着一顶帽子。帽子只有黑白两种，黑的至少有一顶。每个人都能看到其它人帽子的颜色，却看不到自己的。主持人先让大家看看别人头上戴的是什幺帽子，然后关灯，如果有人认为自己戴的是黑帽子，就打自己一个耳光。第一次关灯，没有声音。于是再开灯，大家再看一遍，关灯时仍然鸦雀无声。一直到第三次关灯，才有劈劈啪啪打耳光的声音响起。问有多少人戴着黑帽子？
１2、两个圆环，半径分别是1和2，小圆在大圆内部绕大圆圆周一周，问小圆自身转了几周？如果在大圆的外部，小圆自身转几周呢？
13。 1元钱一瓶汽水，喝完后两个空瓶换一瓶汽水，问：你有20元钱，最多可以喝到几瓶汽水？

006~ASP 0206~Cannot call BinaryRead~Cannot call BinaryRead after using Request.Form collection.

54931104@qq.com(vithing) — Sat, 20 Dec 2008 08:25:00 GMT

006~ASP 0206~Cannot call BinaryRead~Cannot call BinaryRead after using Request.Form collection.

利用无组件上传时碰到了这个问题，原来也遇到过，但很长时间没有用asp了，因此花了2个多小时深入研究并解决了此问题。

1。产生问题的原因是当表单的提交方式是enctype="application/x-www-form-urlencoded"时，在获取数据时先使用request或是request.form取过数据，然后再使用BinaryRead就产生此错误。

2。解决的办法是不用request或request.form获取表单中的元素值。例如使用梁无惧的无组件上传类时
for each formName in upload.form ''获得所有表单元素值
select case formName
case "act"
act = trim(upload.form(formName))
case "classname"
classname = trim(upload.form(formName))
case "classsort"
classsort = trim(upload.form(formName))
case "classpic"
classpic = trim(upload.form(formName))
case "BigClassID2"
BigClassID = trim(upload.form(formName))
case "mono"
mono = trim(upload.form(formName))
......
end select
next
如果使用其他的上传组件，利用相同的原理就可以避免错误的出现。
同时也要注意如果提交方式是 enctype="application/x-www-form-urlencoded" 时用上述代码也会出现相同的错误。

根据指定目录的子目录日期决定是否删除子目录

54931104@qq.com(vithing) — Thu, 04 Dec 2008 05:45:55 GMT

''根据指定目录的子目录日期决定是否删除过期的子目录
''指定目录中的文件也根据日期决定是否删除
Dim diff

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "D:\install\Chat"
Set objFolder = objFSO.GetFolder(objStartFolder)
strDate = Split(objFolder.DateCreated," ")
If DateDiff("d",Date,strDate(0)) > 5 Then
objfso.DeleteFolder objfolder
End If
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")

diff = abs(DateDiff("d",Date,strDate(0)))
If diff > 5 Then
objfso.DeleteFile objfile
End if
Next
call ProcessSubfolders(objFSO.GetFolder(objStartFolder),0)

Sub ProcessSubfolders(Folder,Fun)
Dim diff
On Error Resume next
For Each Subfolder in Folder.SubFolders
strDate = Split(SubFolder.DateCreated," ")
diff = abs(DateDiff("d",Date,strDate(0)))
if len(subfolder)>0 then
If diff > 5 Then
objfso.DeleteFolder subfolder
End If
End If
Next
End Sub

删除指定目录下的所有过期文件和所有超过2层的子目录

54931104@qq.com(vithing) — Thu, 04 Dec 2008 02:52:57 GMT

<%
''删除指定目录下的所有过期文件和所有超过2层的子目录
''比如TEMP下有个1文件夹，要判断1文件夹的日期，过期删除，如1文件夹下还有子文件夹不做判断

Dim diff

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "D:\install\Chat"
Set objFolder = objFSO.GetFolder(objStartFolder)
strDate = Split(objFolder.DateCreated," ")
If DateDiff("d",Date,strDate(0)) > 5 Then
objfso.DeleteFolder objfolder
End If
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")

diff = abs(DateDiff("d",Date,strDate(0)))
If diff > 5 Then
objfso.DeleteFile objfile
End if
Next
call ShowSubfolders(objFSO.GetFolder(objStartFolder),0)

Sub ShowSubFolders(Folder,Fun)
Dim diff
On Error Resume next
For Each Subfolder in Folder.SubFolders
strDate = Split(SubFolder.DateCreated," ")
diff = abs(DateDiff("d",Date,strDate(0)))
if len(subfolder)>0 then
If Fun<1 Then
If diff > 5 Then
objfso.DeleteFolder subfolder
subfolder=""
continue
End If

Else
objfso.DeleteFolder subfolder
subfolder=""
continue
End If

Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")
diff = abs(DateDiff("d",Date,strDate(0)))
IF Fun<=1 Then
If diff > 5 Then
objfso.DeleteFile objfile
End if
Else
objfso.DeleteFile objfile
End if
Next
end if
call ShowSubFolders(Subfolder,Fun+1)
Next
End Sub
%>