Board logo

标题: [问题求助] VBS调用第三方程序实现截屏/屏幕截图 [打印本页]
作者: Tianorder    时间: 2015-9-21 10:35     标题: VBS调用第三方程序实现截屏/屏幕截图

本帖最后由 pcl_test 于 2017-1-7 12:07 编辑

这代码是什么语言？
我已经知道如何截图了，但仍不知道如何区域截图。也不知道如何裁图，明明调整全屏截图的画布大小就可以达到区域截图的目的。
找到了如下代码，甚至不知道原文出自哪里。
  1. data = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000C00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000450E6EDA016F0089016F0089016F0089016F0189006F008963701389026F0089E9700B89006F008952696368016F008900000000000000000000000000000000504500004C01010017E773460000000000000000E0000F010B01060000000000000400000000000080110000001000000010000000004000001000000002000004000000000000000400000000000000002000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000F012000028000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000080000000000000000000000000000000000000000000000000000002E646174610000003A030000001000000004000000020000000000000000000000000000400000C0000000000000000000000000000000000000000000000000000000000000000020130000000000004D657373616765426F784100476574436F6D6D616E644C696E6541006B657962645F6576656E74004578697450726F6365737300467265654C696272617279004C6F61644C6962726172794100000000757365723332000053637265656E4361746368204279205368696C7978000000B3C9B9A6BDABD7A5CDBCB1A3B4E6B5BDCFB5CDB3BCF4CCF9B0E5000000000000000000000000000083EC0C535556578B7C24208B473C03C78138504500000F858E0000008B48788B44392003CF03C7894C2418C7442420000000008B491885C9894C2414766C8B6C2424894424248A4D008BD181E2FF00000089542410EB048B5424108B008BCD8D343833C08A062BC275248A55002BF584D274178A51014133C08BDA8A040E81E3FF0000002BC374E7EB0485C074268B4C24208B4424248B5424144183C0043BCA894C24208944242472AD5F5E5D33C05B83C40CC38B4424188B5424208B48248B401C8D0C5133D2668B14398D0C908B043903C75F5E5D5B83C40CC39090909090558BEC81EC48010000535657B906000000BE781040008D7DBCF3A566A5A4B905000000BE601040008D7DD8A158104000F3A5668B0D5C1040008A155E10400066A58945F466894DF88855FAC745FC0000000064A1180000008945FC8B45FC68481040008B48308B510C8B420C8B088B118B721856E8A7FEFFFF683C104000568BF8E89AFEFFFF6830104000568945FCE88CFEFFFF83C4188945F08D45F450FFD78BD8682410400053E873FEFFFF8B3D0010400083C4086A006A006A006A2CFFD76A006A026A006A2CFFD7681410400056E84BFEFFFF8BD0B94000000033C08DBDB9FEFFFFC685B8FEFFFF0083C408F3AB66ABAAFFD28BF883C9FF33C08D95B8FEFFFFF2AEF7D12BF98BC18BF78BFAC1E902F3A58BC833C083E103F3A48DBDB8FEFFFF83C9FFF2AEF7D1498A8C0DB7FEFFFF80F973742180F953741C680810400053E8DAFDFFFF83C4088D4DD88D55BC6A4051526A00FFD053FF55FC6A00FF55F05F5E5B8BE55DC39090909090909090901813000000000000000000002E1300000010000000000000000000000000000000000000000000002013000000000000AA026B657962645F6576656E74005553455233322E646C6C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"

  2. TargetFileName = "C:/mp.exe"

  3. With CreateObject("ADODB.Stream"):.Type = 1:.Open:.Write StrToByte(data):.SaveToFile TargetFileName, 2:.Close:End With

  4. WScript.CreateObject("WScript.Shell").Run TargetFileName & " /s"

  5. MsgBox "当前屏幕图象已经拷贝到系统剪贴板", 64, "信息"

  6. Function StrToByte(str)

  7.         Set xmldoc = CreateObject("Microsoft.XMLDOM")

  8.         xmldoc.loadXML "<?xml version=""1.0""?>"

  9.         Set pic = xmldoc.createElement("pic")

  10.         pic.dataType = "bin.hex"

  11.         pic.nodeTypedValue = str

  12.         StrToByte = pic.nodeTypedValue

  13. End Function
复制代码
这个方法很厉害呀，先用这什么语言写个软件，再把其二进制代码输到VBS，让VBS创建该程序并调用之。
本代码将生成用途为全屏截图的exe文件。想知道这exe是用什么代码写的。
作者: Demon    时间: 2015-9-21 12:22

不觉得有什么厉害的
作者: CrLf    时间: 2015-9-23 21:39

这 1.5KB 的体积很像是 tcc 编译的，如果是的话那就是 c 语言了
作者: yu2n    时间: 2015-9-25 22:34

编个带证书的EXE吧，这个报毒，而且看到 "C:/mp.exe" 这样的就不舒服。
作者: Demon    时间: 2015-9-25 23:50

编个带证书的EXE吧，这个报毒，而且看到 "C:/mp.exe" 这样的就不舒服。
yu2n 发表于 2015-9-25 22:34



怎么编带证书的？
作者: CrLf    时间: 2015-9-26 11:36

怎么编带证书的？
Demon 发表于 2015-9-25 23:50



    同问
作者: 523066680    时间: 2015-9-26 20:49

本帖最后由 523066680 于 2015-9-26 21:05 编辑

