台灣最大程式設計社群網站
線上人數
1064
 
會員總數:244101
討論主題:188464
歡迎您免費加入會員
討論區列表 >> VB6 >> VB6 如何執行左鍵按下色值位置
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VB6 如何執行左鍵按下色值位置
價值 : 200 QP  點閱數:261 回應數:12

樓主

阿傑
門外漢
0 2
44 6
發送站內信

捐贈 VP 給 阿傑
vb6我用滑鼠座標的方式 讓他自動按下 錄製>全螢幕
可是如果我用別台電腦執行 座標又對不到了
後來我在網路看到有人好像可以用色值的方式去按下指定位置
有什麼辦法可以 在別台電腦也可以按下指定的地方呢??
另外想問拖曳滑鼠指標的程式碼是如何??
可以教我嗎? 或是寫vb6的程式碼給我看
我的程式碼 都是複製網路 東貼西貼的
所以小弟弟可能連新手都還稱不上
拜託大家了




搜尋相關Tags的文章: [ VB6 色值 執行 ] ,
本篇文章發表於2018-12-20 22:40
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

香帥
檢舉此回應
我是用設定檔去記錄各電腦的座標,自動執行時去讀各電腦的設定檔,去解決這種問題
本篇文章回覆於2018-12-21 22:04
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

阿傑
捐贈 VP 給 阿傑 檢舉此回應
可否貼上來 讓小弟弟參考參考呢??
本篇文章回覆於2018-12-21 22:53
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

香帥
檢舉此回應
我是用vb.net 您再自己修改

本篇文章回覆於2018-12-22 02:16
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
不錯的參考

浩瀚星空
捐贈 VP 給 浩瀚星空 檢舉此回應
我可以告訴你比較笨的方式。如果會的話就好。

我不太認為是因為別台電腦就對不上。
我的直覺因該是解析度不同的問題。

你可以往這方面去想。可能會比較快。

畢竟一但解析度的不同。就會有影響座標位置了。
本篇文章回覆於2018-12-22 14:06
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

香帥
檢舉此回應
補充3樓程式碼另外要實作的畫面如下

本篇文章回覆於2018-12-22 23:48
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

香帥
檢舉此回應
再補充一下,除了螢幕解析度外、文字及其他項目大小調整、視窗全開或不全開...都會影響座標位置
因此我在公司寫自動化軟體,才會用設定檔比較容易解決問題,因為大部分使用者用習慣設定檔幾乎是只設定一次,不會常常改。
本篇文章回覆於2018-12-23 00:01
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
作者回應

阿傑
捐贈 VP 給 阿傑 檢舉此回應
我找了老半天 還是不知道那個VB.NET怎麼轉VB6

但是大大給的程式碼 網路還是很多相關的

正在用功中
本篇文章回覆於2018-12-23 00:28
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
作者回應

阿傑
捐贈 VP 給 阿傑 檢舉此回應
目前東湊西湊的進度是

Option Explicit

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim pt As POINTAPI

GetCursorPos pt

If KeyCode = vbKeyF2 Then
Text1.Text = pt.X
Text2.Text = pt.Y
End If
End Sub

Private Sub Command1_Click() '讀文件

Open "C:\usr\reserve.txt" For Input As #1

Dim Lines As String

Dim NextLine As String

Dim i As Integer



Do While Not EOF(1)

On Error Resume Next

Line Input #1, NextLine

Lines = Lines & NextLine & Chr(13) & Chr(10)

Loop



Close #1

Text1.Text = Lines

End Sub



Private Sub Command2_Click() '寫文件

Open "C:\usr\reserve.txt" For Output As #1

Print #1, Text1.Text

Close #1
Open "C:\usr\reserve2.txt" For Output As #1

Print #1, Text2.Text

Close #1
End Sub



'如果要處理的是程序目錄所在的a.txt那麼應該是這樣寫:
'Open app.path+"/a.txt" For Input As #1


-------------------------------------------------------------------------------
F2可以座標
然後按按鈕2 可以儲存到記事本

但是不知道記事本如果要連接執行的語法如何使用
本篇文章回覆於2018-12-23 00:34
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
9樓
不錯的參考

香帥
檢舉此回應
vb6 檔案讀取我在小舖範例
http://www.blueshop.com.tw/board/FUM20050110200833I8T/BRD20121113144534X82.html
http://www.blueshop.com.tw/board/FUM200501271723350KG/BRD20160424010608IE1.html
本篇文章回覆於2018-12-23 13:24
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
10樓
作者回應

阿傑
捐贈 VP 給 阿傑 檢舉此回應
我的意思是 原本是SetCursorPos 281, 150 可以ˇ點擊座標

但是我想要SetCursorPos(左鍵點擊)我所連接的reserve1.txt(X座標),reserve2.txt(Y座標) 記事本
要怎ㄇ寫啊
本篇文章回覆於2018-12-23 22:57
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
11樓
最有價值解答

香帥
檢舉此回應
將螢幕存檔,用小畫家打開,滑鼠移到要按鈕的地方,查看xy座標後,將該座標存到檔案,建議用一個檔案就好。
例如存到d:\pos.txt 檔案 並以逗號分隔xy座標
例如內容為
260,140
程式碼如下

本篇文章回覆於2018-12-24 22:40
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
12樓
作者回應

阿傑
捐贈 VP 給 阿傑 檢舉此回應
感謝版主及香帥哥 謝謝

成功了!
雖然沒辦法給你2000點數賺錢 但小弟弟願意與身心許
可是還有一個問題
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim pt As POINTAPI

GetCursorPos pt

If KeyCode = vbKeyF2 Then
Text1.Text = pt.x
Text2.Text = "," & pt.y
End If
End Sub
-----------------------
F2可以自動停留座標 可以如果我的程式不在最上層 他沒辦法偵測到座標欸
有辦法嗎??
本篇文章回覆於2018-12-26 00:25
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.