[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ximenhao

Rank: 1

帖子
17 
积分
36 
技术
0  
捐助
0  
注册时间
2023-1-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-5-2 19:55 | 只看该作者

[其他] 批处理可以获取屏幕中心点的XY坐标吗？

请教各位高手
批处理可以获取屏幕中心点的XY坐标吗？

如果能获取，获取后 写进文件，例如
D:\1.TXT
X坐标写进 第一行
Y坐标写进 第二行

当然，先清空1.txt中所有内容，再写进。

哈哈 没研究明白，用chatgpt也没问出来，论坛来问问了。

bat不行话 ps可以吗？谢谢各位大哥赐教
收藏 分享

idwma

Rank: 6Rank: 6

帖子
976 
积分
1708 
技术
241  
捐助
0  
注册时间
2014-6-17 
2楼
发表于 2023-5-2 20:33 | 只看该作者
屏幕的xy坐标是指当前分辨率的中心点吗？

TOP

czjt1234

Rank: 6Rank: 6

帖子
1046 
积分
1547 
技术
112  
捐助
0  
注册时间
2010-4-30 
3楼
发表于 2023-5-2 20:57 | 只看该作者
本帖最后由 czjt1234 于 2023-5-2 20:58 编辑

ps可以，调用api
GetXCursorPos
GetYCursorPos


屏幕中心点的XY坐标
应该就是分辨率除以2吧

QQ 20147578

TOP

ximenhao

Rank: 1

帖子
17 
积分
36 
技术
0  
捐助
0  
注册时间
2023-1-18 
4楼
发表于 2023-5-2 20:59 | 只看该作者
回复 2# idwma


    嗯 屏幕中心点

TOP

czjt1234

Rank: 6Rank: 6

帖子
1046 
积分
1547 
技术
112  
捐助
0  
注册时间
2010-4-30 
5楼
发表于 2023-5-2 20:59 | 只看该作者
你这个屏幕中心，是连了任务栏一起计算，还是要排除任务栏再计算？

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1046 
积分
1547 
技术
112  
捐助
0  
注册时间
2010-4-30 
6楼
发表于 2023-5-2 21:06 | 只看该作者 
  1. rem 另存为 ANSI 编码

  2. ' & cls & cscript.exe /nologo /e:vbscript "%~f0" >d:\1.txt & pause & exit

  3. 

  4. Set obj = CreateObject("HtmlFile")

  5. wsh.Echo obj.ParentWindow.Screen.Width / 2

  6. wsh.Echo obj.ParentWindow.Screen.Height / 2
复制代码

QQ 20147578

TOP

ximenhao

Rank: 1

帖子
17 
积分
36 
技术
0  
捐助
0  
注册时间
2023-1-18 
7楼
发表于 2023-5-2 21:48 | 只看该作者
回复 6# czjt1234


    任务栏可以不计算。

你代码保存bat 执行后：

D:\我的文档\桌面\1.bat(8, 1) Microsoft VBScript 编译器错误: 缺少语句

请按任意键继续. . .


在win7在执行的。先谢谢解答了 哈

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
657 
积分
777 
技术
34  
捐助
0  
注册时间
2023-2-9 
8楼
发表于 2023-5-2 22:35 | 只看该作者
回复 3# czjt1234


    这是鼠标位置吧
你好

TOP

buyiyang

Rank: 5Rank: 5

帖子
426 
积分
802 
技术
119  
捐助
0  
注册时间
2022-3-26 
9楼
发表于 2023-5-2 23:42 | 只看该作者 
  1. @echo off

  2. for /f "tokens=1-2" %%a in ('wmic path Win32_VideoController get CurrentHorizontalResolution^,CurrentVerticalResolution') do (

  3.     if not "%%b"=="" (

  4.         set /a w=%%a/2

  5.         set /a h=%%b/2

  6.     )

  7. )

  8. echo,%w%>D:\1.TXT

  9. echo,%h%>>D:\1.TXT

  10. pause
复制代码

TOP

czjt1234

Rank: 6Rank: 6

帖子
1046 
积分
1547 
技术
112  
捐助
0  
注册时间
2010-4-30 
10楼
发表于 2023-5-3 06:22 | 只看该作者
回复 7# ximenhao


    我也是win7，测试过可用才发出来的

QQ 20147578

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14918 
积分
46123 
技术
857  
捐助
745  
注册时间
2008-6-9 
11楼
发表于 2023-5-3 09:26 | 只看该作者
回复 1# ximenhao


试试这几个代码：
http://bbs.bathome.net/thread-4152-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表