好像是数字签名
http://blog.csdn.net/itjobtxq/article/details/9986795

数字签名好像和公钥加密有关
作者: Spring    时间: 2015-9-26 23:21

本帖最后由 Spring 于 2015-9-26 23:33 编辑

EXE需要的是代码签名证书，得去有权限的颁发机构（国内的比如天威诚信）申请，基本都是要收钱的（一年期大概几千块），一般会给你一个 pfx 格式的文件并告诉你密码，然后你自己使用签名工具可视化操作就可以完成签名了。

当然，要在自己电脑上随便玩玩，可以自己生成一个证书，导入到受信任的区域，用这个给程序签名就可以了

我把这些操作写到一个批处理里面：
MakeCertAndSign.bat
  1. @echo off

  2. REM 几个时间戳服务器

  3. REM http://timestamp.verisign.com/scripts/timstamp.dll

  4. REM http://timestamp.globalsign.com/scripts/timstamp.dll

  5. REM http://timestamp.wosign.com/timestamp 

  6. 

  7. :Default

  8. set fn=我叫叶良辰

  9. set CN=Spring

  10. set O=Bathome

  11. set C=CN

  12. set EMAIL=Sprint@bathome.net

  13. set b=10/25/2007

  14. set e=10/24/2048

  15. 

  16. :Customize

  17. set /p fn=生成的证书文件名(例如 "%fn%")：

  18. set /p CN=签名人(例如 "%CN%")：

  19. set /p O=组织(例如 "%O%")：

  20. set /p C=国家(例如 "%C%")：

  21. set /p EMAIL=电子邮件(例如 "%EMAIL%")：

  22. set /p b=证书生效日(例如 "%b%")：

  23. set /p e=证书失效日(例如 "%e%")：

  24. 

  25. :MakeCert

  26. makecert -n "CN=%CN%,O=%O%,C=%CN%,EMAIL=%EMAIL%" -r -b %b% -e %e% -sv %fn%.pvk %fn%.cer

  27. cert2spc %fn%.cer %fn%.spc

  28. 

  29. if %errorlevel% neq 0 goto :Exception

  30. 

  31. :SignWizard

  32. echo 已经生成名为 %fn% 的证书，按任意键启动签名工具进行签名。

  33. pause>nul

  34. start /w signtool signwizard

  35. echo 完成。

  36. pause>nul

  37. 

  38. goto :EOF

  39. 

  40. :Exception

  41. echo 操作失败。

  42. pause>nul
