- 博客(34)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 C语言：分解质因数
#include<stdio.h>#include<stdlib.h>int main(void) { int n,i=2; printf("enter a integer:"); scanf("%d",&n); do { while(n%i==0) { printf("%d",i);//利用不换行的特点 n/=i; if(n!=1) printf("*"); } i++; } while(i<n); if (n!=1.
2020-06-27 15:44:15
650
1
原创 C Prime Plus（第五版）第6章编程练习第4题
#include<stdio.h>int main() { int i,j,k; char letter; printf("Input a capital:"); scanf("%c",&letter); k=letter-'A'+1; for(i=0; i<k; i++) { for(j=0; j<k-i; j++) printf(" ");...
2020-04-11 14:55:37
192
原创 C Prime Plus（第五版）第6章编程练习第3题
#include <stdio.h>int main() { int i,j; for(i=0;i<6; i++) { for(j=0;j<=i;j++) { printf("%c",'F'-j); } printf("\n"); } return 0;}
2020-04-06 00:22:48
233
原创 C语言程序设计现代方法（第2版）第六章编程题11
#include <stdio.h>int main() { int i,n; double e=1.0,temp=1.0; printf("Enter a integer:"); scanf("%d",&n); for(i=1;i<=n;i++){ temp*=i; e+=1/temp; } printf("e is:%.20f",e);...
2020-03-31 23:08:13
336
原创 C语言程序设计现代方法（第2版）第6章编程题8
#include <stdio.h>int main() { int i,m,n,j; printf("Enter number of days in month:"); scanf("%d",&m); printf("Enter starting day of the week (1=sun, 7=sat):"); scanf("%d",&n); ...
2020-03-31 00:02:28
215
原创 C语言程序设计现代方法（第2版）第6章编程题1
#include <stdio.h>int main() { double i,max; printf("Enter a number:"); scanf("%lf",&i); max=i; while(1) { printf("Enter a number:"); scanf("%lf",&i); if (i>0) { if (...
2020-03-29 20:43:33
225
转载 【转载】[VBS]去除WORD文档限制编辑
Usage：手动：选中Word文档拖拽到VBS文件上（支持拖拽多个）。命令行：Cscript -nologo VBS路径 Word文档1 Word文档2 ...Rem Code By 老刘Rem 转载请标明作者 Option ExplicitConst wdNewBlankDocument = 0 '空白新文档Const wdFormatXMLDocument = 12 '....
2020-01-17 13:45:46
379
原创 百度AI图文识别示例(按键精灵源码)
Function BaiDuOCR(APIKey, SecretKey, ImgPath, OcrType) Dim http, ReJson, url, formStr, token, PhotoBS, httpBody Dim xml_dom, Node, FileByteArrs, Stream, ReExpObj, Matches Dim adTypeBinar...
2020-01-05 21:23:45
5624
3
原创 VB学习笔记_数组赋值测试
动态数组赋值，两种写法都可以正确执行：'第一种写法：Dim a As VariantPrivate Sub cmdCommand1_Click() Dim a As Variant a = "1,2,3,4,dsd-ad5,6,45,65345" Dim b() As String b = Split(a, ",") Debug.Print b(4)...
2019-12-27 23:01:02
328
转载 【转载】VB真是想不到系列之二：VB《葵花宝典》
#VB真是想不到系列之二：VB《葵花宝典》--指针技术关键字：VB、指针、动态内存分配、效率、安全难度：中级至高级要求：熟悉VB，掌握基本的C，了解汇编，了解内存分配原理。 想当年东方不败，黑木崖密室一战，仅凭一根绣花针独战四大高手，神出鬼没，堪称天下武林第一高手。若想成为VB里的东方不败，熟习VB《葵花宝典》，掌握VB指针技术，乃是不二的法门。 欲练神功，引刀……，其实掌握...
2019-12-26 11:31:30
332
原创 按键精灵_API关机、重启、注销操作
Option ExplicitPrivate Const EWX_SHUTDOWN = 1Private Const EWX_FORCE = 4Private Const EWX_REBOOT = 2Private Const EWX_LOGOFF = 0Private Const EWX_POWEROFF = 8Public Const WM_SYSCOMMAND = &H...
2019-12-22 21:04:50
1661
原创 按键精灵_API关机、重启、注销操作
Option ExplicitPrivate Const EWX_SHUTDOWN = 1Private Const EWX_FORCE = 4Private Const EWX_REBOOT = 2Private Const EWX_LOGOFF = 0Private Const EWX_POWEROFF = 8Public Const WM_SYSCOMMAND = &H...
2019-12-22 20:35:59
816
原创 按键精灵_提取文字、数字、字母、符号的通用Function
测试文本 = "hello HELLO ★+_)(*&^%$#@! 987654321 翠翠"只取汉字 = 文本提取(测试文本, 0)只取数字 = 文本提取(测试文本, 1)只取符号 = 文本提取(测试文本, 2)只取字母 = 文本提取(测试文本, 3)只取小写 = 文本提取(测试文本, 4)只取大写 = 文本提取(测试文本, 5)/*MsgBox 只取汉字, 0, "只...
2019-12-22 20:25:22
15501
原创 按键精灵_汉字转拼音
'精准地计算毫秒时间差s1 = Plugin.Sys.GetTime()中文汉字 = "中文超级美女\汉字"p1 = "A-20319,Ai-20317,An-20304,Ang-20295,Ao-20292,Ba-20283,Bai-20265,Ban-20257,Bang-20242,Bao-20230,Bei-20051,Ben-20036,Beng-20032,Bi-20026,B...
2019-12-22 20:19:51
1598
原创 按键精灵_限制脚本试用次数和时间
Declare Function GetCurrentProcess Lib "kernel32" Alias "GetCurrentProcess" () As LongDeclare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCo...
2019-12-22 20:16:32
6162
2
原创 按键精灵_50多个特殊文件夹路径的获取方法
MsgBox CreateObject("Shell.Application").Namespace(&H0).Self.Path //“桌面”的桌面图标MsgBox CreateObject("Shell.Application").Namespace(&H1).Self.Path //IE浏览器的桌面图标MsgBox CreateObject("Shell.Applica...
2019-12-22 19:55:04
2527
原创 按键精灵_VBS代码块内调用Plugin插件命令方法
Call Plugin.Msg.Tips("") '“空调用”一次, 创建COM组件VBSBegin a=Msg.Tips("这是一个测试")VBSEnd'第二种解决办法Import "Msg.dll"VBSBegin a=Msg.Tips("这是一个测试")VBSEnd...
2019-12-22 19:38:30
1336
原创 不用额外插件，最简单的数字识别方法
Function 文字识别(wzsb_x, wzsb_y, wzsb_ys)'数字左上角x,y,颜色/*1:3,1==2:0,8==4:4,6==7:2,7==8:1,43:2,4==5:0,0==6:1,1==9:1,512:5,8==47:4,2==56:2,3==38:2,4==09:*/ Dim GetColor 文字识别=-1 GetColor =...
2019-12-22 17:04:29
2915
原创 按键精灵_关于窗口无响应、卡屏状态的判断判定
'方案一：APIPrivate Declare Function IsHungAppWindow Lib "user32.dll" ( ByVal hWnd As Long) As LongHwnd = Plugin.Window.Find(0, "无")TracePrint HwndDo If IsHungAppWindow(Hwnd)=0 Then i=0'...
2019-12-22 16:57:48
4095
原创 按键精灵_字符串提取
提取字符串之间的内容（推荐）MsgBox GetStrAB("http://www.dayanzai.me/rufus.html", "http://", "/")Function GetStrAB(Str, StrA, StrB) If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(S...
2019-12-22 16:40:58
11893
转载 彻底攻克C语言指针
前面我们讲解了指针数组、二维数组指针、函数指针等几种较为复杂的指针，它们的定义形式分别是：int *p1[6]; //指针数组int *(p2[6]); //指针数组，和上面的形式等价int (*p3)[6]; //二维数组指针int (*p4)(int, int); //函数指针我相信大部分初学者对上面几种形式的指针都非常迷惑，不知道该从哪里入手去理解，为什么 p1、p2 是数组，...
2019-12-21 22:27:01
166
原创 王爽《汇编语言》实验7
DATAS SEGMENT DB '1975','1976','1977','1978','1979','1980','1981','1982','1983' DB '1984','1985','1986','1987','1988','1989','1990','1991','1992' ...
2019-12-21 10:08:37
134
原创 按键精灵_Wscript.Shell操作
Set ws = CreateObject("Wscript.Shell")ws.sendkeys ("nihao")ws.sendkeys ("{x 10}")Delay 2000ws.sendkeys ("{ENTER}")ws.sendkeys ("%" + "{F4}")//发送“ALT+F4”关闭组合键Delay 100ws.sendkeys ("{TAB}")Dela...
2019-12-19 09:49:21
4278
原创 按键精灵_注册大漠错误修正
Set dm = createobject("dm.dmsoft")//TracePrint dm.ver()If dm.Ver() <> "3.1233" Then Set dm = nothingset ws=createobject("Wscript.Shell")ws.run "regsvr32 E:\Downloads\大漠插件3.1233\dm.dll /s"...
2019-12-19 09:48:21
749
原创 按键精灵_递归遍历窗口句柄
Call 强劲查找子窗口(201326,"wndclass_desked_gsk","Microsoft Visual Basic")Function 强劲查找子窗口(父句柄, 类名, 标题) Dim HwndEx, GetClass, Caption HwndEx = 0 Do HwndEx = Plugin.Window.FindEx(父句柄, Hw...
2019-12-19 09:46:50
2555
原创 按键精灵_字符点阵制作
//单个字符或者字符串截图，确定大小坐标为左上角（x1,y1）,右下角（x2,y2）//对字符串进行透明图处理，保证字符为单色，假定为白色（FFFFFF），透明底色为黑色（000000）For y = y1 To y2 For x = x1 To x2 IfColor x, y, "ffffff", 0 Then 点阵 = 点阵 & "...
2019-12-19 09:42:41
1030
原创 Python_调用大漠
$regsvr32 dll #文件路径#coding:gbkimport win32com.clientdm = win32com.client.Dispatch('dm.dmsoft')dm.setDict(0, 'c:\dm_soft.txt')dm.useDict(0)"""函数原型:string FindStrEx(x1,y1,x2,y2,string,color_f...
2019-12-19 09:40:56
1283
原创 VB多线程操作类
Option ExplicitPrivate Declare Function CreateWin32Thread Lib "kernel32" Alias "CreateThread" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpPar...
2019-12-19 09:37:41
668
原创 VB模拟鼠标类
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long)Private Declare Sub keybd_event Lib "user32" ...
2019-12-19 09:35:36
612
原创 VB操作内存类
Private Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As...
2019-12-19 09:33:32
472
原创 VB winio模拟按键模块
Attribute VB_Name = "winio_key"Public Declare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As LongPublic Declare Function UnmapPhysica...
2019-12-19 09:31:06
362
原创 王爽：汇编语言 add128（P221）
assume cs:code,ds:data 2 //不计溢出可能,计算两个8字节数的和,使用adc指令 3 data segment 4 dd 12345678h,91011121h,31415161h,71819202h,12223242h,52627282h,93031323h,43536383h 5 data ends 6 7 code segment 8 ...
2019-12-15 19:56:42
498
原创 补码的计算
-1源码：10000001反码：11111110补码：11111110+1=11111111-1的补码11111111，取反加1 00000000+1=00000001F0，如果是一个有符号数，那么其：方法一：转化为二进制形式的补码：11110000取反加1（所有位，包括符号位）：00001111+1=00010000，为该数的绝对值16，所以F0对应的有符号数为-1...
2019-12-15 14:24:28
10009
原创 欢迎光临我的e盘:risce.ys168.com!
业余爱好汇编，初学者。先是对破解感兴趣，但学了一段感觉不懂汇编永远只能依葫芦画瓢，所以开始学习汇编，先从dos汇编开始。应了很多前辈们的话：其实别怕大家学破解，别怕大家研究破解，其实学破解学到一定程度，必然要学语言，学了语言必然兴趣不会只停留在破解上，由破而立，转向软件开发，而这种结果，就是他开发出来的软件必然对反破解做的更好，这样实际上对推动了反破解的发展。如果说破解和开发哪个更有趣
2008-03-12 12:09:00
1135
1
C#调用大漠插件找图找色
2022-03-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人