zbsrc

获取计算机硬件信息的动态链接库，CPU序列号，硬盘序列号，MAC地址等信息 例程： void gethardinfo() { QString str1=""; char buff[1024]; char buff2[1024]; char temp; typedef int (WINAPI ICEPUB_MACHINEGETINFO)(int typeFlag,char *strInfo); ICEPUB_MACHINEGETINFO *icePub_machineGetInfo = 0; HINSTANCE hDLLDrv = LoadLibrary("icePubDll.dll"); if(hDLLDrv) { icePub_machineGetInfo = (ICEPUB_MACHINEGETINFO *)GetProcAddress(hDLLDrv, "icePub_machineGetInfo"); } icePub_machineGetInfo(3,buff); str1=buff; int i=0; int n=0; n=str1.length(); qDebug()<<n; for(i=0;i<n;i+=2) { temp=buff[i]; buff2[i+1]=temp; buff2[i]=buff[i+1]; } QString str2=buff2; qDebug()<<buff2; qDebug()<<str2; }(Access to the computer hardware information dynamic link library, CPU serial number, hard disk serial number, MAC address and other information)

采用c语言设计平键，校核平键的强度，实现人机交互，用户有较大的选择余地(Flat key design using c language, check the strength of flat keys, to achieve human-computer interaction, users have greater choice)

哈尔滨工业大学,visual basic,编程课件，第1章(Harbin University of Technology, Visual Basic, Programming Courseware, Chapter 1)

一些ANSYS 中的FLUENT 仿真UDF实例参考(SOME ANSYS FLUENT UDF example by some body)

说明：  输入年份，判断是该年的那一天， 实现判断输入的正误！(Enter the year, is to determine the day of the year)

this program change title of menu of windows

经典游戏俄罗斯方块的一种简单实现，支持玩家信息的保存和统计。(A classic game of Tetris simple implementation, support the players the preservation of information and statistics.)

黑客与画家，高清扫描版pdf，中文版，是一本不错的计算机专业书籍(Hackers and Painters, HD scan version pdf, Chinese version, is a good computer science books)

说明：  

以G列分成多个工作表(以宏运行VBA) (Sub aa() Dim a As Integer, b As Integer, c As Integer, sh As Worksheet For a = 2 To [g65536].End(3).Row If Cells(a, 7) <> Cells(a- 1, 7) Then b = a End If c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row Set sh = Sheets.Add(, Sheets(Sheets.Count)) sh.Name = Sheets("sheet1").Cells(a, 7).Value With Sheets("Sheet1") Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2] Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1] a = c End With Sheets("Sheet1").Select Next End Sub )