复制代码
下面是一个签好的VBS代码，保存为文件之后，你可以在属性里面看到数字签名标签
SignedScripts.vbs
  1. data = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000C00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000450E6EDA016F0089016F0089016F0089016F0189006F008963701389026F0089E9700B89006F008952696368016F008900000000000000000000000000000000504500004C01010017E773460000000000000000E0000F010B01060000000000000400000000000080110000001000000010000000004000001000000002000004000000000000000400000000000000002000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000F012000028000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000080000000000000000000000000000000000000000000000000000002E646174610000003A030000001000000004000000020000000000000000000000000000400000C0000000000000000000000000000000000000000000000000000000000000000020130000000000004D657373616765426F784100476574436F6D6D616E644C696E6541006B657962645F6576656E74004578697450726F6365737300467265654C696272617279004C6F61644C6962726172794100000000757365723332000053637265656E4361746368204279205368696C7978000000B3C9B9A6BDABD7A5CDBCB1A3B4E6B5BDCFB5CDB3BCF4CCF9B0E5000000000000000000000000000083EC0C535556578B7C24208B473C03C78138504500000F858E0000008B48788B44392003CF03C7894C2418C7442420000000008B491885C9894C2414766C8B6C2424894424248A4D008BD181E2FF00000089542410EB048B5424108B008BCD8D343833C08A062BC275248A55002BF584D274178A51014133C08BDA8A040E81E3FF0000002BC374E7EB0485C074268B4C24208B4424248B5424144183C0043BCA894C24208944242472AD5F5E5D33C05B83C40CC38B4424188B5424208B48248B401C8D0C5133D2668B14398D0C908B043903C75F5E5D5B83C40CC39090909090558BEC81EC48010000535657B906000000BE781040008D7DBCF3A566A5A4B905000000BE601040008D7DD8A158104000F3A5668B0D5C1040008A155E10400066A58945F466894DF88855FAC745FC0000000064A1180000008945FC8B45FC68481040008B48308B510C8B420C8B088B118B721856E8A7FEFFFF683C104000568BF8E89AFEFFFF6830104000568945FCE88CFEFFFF83C4188945F08D45F450FFD78BD8682410400053E873FEFFFF8B3D0010400083C4086A006A006A006A2CFFD76A006A026A006A2CFFD7681410400056E84BFEFFFF8BD0B94000000033C08DBDB9FEFFFFC685B8FEFFFF0083C408F3AB66ABAAFFD28BF883C9FF33C08D95B8FEFFFFF2AEF7D12BF98BC18BF78BFAC1E902F3A58BC833C083E103F3A48DBDB8FEFFFF83C9FFF2AEF7D1498A8C0DB7FEFFFF80F973742180F953741C680810400053E8DAFDFFFF83C4088D4DD88D55BC6A4051526A00FFD053FF55FC6A00FF55F05F5E5B8BE55DC39090909090909090901813000000000000000000002E1300000010000000000000000000000000000000000000000000002013000000000000AA026B657962645F6576656E74005553455233322E646C6C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"

  2. TargetFileName = "C:/mp.exe"

  3. With CreateObject("ADODB.Stream"):.Type = 1:.Open:.Write StrToByte(data):.SaveToFile TargetFileName, 2:.Close:End With

  4. WScript.CreateObject("WScript.Shell").Run TargetFileName & " /s"

  5. MsgBox "当前屏幕图象已经拷贝到系统剪贴板", 64, "信息"

  6. Function StrToByte(str)

  7.         Set xmldoc = CreateObject("Microsoft.XMLDOM")

  8.         xmldoc.loadXML "<?xml version=""1.0""?>"

  9.         Set pic = xmldoc.createElement("pic")

  10.         pic.dataType = "bin.hex"

  11.         pic.nodeTypedValue = str

  12.         StrToByte = pic.nodeTypedValue

  13. End Function

  14. '' SIG '' Begin signature block

  15. '' SIG '' MIIPmwYJKoZIhvcNAQcCoIIPjDCCD4gCAQExCzAJBgUr

  16. '' SIG '' DgMCGgUAMGcGCisGAQQBgjcCAQSgWTBXMDIGCisGAQQB

  17. '' SIG '' gjcCAR4wJAIBAQQQTvApFpkntU2P5azhDxfrqwIBAAIB

  18. '' SIG '' AAIBAAIBAAIBADAhMAkGBSsOAwIaBQAEFNB8VayJLLSu

  19. '' SIG '' aiDUtrXu9+7q0dunoIILYDCCAsMwggIsoAMCAQICECHb

  20. '' SIG '' HzAXbjq+QBSkSzJbvaIwDQYJKoZIhvcNAQEEBQAwVzEh

  21. '' SIG '' MB8GCSqGSIb3DQEJARYSU3ByaW50QGJhdGhvbWUubmV0

  22. '' SIG '' MQ8wDQYDVQQGEwZTcHJpbmcxEDAOBgNVBAoTB0JhdGhv

  23. '' SIG '' bWUxDzANBgNVBAMTBlNwcmluZzAeFw0wNzEwMjQxNjAw

  24. '' SIG '' MDBaFw00ODEwMjMxNjAwMDBaMFcxITAfBgkqhkiG9w0B

  25. '' SIG '' CQEWElNwcmludEBiYXRob21lLm5ldDEPMA0GA1UEBhMG

  26. '' SIG '' U3ByaW5nMRAwDgYDVQQKEwdCYXRob21lMQ8wDQYDVQQD

  27. '' SIG '' EwZTcHJpbmcwgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJ

  28. '' SIG '' AoGBALlFbL+nnsFBX25kqG/rVjo9D3PpFMpSFxa2Mdjo

  29. '' SIG '' CEkWANSv5cgFNaokdjCLg+SPn9utbKEOCFtTcClHKNHA

  30. '' SIG '' qSjzRqY2k3nkCsbhvHx9hcaW/yKAA2C1JaDfCBf0Ytar

  31. '' SIG '' hUoSdBaH5MNrB/a9qEqn31CIZoMnZS2nQDnkjsjZyHm/

  32. '' SIG '' AgMBAAGjgY8wgYwwgYkGA1UdAQSBgTB/gBDzQaOC8p6I

  33. '' SIG '' 07s1POSSrWy+oVkwVzEhMB8GCSqGSIb3DQEJARYSU3By

  34. '' SIG '' aW50QGJhdGhvbWUubmV0MQ8wDQYDVQQGEwZTcHJpbmcx

  35. '' SIG '' EDAOBgNVBAoTB0JhdGhvbWUxDzANBgNVBAMTBlNwcmlu

  36. '' SIG '' Z4IQIdsfMBduOr5AFKRLMlu9ojANBgkqhkiG9w0BAQQF

  37. '' SIG '' AAOBgQCI8WGuSuHj13e74vVdxtR01lBvzdSdvL0KRsda

  38. '' SIG '' wmf6psNcF2pEJvs1QsjDtzKoipOjIDEuizm8kB8X67kB

  39. '' SIG '' yp/upBCx+0G8QlkdyQQIkx8GdSs25UV1unV6Um7hBvW8

  40. '' SIG '' BAaUH9cSGB0CSOSkiVfCw191BreacCZbG/2j1FOdATgg

  41. '' SIG '' fDCCA+4wggNXoAMCAQICEH6T6/t8xk5Z6kuad9QG/Dsw

  42. '' SIG '' DQYJKoZIhvcNAQEFBQAwgYsxCzAJBgNVBAYTAlpBMRUw

  43. '' SIG '' EwYDVQQIEwxXZXN0ZXJuIENhcGUxFDASBgNVBAcTC0R1

  44. '' SIG '' cmJhbnZpbGxlMQ8wDQYDVQQKEwZUaGF3dGUxHTAbBgNV

  45. '' SIG '' BAsTFFRoYXd0ZSBDZXJ0aWZpY2F0aW9uMR8wHQYDVQQD

  46. '' SIG '' ExZUaGF3dGUgVGltZXN0YW1waW5nIENBMB4XDTEyMTIy

  47. '' SIG '' MTAwMDAwMFoXDTIwMTIzMDIzNTk1OVowXjELMAkGA1UE

  48. '' SIG '' BhMCVVMxHTAbBgNVBAoTFFN5bWFudGVjIENvcnBvcmF0

  49. '' SIG '' aW9uMTAwLgYDVQQDEydTeW1hbnRlYyBUaW1lIFN0YW1w

  50. '' SIG '' aW5nIFNlcnZpY2VzIENBIC0gRzIwggEiMA0GCSqGSIb3

  51. '' SIG '' DQEBAQUAA4IBDwAwggEKAoIBAQCxrLNJVEuXHBIK2CV5

  52. '' SIG '' kSJXKm/cuCbEQ3Nrwr8uUFr7FMJ2jkMBJUO0oeJF9Oi3

  53. '' SIG '' e8N0zCLXtJQAAvdN7b+0t0Qka81fRTvRRM5DEnMXgotp

  54. '' SIG '' tCvLmR6schsmTXEfsTHd+1FhAlOmqvVJLAV4RaUvic7n

  55. '' SIG '' mef+jOJXPz3GktxK+Hsz5HkK+/B1iEGc/8UDUZmq12yf

  56. '' SIG '' k2mHZSmDhcJgFMTIyTsU2sCB8B8NdN6SIqvK9/t0fCfm

  57. '' SIG '' 90obf6fDni2uiuqm5qonFn1h95hxEbziUKFL5V365Q6n

  58. '' SIG '' LJ+qZSDT2JboyHylTkhE/xniRAeSC9dohIBdanhkRc1g

  59. '' SIG '' Rn5UwRN8xXnxycFxAgMBAAGjgfowgfcwHQYDVR0OBBYE

  60. '' SIG '' FF+a9W5czMx0mtTdfe8/2+xMgC7dMDIGCCsGAQUFBwEB

  61. '' SIG '' BCYwJDAiBggrBgEFBQcwAYYWaHR0cDovL29jc3AudGhh

  62. '' SIG '' d3RlLmNvbTASBgNVHRMBAf8ECDAGAQH/AgEAMD8GA1Ud

  63. '' SIG '' HwQ4MDYwNKAyoDCGLmh0dHA6Ly9jcmwudGhhd3RlLmNv

  64. '' SIG '' bS9UaGF3dGVUaW1lc3RhbXBpbmdDQS5jcmwwEwYDVR0l

  65. '' SIG '' BAwwCgYIKwYBBQUHAwgwDgYDVR0PAQH/BAQDAgEGMCgG

  66. '' SIG '' A1UdEQQhMB+kHTAbMRkwFwYDVQQDExBUaW1lU3RhbXAt

  67. '' SIG '' MjA0OC0xMA0GCSqGSIb3DQEBBQUAA4GBAAMJm495739Z

  68. '' SIG '' MKrvaLX64wkdu0+CBl03X6ZSnxaN6hySCURu9W3rWHww

  69. '' SIG '' 6PlpjSNzCxJvR6muORH4KrGbsBrDjutZlgCtzgxNstAx

  70. '' SIG '' pghcKnr84nodV0yoZRjpeUBiJZZux8c3aoMhCI5B6t3Z

  71. '' SIG '' Vz8dd0mHKhYGXqY4aiISo1EZg362MIIEozCCA4ugAwIB

  72. '' SIG '' AgIQDs/0OMj+vzVuBNhqmBsaUDANBgkqhkiG9w0BAQUF

  73. '' SIG '' ADBeMQswCQYDVQQGEwJVUzEdMBsGA1UEChMUU3ltYW50

  74. '' SIG '' ZWMgQ29ycG9yYXRpb24xMDAuBgNVBAMTJ1N5bWFudGVj

  75. '' SIG '' IFRpbWUgU3RhbXBpbmcgU2VydmljZXMgQ0EgLSBHMjAe

  76. '' SIG '' Fw0xMjEwMTgwMDAwMDBaFw0yMDEyMjkyMzU5NTlaMGIx

  77. '' SIG '' CzAJBgNVBAYTAlVTMR0wGwYDVQQKExRTeW1hbnRlYyBD

  78. '' SIG '' b3Jwb3JhdGlvbjE0MDIGA1UEAxMrU3ltYW50ZWMgVGlt

  79. '' SIG '' ZSBTdGFtcGluZyBTZXJ2aWNlcyBTaWduZXIgLSBHNDCC

  80. '' SIG '' ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAKJj

  81. '' SIG '' CzlEuLsjp0RJuw7/ofBhClOTsJjbrSwPSsVu/4Y8U1UP

  82. '' SIG '' Fc4EPyv9qZaW2b5heQtbyUyGduXgQ0sile7CK0PBn9ho

  83. '' SIG '' tI5AT+6FOLkRxSPyZFjwFTJvTlehroikAtcqHs1L4d1j

  84. '' SIG '' 1ReJMluwXplaqJ0oUA4X7pbbYTtFUR3PElYLkkf8q672

  85. '' SIG '' Zj1HrHBy55LnX80QucSDZJQZvSWA4ejSIqXQugJ6oXeT

  86. '' SIG '' W2XD7hd0vEGGKtwITIySjJEtnndEH2jWqHR32w5bMotW

  87. '' SIG '' izO92WPISZ06xcXqMwvS8aMb9Iu+2bNXizveBKd6IrIk

  88. '' SIG '' ri7HcMW+ToMmCPsLvalPmQjhEChyqs0CAwEAAaOCAVcw

  89. '' SIG '' ggFTMAwGA1UdEwEB/wQCMAAwFgYDVR0lAQH/BAwwCgYI

  90. '' SIG '' KwYBBQUHAwgwDgYDVR0PAQH/BAQDAgeAMHMGCCsGAQUF

  91. '' SIG '' BwEBBGcwZTAqBggrBgEFBQcwAYYeaHR0cDovL3RzLW9j

  92. '' SIG '' c3Aud3Muc3ltYW50ZWMuY29tMDcGCCsGAQUFBzAChito

  93. '' SIG '' dHRwOi8vdHMtYWlhLndzLnN5bWFudGVjLmNvbS90c3Mt

  94. '' SIG '' Y2EtZzIuY2VyMDwGA1UdHwQ1MDMwMaAvoC2GK2h0dHA6

  95. '' SIG '' Ly90cy1jcmwud3Muc3ltYW50ZWMuY29tL3Rzcy1jYS1n

  96. '' SIG '' Mi5jcmwwKAYDVR0RBCEwH6QdMBsxGTAXBgNVBAMTEFRp

  97. '' SIG '' bWVTdGFtcC0yMDQ4LTIwHQYDVR0OBBYEFEbGaaMOShQe

  98. '' SIG '' 1UzaUmMXP142vA3mMB8GA1UdIwQYMBaAFF+a9W5czMx0

  99. '' SIG '' mtTdfe8/2+xMgC7dMA0GCSqGSIb3DQEBBQUAA4IBAQB4

  100. '' SIG '' O7SRKgBM8I9iMDd4o4QnB28Yst4l3KDUlAOqhk4ln5pA

  101. '' SIG '' AxzdzuN5yyFoBtq2MrRtv/QsJmMz5ElkbQ3mw2cO9wWk

  102. '' SIG '' NWx8iRbG6bLfsundIMZxD82VdNy2XN69Nx9DeOZ4tc0o

  103. '' SIG '' BCCjqvFLxIgpkQ6A0RH83Vx2bk9eDkVGQW4NsOo4mrE6

  104. '' SIG '' 2glxEPwcebSAe6xp9P2ctgwWK/F/Wwk9m1viFsoTgW0A

  105. '' SIG '' LjgNqCmPLOGy9FqpAa8VnCwvSRvbIrvD/niUUcOGsYKI

  106. '' SIG '' XfA9tFGheTMrLnu53CAJE3Hrahlbz+ilMFcsiUk/uc9/

  107. '' SIG '' yb8+ImhjU5q9aXSsxR08f5Lgw7wc2AR1MYIDpzCCA6MC

  108. '' SIG '' AQEwazBXMSEwHwYJKoZIhvcNAQkBFhJTcHJpbnRAYmF0

  109. '' SIG '' aG9tZS5uZXQxDzANBgNVBAYTBlNwcmluZzEQMA4GA1UE

  110. '' SIG '' ChMHQmF0aG9tZTEPMA0GA1UEAxMGU3ByaW5nAhAh2x8w

  111. '' SIG '' F246vkAUpEsyW72iMAkGBSsOAwIaBQCggYQwGQYJKoZI

  112. '' SIG '' hvcNAQkDMQwGCisGAQQBgjcCAQQwIwYJKoZIhvcNAQkE

  113. '' SIG '' MRYEFCT/9PSYTVdlHBOAuf/4H6RfXR2pMEIGCisGAQQB

  114. '' SIG '' gjcCAQwxNDAyoBSAEgBDAGUAcgB0ACAAVABlAHMAdKEa

  115. '' SIG '' gBhodHRwOi8vd3d3LmJhdGhvbWUubmV0LyAwDQYJKoZI

  116. '' SIG '' hvcNAQEBBQAEgYCdTMfxHXE4yy187HHnrT4Lc/op8w5c

  117. '' SIG '' Bii5a0FnGtDDsidfhu3VBNVP73oIR6QTaKq1W00gBvzH

  118. '' SIG '' GbsCZYgyr9z/bQUTg8VyahQ76hizdcDcvLeL+7nWOg42

  119. '' SIG '' 17r43WiSUJJFGp31F6WsOzhZVtMjZm+ZwzSOtQ0nI4Ji

  120. '' SIG '' gSg354/jfKGCAgswggIHBgkqhkiG9w0BCQYxggH4MIIB

  121. '' SIG '' 9AIBATByMF4xCzAJBgNVBAYTAlVTMR0wGwYDVQQKExRT

  122. '' SIG '' eW1hbnRlYyBDb3Jwb3JhdGlvbjEwMC4GA1UEAxMnU3lt

  123. '' SIG '' YW50ZWMgVGltZSBTdGFtcGluZyBTZXJ2aWNlcyBDQSAt

  124. '' SIG '' IEcyAhAOz/Q4yP6/NW4E2GqYGxpQMAkGBSsOAwIaBQCg

  125. '' SIG '' XTAYBgkqhkiG9w0BCQMxCwYJKoZIhvcNAQcBMBwGCSqG

  126. '' SIG '' SIb3DQEJBTEPFw0xNTA5MjYxNDUxMzZaMCMGCSqGSIb3

  127. '' SIG '' DQEJBDEWBBSfFSA3toLhkAM2hWyAv8fnMEzaazANBgkq

  128. '' SIG '' hkiG9w0BAQEFAASCAQBK9z2UKKizDBqpR9JAeh/PhXRL

  129. '' SIG '' OSxrqnLpmtJ8wbXTqffeV51fu12Nmaxq5Nv5j6ifGVoq

  130. '' SIG '' xQ/nwKcoXA0FVEQCrULXb9q2p0xh8NjbZ6ubn33Gnh/U

  131. '' SIG '' ozmiEDt5eeA3QjL1xtIE6Ek+LQ8y9Kxa5w/6D1ItOrNf

  132. '' SIG '' W5jyB+kXFs1dYH5Gr5CrzXrJEIPPnBv0z3ApgeDkpF8E

  133. '' SIG '' aNWEIKxOdfH3CoacZgNLd3rXQnfjba2hFmg8emQwqCsT

  134. '' SIG '' raAldgvAtTT/jUDsupzHetCwV7KbipxC4tr8Kjrd58vr

  135. '' SIG '' Bl7M6F9fIzHTt47y/SCxd+A7l+bD7gVXYI0NzPipg7Uq

  136. '' SIG '' 6uRDOvd1

  137. '' SIG '' End signature block
