function GetVolumeID: string; var vVolumeNameBuffer: ..] of Char; vVolumeSerialNumber: DWORD; vMaximumComponentLength: DWORD; vFileSystemFlags: DWORD; vFileSystemNameBuffer: ..] of Char; begin if GetVolumeInformation('C:\', vVolumeNameBuffer, SizeOf(…

从网上找的取cpu号 在d7中测试通过了 push,move,pop ...有点难 现在的水平我也就只能拿来主义了 /// <summary>/// 取cpu号/// </summary>/// <returns></returns>function TForm1.GetCPUID: string;var _eax, _ebx, _ecx, _edx: Longword; s, s1, s2: string;begin asm push eax push e…

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Se…

delphi 获取硬盘 序列号 function GetIdeNum: String; type TSrbIoControl = packed record HeaderLength : ULONG; Signature : Array[0..7] of Char; Timeout : ULONG; ControlCode : ULONG; ReturnCode : ULONG; Length : ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbI…

原文:C#取硬盘.CPU.主板.网卡的序号 ManagementObjectSearcher private void button1_Click(object sender, EventArgs e) { textBox1.Text = ""; foreach (string s in listBox1.SelectedItems) { ManagementObjectSearcher searcher = new ManagementObjectSearcher("Sel…

原文:http://www.jiamisoft.com/blog/index.php/3469-yingpanhaocpuruanjianjiami.html 计算机软件是一种特殊的产品,为了防止软件的非法复制.盗版,保护软件开发商的利益,就必须对软件进行加密保护.下面我就给大家介绍一个利用硬盘号和CPU序列号为软件加密的方法. 一.基于硬盘号和CPU序列号的软件加密技术的原理 软件会根据微机硬件参数给出该软件的序列号:用户需要把这一序列号用E-mail.电话或邮寄等方法寄给软件提供商或开发商,…

表结构设计: 实现select取行号 sql局部变量的2种方式 set @name='cm3333f'; select @id:=1; 区别:set 可以用=号赋值,而select 不行,必须使用:= 方法1: 由上述可得出,我们可以通过局部变量的方式来获取行号,sql如下: set @rownum=0: from test order by pname desc,pview desc ; 可实现,但需要给他先设置局部变量,在实际项目应用中,不方便 由此得出进阶版本: ,) from test…

Delphi 取整函数round.trunc.ceil和floor 1.Round(四舍六入五留双)功能说明:对一个实数进行四舍五入.(按照银行家算法)例:var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2end; 在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样:采用的是四舍六入五留双.即当舍或入位大于或小于五时按四舍五入来处理 ,而当舍或入位等于五时,就要看前面一位是什么,…

private void button1_Click(object sender, EventArgs e) { textBox1.Text = ""; foreach (string s in listBox1.SelectedItems) { ManagementObjectSearcher searcher = new ManagementObjectSearcher("Select * From "+s); foreach (ManagementObject…

import requestsimport pymongoimport requestsimport os class QqGroup:#三个接口url 获取 qq组号 获取每组成员信息 获取qq头像下载地址 group_url = "https://qun.qq.com/cgi-bin/qun_mgr/get_group_list" member_url = "https://qun.qq.com/cgi-bin/qun_mgr/search_group_members&q…