chishingchan

修改卷序列号：

1. #include
   
2. 
   
3. const $ioctl_lock_volume = 0x90018
   
4. const $ioctl_unlock_volume = 0x9001c
   
5. const $tagdrive_per_sector_data = "ubyte sectordata[512]"
   
6. 
   
7. local $hdrive, $iaccessmask, $pbuffer, $pserial
   
8. local $tbuffer, $tserial, $sdrive = "c:", $bnewserial = 0x11111111
   
9. 
   
10. $iaccessmask = bitor($generic_read, $generic_write)
    
11. $pbuffer = _cm_heap_alloc(512)
    
12. 
    
13. switch drivegetfilesystem($sdrive)
    
14. case "ntfs"
    
15.         $pserial = $pbuffer 72
    
16. case "fat32"
    
17.         $pserial = $pbuffer 67
    
18. case else
    
19.         _cm_heap_free($pbuffer)
    
20.         msgbox(48, "error!", $sdrive & " not support.")
    
21.         exit
    
22. endswitch
    
23. 
    
24. $hdrive = _cm_create_file("\\." & $sdrive, $iaccessmask, 3, 0, 3, 0)
    
25. _cm_device_io_control($hdrive, $ioctl_lock_volume, 0, 0, 0, 0)
    
26. _cm_read_device($hdrive, $pbuffer, 512)
    
27. _cm_device_io_control($hdrive, $ioctl_unlock_volume, 0, 0, 0, 0)
    
28. _cm_close_handle($hdrive)
    
29. 
    
30. $tbuffer = dllstructcreate($tagdrive_per_sector_data, $pbuffer)
    
31. 
    
32. $tserial = dllstructcreate("hwnd serial", $pserial)
    
33. dllstructsetdata($tserial, "serial", $bnewserial)
    
34. 
    
35. $hdrive = _cm_create_file("\\." & $sdrive, $iaccessmask, 3, 0, 3, 0)
    
36. _cm_device_io_control($hdrive, $ioctl_lock_volume, 0, 0, 0, 0)
    
37. _cm_write_device($hdrive, $pbuffer, 512)
    
38. _cm_device_io_control($hdrive, $ioctl_unlock_volume, 0, 0, 0, 0)
    
39. _cm_close_handle($hdrive)
    
40. 
    
41. msgbox(64, "", "done!")
    
42. if (drivegetfilesystem($sdrive) = "ntfs") then
    
43.         msgbox(48, "", "a system reboot is required to update the serial number.")
    
44. endif
    
45. opt("trayiconhide", 1)
    
46. processclose(@autoitpid)

复制代码

终于看完了~~~

找了一圈了

传送的可以，学习一下

在win10不能运行，郁闷，还是要找其他方法

在win10不能运行，郁闷，还是要找其他方法啊，谁会吗

cj4025

1. msgbox(4096,"",_diskdrive(),20)
   
2. 
   
3. func _diskdrive() ;硬盘名称 大小 分区数量
   
4.         $objwmiservice = objget("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
   
5.         $coldiskdrive = $objwmiservice.execquery("select * from win32_diskdrive")
   
6.         local $sall = ""
   
7.         for $object in $coldiskdrive
   
8.                 $sall &= stringstripws("序列号" & $object.serialnumber, 4) & @crlf
   
9.         next
   
10.         $diskdrive = $sall
    
11.         return $diskdrive
    
12. endfunc   ;==>_diskdrive

复制代码