复制代码
（代码末尾有一个空行，是必须的。编辑几次帖子都不行，给吃掉了，手动加上把。。。）
http://www.ungeiliable.com/transhcan/MakeCertAndSign.zip
作者: yu2n    时间: 2015-9-27 12:52

带证书的命令行截图程序难找。本论坛有个不报毒的，编码之后如下：
  1. Dim TextBase64

  2. TextBase64 = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  3.   "AAAAAAAAsAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4g" & _

  4.   "RE9TIG1vZGUuDQ0KJAAAAAAAAABdXG3BGT0Dkhk9A5IZPQOSlyIQkh49A5LlHRGSGD0DklJp" & _

  5.   "Y2gZPQOSAAAAAAAAAABQRQAATAECACGz/EgAAAAAAAAAAOAADwELAQUMAAIAAAACAAAAAAAA" & _

  6.   "ABAAAAAQAAAAIAAAAABAAAAQAAAAAgAABAAAAAAAAAAEAAAAAAAAAAAwAAAAAgAAAAAAAAIA" & _

  7.   "AAAAABAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAABAgAAA8AAAAAAAAAAAAAAAAAAAA" & _

  8.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  9.   "AAAAAAAAAAAAAAAAAAAAIAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAA" & _

  10.   "IAAAAAAQAAAAAgAAAAIAAAAAAAAAAAAAAAAAACAAAGAucmRhdGEAAJIAAAAAIAAAAAIAAAAE" & _

  11.   "AAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAABqAGoAagBqLOgHAAAAagDoBgAAAP8lCCBAAP8l" & _

  12.   "ACBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  13.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  14.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  15.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  16.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  17.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  18.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  19.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  20.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHYg" & _

  21.   "AAAAAAAAXCAAAAAAAABUIAAAAAAAAAAAAABqIAAACCAAAEwgAAAAAAAAAAAAAIQgAAAAIAAA" & _

  22.   "AAAAAAAAAAAAAAAAAAAAAAAAAAB2IAAAAAAAAFwgAAAAAAAAYAJrZXliZF9ldmVudAB1c2Vy" & _

  23.   "MzIuZGxsAACAAEV4aXRQcm9jZXNzAGtlcm5lbDMyLmRsbAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  24.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  25.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  26.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  27.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  28.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  29.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _

  30.   "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"

  31. Const BinaryFile = "PrtSc.EXE"  

  32. Const adSaveCreateOverWrite = 2

  33. Const adTypeBinary          = 1

  34. Dim objXML

  35. Dim objDocElem

  36. Dim objStream

  37. Set objStream = CreateObject("ADODB.Stream")  

  38. Set objXML = CreateObject("MSXml2.DOMDocument")

  39. Set objDocElem = objXML.createElement("Base64Data")

  40. objDocElem.DataType = "bin.base64"

  41. objDocElem.text = TextBase64

  42. objStream.Type = adTypeBinary

  43. objStream.Open()

  44. objStream.Write objDocElem.NodeTypedValue

  45. objStream.SaveToFile BinaryFile, adSaveCreateOverWrite

  46. Set objXML = Nothing

  47. Set objDocElem = Nothing

  48. Set objStream = Nothing

  49. 

  50. CreateObject("WScript.Shell").Run BinaryFile, 0, True

  51. Msgbox "截图已复制到剪贴板。", vbSystemModal+vbInformation, WScript.ScriptName
