- 博客(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
724
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
232
原创 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
277
原创 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
380
原创 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
262
原创 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
260
转载 【转载】[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
482
原创 百度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
5977
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
380
转载 【转载】VB真是想不到系列之二：VB《葵花宝典》
#VB真是想不到系列之二：VB《葵花宝典》--指针技术关键字：VB、指针、动态内存分配、效率、安全难度：中级至高级要求：熟悉VB，掌握基本的C，了解汇编，了解内存分配原理。 想当年东方不败，黑木崖密室一战，仅凭一根绣花针独战四大高手，神出鬼没，堪称天下武林第一高手。若想成为VB里的东方不败，熟习VB《葵花宝典》，掌握VB指针技术，乃是不二的法门。 欲练神功，引刀……，其实掌握...
2019-12-26 11:31:30
374
原创 按键精灵_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
1815
原创 按键精灵_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
1012
原创 按键精灵_提取文字、数字、字母、符号的通用Function
测试文本 = "hello HELLO ★+_)(*&^%$#@! 987654321 翠翠"只取汉字 = 文本提取(测试文本, 0)只取数字 = 文本提取(测试文本, 1)只取符号 = 文本提取(测试文本, 2)只取字母 = 文本提取(测试文本, 3)只取小写 = 文本提取(测试文本, 4)只取大写 = 文本提取(测试文本, 5)/*MsgBox 只取汉字, 0, "只...
2019-12-22 20:25:22
17169
原创 按键精灵_汉字转拼音
'精准地计算毫秒时间差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
1875
原创 按键精灵_限制脚本试用次数和时间
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
6594
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
2819
原创 按键精灵_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
1556
原创 不用额外插件，最简单的数字识别方法
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
4153
原创 按键精灵_关于窗口无响应、卡屏状态的判断判定
'方案一：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
4490
原创 按键精灵_字符串提取
提取字符串之间的内容（推荐）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
13889
转载 彻底攻克C语言指针
前面我们讲解了指针数组、二维数组指针、函数指针等几种较为复杂的指针，它们的定义形式分别是：int *p1[6]; //指针数组int *(p2[6]); //指针数组，和上面的形式等价int (*p3)[6]; //二维数组指针int (*p4)(int, int); //函数指针我相信大部分初学者对上面几种形式的指针都非常迷惑，不知道该从哪里入手去理解，为什么 p1、p2 是数组，...
2019-12-21 22:27:01
195
原创 王爽《汇编语言》实验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
168
原创 按键精灵_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
4548
原创 按键精灵_注册大漠错误修正
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
992
原创 按键精灵_递归遍历窗口句柄
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
2773
原创 按键精灵_字符点阵制作
//单个字符或者字符串截图，确定大小坐标为左上角（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
1129
原创 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
1369
原创 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
765
原创 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
728
1
原创 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
559
原创 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
430
原创 王爽：汇编语言 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
555
原创 补码的计算
-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
10939
1
原创 欢迎光临我的e盘:risce.ys168.com!
业余爱好汇编，初学者。先是对破解感兴趣，但学了一段感觉不懂汇编永远只能依葫芦画瓢，所以开始学习汇编，先从dos汇编开始。应了很多前辈们的话：其实别怕大家学破解，别怕大家研究破解，其实学破解学到一定程度，必然要学语言，学了语言必然兴趣不会只停留在破解上，由破而立，转向软件开发，而这种结果，就是他开发出来的软件必然对反破解做的更好，这样实际上对推动了反破解的发展。如果说破解和开发哪个更有趣
2008-03-12 12:09:00
1202
1
C#调用大漠插件找图找色
2022-03-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人