Arvin's Blog - 第31页 - 有心码字，无力坚持！

网络收集 VB实现多线程

'模块:Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As LongPrivate Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As LongPrivate Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As LongPrivate mThreadHandle As Long'示例Function addnumber() As Long    Dim i As Long    For i = 0 To 100000        Form1.Label1.Caption = i    NextEnd Function'创建线程Public Function CreateNewThread(ByVal cFunction As Long) As Long    Dim mhandle As Long    Dim lpThreadID As Long    mhandle = CreateThread(ByVal 0&, ByVal 0&, cFunction, ByVal 0&, 0, lpThreadID)    If mhandle <> 0 Then mThreadHandle = mhandleEnd Function'终止线程Public Function TerminateTh() As Long    SuspendThread mThreadHandle    TerminateThread mThreadHandle, ByVal 0&    TerminateThread lpThreadID, ByVal 0&End Function

原创破解 WinChm V4.35 破解手记

今天上班突然想找一个帮助制作工具，然后就百度了一下，找到了Wi…

原创软件 文件时间修改器

软件介绍：方便修改文件和文件夹的创建时间、修改时间、访问时间…

网络收集 VB之获取网络时间做验证

 Private Function GetTime() As Date     Dim TimeStr As String     Dim oXMLHTTP As Object     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")     oXMLHTTP.open "HEAD", "http://www.baidu.com", False '取百度的时间     oXMLHTTP.send     TimeStr = oXMLHTTP.getResponseHeader("Date")     GetTime = DateAdd("h", 8, CDate(Trim(Split(Split(TimeStr, ",")(1), "GMT")(0))))End Function

网络收集 VS之 error C2664 不能将参数从“const char [5]”转换为“LPCTSTR”错误解决方法

这是错误提示:error C2664: “CWnd::MessageBoxW”: 不能将参数 1 从“cons…

网络收集 手工查毒辅助工具-Xueter火眼合作版

这是一个强大的手工杀毒辅助工具, XueTr与著名的冰刃(Ic…

网络收集 ADSafe净网大师-广告过滤神器

“不良信息过滤”能够过滤钓鱼、木马、欺诈信息，保护网络安全，让用户轻松拥有清爽页面。“逛网站无骚扰”可以还原干…

网络收集 vc++之汇编获取系统版本

 //CString GetOSVersionInfo() //这里直接返回字符串int GetOSVersionInfo()       //这里返回对应的数值//1:win2000 2:winxp 3:win2003 4:winvista 5:win7{ int a=0,b=0,i=0,j=0; _asm {  pushad   mov ebx,fs:[0x18] ; get self pointer from TEB   mov eax,fs:[0x30] ; get pointer to PEB / database   mov ebx,[eax+0A8h] ; get OSMinorVersion   mov eax,[eax+0A4h] ; get OSMajorVersion   mov j,ebx   mov i,eax   popad } if((i==5)&&(j==0)) {  //return "系统版本为 Windows 2000";  return 1; } else if((i==5)&&(j==1)) {    //return "系统版本为 Windows Xp";  return 2; } else if((i==5)&&(j==2)) {  //return "系统版本为 Windows 2003";  return 3; } else if((i==6)&&(j==0)) {  //return "系统版本为 Windows Vista";  return 4; } else if((i==6)&&(j==1)) {  //return "系统版本为 Windows 7";  return 5; }}//以上是两种方式//下面代码 则是判断//可以在按钮或其他地方做个判断int my_version;my_version=GetOSVersionInfo();switch(my_version){case 0:MessageBox("未知系统");break;case 1:MessageBox("win2000");break;case 2:MessageBox("winxp");break;case 3:MessageBox("win2003");break;case 4:MessageBox("win vista");break;case 5:MessageBox("win7");break;}

网络收集 利用汇编代码获取计算机的机器码

CString str;unsigned long s1,s2,s3,s4;__asm{mov eax,00hxor edx,edxcpuidmov s1, edxmov s2, eax}__asm{mov eax,01hxor ecx,ecxxor edx,edxcpuidmov s3, edxmov s4, ecx}str.Format(L"%X%X%X%X",s1,s2,s3,s4);MessageBox(str);

信息安全 如何在系统中建立隐藏账号？

说到在系统建立隐藏账号，想必好多玩黑的人都知道怎么建立，我这里只是随便说说自己的心得。