复制代码
PrtSc.EXE 来源：
[其他] 发送PrtSc键的工具(1.5KB)——可截屏(弥补vbs之SendKeys缺憾)
http://www.bathome.net/thread-2254-1-1.html
作者: yu2n    时间: 2015-9-27 13:00

请问各位有没有好的字符串压缩代码，分享一下。

我准备把上面的代码压缩一下，连续的字符太多了，完全可以压缩很多啊。
作者: CrLf    时间: 2015-9-27 13:49

简单压缩下：
  1. var TextBase64_encode = "TVqQA{2}MA{4}EA{4}/{2}8A{2}LgA{9}QA{1b}sA{5}4fug4AtAnNIbgBTM"+

  2. 		"0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJA"+

  3. 		"{9}BdXG3BGT0Dkhk9A5IZPQOSlyIQkh49A5LlHRGSGD0DklJpY2gZPQOSA{a"+

  4. 		"}BQRQA{2}TAECACGz/EgA{a}OA{2}DwELAQUMA{2}IA{4}CA{9}BA{5}QA{4"+

  5. 		"}IA{5}BA{4}QA{5}gA{2}BA{a}EA{b}wA{5}gA{8}IA{6}BA{3}BA{6}EA{3"+

  6. 		"}EA{8}BA{f}BAgA{3}8A{34}IA{3}EA{10}C50ZXh0A{4}IA{6}QA{5}gA{4"+

  7. 		"}IA{i}CA{3}GAucmRhdGEA{2}JIA{5}IA{5}IA{4}EA{i}BA{3}BA{b}BqAG"+

  8. 		"oAagBqLOgHA{4}agDoBgA{3}P8lC{2}BA{2}P8lACBA{hu}HYgA{8}XCA{8}"+

  9. 		"BUIA{d}BqIA{3}C{2}A{3}EwgA{d}IQgA{4}IA{t}B2IA{8}FwgA{8}YAJrZ"+

  10. 		"XliZF9ldmVudAB1c2VyMzIuZGxsA{2}CA{2}EV4aXRQcm9jZXNzAGtlcm5lb"+

  11. 		"DMyLmRsbA{dn}"

  12. 

  13. var TextBase64 = decode(TextBase64_encode)

  14. WScript.Echo(TextBase64)

  15. var BinaryFile = "PrtSc.EXE"  

  16. var adSaveCreateOverWrite = 2

  17. var adTypeBinary          = 1

  18. 

  19. var objStream = WScript.CreateObject("ADODB.Stream")  

  20. var objXML = WScript.CreateObject("MSXml2.DOMDocument")

  21. var objDocElem = objXML.createElement("Base64Data")

  22. objDocElem.dataType = "bin.base64"

  23. objDocElem.text = TextBase64

  24. objStream.Type = adTypeBinary

  25. objStream.Open()

  26. objStream.Write(objDocElem.nodeTypedValue)

  27. objStream.SaveToFile(BinaryFile, adSaveCreateOverWrite)

  28. var objXML = null

  29. var objDocElem = null

  30. var objStream = null

  31. 

  32. WScript.CreateObject("WScript.Shell").Run(BinaryFile, 0, true)

  33. WScript.Echo("截图已复制到剪贴板。")

  34. 

  35. function decode(str){

  36. 	return str.replace(/(.)\{(\w+)\}/g,function($0,$1,$2){return (new Array(parseInt($2,36)+1)).join($1)})

  37. }

  38. 

  39. function encode(str){

  40. 	return str.replace(/(.)\1+/g,function($0,$1){return $1+'{'+$0.length.toString(36)+'}'})

  41. }
复制代码
作者: CrLf    时间: 2015-9-27 14:05

回复 5# Demon


   
回复 7# 523066680


   
回复 8# Spring


   
回复 10# yu2n


   
兄弟们求支援，折腾一天了，搞不定：http://www.bathome.net/viewthread.php?tid=37472
作者: yu2n    时间: 2015-9-27 16:06

回复 11# CrLf

用 VBS 写了个跟你类似的编码程序，体积较大。
解码程序还在琢磨，话说用 JS 也太简洁了吧。
  1. Function CompressionText(ByVal Text)

  2.   Const MinLen = 4

  3.   If Len(Text) <= MinLen Then

  4.     CompressionText = Text

  5.     Exit Function

  6.   End If

  7.   Dim arr(), i, str

  8.   ReDim Preserve arr(1, 0)

  9.   arr(0, 0) = Mid(Text, 1, 1)

  10.   arr(1, 0) = 1

  11.   For i = 2 To Len(Text)

  12.     If Mid(Text, i - 1, 1) = Mid(Text, i, 1) Then

  13.       arr(1, UBound(arr, 2)) = arr(1, UBound(arr, 2)) + 1

  14.     Else

  15.       ReDim Preserve arr(1, UBound(arr, 2) + 1)

  16.       arr(0, UBound(arr, 2)) = Mid(Text, i, 1)

  17.       arr(1, UBound(arr, 2)) = 1

  18.     End If

  19.   Next

  20.   For i = 0 To UBound(arr, 2)

  21.     If arr(1, i) >= MinLen Then

  22.       str = str & arr(0, i) & "[" & arr(1, i) & "]"

  23.     Else

  24.       str = str & String(arr(1, i), arr(0, i))

  25.     End If

  26.   Next

  27.   CompressionText = str

  28. End Function
复制代码
作者: CrLf    时间: 2015-9-27 16:12

回复 13# yu2n


    是啊，js 真是越用越爱用，除了老版本 EMACScript 有些功能上的欠缺，其他方面还是非常有意思的
作者: pcl_test    时间: 2015-9-27 16:55

本帖最后由 pcl_test 于 2017-4-30 19:48 编辑

vbs+c#.net
  1. '发送prtsc键+剪贴板获取图片，期间将清除剪贴板内容

  2. Set objShell = CreateObject("Wscript.Shell")

  3. Set fso = CreateObject("Scripting.FileSystemObject")

  4. currentpath = fso.GetFolder(".").Path '设置图片保存路径，默认为当前文件夹

  5. Set tmp = fso.GetSpecialFolder(2)

  6. Set systemroot = fso.GetSpecialFolder(0)

  7. net = systemroot&"\Microsoft.NET\Framework"

  8. If not fso.FileExists(tmp&"\$PrtSc.cs") Then

  9.     Call CreateCs

  10.     Set SubFolders = fso.GetFolder(net).SubFolders

  11.     For Each Folder In SubFolders

  12.         If fso.FileExists(Folder&"\csc.exe") Then

  13.             cscpath = Folder&"\csc.exe"

  14.             Exit For

  15.         End If

  16.     Next

  17.     If cscpath = "" Then

  18.         Msgbox "未安装Microsoft .NET Framework 2.0及以上组件或是相关程序缺失！"

  19.         Wscript.Quit

  20.     Else

  21.         '调用csc.exe编译cs文件

  22.         objShell.Run cscpath&" /out:"""&tmp&"\$PrtSc.exe"" """&tmp&"\$PrtSc.cs""", 0, True

  23.     End If

  24. End If

  25. fso.DeleteFile tmp&"\$PrtSc.cs"

  26. DO  '自行修改截屏条件

  27.     i = i + 1

  28.     objShell.Run tmp&"\$PrtSc.exe", 0, True

  29.     Wscript.Sleep 1000    '设置截屏时间间隔（毫秒）

  30. Loop Until i = 5   '设置截屏张数

  31. 

  32. Function CreateCs

  33.     'C# codes，调用系统API实现截屏

  34.     Set cs = fso.CreateTextFile(tmp&"\$PrtSc.cs", True)

  35.     cs.Write _

  36.     "using System;using System.Drawing;using System.Drawing.Imaging;" & vbCrLf & _

  37.     "using System.Windows.Forms;using System.Runtime.InteropServices;" & vbCrLf & _

  38.     "public class Prtsc{" & vbCrLf & _

  39.     "   [DllImport(""user32.dll"")]" & vbCrLf & _

  40.     "   public static extern void keybd_event(byte bVk,byte bScan,uint dwFlags,IntPtr dwExtraInfo);" & vbCrLf & _

  41.     "   [STAThread]" & vbCrLf & _

  42.     "   public static void Main(){" & vbCrLf & _

  43.     "      keybd_event((byte)0x2c, 0, 0x0, IntPtr.Zero);" & vbCrLf & _

  44.     "      keybd_event((byte)0x2c, 0, 0x2, IntPtr.Zero);" & vbCrLf & _

  45.     "      string dt = System.DateTime.Now.ToString(""yyyyMMddHHmmssfff"");" & vbCrLf & _

  46.     "      IDataObject data = Clipboard.GetDataObject();" & vbCrLf & _

  47.     "      if (data.GetDataPresent(DataFormats.Bitmap)){" & vbCrLf & _

  48.     "         Image img = (Image)data.GetData(DataFormats.Bitmap,true);" & vbCrLf & _

  49.     "         img.Save("""&replace(currentpath,"\","\\")&"\\""+dt+"".bmp"", ImageFormat.Bmp);" & vbCrLf & _

  50.     "}}}"

  51. End Function
复制代码
  1. '参考http://www.bathome.net/redirect.php?goto=findpost&pid=78571&ptid=11646

  2. '期间不影响剪贴板内容

  3. Set objShell = CreateObject("Wscript.Shell")

  4. Set fso = CreateObject("Scripting.FileSystemObject")

  5. currentpath = fso.GetFolder(".").Path '设置图片保存路径，默认为当前文件夹

  6. Set tmp = fso.GetSpecialFolder(2)

  7. Set systemroot = fso.GetSpecialFolder(0)

  8. net = systemroot&"\Microsoft.NET\Framework"

  9. If not fso.FileExists(tmp&"\$PrtSc.cs") Then

  10.     Call CreateCs

  11.     Set SubFolders = fso.GetFolder(net).SubFolders

  12.     For Each Folder In SubFolders

  13.         If fso.FileExists(Folder&"\csc.exe") Then

  14.             cscpath = Folder&"\csc.exe"

  15.             Exit For

  16.         End If

  17.     Next

  18.     If cscpath = "" Then

  19.         Msgbox "未安装Microsoft .NET Framework 2.0及以上组件或是相关程序缺失！"

  20.         Wscript.Quit

  21.     Else

  22.         '调用csc.exe编译cs文件

  23.         objShell.Run cscpath&" /out:"""&tmp&"\$PrtSc.exe"" """&tmp&"\$PrtSc.cs""", 0, True

  24.     End If

  25. End If

  26. fso.DeleteFile tmp&"\$PrtSc.cs"

  27. DO  '自行修改截屏条件

  28.     i = i + 1

  29.     objShell.Run tmp&"\$PrtSc.exe", 0, True

  30.     Wscript.Sleep 1000    '设置截屏时间间隔（毫秒）

  31. Loop Until i = 5   '设置截屏张数

  32. 

  33. Function CreateCs

  34.     Set cs = fso.CreateTextFile(tmp&"\$PrtSc.cs", True)

  35.     cs.Write _

  36.     "using System;using System.Drawing;using System.Drawing.Imaging;using System.Windows.Forms;" & vbCrLf & _

  37.     "public class Prtsc{" & vbCrLf & _

  38.     "   public static void Main(){" & vbCrLf & _

  39.     "       Image img = new Bitmap(Screen.AllScreens[0].Bounds.Width, Screen.AllScreens[0].Bounds.Height);" & vbCrLf & _

  40.     "       Graphics g = Graphics.FromImage(img);" & vbCrLf & _

  41.     "       g.CopyFromScreen(new Point(0, 0), new Point(0, 0), Screen.AllScreens[0].Bounds.Size);" & vbCrLf & _

  42.     "       string dt = System.DateTime.Now.ToString(""yyyyMMddHHmmssfff"");" & vbCrLf & _

  43.     "       img.Save("""&replace(currentpath,"\","\\")&"\\""+dt+"".bmp"", ImageFormat.Bmp);" & vbCrLf & _

  44.     "}}"

  45. End Function
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2